Results of 1 - 1 of about 37672 for IF (0.007 sec.)
- [[20140408124906]]
- #score: 1591
- @digest: 3aa190586b69b5489fb7f34dba1c4eab
- @id: 64895
- @mdate: 2014-04-08T12:34:36Z
- @size: 5189
- @type: text/plain
- #keywords: collate (28421), selectedsheets (19747), copies (17225), insatsu (13442), 込依 (12932), printout (11850), formular1c1 (10907), activewindow (10768), activecell (6099), ク及 (4850), 頼書 (4427), p1 (3293), n1 (2900), ロ上 (2659), 分理 (2618), 振込 (2415), オチ (2367), 書") (2319), select (2077), 象的 (1839), 抽象 (1807), 到達 (1581), range (1573), 効化 (1388), true (1128), screenupdating (1078), 依頼 (1030), 何分 (992), 解不 (977), value (899), then (716), プ実 (499)
- 『2013でのマクロが実行されない』（じゃぽね）
いつもありがとうございます。 2003で作成したブック及びマクロを2013にコピーし、実行してみたのですが 実行されません。マクロは有効化したつもりなのですが、抽象的で 申し訳ないのですが、原因はなにかわかるものなのでしょうか。 いかつたないマクロなのですが。 Sub insatsu() Application.ScreenUpdating = False Sheets("振込依頼書").Select Range("n1").Select ActiveCell.FormulaR1C1 = "1" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "2" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "3" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "4" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "5" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "6" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "7" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "8" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "9" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "10" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "11" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "12" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "13" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "14" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "15" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "16" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "17" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "18" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "19" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "20" If Range("p1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If End Sub ＜ 使用 Excel:Excel2013、使用 OS:Windows7 ＞ ---- Application.ScreenUpdating = False は、とりあえずコメントアウト。 このマクロ上でF8キーを押し、ステップ実行を試してみてください。 Range("p1") が空欄だったというオチは無いですか? （???） 2014/04/08(火) 12:55 ---- 何もエラーが出ないのであれば???さんがおっしゃっている通りP1セルが空白なのかも。 ところでマクロですが Sub insatsu() Dim i As Long Application.ScreenUpdating = False Sheets("振込依頼書").Select For i = 1 To 20 Range("N1") = i If Range("P1").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next Application.ScreenUpdating = True End Sub のようにすればだいぶすっきりしますよ。（余計なお世話だったらすいません） （se_9） 2014/04/08(火) 13:03 修正13:05 ありがとうございました。オチのとおりでした。別のマクロも実行できなかったので すいません。たすかりました。 se9さんありがとうございます。このように つくりたかったのですが、何分理解不足で到達できなかったものです。 さっそく取り入れます。ありがとうございました。（じゃぽね）... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201404/20140408124906.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97021 documents and 608149 words.
訪問者：