Results of 1 - 1 of about 13168 for 日付 (0.003 sec.)
- [[20170418110515]]
- #score: 2423
- @digest: f4e0d3a8431c4453d3c780fd26e92b20
- @id: 73246
- @mdate: 2017-04-18T07:08:37Z
- @size: 1971
- @type: text/plain
- #keywords: ミ¥ (14111), キミ (12525), wbpath (11587), 20150218205042 (7055), 化ス (7005), 日動 (5317), 二年 (3974), 付セ (2844), 刷( (2758), 番近 (2705), 数ブ (2699), 明日 (1878), 力", (1614), ミコ (1312), desktop (1311), 期化 (1260), 日以 (1105), 印刷 (1081), printpreview (985), 日付 (981), ら印 (899), ret (875), 手直 (826), 初期 (761), 月") (719), users (653), 刷し (644), い日 (627), 、明 (590), workbooks (516), 付が (497), の複 (494)
- 『他の複数ブックの日付セルから印刷(以前の続き)』（キミコ）
お世話になります。 二年ほど前に マナさん、Mookさんに教わり Sub test() Dim d As Date Dim ret Dim s As String Dim r As Range Dim m As Long d = WorksheetFunction.WorkDay(Date, 1) ret = Application.InputBox("印刷したい日付は?", "入力", Format(d, "yyyy/m/d")) If Not IsDate(ret) Then Exit Sub d = CDate(ret) s = Format(d, "m月") Dim wbPath For Each wbPath In Array( _ "C:¥Users¥キミ¥Desktop¥A.xlsx", _ "C:¥Users¥キミ¥Desktop¥B.xlsx") With Workbooks.Open(wbPath) On Error Resume Next Set r = .Sheets(s).Columns(2) m = Application.Match(CLng(d), r, 0) On Error GoTo 0 If m > 0 Then r.Cells(m).Resize(30, 7).Offset(0, -1).PrintPreview Else MsgBox wbPath & "では、その日付は印刷できません" End If .Close False End With Next End Sub この内容で「他の複数ブックの日付セルから印刷」しておりました。 （ http://www.excel.studio-kazu.jp/kw/20150218205042.html ） この内容ですと、各ブックに明日の日付がある場合は問題ないのですが 明日の日付がない場合、明日以降の一番近い日付を印刷してしまいます。 （今日動かした場合、4/19がブックにない場合、4/20を印刷） 日付がない場合、印刷しないようにしたいのですが どこを手直ししたらよいでしょうか? よろしくお願いします。 ＜ 使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- ＞ 明日の日付がない場合、明日以降の一番近い日付を印刷してしまいます。 そんなハズないと思うのですが・・・ m(日付のある行番号）の初期化を忘れているからじゃないですか? つまり、下の2行の間に初期化ステートメントを挿入したらどうですか? ＞ With Workbooks.Open(wbPath) m = 0 '←これを挿入 ＞ On Error Resume Next （半平太） 2017/04/18(火) 16:08... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201704/20170418110515.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97065 documents and 608341 words.
訪問者：