Results of 1 - 1 of about 1215 for （Mook）
(0.001 sec.)
- [[20150525152804]]
- #score: 9211
- @digest: 5b7355ecf1e402c805a8f2dfe2d25feb
- @id: 68063
- @mdate: 2015-05-26T02:04:55Z
- @size: 1527
- @type: text/plain
- #keywords: al31 (19899), ジ別 (6766), ジ枚 (5771), ジ目 (5733), 目→ (4422), ジ10 (3606), 刷終 (3038), pn (2474), 各1 (2155), 枚印 (1690), 各ペ (1596), ペー (1450), 刷() (1314), 目（ (1189), 何枚 (1170), printout (1128), 印刷 (1082), ージ (975), （セ (966), 刷に (870), 不正 (788), 連番 (708), チリ (673), 枚目 (651), 目2 (641), 期化 (630), vbyesno (611), 感激 (577), か?" (574), isnumeric (539), ・1 (502), う風 (452)
- 『連番をページ別の印刷にしたい』（よんまる）
sheet1に2ページにわたるデータがあるとします。 その中のセルに連番をいれたとします。（1ページ目2ページ目に各1箇所、同じ番号） 印刷かけた時に例として各ページ10枚だったとします。 通常ですとただ印刷すると1ページ目→2ページ目（セルには1）・1ページ目→2ページ枚目（セルには2）・・・という風に印刷がされます。 これを1ページ目（セルには1.2.3...）1ページ目が印刷終わってか2ページ目（セルには1.2.3...）という風な印刷にしたい時、どのようなマクロにすればいいのか分かりません。 ちなみに説明にあるように現在のマクロは以下の通りです。 Sub 印刷() Dim i As Long, pn If MsgBox("AL31セルの値を初期化しますか?", vbYesNo) = vbYes Then Range("AL31").Value = 1 End If pn = InputBox("何枚印刷しますか?") If IsNumeric(pn) Then For i = 1 To pn ActiveSheet.PrintOut Range("AL31").Value = Range("AL31").Value + 1 Next i Else MsgBox "不正な値が入力されました。" End If End Sub ＜ 使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- このようなことでしょうか。 For p = 1 To 2 Range("AL31").Value = 1 For i = 1 To pn ActiveSheet.PrintOut From:=p, To:=p Range("AL31").Value = Range("AL31").Value + 1 Next Next （Mook） 2015/05/25(月) 19:38 ---- ありがとうございます いろんなサイトでいくら調べても分かりませんでした。 分けの分からないような説明だったのによく理解して頂き、 バッチリの回答まで本当に感激です。 （よんまる） 2015/05/26(火) 11:04... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201505/20150525152804.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97018 documents and 608145 words.
訪問者：