Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9386 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【27686】ユーザー定義型の定義のしかた kobasan 05/8/16(火) 7:29 質問[未読]
【27687】Re:ユーザー定義型の定義のしかた ichinose 05/8/16(火) 8:16 発言[未読]
【27688】Re:ユーザー定義型の定義のしかた kobasan 05/8/16(火) 8:32 お礼[未読]
【27686】ユーザー定義型の定義のしかた
質問  kobasan  - 05/8/16(火) 7:29 -
引用なし
パスワード
   おはようございます。

(1)(2)のユーザー定義型の定義のしかたを、どなたか教えてください。

Private Function F_vntMakeWordsList2(rngTarget As Excel.Range) As Variant
'-----(1)
'ユーザー定義を使った場合???【20871】の過去ログを参考にしました
Dim dicList As New Scripting.Dictionary '<===エラーメッセージ
'-----(2)
'Dim dicList　　 As Scripting.Dictionary '<===エラーメッセージ
'(1)(2)とも「ユーザー定義型は定義されていません」のエラーメッセージが出る
'-----
Dim vntList　　 As Variant
Dim vntbuf　　　As Variant
'-----(3)うまく動く
'Dictionaryオブジェクトを使った場合
Dim dicList As Object
Set dicList = CreateObject("Scripting.Dictionary")
'-----
【27687】Re:ユーザー定義型の定義のしかた
発言  ichinose  - 05/8/16(火) 8:16 -
引用なし
パスワード
   ▼kobasan さん：
おはようございます。
夏休みももう終わりですねえ・・・・
（私のところは・・ですが。）
>
>(1)(2)のユーザー定義型の定義のしかたを、どなたか教えてください。
>
>Private Function F_vntMakeWordsList2(rngTarget As Excel.Range) As Variant
>'-----(1)
>'ユーザー定義を使った場合???【20871】の過去ログを参考にしました
>Dim dicList As New Scripting.Dictionary '<===エラーメッセージ
>'-----(2)
>'Dim dicList　　 As Scripting.Dictionary '<===エラーメッセージ
>'(1)(2)とも「ユーザー定義型は定義されていません」のエラーメッセージが出る
>'-----
>Dim vntList　　 As Variant
>Dim vntbuf　　　As Variant
>'-----(3)うまく動く
>'Dictionaryオブジェクトを使った場合
>Dim dicList As Object
>Set dicList = CreateObject("Scripting.Dictionary")

これね、「Microsoft Scripting Runtime」を参照設定してください。
FSO使用時なども↑を使います。

確認してください
【27688】Re:ユーザー定義型の定義のしかた
お礼  kobasan  - 05/8/16(火) 8:32 -
引用なし
パスワード
   ▼ichinose さん　おはようございます。

>Microsoft Scripting Runtime」を参照設定してください。
>FSO使用時なども↑を使います。

できました。すっきりしました。
ありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9386 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free