Excel VBA質問箱 IV

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

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


59891 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   >▼みゆき さん:

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

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 発言

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