人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルVBAプログラムについての質問です。どなたか教えてください。
エクセルシートのある行で範囲指定をして、空白セルを指定し抽出します。次にその抽出した複数セルのうち一番左がわのセルをアクティブの状態にしようとしています。空白セルの抽出は下記のプログラムでできましたが、一番左がわのセルをアクティブにするプログラムがわかりません。
Range("m149:q149").SpecialCells(xlCellTypeBlanks).Select

考えているのは、空白セルの左側から順に、別の条件設定をして得たデータを貼り付けていこうとというものです。
よろしくお願いします。

●質問者: nekoume
●カテゴリ:コンピュータ
✍キーワード:SELECT VBA アクティブ エクセル セル
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● kn1967
●10ポイント

(1)左上のセルをアクティブにする方法

Range("m149:q149").SpecialCells(xlCellTypeBlanks).Select
Selection.Activate

(2)順にアクセスする方法の例

Sub Macro1()
 Dim R1 As Range
 Dim R2 As Range

 Set R1 = Range("m149:q149").SpecialCells(xlCellTypeBlanks)
 For Each R2 In R1
 R2.Value = "R" & R2.Row & ":C" & R2.Column
 Next R2
End Sub

ところで・・・SpecialCellsは

途中に「何かが入っているセル」があれば、そこで探索を止めますし

ひとつも空白がなければエラーになりますので、ご注意を。

http://hatena.jp/ダミー


2 ● jccrh1
●60ポイント

単純に以下に変更すればできると思います。

Range("m149:q149").SpecialCells(xlCellTypeBlanks)(1, 1).Select

※Blankのセルがなければエラーになるので注意が必要ですが…

http://q.hatena.ne.jp/answer

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ