印刷マクロがおかしくなった～ -印刷マクロがおかしくなりました。コ－ドは-

再び印刷マクロを

フィールド行はA列からT列までなのですが、途中のK列からN列までは印刷したくないために、２行のマクロ Range("K1:N1").EntireColumn.Hidden = True Range("A1:S1").PrintOut を挿入したのですが、エラーとなってしまいます。印刷マクロは下のようになっています。 Sub 最終処理分印刷() '----- 印刷範囲列指定 --------- Const Sh = "入力シート" '　　<----- シート名指定 Const Left_Col = "A" '　　<------ 印刷範囲の左端列 Const Right_Col = "S" '　　<----- 印刷範囲の右端列 Const Target_Col = "T" '　<----- 印刷データ判定列（日付形式） Const Prev_Mode = 1 '　　<----- 0 = 直接印刷 /　 1 = プレビュー '------------------------------ Dim TopRw As Long Dim EndRw As Long Dim Target_Date As Date Dim N As Long With Worksheets(Sh) 　EndRw = .Range(Target_Col & "65536").End　　　(xlUp).Row TopRw = EndRw Do While .Range(Target_Col & TopRw).Value = _ .Range(Target_Col & TopRw).Offset(-1).Value TopRw = TopRw - 1 If TopRw = 1 Then Exit Do Loop Range("K1:N1").EntireColumn.Hidden = True Range("A1:S1").PrintOut N = EndRw - TopRw + 1 .PageSetup.PrintArea = Range(Left_Col & TopRw & _ ":" & Right_Col & EndRw).Address If Err.Number > 0 Then Exit Sub End If If Prev_Mode = 1 Then .PrintOut preview:=True Else .PrintOut preview:=False End If .PageSetup.PrintArea = False End With End Sub

マクロで二つの構文を繋ぐには

いつもお世話になります。 WIN7 EXCELL2010　です。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value End Sub ThisWorkbook　に上記のマクロに下記のマクロを追加したいのですが、 End Sub の　ところを　End If　End With などに変えたのですがうまくゆきません。御指導お願いできませんでしょうか。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim myRange As Range Set myRange = Intersect(Target, Range("M3:V27")) If Not myRange Is Nothing Then Select Case Target.Value Case "" Target.Value = "○" Case "○" Target.Value = "●" Case Else Target.ClearContents End Select Cancel = True End If End Sub 宜しくお願いいします。

このマクロあっていますでしょうか？よろしくお願いいたします。

★sheetＡ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$14" And Target.Address <> "$C$19" _ And Target.Address <> "$F$19" Then Exit Sub If Target.Address <> "$R$14" And Target.Address <> "$S$14" _ And Target.Address <> "$T$19" Then Exit Sub Application.EnableEvents = False With Sheets("Ｂ") .Range("F14").Value = Range("C14").Value .Range("F17").Value = Range("C19").Value .Range("F20").Value = Range("F14").Value .Range("F23").Value = Range("F19").Value End With With Sheets("Ｃ") .Range("F13").Value = Range("R14").Value .Range("F14").Value = Range("S14").Value .Range("F18").Value = Range("T19").Value End With Application.EnableEvents = True End Sub ★sheetＢ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$F$14" And Target.Address <> "$F$17" _ And Target.Address <> "$F$23" Then Exit Sub Application.EnableEvents = False With Sheets("Ａ") .Range("C14").Value = Range("F14").Value .Range("C19").Value = Range("F17").Value .Range("F19").Value = Range("F23").Value End With Application.EnableEvents = True End Sub ★sheetＣ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$F$13" And Target.Address <> "$F$14" _ And Target.Address <> "$F$18" Then Exit Sub Application.EnableEvents = False With Sheets("Ａ") .Range("R14").Value = Range("F13").Value .Range("S14").Value = Range("F14").Value .Range("T19").Value = Range("F18").Value End With Application.EnableEvents = True End Sub

マクロ　エクセル２００３

いつも回答して頂き感謝しています。原紙のブックを開き、別の名前を付けて保存するマクロを考えています。原紙のブックを開くマクロはネットから探して、少し修正して出来あがったのですが、この開いた原紙のブックに別の名前を付けて保存するマクロで困っています。ただ単に名前を付けるだけだったら問題無いのですが、その名前が既に保存されていないか確認した後、保存としたいのです。ブックを開く記述を少し引用して出来ないかやってみたのですが、 Const Target2 As String = "C:\Users\Owner\Documents\" & NewFile で、定数式が必要です。と表示されエラーが発生してしまいます。どのように変更したら上手くいくのでしょうか？宜しくお願い致します。 Sub Sample() Dim buf1 As String Dim buf2 As String Dim NewFile As String Dim ws1 As Worksheet Dim wb As Workbook Set ws1 = ThisWorkbook.Worksheets("作成") NewFile = "借入貸出" & ws1.Range("C4").Value & "." & ws1.Range("D4").Value Const Target1 As String = "C:\Users\Owner\Documents\借入貸出原紙.xlsx" Const Target2 As String = "C:\Users\Owner\Documents\" & NewFile　& ".xlsx" buf1 = Dir(Target1) If buf1 = "" Then MsgBox Target1 & vbCrLf & "は存在しません", vbExclamation Exit Sub End If For Each wb In Workbooks If wb.Name = buf1 Then Application.DisplayAlerts = False Workbooks("借入貸出原紙.xlsx").Close Application.DisplayAlerts = True End If Next wb Workbooks.Open Target1 buf2 = Dir(Target2) If buf2 = "" Then End If End Sub

エクセル　マクロ　初心者です

エクセルマクロ初心者です。以下の２つの Private Sub Worksheet_Change(ByVal Target As Range)を１つのシートで実行させたいのですが、当方、初心者なので組み合わせ方が分かりません。よろしくお願いします。 ===No1=== Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Target = StrConv(Target, vbUpperCase) Application.EnableEvents = True End Sub ===No2=== Private Sub Worksheet_Change(ByVal Target As Range) Dim Ans As Integer If Target.Count = 1 Then Ans = MsgBox("コピーは禁止!!", vbCritical) MsgBox "データを消去します。" With Application .EnableEvents = False .Undo .EnableEvents = True End With End If If Target.Count = 1 Then Exit Sub Else MsgBox “複数セルのコピー禁止！" With Application .EnableEvents = False .Undo .EnableEvents = True End With End If End Sub ------------ 上記の２つを１つのシートで動作させたいのですが、うまくいきません。単体では、動作します。

エクセルのマクロについて教えてください

お世話になっております。エクセルのマクロについて教えていただきたいのですが、サンプルのファイルをこちらにアップしたのでよろしければご覧になってください。 http://kie.nu/yPV 質問したいことは、列Iに、各行の黄色いセルの数を表示させるマクロを作りたいのですが途中まで何とかわかったのですがどうもうまくいきません。。行11から各行にひとつずつ、黄色いセルが含まれていますが、その黄色いセルの中の数字を列Iに表示させたいです。行にデータがある限り、下までずっとです。以下、途中までわかったマクロです。 Sub 黄セル値Copy() Const TgLeftUp = "A3" '<--対象範囲左上セル指定 Dim Rng As Range Dim Target As Range Set Target = Range(TgLeftUp, Cells(Rows.Count, _ Range(TgLeftUp).Column)) For Each Rng In Target.Resize(, 2) If Rng.Interior.ColorIndex = 6 Then If Rng.Column = Target.Column Then Rng.Offset(, 3).Value = Rng.Value Else Rng.Offset(, 2).Value = Rng.Value End If End If Next MsgBox "値貼り付け完了。", vbInformation Set Target = Nothing End Sub でもこれを貼り付けてもうまくいきません。正しいマクロを教えていただけないでしょうか？？宜しくお願いいたします。 ※いつも、私の質問に対してまるで回答になってないような、ふざけた言葉を書き込んでは消してる方が一名だけいらっしゃいます。確か、鳥の写真をマイページに載せてる方です。都度違反報告はしていますが、質問の趣旨に反する回答をされてる方一名、絶対にやめてください。

前月の列以前を非表示にするマクロ

Sub 前月非表示ボタン() Dim FoundCel As Range Set FoundCel = Range("1:1").Find(What:=Format(Date, "yyyy年m月"), LookIn:=xlValues) If FoundCel Is Nothing Then MsgBox "見つかりません" Else FoundCel.Offset(ColumnOffset:=-1).EntireColumn.Hidden = True End If End Sub 上記マクロでは、前月(I列)を非表示にできますが、前月以前であるD列からI列までを非表示にする方法はありますか？

EXCELでセルの変更をしたらマクロを実行

このようなコードを作成しました。 Private Sub Worksheet_Change(ByVal Target As Range) If (Target.Address = "$D$3") Then ★ End If End Sub ★に MsgBox "変更したよ" といれるとちゃんと表示されます。ですが、 If D9 = "テスト" Then MsgBox "テスト" End if としても何も起こりません。 Call KEISAN のように呼び出すようにしても何も起こりません。どこがダメなのでしょうか？よろしくお願いします。

WorkSheet_Changeを2つ反映させる

　下記のコードをWorkSheetで2つ反映させるにはどうしたらいいでしょうか？どちらか一つなら反映するのはわかりますが、どう名前を変更すればいいのかお教え願えませんでしょうか？ windows7・SP1 Office2010 Private Sub WorkSheet_Change(ByVal Target As Range) If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub '検査範囲 Application.EnableEvents = False '再帰実行の停止 If Range("C1").Value <> Sheets("祝祭日").Range("A1").Value Then MsgBox ("祝日の設定を反映するため年度を同じにしてください。") End If Application.EnableEvents = True End Sub Private Sub WorkSheet_Change(ByVal Target As Range) Dim MyRow As Long Dim MyCol As Integer MyRow = Target.Row MyCol = Target.Column With Worksheets("メイン・1").Select If MyRow = 1 And MyCol = 7 Then If Target = 4 Then 'または　If Target = 1 Then メインデータの復元 '動かしたいマクロ名 End If End If End With End Sub

マクロ特定のセル値を「含む」にしたいです。

f21の値をf21の値を「含む」にしたいのですがどのようにしたらよいでしょうか。宜しくお願いいたします。 Sub オートフィルターによる抽出() Dim myName As String myName = Range("f21").Value If myName = "" Then MsgBox "担任を入力してください。" Else Range("a22").AutoFilter Field:=6, Criteria1:=myName End If End Sub

マクロコードの変更

以下のサンプルコードをネットでみつけました。 "D$7"セルに入れた文字と同じ文字を見つけてセルを移動させてくれるコードだと思いますが私のエクセル表はD7セルに６桁の数字（111101）を入れますが検索先は'111101とシングルコーテーションが入っています。サンプルコードのD7セルのところをどのように変更したらいいでしょうか。 Private Sub Worksheet_Change(ByVal Target As Range) Dim myR As Range If Target.Address <> "$D$7" Then Exit Sub If Target.Value = "" Then Exit Sub Set myR = Cells.Find(What:=Target.Value, _ After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=True) If myR.Address = Target.Address Then MsgBox "同じ値はありません" Else myR.Activate End If End Sub どうぞよろしくおねがいします。

マクロにおける条件文の作成の件

以下の様に条件付きの計算式を作成しました。CommandButton3を押しても計算しなかったり、TextBox3.Value > TextBox1　ではないときでもエラーメッセージが出ます。どこに欠点があるのか教えて下さい。 Private Sub CommandButton3_Click() Dim row As Integer If TextBox1.Value = Empty Then MsgBox ("Ａが空欄です") Exit Sub End If If TextBox2.Value = Empty Then MsgBox ("Ｂが空欄です") Exit Sub End If If TextBox3.Value = Empty Then MsgBox ("Ｃが空欄です") Exit Sub End If If TextBox4.Value = Empty Then MsgBox ("Ｄが空欄です") Exit Sub End If If TextBox3.Value > TextBox1.Value Then MsgBox ("Ｃの値をＡの値より小さくしましょう！") Exit Sub End If If TextBox4.Value > TextBox2.Value Then MsgBox ("Ｄの値をＢの値より小さくしましょう！") Exit Sub End If TextBox5 = Round(TextBox1 * TextBox2 - (TextBox1 - TextBox3) * (TextBox2 - TextBox4) / 2, 0) End Sub

Excel 改ページのマクロ

同シート内で改ページを設定するマクロを、ここで教えてもらったのですが、改ページを判断するデータの列が関数(vlookup)で持ってきたデータの場合にうまく機能しません。下のマクロに手を加えれば可能でしょうか？ Sub Macro4() Const col As String = "A"　'改ページを判断するデータの列名 Dim idx As Long Dim sv sv = Cells(1, col).Value For idx = 1 To Cells(65536, col).End(xlUp).Row 　　If Cells(idx, col).Value <> sv Then 　　　　ActiveSheet.HPageBreaks.Add Before:=Rows(idx) 　　　　sv = Cells(idx, col).Value 　　End If Next idx End Sub

Excel マクロのFor～Nextで再起動エラー

勤務表を作っています。下記の’ＯＫまでは希望どうりうまく出来ていたのですが、勤務表の下セルに各列の人員（行）１０名分位Ａ，Ｂ,Cの計を表示させたい。実行するとエラー「Microsoft office Excel　再起動」を求められます。　for～が判断指令が<重い>のでしょうか。なんとか回避さする方法を教えてください。 Win XP Sp2 Office Excel 2007です。今回これを作るにあたり初ＶＢＡ使用者です。 '　C入力後の翌日は休をセット。CC連続は休休セット。 Private Sub Worksheet_Change(ByVal Target As Range) Dim cnt As Variant Dim a1 As Byte Dim b1 As Byte Dim c1 As Byte Dim nin As Variant Dim retsu As Variant If Target.Count > 1 Then Exit Sub '複数セルの入力は無視 'Ａ If Target.Value = "Ａ" Or Target.Value = "A" Then Target.Value = "A" Range("AV16").Value = Target.Column End If 'Ｂ If Target.Value = "Ｂ" Or Target.Value = "B" Then Target.Value = "B" Range("AV16").Value = Target.Column End If 'Ｃ If Target.Value = "Ｃ" Or Target.Value = "C" Then Range("AV16").Value = Target.Column Target.Value = "C" Else End If ' If Target.Value = "C" Then If Target.Offset(0, -1).Value = "C" Then 'Ｃが連続したら Target.Offset(0, 1).Resize(1, 2).Value = ("休") '連休に Else End If Target.Offset(0, 1).Value = ("休") 　　'そうでなければ休 End If 'A,B,C の数をカウントする。 nin = Range("AV15")　　'別のプログラムから入力した人員数 retsu = Range("AV16")　　' A,B,Cのいずれかを入力したセル列。Target.Column ’OK For cnt = 7 To (6 + nin) If cells(cnt, retsu) = "A" Then a1 = a1 + 1 End If If cells(cnt, retsu) = "B" Then b1 = b1 + 1 End If If cells(cnt, retsu) = "C" Then c1 = c1 + 1 End If Next cnt cells(nin + 7, retsu) = a1 'Ａ番 cells(nin + 8, retsu) = b1 'Ｂ番 cells(nin + 9, retsu) = c1 'Ｃ番 End Sub

SelectionChangeイベント　文字列エラ

エクセルｖｂａなのですがセルをクリックしたときに、該当する値ならメッセージを表示させる際に Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value = 1Then MsgBox "" End If End Sub ならエラーにならずに動くのに Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value = "運賃" Then MsgBox "" End If End Sub のように文字列にすると、型が一致しません。と言うエラーになります。 If Target.Value = "運賃" Then の時でも、空白セルや数値が入ったセルをクリックした際はエラーになりません。どのような型にすればいいのでしょうか？実際、「運賃」と言う値が入ってるセルをクリックしても同じエラーが発生します。

マクロが動きません

以下のようなプログラムでC3の値が変わるたびにA10の値に1を加えていきG3,H3が両方0になったらA10の値も0にする。C5の値が変わるたびにA15の値に1を加えJ3,K3が共に0になったらC5も0にするようにしました。しかし、動作しません。このシートの3行目は＝シート名！セル番号　という形でほかのシートのセルの値が表示されるようになっています。G3、H3、J3、K3に手動で数値を入力した場合は動作します。ほかのシートのセルの値を表示させたセルの値が変化しても動作させる方法はないでしょうか＞ Private Sub worksheet_change(ByVal target As Range) With target If .Count > 1 Then Exit Sub If IsNumeric(.Value) = False Then Exit Sub If IsEmpty(.Value) = True Then Exit Sub If Not .Row = 3 Then Exit Sub Select Case .Column Case 3 Range("A10").Value = Range("A10").Value + 1 Case 5 Range("A15").Value = Range("A15").Value + 1 End Select End With If Range("g3").Value = 0 And Rang("h3").Value = 0 Then Range("A10").Value = 0 If Range("j3").Value = 0 And Rang("k3").Value = 0 Then Range("A15").Value = 0 End Sub

マクロで分岐をさせる方法

下記の記録マクロでWith→End With　間にIFで分岐を試みたのですがエラーになります。どうすれば出来るのか伝授をお願いします。マクロは初心者です。 Dim hensuh(2) As Integer Dim dekiru As Long Dim kinek As Long Dim uineu As Long Dim myTime As Date Dim flg As Boolean Sub OnTimeSamp1() Application.OnTime EarliestTime:=TimeValue("09:00:00"), Procedure:="Ontime_Set" '記録開始 Application.OnTime EarliestTime:=TimeValue("11:00:00"), Procedure:="Ontime_Reset" '記録終了 End Sub Sub Ontime_Set() 'トグルになっている If flg = False Then flg = True myTime = Now + TimeSerial(0, 0, 1) ElseIf flg = True Then flg = False Else Exit Sub End If If Range("A1").Value = "" Then Range("A1").Value = Format(Now, "hh:mm:ss") '時間記録（スタート) End If Application.OnTime EarliestTime:=myTime, _ Procedure:="my_Procedure", Schedule:=flg If flg = False Then myTime = 0 End If End Sub Sub my_Procedure() Worksheets("kirokuyou").Activate 'ワークシートをアクティブにする。（記録中別のワークシートを開けた場合そこに記録されてしまうのを防ぐ） With Range("A65536").End(xlUp).Offset(1) .Value = Format(Now, "yyyy:mm:dd:hh:mm:ss") '時間記録 .Offset(, 1).Value = Range("S3").Value 'S3 の値 .Offset(, 2).Value = Range("T3").Value 'T3 の値 .Offset(, 3).Value = Range("U3").Value 'U3 の値 .Offset(, 4).Value = Range("V3").Value 'V3 の値 dekiru = Range("V3").Value Range("V6").Value = dekiru kinek = Range("T22").Value Range("T18").Value = kinek uineu = Range("U22").Value Range("U18").Value = uineu 'IF S17 >= 120 Then 'hensuh(0) = Range("S17").Value ←変数に代入後、分岐させたいのですがエラーになる 'Elseif S17 >= 110 Then 'hensuh(1) = Range("S17").Value ←変数に代入後、分岐させたいのですがエラーになる 'Elseif S17 >= 100 Then 'hensuh(2) = Range("S17").Value ←変数に代入後、分岐させたいのですがエラーになる 'End If flg = False myTime = 0 End With Call Ontime_Set End Sub Sub Ontime_Reset() 'タイマーリセット On Error Resume Next Application.OnTime EarliestTime:=myTime, _ Procedure:="my_Procedure", Schedule:=False If Err.Number > 0 Then MsgBox "OnTime設定はされていません。", 64 Err.Clear flg = False Else MsgBox myTime & "の設定は解除されました。", 64 flg = False myTime = Empty End If End Sub

マクロの疑問

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "A2" Then Range("A2").Select End If End Sub とすると、どのセルを選んでもA2に飛ぶのに、 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "A3" Then Range("A2").Select End If End Sub とすると、A3を選んでも全く移動しないのはなぜでしょうか。なにか落とし穴がありそうで。。。よろしくお願いします。

マクロについて教えてください。

マクロ初心者なのですが、下記にあるマクロコードは、ダブルクリックをすると指定した場所の数量が一つずつ減っていき、「0」になるときに「Yes」「No」と表示がでるのですが、これをダブルクリックではなく、一回押せば数量が一つ減り、「0」になるときは「Yes」「No」の表示がでずに、消えて下のものがつめるようにしたいのです。そして、間違えた場合に一つ前に戻れる、「戻る」というボタンをつけたいのですが、分かる方がいましたらお力をかしていただけないでしょうか。宜しくお願いいたします。 'シートモジュールへ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Cells(Target.Row, 3).Value = 1 Then If MsgBox("xxx", vbYesNo) = vbYes Then Target.EntireRow.Delete Else Cells(Target.Row, 3).Value = Cells(Target.Row, 3).Value - 1 End If Cancel = True End Sub

エクセルのマクロコードについて

お世話になります。下記コードで、セルごとにクリアをすると、エラーなくうごくのですが、セルをまとめてセルを消すと実行時エラー13型が一致しません。とでてIf Target.Value = "" Thenがだめだよとでてしまいます。どなたか、回避の方法をご教授ください。宜しくお願いいたします。 Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B2:E2,G2:J2")) Is Nothing Then Exit Sub If Target.Value = "" Then Exit Sub x = Target.Value With Application .ScreenUpdating = False .EnableEvents = False .Undo 'Range("B2").Value = x + Z Z = Target.Offset(1, 0).Value y = Target.Value Target.Value = x + y .EnableEvents = True .ScreenUpdating = True End With Target.Offset(1, 0).Value = x + Z End Sub

印刷マクロがおかしくなった～

みんなの回答

関連するQ&A

再び印刷マクロを

マクロで二つの構文を繋ぐには

このマクロあっていますでしょうか？よろしくお願いいたします。

マクロ　エクセル２００３

エクセル　マクロ　初心者です

エクセルのマクロについて教えてください

前月の列以前を非表示にするマクロ

EXCELでセルの変更をしたらマクロを実行

WorkSheet_Changeを2つ反映させる

マクロ特定のセル値を「含む」にしたいです。

マクロコードの変更

マクロにおける条件文の作成の件

Excel 改ページのマクロ

Excel マクロのFor～Nextで再起動エラー

SelectionChangeイベント　文字列エラ

マクロが動きません

マクロで分岐をさせる方法

マクロの疑問

マクロについて教えてください。

エクセルのマクロコードについて

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

印刷マクロがおかしくなった～

みんなの回答

関連するQ&A

再び印刷マクロを

マクロで二つの構文を繋ぐには

このマクロあっていますでしょうか？よろしくお願いいたします。

マクロ エクセル２００３

エクセル マクロ 初心者です

エクセルのマクロについて教えてください

前月の列以前を非表示にするマクロ

EXCELでセルの変更をしたらマクロを実行

WorkSheet_Changeを2つ反映させる

マクロ 特定のセル値を「含む」にしたいです。

マクロコードの変更

マクロにおける条件文の作成の件

Excel 改ページのマクロ

Excel マクロのFor～Nextで再起動エラー

SelectionChangeイベント 文字列エラ

マクロが動きません

マクロで分岐をさせる方法

マクロの疑問

マクロについて教えてください。

エクセルのマクロコードについて

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

マクロ　エクセル２００３

エクセル　マクロ　初心者です

マクロ特定のセル値を「含む」にしたいです。

SelectionChangeイベント　文字列エラ

カテゴリ
一覧

専門家に質問してみよう
専門家登録