Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

55501 / 76732

←次へ　｜　前へ→


	【26004】Re:印刷範囲の複数指定について

だるま

- 05/6/21(火) 14:33 -


	引用なし

	パスワード

こんにちは

地道にループで処理してみました。^d^

Sub 種類毎に印刷()
　　Dim T As Long, B As Long
　　Dim i As Long
　　Dim myVal0 As Variant
　　Dim myVal As Variant
　　
　　i = 1
　　T = 1: B = T
　　myVal0 = Cells(i, 1).Value
　　
　　Do
　　　　i = i + 1
　　　　myVal = Cells(i, 1).Value
　　　　If myVal = "" Then Exit Do
　　　　
　　　　If myVal = myVal0 Then
　　　　　　B = B + 1
　　　　Else
　　　　　　印刷 T, B
　　　　　　T = B + 1
　　　　　　B = T
　　　　　　myVal0 = myVal
　　　　End If
　　Loop
　　印刷 T, B
　　
End Sub

Sub 印刷(T As Long, B As Long)
　　Dim myRange As Range
　　
　　With ActiveSheet
　　　　Set myRange = .Range("A" & T & ":X" & B)
　　　　.PageSetup.PrintArea = myRange.Address
　　　　.PrintPreview
　　End With
　　
　　Set myRange = Nothing
　　
End Sub

0 hits

▼

【25999】印刷範囲の複数指定について にっさん 05/6/21(火) 12:17