Excel VBA質問箱 IV

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

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


48548 / 76732 ←次へ | 前へ→

【33119】Re:指定された請求書番号のみ印刷する方法
回答  かみちゃん E-MAIL  - 06/1/3(火) 12:16 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>請求書No.で A001(自分で文字入力)から A005(自分で文字入力)までと
>指定して、印刷できますでしょうか?

仕事で同様のことをしていますが、
こんな感じでできると思います。
こちらでサンプルファイルを作って動作確認してあります。
その都度、請求書番号に応じたデータを取得して反映させますので、関数式も一切必要ありません。

Sub Macro1()
 Dim MyR As Range, c As Range, c2 As Range
 
 Sheets("Sheet2").Select
 Set MyR = Range("E4:E8")
' Set MyR = Application.InputBox( _
'  prompt:="印刷したいセルを選択してください。", Type:=8)
 
 For Each c In MyR
  If c.Value <> "" Then
   With Sheets("Sheet1").Columns("A").Cells
    Set c2 = .Find(c.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c2 Is Nothing Then
     With Sheets("Sheet2")
'      Range("D1").Value = c2.Value
'      Range("A1").Value = c2.Offset(, 1).Value
'      Range("B3").Value = c2.Offset(, 2).Value
'      Range("C3").Value = c2.Offset(, 3).Value
      Union(Range("D1"), Range("A1"), Range("B3"), Range("C3")).Value = _
      Array(c2.Value, c2.Offset(, 1).Value, c2.Offset(, 2).Value, c2.Offset(, 3).Value)
     End With
     '〜 ここに印刷処理のマクロを記述 〜
    Else
     MsgBox "請求書番号 " & c.Value & " のデータはありません"
    End If
   End With
  End If
 Next
 MsgBox "印刷終了"
End Sub

>E列にシートに入力する(実際は印刷しない個所です)

こういう大事な情報は、一番最初に書きましょう!
請求書番号は、E4〜E8に記述してあるものとします。

0 hits

【33109】初心者ですお願いします。請求書の発行 sanonobu 06/1/3(火) 10:12 質問
【33110】Re:初心者ですお願いします。請求書の発行 よろずや 06/1/3(火) 11:14 発言
【33117】Re:初心者ですお願いします。請求書の発行 sanonobu 06/1/3(火) 11:58 お礼
【33111】Re:初心者ですお願いします。請求書の発行 やっちん 06/1/3(火) 11:15 発言
【33116】Re:初心者ですお願いします。請求書の発行 sanonobu 06/1/3(火) 11:56 発言
【33112】Re:初心者ですお願いします。請求書の発行 ponpon 06/1/3(火) 11:43 発言
【33115】Re:初心者ですお願いします。請求書の発行 sanonobu 06/1/3(火) 11:54 質問
【33118】Re:初心者ですお願いします。請求書の発行 ponpon 06/1/3(火) 12:10 発言
【33122】Re:初心者ですお願いします。請求書の発行 sanonobu 06/1/3(火) 12:47 発言
【33123】Re:初心者ですお願いします。請求書の発行 かみちゃん 06/1/3(火) 12:53 発言
【33125】Re:初心者ですお願いします。請求書の発行 sanonobu 06/1/3(火) 13:04 発言
【33127】Re:初心者ですお願いします。請求書の発行 かみちゃん 06/1/3(火) 13:11 発言
【33129】Re:初心者ですお願いします。請求書の発行 ponpon 06/1/3(火) 13:43 発言
【33150】Re:初心者ですお願いします。請求書の発行 sanonobu 06/1/3(火) 18:19 発言
【33153】Re:初心者ですお願いします。請求書の発行 かみちゃん 06/1/3(火) 18:24 発言
【33155】Re:初心者ですお願いします。請求書の発行 sanonobu 06/1/3(火) 19:02 発言
【33156】Re:初心者ですお願いします。請求書の発行 かみちゃん 06/1/3(火) 19:08 発言
【33158】Re:初心者ですお願いします。請求書の発行 ponpon 06/1/3(火) 20:05 発言
【33159】Re:初心者ですお願いします。請求書の発行 sanonobu 06/1/3(火) 20:22 発言
【33161】Re:初心者ですお願いします。請求書の発行 ponpon 06/1/3(火) 20:42 発言
【33162】Re:初心者ですお願いします。請求書の発行 sanonobu 06/1/3(火) 20:51 お礼
【33164】Re:初心者ですお願いします。請求書の発行 かみちゃん 06/1/3(火) 20:56 発言
【33119】Re:指定された請求書番号のみ印刷する方法 かみちゃん 06/1/3(火) 12:16 回答
【33124】Re:指定された請求書番号のみ印刷する方法 sanonobu 06/1/3(火) 13:02 発言
【33126】Re:指定された請求書番号のみ印刷する方法 かみちゃん 06/1/3(火) 13:09 回答
【33148】Re:指定された請求書番号のみ印刷する方法 sanonobu 06/1/3(火) 18:15 発言
【33151】Re:指定された請求書番号のみ印刷する方法 かみちゃん 06/1/3(火) 18:19 発言
【33160】Re:指定された請求書番号のみ印刷する方法 sanonobu 06/1/3(火) 20:26 発言
【33163】Re:指定された請求書番号のみ印刷する方法 かみちゃん 06/1/3(火) 20:53 発言

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