Excel VBA質問箱 IV

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

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


59895 / 76732 ←次へ | 前へ→

【21500】Re:条件を満たすセルの検索
発言  りすりす  - 05/1/21(金) 23:47 -

引用なし
パスワード
   ▼みゆき さん:
>はじめまして、VBAは初めてです。
>業務で使用している顧客受付のエクセルファイルをVBAで操作したいと思い始めたところです。
>別フォームに入力すべき事項をテキストボックスやコンボボックスなどでまとめその情報をエクセルへ流しこむプログラムです。
>題名の通り、指定列の「セルが空白」の条件を満たすセルを検索してそこから入力を開始したいのですが、上手くいきません。
>「B列」の4行目から検索を開始させたいのです。
>ネットで検索してDo whileやfor文も使ってみましたが無限ループになってしまい抜けられなくなってしまいました。
>使い方を理解していないのかも・・・。
>
>ご教授お願い致します。


Aと1の交差した左上をぐいっと左クリックしたままにすると
その上に
65536Rx256C と表示されると思います。
それが、セルの最大数です。 Rは行、Cは列です。
つまり 65536行、256列しかあつかえないということです。
ですから、ループのカウントもそれを越えないようにしないといけません。

他の方がループを使わない簡単なやり方を説明されていますので
無限ループの解消の参考までに

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 列目
   MsgBox (Cells(i, ACol).Address(0, 0) + " 空白発見")
   Exit For  ' for文をでる
  End If
 Next
 
 ' 右に検索
 For j = ACol To 256 ' 列を操作
  If IsEmpty(Cells(ARow, j)) Then
   ' ここに処理
   ' ARow 行目 、j 列目
   MsgBox (Cells(ARow, j).Address(0, 0) + " 空白発見")
   Exit 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 発言

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