Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


59893 / 76732 ←次へ | 前へ→

【21502】Re:条件を満たすセルの検索
発言  りすりす  - 05/1/22(土) 0:08 -

引用なし
パスワード
   ▼みゆき さん:
>▼かみちゃん さん:
>>こんにちは。かみちゃん です。
>>
>>>「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
0 hits

【21490】条件を満たすセルの検索 みゆき 05/1/21(金) 22:09 質問
【21492】Re:条件を満たすセルの検索 かみちゃん 05/1/21(金) 22:21 回答
【21499】Re:条件を満たすセルの検索 みゆき 05/1/21(金) 23:25 質問
【21501】Re:条件を満たすセルの検索 かみちゃん 05/1/22(土) 0:07 回答
【21502】Re:条件を満たすセルの検索 りすりす 05/1/22(土) 0:08 発言
【21504】Re:条件を満たすセルの検索 みゆき 05/1/22(土) 0:21 お礼
【21505】Re:条件を満たすセルの検索 りすりす 05/1/22(土) 0:22 発言
【21506】Re:条件を満たすセルの検索 みゆき 05/1/22(土) 1:12 質問
【21510】Re:条件を満たすセルの検索 りすりす 05/1/22(土) 2:07 回答
【21519】Re:条件を満たすセルの検索 みゆき 05/1/22(土) 12:54 お礼
【21514】Re:条件を満たすセルの検索 かみちゃん 05/1/22(土) 10:46 回答
【21525】経過時間の計算 みゆき 05/1/22(土) 17:48 質問
【21529】Re:経過時間の計算 G-Luck 05/1/22(土) 19:24 発言
【21532】Re:経過時間の計算 りすりす 05/1/22(土) 21:13 回答
【21533】日数および時間計算に関するワークシート関... りすりす 05/1/22(土) 22:39 発言
【21537】Re:日数および時間計算に関するワークシー... みゆき 05/1/23(日) 0:16 お礼
【21493】Re:条件を満たすセルの検索 ponpon 05/1/21(金) 22:24 発言
【21497】Re:条件を満たすセルの検索 りすりす 05/1/21(金) 23:11 回答
【21500】Re:条件を満たすセルの検索 りすりす 05/1/21(金) 23:47 発言

59893 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free