Excel VBA質問箱 IV

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

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


74326 / 76732 ←次へ | 前へ→

【6875】Re:ありがとうございます
回答  INA  - 03/8/8(金) 14:17 -

引用なし
パスワード
   >取得できた範囲に対して選択をしたいのです。
Range("A1").CurrentRegion.Select
これで選択できます。

>その後、空白セルに対して検索をかけ入力で
>きるようにして行きたいのですが・・・・・
>漠然とした質問ですいません。
Private Sub CommandButton1_Click()
Dim x As Variant
Dim EmptyCells

Range("A1").CurrentRegion.Select

For Each x In Range("A1").CurrentRegion

If x.Value = "" Then
   EmptyCells = EmptyCells & "," & x.Address
End If

Next x

  EmptyCells = Mid(EmptyCells, 2)
  Range(EmptyCells).Select
  
End Sub


これで、CurrentRegionの範囲中の空白セルが選択されますので、
TABキーを押せば、セルを移動できます
1 hits

【6861】よろしくお願いします。 仕事で困っています 03/8/8(金) 11:31 質問
【6862】Re:よろしくお願いします。 つん 03/8/8(金) 11:40 回答
【6867】ありがとうございます 仕事で困っています 03/8/8(金) 13:49 お礼
【6869】Re:ありがとうございます INA 03/8/8(金) 13:58 回答
【6871】Re:ありがとうございます 仕事で困っています 03/8/8(金) 14:06 発言
【6875】Re:ありがとうございます INA 03/8/8(金) 14:17 回答
【6876】Re:ありがとうございます INA 03/8/8(金) 14:23 発言
【6877】ありがとうございます 仕事で困っています 03/8/8(金) 14:32 お礼
【6870】Re:ありがとうございます つん 03/8/8(金) 14:04 回答
【6874】Re:ありがとうございます 仕事で困っています 03/8/8(金) 14:14 お礼
【6880】Re:ありがとうございます つん 03/8/8(金) 14:37 回答
【6883】Re:ありがとうございます 仕事で困っています 03/8/8(金) 14:58 お礼
【6885】Re:ありがとうございます Jaka 03/8/8(金) 15:17 発言

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