質問: excelのvbaで線を引く場合 excel2000です。 vbaで線を引きたいんですが 文字が入っているセルの上だけに線を引きたいんです。 例えばこんな感じです。 --------------------- 課長 山田 佐藤 田中 --------------------- 係長 山本 村田 役職に入っていれば線を引きたいんですが・・・。 宜しくお願いします。
回答: これでどうでしょうか? a,b,c,dは適宜変更して下さい。 なお、罫線の種類は、細直線にしてあります。 sub samplemacro() dim a, b, c, d, e as long a = 1 '役職列の列番号(数値) b = 3 '罫線を引く範囲(最後の列番号) c = 2 '氏名列の列番号(数値) d = 3 'データが始まる行番号 e = cells(d, c).currentregion.rows.count for x = 1 to e if cells(x + d - 1, 1).value <> "" then with range(cells(x + d - 1, a), cells(x + d - 1, b)).borders(xledgetop) .linestyle = xlcontinuous .weight = xlthin end with end if next x end sub