|
▼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使用時なども↑を使います。
確認してください
|
|