|
>▼みゆき さん:
2列目だけで判断していますが、このままだと
名前書き忘れて 次に別のデータいれたら、 うわぁ〜 って泣きますよ。
業務用なら、2、3、4列とも 空白でないことを確認してから
書き込むという方が、間違って消した(>_<) というトラブルがないかと思います。
PPrivate Sub CommandButton1_Click()
Dim ARow, ACol As Long
Dim StartCell As String
Dim i, j As Long
' 下に検索
StartCell = "B4" ' 検索開始位置
ARow = Range(StartCell).Row ' B4の 行の数字を代入
ACol = Range(StartCell).Column ' B4の 列の数字を代入
For i = ARow To 65536 ' 行を操作
If IsEmpty(Cells(i, ACol)) And _
IsEmpty(Cells(i, ACol + 1)) And _
IsEmpty(Cells(i, ACol + 2)) Then
' もし空白なら
' ここに処理
' i 行目、ACol 列目
Cells(i, 2) = "名無しさん" ' Cells(i, ACol)
Cells(i, 3) = "受付時間" ' Cells(i, ACol + 1)
Cells(i, 4) = "受付番号" ' Cells(i, ACol + 2)
Exit For ' for文をでる
End If
Next
End Sub
|
|