Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44951 / 76732

←次へ　｜　前へ→


	【36789】Re:遅くなりました。

ponpon - 06/4/13(木) 21:19 -


	引用なし

	パスワード

こんばんは。
よりによって私のを試すなんて、
他の超ベテランの3人の方のを試されれば良かったものを・・・・
どこでどんなエラーが出ますか？
サンプルシートを作成し、他の方のものもすべて実行してみましたが、
私のコードと同じ結果になっています。
ただ、私のはシート名から左3文字を取得していますので、そこのところが違うだけです。そこは、変更がききますが・・・

>keyとitemがあって、itemに配列を取得することはできないのでしょうか？
私のコードは、itemに配列を入れていますが・・・

>　　'シートネームの左から3文字を辞書のkeyに、D18からD30をitemに格納
>　　Set myDic = CreateObject("Scripting.Dictionary")
>　　For i = 1 To ThisWorkbook.Worksheets.Count
>　　　mySHnm = Left$(Sheets(i).Name, 3)
>　　　myVal = Sheets(i).Range("D18", Sheets(i).Range("D30")).Value
>　　　If Not myDic.exists(mySHnm) Then
>　　　　 myDic(mySHnm) = myVal
>　　　Else　　'同じkeyなら配列の足し算
>　　　　 myVal2 = myDic(mySHnm)
>　　　　 For j = 1 To UBound(myVal2)
>　　　　　 myVal2(j, 1) = myVal2(j, 1) + myVal(i, 1)
>　　　　 Next
>　　　　 myDic(mySHnm) = myVal2
>　　　End If
>　　Next

1 hits

▼

【36692】特定の文字列をシート名に含むシートのみ串刺し計算 VBA☆ 06/4/8(土) 8:51