Excel VBA 質問スレ Part51

2017/11/08(水) 11:26:30.13

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 126
https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/

※前スレ
Excel VBA 質問スレ Part50
http://mevius.2ch.net/test/read.cgi/tech/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured 👀
Rock54: Caution(BBR-MD5:0be15ced7fbdb9fdb4d0ce1929c1b82f)

2017/11/08(水) 11:28:45.81

早速質問
今vbaでマップ使って
とある表の集計を行なっております
一つのkeyに対しアイテムが複数あるので
配列で入れようと思ったのですがうまくいきません
何か良い方法はありませんか？

2017/11/08(水) 18:45:21.53

Dim dic
Dim a()

redim a(1)
a(0)="test1"
a(1)="test2"

Set dic = CreateObject("Scripting.Dictionary")
dic.Add "key1", "アテネ"
dic.Add "key2", "ベオグラード"
dic.Add "key3", a

msgbox dic("key3")(0)
msgbox dic("key3")(1)

2017/11/08(水) 19:49:47.05

前スレ
Excel VBA 質問スレ Part50
https://mevius.5ch.net/test/read.cgi/tech/1503805217/

2017/11/08(水) 20:24:39.43

マップをやめて配列「で」入れる
って意味にとってたけど
マップの中に配列「を」入れる
って意味かよ

2017/11/09(木) 13:04:15.65

アイテムが複数あっても同じkey 使えばいいんじゃねと思った

2017/11/09(木) 14:39:20.19

集計をしたいって事じゃない？

2017/11/09(木) 20:19:01.12

>>6
やってみてから発言することをお勧めする

2017/11/09(木) 20:29:22.40

いい言葉を見つけた
Those who know don't talk. (知ってる人は教えようとしない)
Those who talk don't know. (教えてる人はあまり知らない)

2017/11/09(木) 21:19:05.18

立て乙です。
自宅にエクセル環境が無いのでうろ覚えで
細かい間違いはあるかもですが、該当箇所以外はokという前提です

日本という名前のブック
各都道府県名のシート
があるとき

Dim Bn as Workbook
Dim T as Worksheet

Set Bn = Workbooks("日本")
Set T =Worksheets("東京都")

Workbooks("日本").Worksheets("東京都").cells(1,1) = "123"
Bn.T.cells(1,2) = "456"

を実行すると
上段は問題なく実行されて、東京都シートのセルA1に123が入力されますが
下段でエラーがでてしまいます。また

Bn.Worksheets("東京都").cells(1,2) = "456"
T.Worksheets("東京都").cells(1,2) = "456"

のどちらでも動きました
ブックもシートも両方変数で指定するとエラーになってしまうのでしょうか？
ブックもシートもそれなりに切り替えるので、可能であれば別で指定したいのですが……
心当たりがあればご教示いただけると助かります。

2017/11/09(木) 21:25:44.32

>>10
×　Bn.T.cells(1,2) = "456"
○　T.cells(1,2) = "456"

オブジェクトの操作は慣れが必要だけど、こういうもんだと思っておくれ

2017/11/09(木) 22:48:42.62

>>10
Bn.Tだと
workbookオブジェクトにTって言う属性や関数が無いからエラーになるのは当たり前

2017/11/09(木) 23:25:52.19

>>10
> Set Bn = Workbooks("日本")
> Set T =Worksheets("東京都")
ここは
Set T =Bn.Worksheets("東京都")
って書くべき

10 (ﾜｯﾁｮｲ 5f61-KQ8c) · 2017/11/09(木) 23:38:24.62

返答ありがとうございます。

やっぱり両方同時に変数指定はできないんですね……
何というか、指定先が変わる度にセットするのは見づらいような感じがしてまして

明日何とか考えてみようと思います。ありがとうございました

2017/11/09(木) 23:57:00.50

　　●●●宇宙の外側に何があるのか？●●●
　　http://jbbs.livedoor.jp/bbs/read.cgi/stud▲y/3729/1069922074/84-87

　　この掲示板(万▲有サロン)に優秀な書き▲込みをして、総額148万円の賞金をゲットしよう！(*^^)v
　　http://jbbs.livedoor.jp/stu▲dy/3729/ →リンクが不良なら、検▲索窓に入れる！

2017/11/10(金) 00:13:48.87

>>10
名前（Workbooks）が一致していればいいってものじゃない。
オブジェクト.メンバ　という構文なんだよ。メンバとはそのオブジェクトが持っているメソッドとかプロパティとかのこと。

しかし　Bn.T と書くと、オブジェクトとオブジェクトを . で繋いだことになり、これは意味不明なものになる。

2017/11/10(金) 02:06:21.33

コレクションかユーザー定義クラス使うかしたらいいと思うが

2017/11/10(金) 02:16:45.89

>>16
質問者はオブジェクト.メンバの構文の意味が分かってなくてオブジェクトブラウザも見たことない人なんだろうな

オブジェクトのメンバ名を指定してメソッド関数やプロパティ関数を呼び出すことで別のオブジェクトインスタンスのコントロールを取得しているんだってことが理解できてないんだろう

2017/11/10(金) 10:37:51.15

>>10
>T.Worksheets("東京都").cells(1,2) = "456"
これホントに動いたのか？
WorksheetにWorksheetsプロパティとか無かったはずだけど

何がやりたいかよくわからんが
とりあえずブック名とシート名受け取って該当Worksheet返す関数作ればいいんじゃないかと

2017/11/10(金) 12:27:51.12

ワークシートchangeでtargetのA1が代わったらコードが流れるようにしてて、それ以外はexitで抜けてるんだけど、コードがセルに転記してて毎回changeの所に戻ってはexit、戻ってはexitで見辛いのはなんとかなりませんか？

2017/11/10(金) 13:11:21.32

>>20
マクロの実行中に何度もセルに書き込みが発生する処理が美しくないので設計を見直す。

2017/11/10(金) 13:45:49.16

作った人に聞いてみたら？

2017/11/10(金) 17:25:45.54

EnableEvents=False
でイベント制御したらだめなの？

2017/11/10(金) 18:26:04.03

SolverOk関数のEngineまたはEngineDescの引数の規定値って何でしょうか？

2017/11/11(土) 03:04:03.09

>>24
俺の使ってるバージョンだとその引数が無いっぽいから分からんけど
オブジェクトブラウザで表示させれば分かるんじゃね

2017/11/11(土) 08:36:27.60

MP4ファイルのプロパティ値を取得するプログラムでエラーが発生してしまいます
★の箇所で「'NameSpace'メソッドは失敗しました：'IShellDispatch6'オブジェクト」のダイアログが出ます
参照設定Microsoft Shell Controls and automaitonを追加してもだめでした
解決方法がわかれば教えてください

Private Sub CommandButton1_Click()
Dim Shell, Folder
Set Shell = CreateObject("Shell.Application")
Set Folder = Shell.Namespace(range("A1").Value) ←←←★

2017/11/11(土) 09:03:00.19

>>26
こちらのサンプルでとりあえず動きましたお騒がせしました
Dim FSO As Variant, SHell As Variant, Folder As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SHell = CreateObject("Shell.Application")
Set Folder = SHell.Namespace(FSO.GetFile(Songs(1)).ParentFolder.Path)
Cells(1, 1) = Folder.GetDetailsOf(Folder.ParseName(Target), 0)

2017/11/11(土) 12:39:17.23

エクセル２０１３を使用しています。
今、日付を手入力しているのですが、何かで見たのですが
カレンダーから選択して入力できる機能があるのですがエクセルでもできる方法ないでしょうか？
いろいろさがした所アクセスはできるのですがエクセルは標準でもなく
カレンダーコントールなるものあるみたいですが、アクセスもインストールしていないので
VBAマクロの中にもありません

2017/11/11(土) 14:37:40.42

>>14
両方同時にではない。
Worksheetを変数に入れたということはブック情報も込みで入ってる。
だから便利なの。

Aブックのαシートを変数に入れてもその変数でBブックのαシートにアクセスできるわけじゃない。
君のBn.T式のやり方だとBブックのαシートにもアクセスできることになる。
それはBn.Worksheets(T)式と変わらない。
一方、もしBブックのαシートにアクセス出来ないのならBn.T式の意味が無い。
T式で良いわけだから。

2017/11/11(土) 15:59:40.18

>>27
動くのは結構なことだけどFSO無くてもファイル情報取れるよ。
他の部分で便利にFSO使ってるなら良いんだけどその部分だけ見たら無駄だよね。

Dim objShell As Object
Dim objFolder As Object
Dim objFItm As Object
Set objShell=CreateObject("Shell.Application")
Set objFolder=objShell.Namespace("C:¥Users¥Hoge¥Desktop")
Set objFItm=objFolder.ParseName("fuga.txt")
Debug.Print objFolder.GetDetailsOf(objFItm,3)

参照設定とか書いてるけど、それぞれの意味分かってる?
CreateObjectってのは、その場で名前を元にオブジェクトを作成する。
だからコード書いてる間にはどんなメソッドやプロパティがあるか分からないからインテリセンスでの候補が出ることもない。
参照設定は使うオブジェクトを事前に指定することでオブジェクトの型とかメソッド、プロパティにアクセス(インテリセンス等)しやすくするためのもので、CreateObject使ったり、オブジェクトの型をObjectにしてるんだったら意味がない。
CreateObjectで生成出来ないのも有るし参照設定のがある意味上位互換だけど人にコードを提示する場合は参照設定するよう指示も書かなくちゃなんないからCreateObjectでの例が多いんだけどさ。
もちろん、参照設定したら動くようになるなんてことも無い。

Dim objShell As Shell
Dim objFolder As Folder
Dim objFItm As FolderItem
Set objShell=New Shell
Set objFolder=objShell.Namespace("C:¥Users¥Hoge¥Desktop")
Set objFItm=objFolder.ParseName("fuga.txt")
Debug.Print objFolder.GetDetailsOf(objFItm,3)

2017/11/11(土) 16:02:23.93

参照設定は極力しないほうが良いよね
参照設定を忘れてドハマリすることがたまによくある

2017/11/11(土) 16:04:50.69

>>28
エクセルでも出来るんだけど非常に上級者向けなんです。
上級者でも自分で1から組めない人が多いんじゃないかと思う。

上級者って何?、お前の勝手な分類だろって言われればそうなんだけど。

2017/11/11(土) 17:24:06.37

>>28
エクセルアドインカレンダー
で検索すれば色々見つかるよ
使いやすいもの選べばよろし

2017/11/12(日) 05:18:36.72

>>28
UserForm使えば簡単に自作できますよ。
年と月用のテキストボックスをつけて、年と月それぞれ増減させるために、スピンドルボタンをつける。
日付表示用のラベルを必要数用意。
年と月のテキストボックスの値に応じて、ラベルの表示を変更。
ラベルのクリックイベントで、年と月のテキストボックスとラベルのテキストを連結して、日付に変換。

ラベルのクリックイベントは、クラスでまとめれば、クリックイベントをたくさん書く必要もありません。

2017/11/12(日) 06:52:57.92

スピンボタンな