Excel VBA質問箱 IV

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

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


13119 / 76734 ←次へ | 前へ→

【69123】Re:連続印刷したい
回答  UO3  - 11/5/19(木) 10:18 -

引用なし
パスワード
   ▼りょう さん:

こんにちは

Wordは不得意なのでExcelだけで処理してみました。

Sub Sample()
  Dim v As Variant
  Dim f As Long, t As Long, y As Long
  Dim sh As Worksheet
  
  Set sh = Sheets("Sheet2")
  
  With Sheets("Sheet1")
    v = .Range("A1", .Range("A" & .Rows.Count).End(xlUp)).Value
  
    f = WorksheetFunction.Min(v)
    t = WorksheetFunction.Max(v)
    
    For y = f To t
      If IsNumeric(Application.Match(y, v, 0)) Then
        'ここで、Sheet2で現在、管理番号を入力しているセルに
        ' y をセット。
        '例 sh.Range("B4").Value = y
        sh.PrintOut Copies:=1, Collate:=True
      End If
    Next
  
  End With
  
  Set sh = Nothing
  
End Sub

0 hits

【69120】連続印刷したい りょう 11/5/18(水) 23:57 質問
【69121】Re:連続印刷したい ホンジャマイカ 11/5/19(木) 0:29 発言
【69123】Re:連続印刷したい UO3 11/5/19(木) 10:18 回答

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