Excel VBA質問箱 IV

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

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


3567 / 76735 ←次へ | 前へ→

【78797】Re:VBAに行き詰りました。助けてください。
発言  β  - 17/2/2(木) 18:13 -

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

う〜ん・・・

つっこみどころ満載のコードなので・・・

逆に1週間で勉強して、これだけのコードを組み立てられたのだとしたら、そうれはすごいことですが
もしかしたら、ネットや参考書に記載されていたコードを、自分流に、あれこれ 追加したり
組み合わせたりしただけなのかな?

やはり、基礎からしっかりと習得してからコード記述したほうがいいですし、
まぁ、習うより慣れろ ですから いきなりチャレンジも、悪いことではないですけど
その場合も、そのコードそれぞれについて しっかりと参考書などで意味を確認してから
使うべきですね。

まず、対になるコード という基本がVBA(だけではないのですが)にはあります。

With と End With 、If と End If 、Do と Loop、For と Next といったようyなものです。

With だけしかないとか、End With だけしかない というものは NGです。

次に、 .hoge と書きます。..SelectedItems とか .Show とか。
これは、非常に便利な記述方法なのでよく用いられますが、これを書く場合は、

With なんとか
  ここに .hoge とかく
End With

このように With句に挟まれた場所でのみ記述可能です。

なんとか『の』とか、なんとか『を』といったように指定ができます。

でも、先行して With がなければ コンパイラーから叱られます。

それと、少し難しいかもしれませんが

Application.FileDialog(msoFileDialogFolderPicker).SelectedItems


Application.FileDialog(msoFileDialogFolderPicker) はフォルダ選択ダイアログを
表示します。 
で戻り値として 様々な選択情報(含むキャンセルボタンによる無選択)を返します。

そうすると、Application.FileDialog(msoFileDialogFolderPicker).SelectedItems
というコードは そのダイアログで選択された結果の情報 ということになります。

VBAでは 何か を どうする という記述が必要です。
何か だけを ぽつんと書くと、コンパイラーから叱られます。

たとえば Range("A1").Value = "Hello" と書けますね。
でも Range("A1").Value だけのコードを書くと、これはおかしいぞ! ということになります。
それと同じです。

なずは、このあたりから、コードを手直しして、それでもだめならSOSを出してください。

0 hits

【78796】VBAに行き詰りました。助けてください。 りり 17/2/2(木) 14:52 質問[未読]
【78797】Re:VBAに行き詰りました。助けてください。 β 17/2/2(木) 18:13 発言[未読]
【78798】Re:VBAに行き詰りました。助けてください。 β 17/2/2(木) 18:49 発言[未読]
【78799】Re:VBAに行き詰りました。助けてください。 りり 17/2/3(金) 9:35 お礼[未読]
【78800】Re:VBAに行き詰りました。助けてください。 β 17/2/3(金) 10:50 発言[未読]
【78801】Re:VBAに行き詰りました。助けてください。 りり 17/2/3(金) 11:23 質問[未読]
【78802】Re:VBAに行き詰りました。助けてください。 りり 17/2/3(金) 13:15 質問[未読]
【78803】Re:VBAに行き詰りました。助けてください。 β 17/2/3(金) 23:38 発言[未読]
【78804】Re:VBAに行き詰りました。助けてください。 β 17/2/4(土) 0:42 発言[未読]
【78805】Re:VBAに行き詰りました。助けてください。 りり 17/2/4(土) 14:27 お礼[未読]

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