[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『1シート内で特定位置で特定数値以上の数値を印刷範囲指定して印刷』(みほ)
説明が下手ですいませんがよろしくお願いします。
例えば1シートの1ページ目の特定個所に特定数値以上の数値があった場合
その1ページ目を印刷
さらに2ページ目の特定箇所に特定数値以上の数値があった場合
1・2ページを印刷
それを8ページまで印刷(1ページから順に印刷することは絶対として)
したいと思っているのですが
どうすれば出来るでしょうか?
ご教授頂ければ幸いです。
よろしくお願い致します。
< 使用 Excel:Excel2010、使用 OS:Windows8 >
(マナ) 2017/10/17(火) 22:02
Option Explicit
Sub test() Dim c As Range Dim n As Long
n = 8
For Each c In Range("b4,b3,b2,b1,a4,a3,a2, a1") '★特定位置 If c.Value >= 100 Then '★特定数値 ActiveSheet.PrintOut 1, n Exit For Else n = n - 1 End If Next
End Sub
(マナ) 2017/10/17(火) 22:24
(マナ) 2017/10/17(火) 22:45
O39,O80,O121.O162,O203,O244
です(ゼロでは無くオーです)
各ページで数値が0以上のものを印刷したいです。
関数は上記セルに入っています。
(みほ) 2017/10/17(火) 22:49
(マナ) 2017/10/17(火) 22:54
6ページまでありませんでした。
(みほ) 2017/10/17(火) 22:55
6ページまでしかありませんでした。
大変申し訳ありません。
(みほ) 2017/10/17(火) 22:57
Sub test2() Dim c As Range Dim n As Long
n = 6
For Each c In Range("O244,O203.O162,O121,O80,O39") '★特定位置 If c.Value >= 0 Then '★特定数値 ActiveSheet.PrintOut 1, n Exit For Else n = n - 1 End If Next
End Sub
(マナ) 2017/10/17(火) 23:04
負の数になるように関数でマイナスを入力してみたのですが
それでもなぜか印刷されてしまいます。
(みほ) 2017/10/17(火) 23:19
(マナ) 2017/10/17(火) 23:25
(マナ) 2017/10/17(火) 23:27
(マナ) 2017/10/17(火) 23:53
Sub test3() Dim c As Range Dim n As Long
n = 1
For Each c In Range("O39,O80,O121.O162,O203,O244") '★特定位置 If c.Value >= 0 Then '★特定数値 ActiveSheet.PrintOut 1, n Exit For Else n = n + 1 End If Next
End Sub
(マナ) 2017/10/17(火) 23:56
説明下手で大変申し訳ありません
(みほ) 2017/10/18(水) 00:03
「0より大きい場合」
と表現しましょう。
それから、コードを読んで理解する気がないならマクロなんか使わない方がよいです。
「印刷範囲 可変」などで検索してみましょう。
http://yasu-excel.blogspot.jp/2014/07/blog-post_6.html
(まっつわん) 2017/10/18(水) 09:01
意味がわかりません…
できるだけ、わかりやすいコードにしてみました。
Sub test3()
If Range("O39").Value > 0 Then ActiveSheet.PrintOut 1, 1 Exit Sub End If
If Range("O80").Value > 0 Then ActiveSheet.PrintOut 2, 2 Exit Sub End If
If Range("O121").Value > 0 Then ActiveSheet.PrintOut 3, 3 Exit Sub End If
If Range("O162").Value > 0 Then ActiveSheet.PrintOut 4, 4 Exit Sub End If
If Range("O203").Value > 0 Then ActiveSheet.PrintOut 5, 5 Exit Sub End If
If Range("O244").Value > 0 Then ActiveSheet.PrintOut 6, 6 Exit Sub End If
End Sub
(マナ) 2017/10/18(水) 19:32
(マナ) 2017/10/19(木) 18:46
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.