|
>早速試してみたのですが、下記の部分でエラー"13"で型が存在しません
>と出るのですが、何故なのでしょうか?何もおかしい事
>はない気がするのですが・・・
>
>> 'データ位置全てに就いて繰り返し
>> For i = 0 To UBound(vntPos)
>> 'データ位置のデータを順番に転記
このエラーが出るのは、多分、vntPosの変数に配列データが無く、
ただのVariant型の変数として認識されている為と思われます
UserFormの「Private Sub Userform_Initialize()」のイヴェントに
以下のコードが有りますか?
'「"確認表"の元データーは色々なセルに散乱しています」
'のセル位置を順番に列挙
vntPos = Array("K5", "D7")
此れが無いと、実行時エラーの13がでるようです
私のUpしたコードを全て記述していますか?
後、多分関係無いと思いますが
本来「Private Sub Userform_Initialize()」と成るのですが、
Upした物が「Private Sub userform_Initialize()」と成って居るので
これも直して下さい
また、其れでも上手く行かない様なら、
素人さんの記述した、UserFormのコードを全文Upして見て下さい
|
|