|
いつも参考にさせて頂いています。
質問させて下さい。
セル5:17に入っている情報をメッセージボックスで表示しています。
Sub AgTimeInfomation()
Dim val(0 To 11) As String
Range("L5").Select
r = ActiveCell.Row
For i = 0 To 11
val(i) = Cells(r + i, 12).Value
Next
MsgBox val(0) & Chr(10) _
& Chr(13) & val(1) & Chr(10) _
& Chr(13) & val(2) & Chr(10) _
& Chr(13) & val(3) & Chr(10) _
& Chr(13) & val(4) & Chr(10) _
& Chr(13) & val(5) & Chr(10) _
& Chr(13) & val(6) & Chr(10) _
& Chr(13) & val(7) & Chr(10) _
& Chr(13) & val(8) & Chr(10) _
& Chr(13) & val(9) & Chr(10) _
& Chr(13) & val(10) & Chr(10) _
& Chr(13) & val(11) & Chr(10) _
& Chr(13) & val(12) & Chr(10), 0 + 64, "Ag使用時間情報"
End Sub
しかし、セルに情報が入っていない場合でも空白行で表示されてしまいます。
セルが未入力の時は次の入力されている行が表示される様にするには
どうしたら良いのでしょうか?
長くなって申し訳ありませんがどなたかお願いします。
|
|