| |
Callステートメントでエラー
お世話になっております。
今回も大変困っているのでお助けください。
オプションボタンをクリックすると他のファイル（テンプレートファイル）にあるプロシージャ
を呼び出すように設定しております。
ところが、2点どうしても分からないところがあるので
教えていただけますか？
１.オプションボタンをクリックすると「コンパイルエラー 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 = "支払先住所またはＴＥＬ" & vbCrLf & _
"〒100-0000 東京都XX区XXX 111"
.Cells(13, 2).Value = abc
.Cells(14, 2).Value = cdf
End With
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
