Excel VBA質問箱 IV

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

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


18469 / 76737 ←次へ | 前へ→

【63710】Re:配列について
発言  かお  - 09/12/2(水) 13:56 -

引用なし
パスワード
   ▼Hirofumi さん:

ありがとうございました
お蔭様で解決しました。
一つだけお聞きしたいのですが、
下記のコードで、
   .Cells(i, 2).Resize(, 2).Value = MyD.Item(MyKey)
の部分ですが、今回は隣同士の列だったので、Resizeで、できましたが、
もし、入力する列がB列とD列といったように、離れていたら、
どんなふうに処理をすればよいのでしょうか?
そういうことも今後出てくる予定ですので、よかったら、
アドバイス下さい

>  With Workbooks("ブック2.xls").Worksheets("Sheet1")
>    For i = 1 To .Range("A" & Rows.Count).End(xlUp).Row
>      MyKey = .Cells(i, 1).Value
>      If MyD.Exists(MyKey) Then
>        .Cells(i, 2).Resize(, 2).Value = MyD.Item(MyKey)
>      End If
>    Next i
>  End With


お願いします

0 hits

【63708】配列について かお 09/12/2(水) 10:37 質問
【63709】Re:配列について Hirofumi 09/12/2(水) 11:42 回答
【63710】Re:配列について かお 09/12/2(水) 13:56 発言
【63711】Re:配列について Hirofumi 09/12/2(水) 14:27 回答
【63723】Re:配列について かお 09/12/3(木) 13:37 お礼

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