Excel VBA質問箱 IV

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

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


74324 / 76732 ←次へ | 前へ→

【6877】ありがとうございます
お礼  仕事で困っています E-MAIL  - 03/8/8(金) 14:32 -

引用なし
パスワード
   INA殿
ありがとうございました。
下記のプログラムを実行したところ、私のやりたい事が実現できました。
本当にありがとうございました。

>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キーを押せば、セルを移動できます
0 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 発言

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