2016-10-25 5 views
0

私は、スプレッドシートで列Lの "x"を検索するコードを持っています。そうであれば、行全体をコピーして新しいシートに貼り付けます。これは列に "x"がなくなるまで続きます。毎週変わるセルを書式設定する方法

私がしたいことは、マクロにもこれらのセルに「すべての罫線」境界線を置くことです。私が進めている問題は、新しいタブが1週間に3行のデータを持ち、もう1週間に23があるということです。

どのようにしてデータを持つセルのみをフォーマットすることができますか? (私の場合は、常にB:L列になりますが、書式は必要ですが、行は変わります)。

ありがとうございました!

+0

元の投稿にあるコードを編集して投稿し、あなたが試したことを説明してください。 –

+0

私がしようとしていることに関連するコードはありません。私はコーディングに非常に新しいので、この状況をどこから始めるべきかを本当に知りませんし、何時間もそれをやる方法を研究しています。 – Nick

答えて

0

以下のコードを確認してください。特に、.userangeプロパティが有効な場合はこちらをご覧ください。

sub formatBorder() 

dim rng as range 
dim wks as worksheet 

set wks = thisworkbook.worksheets("Sheet1") 'change sheet name if required 
set rng = intersect(wks.usedrange,wks.range("B:L")) 

if rng is nothing then goto terminate 

With rng.Borders 
    .LineStyle = xlContinuous 
    .Color = vbRed 
    .Weight = xlThin 
End With 

terminate: 
set wks = nothing 
set rng = nothing 

end sub 
関連する問題