excel BVでTarget.Offset勤務表作成のマクロで連続する「Ｃ」の日を連休にしたい
- excel BVでTarget.Offsetを使用して勤務表を作成していますが、「Ｃ」が連続する日を連休にしたいです。
- 現在のマクロでは連続する「Ｃ」の日が連休にならず、間違っている部分がわかりません。
- また、If Target.Count > 1 Then Exit Subの意味も理解していません。教えてください。
- ベストアンサー
excel BVでTarget.Offset
勤務表を作成しています。 勤務「Ｃ」の翌日は「休」にするところまでは出来たのですが、「Ｃ」が連続する日は「休」も連続させたいのです。例）３日と４日が「Ｃ」の時は、５日、６日は連休にしたいのですが、作った下のマクロでは７日も「休」になってしまいます。何が間違ってるんでしょうか？。 If Target.Count > 1 Then Exit Subの意味も良く解っていませんが…。 どなたか教えてください。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Value = "Ｃ" Then Target.Offset(0, 1).Value = ("休") End If If Target.Offset(0, -2).Value = "Ｃ" Then Target.Offset(0, 1).Value = ("休") End If End Sub
- isabaya1
- お礼率53% (7/13)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub '複数セルの入力は無視 If Target.Value <> "Ｃ" Then Exit Sub 'Ｃ以外の入力は無視 If Target.Offset(0, -1).Value = "Ｃ" Then 'Ｃが連続したら Target.Offset(0, 1).Resize(1, 2).Value = ("休") '連休に Else Target.Offset(0, 1).Value = ("休") 'そうでなければ休に End If End Sub
関連するQ&A
- Excel 関数をまたいだTargetの使用
excel2013 OS はwindows8を使用しています。 Excelのマクロで、以下のコードについて質問です。（コード内の・・・は省略の意） Private Sub Worksheet_Change(ByVal Target As Range) Dim ・・・・・・・ ・ ・ If Target.Value = ・・・・・ Call myfunction End If End Sub Sub myfunction() If 条件 Then Target.Offset(0,1).Value = "aaa" End If End Sub このマクロのPrivate Sub Worksheet_Change(ByVal Target As Range)を実行するとエラーが 出ます。エラーの内容は「オブジェクト変数またはwithブロック変数が設定されていません」 となり、 Target.Offset(,1).Value = "aaa" の行が黄色く表示されます。 myfuncton内で使用しているTargetが何なのかがわからないというエラーだと理解しています。 そこで私は以下の２つを試しました。 １つめはうまくいかず、２つめは何か2度手間のような感じがするのですが、正常動作する ようです。 そこで質問なのですが、Targetをプロシージャをまたいで利用したい場合に一般的に用いら れている手法などがあれば教えて頂きたいです。 １つめ・・Targetをプロシージャをまたいで使えるようにコードの一番上の部分 、つまり、Private Sub Worksheet_Change(ByVal Target As Range)の一行上の 部分にDim Target As Range と宣言してみました。が、これはうまくいきませんでした。 ２つめ・・適当な（この場合e）変数を宣言し、プロシージャをまたいで使用する。 Dim e As Range Private Sub Worksheet_Change(ByVal Target As Range) Dim ・・・・・・・ ・ ・ If Target.Value = ・・・・・ Set e = Target Call myfunction End If End Sub Sub myfunction() If 条件 Then e.Offset(0,1).Value = "aaa" End If End Sub 以上何か良い方法があれば教えて頂きたいです。また不明な点があれば ご質問ください
- ベストアンサー
- Excel（エクセル）
- 「Worksheet_Change」で２つの操作を
お世話になります。 当方、エクセルの超初心者です。 仕事で、ある作業表の作成を任されたのですが、一部が思い通りに動作しません。 最初は「例１」のような記述によりエラーしました。 【例１】 Private Sub Worksheet_Change(ByVal Target As Range） （内容１） End Sub Private Sub Worksheet_Change(ByVal Target As Range） （内容２） End Sub その後、過去の回答にあった類似案件を参考に「例２」のように書き換えましたが、 実行されるのは１つ目のみで、２つ目の内容は無視され、困っております。 【例２】 Private Sub Worksheet_Change(ByVal Target As Range） （内容１） （内容２） End Sub ちなみに実データは以下の通りです。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count <> 1 Then Exit Sub If Intersect(Target, Range("k6:k55")) Is Nothing Then Exit Sub If Target.Value = "" Then Target.Value = "○" Else Target.Value = "" If Target.Count <> 1 Then Exit Sub If Target.Column <> 2 Then Exit Sub If Target.Row < 6 Or Target.Row > 45 Then Exit Sub Call ShowCalendarFromRange2(Target) End If End Sub 見様見真似で作ったため、恥ずかしながら基本が全く理解できていません。 恐らく簡単なミスだと思うのですが、自力では解決方法を探し出せませんでした。 何とか２つの内容が実行できないものでしょうか。 どうか、お知恵をお貸し下さい。
- 締切済み
- その他MS Office製品
- Excelのworksheetどこ間違えてますか？
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:A65536")) Is Nothing Then Exit Sub If 0 < Target.Value And Target.Value < 6 Then Target.Offset(0, 1).Value = Format(Time, "h時m分s秒") Else Target.Offset(0, 1).Value = "" End If End Sub 以前、このサイトで教えてもらったワークシートのプログラムです。 簡単に言えばＡ列に１から５までの値を入れれば現在時間をＢ列に 表示し、それ以外の場合は何もいれないと言ったものです。 以前はできたんですが最近また入れるとできなくなっていました。 どこかおかしいとこありますでしょうか？？
- ベストアンサー
- オフィス系ソフト
- エクセルのコード表示についてですが。。
Private Sub Worksheet_Change(ByVal Target As Range) (1)If Target.Column <> 4 Then Exit Sub Target.Offset(0, -3) = Now() ⇒特定のセルに日時自動表示 (2)If Target.Column <> 4 Then Exit Sub Target.Offset(0, 1) = "DUMMY" ⇒特定のセルにDUMMYと自動表示 (3)If Target.Column = 4 Then Target.Offset(0, -2) = "1" Else ⇒特定のセルに１と自動表示 (4)If Target.Column = 35 Then Target.Offset(0, -2) = "2" ⇒特定のセルに２と自動表示 End If End If (5)If Target.Value = "T" Or Target.Value = "t" Then Target.Value = "田中" ⇒Tと入力すると田中と変換して表示 ElseIf Target.Value = "H" Or Target.Value = "h" Then Target.Value = "林" ⇒ｈと入力すると林と変換して表示 End If End Sub 上のようなコードを入力すると(3)と(5)が機能しません。。なぜでしょうか？？コードの表示がまずいのでしょうか？？
- 締切済み
- その他([技術者向] コンピューター)
- こんばんは、watabe007さん。
961awaawaです。 ＞シートモジュールに貼り付けてお試しください。 Private Sub Worksheet_Change(ByVal Target As Range) With Target If Intersect(.Cells, Range("L:M")) Is Nothing Then Exit Sub If .Row < 3 Or .Value = "" Then Exit Sub If Not IsNumeric(.Value) Then Exit Sub .Offset(, 3).Value = Cells(.Row, .Value).Value End With End Sub というソースを作って頂いたのですが、既に各sheetにprivate sub からなるソースが入ってましてコンパイルエラー(名前が適切ではありません Worksheet_Change)となります。他に方法等頂けましたらありがたいです。
- ベストアンサー
- Excel（エクセル）
- EXCEL VBAについて教えてください
はじめまして。 過去ログに私のやりたいような内容を探していたらこのような下記のエクセルVBAがあったので、教えて頂きたいです。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Value = "" Then Exit Sub x = Target.Value With Application .ScreenUpdating = False .EnableEvents = False .Undo y = Target.Value Target.Value = x + y .EnableEvents = True .ScreenUpdating = True End With With Cells(ActiveSheet.Rows.Count, "C").End(xlUp) .Offset(1, 0).Value = x .Offset(1, 1).Value = Time() End With End Sub A1に入力するたびに同一セルに加算。 A1をクリアできる。 C列に入力履歴、D列に入力時間を記録。 If Target.Address <> "$A$1" Then Exit Sub の$A$1を変えることによって他のセルにも設定できる。 と、いう内容なのですが、これをたとえば同一シートのA1～E10のセルとA12～Ｅ22にも同じよう別々に処理できるように設定したいのですが、どのようにすればいいのでしょうか？ちなみにA11～Ｅ11とA23～Ｅ23は合計を表示するセルにしたいです。 Excelのバージョンは2003です。 よろしくお願い致します
- ベストアンサー
- Visual Basic
- エクセルＶＢＡについて
http://okwave.jp/qa/q7236213.html 上記質問の発展形なのですが 同様のことを Ｅ列に日付 Ｆ列に売上 Ｇ列に結果 でやりたいのですが この時Ａ列～Ｃ列のマクロも残したままでしたいのですが 下記のように同様のプロシージャーを下段に書けばできると思ったのですが うまくいきません。 Private Sub worksheet_change(ByVal Target As Excel.Range) If Target.Address <> "$A$1" Then Exit Sub If Target = "" Then Exit Sub Range("C10:C65536").ClearContents With Range(Cells(9 + Range("A1").Value, "C"), Cells(Range("A65536").End(xlUp).Row, "C")) .FormulaR1C1 = "=MAX(RC2:R[" & -Range("A1").Value + 1 & "]C2,FALSE)" .Value = .Value End With End Sub Private Sub worksheet_change(ByVal Target As Excel.Range) If Target.Address <> "$E$1" Then Exit Sub If Target = "" Then Exit Sub Range("G10:G65536").ClearContents With Range(Cells(9 + Range("E1").Value, "G"), Cells(Range("E65536").End(xlUp).Row, "G")) .FormulaR1C1 = "=MAX(RC6:R[" & -Range("A1").Value + 1 & "]C6,FALSE)" .Value = .Value End With End Sub どなたかお知恵を拝借できませんでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセル 加算
１つのセルに数字を入力すると加算されているマクロを探していたら 以下の回答がありました Dim memo Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Value <> "**" And IsNumeric(Target.Value) = False Then Exit Sub Application.EnableEvents = False If Target.Value = "**" Then memo = 0 Else memo = memo + Target.Value End If Target.Value = memo Application.EnableEvents = True End Sub このマクロですがＡ１に入力した場合に適用しますが、このマクロをたとえばＡ１からＣ１の範囲で使用した１場合にどのようなマクロをすればよいかわかりません それか、このマクロではそのようなことができるのかもわかりませんので教えて頂けないでしょうか
- ベストアンサー
- Excel（エクセル）
- エクセルのマクロ
セルの値が変わったら動くマクロですが、2つ書くとエラーが出ます。 どのように直したらいいでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address If Intersect(Target, Range("EK22")) Is Nothing Then Exit Sub Else Range("EK24:EM28").Select Selection.ClearContents End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("EK24")) Is Nothing Then Exit Sub Else Range("EK27:EM28").Select Selection.ClearContents End If End Sub
- ベストアンサー
- Excel（エクセル）
- エクセルのマクロコードについて
お世話になります。 下記コードで、セルごとにクリアをすると、エラーなくうごくのですが、セルをまとめてセルを消すと実行時エラー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
- ベストアンサー
- Excel（エクセル）
お礼
早速のご回答、大変ありがとうございました。出来ました。