|
Callステートメントでエラー
お世話になっております。
今回も大変困っているのでお助けください。
オプションボタンをクリックすると他のファイル(テンプレートファイル)にあるプロシージャ
を呼び出すように設定しております。
ところが、2点どうしても分からないところがあるので
教えていただけますか?
1.オプションボタンをクリックすると「コンパイルエラー sub
functionが定義されていません」と表示され呼び出せない。
2.プロシージャテスト()を実行すると、withを入れずに実行
すると正常に動き、withを入れると全く動かなくなります。
(いろいろ試してみましたが"テストシート"自体が特定されないようなのです。)
コマンドボタンのあるファイルのコード↓
Private Sub OptionButton1_Click()
Call テスト
End Sub
プロシージャのあるテンプレートファイルにあるコード↓
Sub テスト()
'On Error Resume Next
Dim abc As String
Dim cdf As String
With Worksheets("テストシート")
Kaisyamei = "株式会社ABC"
Kaisyajyusyo = "支払先住所またはTEL" & vbCrLf & _
"〒100-0000 東京都XX区XXX 111"
.Cells(13, 2).Value = abc
.Cells(14, 2).Value = cdf
End With
|
|