|
Jaka さま、
ご親切にどうもありがとうございます。
おかげさまで、問題なく動きました!
エラーは、経験のもと、ですね、ありがとうございます。
以下、動いたコードです。
'「印刷」ボタンがクリックされたときの処理
'
'
Private Sub cmd印刷_Click()
'「TB_受注」シートから「伝票番号」を検索
Dim tbSRange As Range '検索範囲のセル
Dim tbFRange As Range '見つかったセル
'検索範囲のセル(表の1列目)を変数に代入する
Set tbSRange = Worksheets("TB_受注").Range("A4").CurrentRegion.Columns(1)
'伝票番号を先頭から検索する(L7は伝票番号)
Set tbFRange = tbSRange.Find(What:=Range("L7"), _
LookIn:=xlFormulas, Lookat:=xlWhole, SearchDirection:=xlNext)
'戻り値を代入する
If tbFRange Is Nothing Then
'見つからなかった場合、メッセージを表示して、
MsgBox "「登録・更新」ボタンを押してから、印刷してください"
'フォーカスをボタン「登録・更新」ボタンに移動して、
ActiveSheet.OLEObjects("cmd登録・更新").Activate
'プロシージャから抜ける
Exit Sub
Else
'見つかった場合、印刷プレビュー画面を表示する
Worksheets("伝票印刷").PrintPreview
End If
'オブジェクト変数を解放する
Set tbSRange = Nothing
Set tbFRange = Nothing
End Sub
|
|