Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


17776 / 76738 ←次へ | 前へ→

【64410】Re:「印刷」する前に「登録・更新」ボタンを押させたい
お礼  初心者です  - 10/2/3(水) 17:58 -

引用なし
パスワード
   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

0 hits

【64402】「印刷」する前に「登録・更新」ボタンを押させたい 初心者です 10/2/2(火) 17:48 質問
【64404】Re:「印刷」する前に「登録・更新」ボタン... Jaka 10/2/3(水) 13:06 発言
【64410】Re:「印刷」する前に「登録・更新」ボタン... 初心者です 10/2/3(水) 17:58 お礼

17776 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free