Excel VBA質問箱 IV

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

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


48541 / 76732 ←次へ | 前へ→

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

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

>ちょっと難しいです。

どこがわからなかったのでしょうか?

>エクセルはもっとリンクされていれ振込口座とかいろいろありまして

そういう情報も最初から書きましょうね。

>エクセルの関数は、変更したくないのです。

機能として合っていなかったかもしれませんが、試してみて、そういうことをおっ
しゃっているのでしょうか?
以下のように変更すれば、期待とおりの結果が得られると思いますけど・・・
請求書(Sheet2)のD1セルの値だけが変わりますので、D1を参照している数式は全部更新されます。
処理速度がどうかな?というのはありますが・・・・

Sub Macro2()
 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
      .PrintPreview '〜 ここに印刷処理 実際は、PrintOut
     End With
     '〜 ここに印刷処理のマクロを記述 〜
    Else
     MsgBox "請求書番号 " & c.Value & " のデータはありません"
    End If
   End With
  End If
 Next
 MsgBox "印刷終了"
End Sub

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 発言

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