|
▼つつじ さん:
こんばんは。
コードは 実際のものをVBEウィンドウよりコピーしてここに貼り付けるようにしてください
でないと、ここに書き込むときのタイプミスか、もともとの構文エラーなのか
分からないですから。
>フォームには
>private sub useform_initialize()
> dim i as long
> for i = 1 to worksheets.count
> shtname.additem.worksheets(i).name
↑ここがコンパイルエラーになると思います
> next i
>end sub
>
>private sub shtname_click()
> public st as variant
↑ここもコンパイルエラーになると思います
> st=shtname.list(shtname.listindex)
> call ワーク
>end sub
>
>
>モジュール欄には
>sub ワーク()
> with worksheets(st)
> 処理
> end with
>end sub
プロシージャのなかに Public変数を宣言できるんでしたっけ?
まぁ、それは置いておいて、
標準モジュールのほうは
Sub ワーク(ShtName as String)
With worksheets(ShtName)
処理
End With
End sub
とか、引数でシート名を受け取るようにしておいて、
これを呼び出すほうは、
Private Sub shtname_click()
ワーク shtname.list(shtname.listindex)
End sub
だけで済むかと思います。
shtname.listindex が -1 だった時のエラートラップは必要ですが。
|
|