|
▼みゆき さん:
>▼かみちゃん さん:
>>こんにちは。かみちゃん です。
>>
>>>「B列」の4行目から検索を開始させたいのです。
>>
>>もしかして、したいこととは違うかもしれませんが、
>>B4から下方向に最初の空白セルにセルを移動させるには、次の方法でできます。
>>Sub Macro1()
>> With Range("B4").End(xlDown)
>> If .Row <> Columns(1).Rows.Count Then
>> .Offset(1).Select
>> End If
>> End With
>>End Sub
>
>ありがとうございます。
><>で空白という意味を表しているんでしょうか?
<>は 条件文です 同じでない(≠)という意味です。
Not( = ) と同じです
リンゴ<>バナナ なら Trueが戻ってきます
Not(リンゴ = バナナ) なら Trueが戻ってきます
リンゴ=バナナ なら Falseが戻ってきます
とかだったらわかります?
>
>実はこのセルの行数も知りたいんです。
>空白セルが見つかったならば、その右隣へ
>cells(同一行数,列数2)="名無しさん"
>cells(同一行数,列数3)="受付時間"
>cells(同一行数,列数4)="受付番号" のように指定してデータを送っています。
>
>上記のプログラムでは行数のカウントはされているんでしょうか?
>初心者の為質問ばかりでごめんなさい。
Private 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)) Then ' もし空白なら
' ここに処理
' i 行目、ACol 列目
Cells(i, 2) = "名無しさん"
Cells(i, 3) = "受付時間"
Cells(i, 4) = "受付番号" 'のように指定してデータを送っています。
Exit For ' for文をでる
End If
Next
End Sub
|
|