Excel VBA質問箱 IV

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

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


41087 / 76735 ←次へ | 前へ→

【40732】Re:集計表について
質問  サン E-MAIL  - 06/7/21(金) 16:53 -

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

たびたび申し訳ございません。
WINDOWSでは、マクロが動くのですが
MACユーザーが使用したところ、

Set dic = CreateObject("Scripting.Dictionary")

の部分が黄色くなってしまいます。

知識不足で大変申し訳ございません。

御忙しい所大変申し訳ございませんが、
教えて頂けますでしょうか。


>今晩は。
>
>Dictionary については、ヘルプを調べてみてください。
>以下の説明でどうですか。
>
>
>>>    If Not dic.exists(vnt(i, 1)) Then
>       'vnt(i,1) が、Dictionary にkey として登録されてないとき
>
>>>      ReDim a(6)
>      'で、a(0)〜a(6)の7列分の配列を設定。
>
>>>      a(0) = vnt(i, 1)
>>>      a(1) = vnt(i, 2)
>>>      a(2) = vnt(i, 3)
>>>      a(3) = vnt(i, 4)
>      'で、a(0)〜a(3) に1列から4列までのデータを格納
>
>>>    Else
>       'vnt(i,1) が、Dictionary にkey として登録されているとき
>
>>>      a = dic(vnt(i, 1))
>       'で、Dictionary に登録したdic(vnt(i, 1))を配列 a に戻す。
>       '合計するため
>
>>>    End If
>>>    a(4) = a(4) + vnt(i, 5)
>>>    a(5) = a(5) + vnt(i, 6)
>>>    a(6) = a(6) + vnt(i, 7)
>     'で、a(4)〜a(6) に5列から7列までの合計を格納
>
>>>    dic(vnt(i, 1)) = a
>     'で配列 a を、Dictionary に登録
>
>>>  Next i
>>
>>の式は、どういう事を指令しているのか
>>教えて頂けますでしょうか。

0 hits

【40478】集計表について サン 06/7/14(金) 15:14 質問
【40490】Re:集計表について kobasan 06/7/14(金) 22:25 回答
【40568】Re:集計表について サン 06/7/18(火) 12:16 お礼
【40652】Re:集計表について kobasan 06/7/19(水) 18:48 回答
【40662】Re:集計表について サン 06/7/20(木) 9:55 お礼
【40732】Re:集計表について サン 06/7/21(金) 16:53 質問
【40739】Re:集計表について kobasan 06/7/21(金) 20:43 回答
【40747】Re:集計表について ichinose 06/7/22(土) 8:13 発言
【40755】Re:集計表について kobasan 06/7/22(土) 18:44 発言
【40759】Re:集計表について ichinose 06/7/23(日) 11:20 発言
【40825】Re:集計表について' kobasan 06/7/24(月) 20:16 発言
【40834】Re:集計表について' ichinose 06/7/24(月) 23:12 発言
【40902】Re:集計表について' kobasan 06/7/25(火) 22:45 お礼
【40782】Re:集計表について サン 06/7/24(月) 10:04 お礼
【40491】Re:集計表について Kein 06/7/14(金) 22:31 回答
【40569】Re:集計表について サン 06/7/18(火) 12:24 お礼
【40632】Re:集計表について Kein 06/7/19(水) 14:22 回答
【40633】Re:集計表について サン 06/7/19(水) 14:28 お礼

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