ＶＢＡと罫線の作成

質問

こんにちは。

ＶＢＡ勉強中で初心者です。

今、以下の上段画像のような表をエクセル2003
で作成しました。
下段画像はＶＢＡ実行後の表です。

表は
番号と氏名、合否の結果を入力した
ものです。

今、行いたい処理なのですが

(1)　Ｂ列の氏名欄に対応する、連番を
Ａ列に表示したい。

(2)　さらに、氏名欄が入っている部分を
Ａ列からＤ列まですべてを罫線（普通線）
で囲みたい。

の2点です。
(1)はなんとかできたみたいのですが、
(2)で完全に手が止まってしまいました。

最終の行と列の取得が、すこしわからないので
教えていただければと思います。

よろしくお願いします。

Sub sample()

Dim num As Integer '行変数を設定
Dim num2 As Integer '番号変数を設定

Dim i As Long　最終行の取得？

num = 4 'Ｂ列4行目から調べる
num2 = 1 '連番は「1」からスタート

Range("A:a").Clear 'Ａ列のデータをいったんクリアにする
Do Until Cells(num, 2) = "" 'Ｂ列の氏名欄が空白なるまで処理を繰り返す
Cells(num, 1) = num2 '連番「1」をＢ4にまず、代入する
num = num + 1 '行を1行分下げる
num2 = num2 + 1 '番号変数に1をプラスする

Loop

i = Range("B4").End(xlDown).Row

End Sub

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.3

merlionXX · ベストアンサー

merlionXXです。

> Range("A2:D" & i).
> 上記の構文がよくわかりません

おや、i　は
i = Range("B4").End(xlDown).Row '最終行の取得
で、求めた最終行ですよね。

かりに最終行が10行目だとしたら変数　i　には10が代入されてますから
Range("A2:D" & i).は
Range("A2:D10")　
ということです。

補足

なるほど、そうでした。

うまくいきそうです。

ありがとうございます。

回答No.2

merlionXX

そこまで出来てたらあと一息でしたね。
一例です。

Sub sample2()
　　Dim num As Integer '行変数を設定
　　Dim num2 As Integer '番号変数を設定
　　Dim i As Long
　　num = 4 'Ｂ列4行目から調べる
　　num2 = 1 '連番は「1」からスタート
　　Range("A:A").Clear 'Ａ列のデータをいったんクリアにする
　　Do Until Cells(num, 2) = "" 'Ｂ列の氏名欄が空白なるまで処理を繰り返す
　　　　Cells(num, 1) = num2 '連番「1」をＢ4にまず、代入する
　　　　num = num + 1 '行を1行分下げる
　　　　num2 = num2 + 1 '番号変数に1をプラスする
　　Loop
　　i = Range("B4").End(xlDown).Row '最終行の取得
　　With Range("A2:D" & i).Borders '罫線設定
　　　　.LineStyle = xlContinuous
　　　　.Weight = xlThin
　　　　.ColorIndex = xlAutomatic
　　End With
End Sub

なお、連番を振る方の質問
http://okwave.jp/qa/q6445931.html
は、解決したら締め切りましょう。

補足

ありがとうございます。

勉強中で、ひとつ追加で質問なのですが

Range("A2:D" & i).

上記の構文がよくわかりません。

最初に列範囲が来て、後に最終行の

値が来て、結合？しているのでしょうか。

お手数かけ、申し訳ありません。

回答No.1

tom04

こんにちは！
↓のコードではどうでしょうか？

個人的には　For～Nxxt を使いたがる人間です。

一例です。
データは4行目から入るものとします。

Sub test()
Columns(1).Clear
Dim i, j As Long
j = Cells(2, Columns.Count).End(xlToLeft).Column
Columns(1).Clear
Range(Columns(1), Columns(j)).Borders.LineStyle = xlNone
For i = 4 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2) <> "" Then
Cells(i, 1) = Cells(i, 1).Row - 3 '←4行目からのデータの場合です
With Range(Cells(i, 1), Cells(i, j))
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
End With
End If
Next i
End Sub

的外れならごめんなさいね。m(__)m