http://koikide.net/With.html
このページにwithを入れ子にして使う方法が書かれてあるのですが
下記のようにwithが上下関係のない場合にはどうしたら良いですか?
with ThisWorkbook.Worksheets("Sheet1")
With ListView1
For i = 2 To filenum0 + 1
.ListItems.Add Text:=.Cells(i, 1)
Next i
End With
End With
.ListItems.Add Textの前にListView1
.Cells(i, 1)の前にThisWorkbook.Worksheets("Sheet1")
が省略されています。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
入れ子になった内側の With の中で省略できるのは内側の With で指定しているオブジェクトだけです。
質問文の箇所で ThisWorkbook.Worksheets("Sheet1") を省略することはできません。
今回の質問のポイントからは逸れますが、私の場合 Worksheet を操作するときは対象の Worksheet を必ずオブジェクト変数越しに使うようにしています。
Dim sht1 As Worksheet
Set sht1 = ThisWorkbook.Worksheets("Sheet1")
With ListView1
Dim i As Long
For i = 2 To filenum0 + 1
.ListItems.Add Text:=sht1.Cells(i, 1).Value
Next i
End With
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL VBAにて動的にCheckBOXを...
-
パワーポイントのVBAでテキスト...
-
CoCreateInstanceでエラーになる。
-
error C2712: オブジェクト ア...
-
Excelで =EMBED("Acrobat Docu...
-
ワードで画像をドロップすると...
-
COMコンポーネントって何?
-
bmp画像をjpegやpng画像に圧縮...
-
VBA 同じ名前のオブジェクトを...
-
ワイルドカード<?>と型パラメー...
-
Accessの連結・非連結オブジェ...
-
時間帯判定をする。
-
VBAのWindowオブジェクトとWork...
-
Visual Studioでのbmpファイル...
-
AccessからMSペイントを起動さ...
-
javaで引数が違うobjectを利用...
-
VBAのオブジェクトの値を保持し...
-
オブジェクトと関数の違い
-
Vbで通常使用するプリンターを...
-
C#でフォームのオブジェクト名...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パワーポイントのVBAでテキスト...
-
VBA 同じ名前のオブジェクトを...
-
Excelで =EMBED("Acrobat Docu...
-
C#でフォームのオブジェクト名...
-
VBAのWindowオブジェクトとWork...
-
EXCEL VBAにて動的にCheckBOXを...
-
時間帯判定をする。
-
ビジュアルC++でボタンの有...
-
COMコンポーネントって何?
-
Object型からDouble型へのキャスト
-
error C2712: オブジェクト ア...
-
LISTBOXの内容が更新されま...
-
ワイルドカード<?>と型パラメー...
-
戻り値がクラスオブジェクト
-
bmp画像をjpegやpng画像に圧縮...
-
VBAからノーツを起動
-
Accessの連結・非連結オブジェ...
-
ワードで画像をドロップすると...
-
CoCreateInstanceでエラーになる。
-
オブジェクトレベルとメタレベル
おすすめ情報