• ベストアンサー

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 以前、このサイトで教えてもらったワークシートのプログラムです。 簡単に言えばＡ列に１から５までの値を入れれば現在時間をＢ列に 表示し、それ以外の場合は何もいれないと言ったものです。 以前はできたんですが最近また入れるとできなくなっていました。 どこかおかしいとこありますでしょうか？？

質問者が選んだベストアンサー

  • ベストアンサー
  • zap35
  • ベストアンサー率44% (1383/3079)
回答No.4

＞最近また入れるとできなくなっていました。 とりあえず２つの原因が考えられます １つめは Application.EnableEvents = False になっている可能性が考えられます。そうするとシート上で何らかの操作をしてもイベントが発生しないのでWorksheet_Changeのモジュールも動きません。どこでFalseになったか分からないので明確な回答はできませんが、これを回復させるにはThisWorkbookのモジュールシートに以下を書いておけばブックを開いたときにTrueにできます Private Sub Workbook_Open() 　Application.EnableEvents = True End Sub ２つめの原因として「一回の操作で複数のセルの値を変更した」ことが考えられます。その場合は以下のようなコードにすれば良いです Private Sub Worksheet_Change(ByVal Target As Range) Dim rng, r As Range 　Set rng = Intersect(Target, Range("A:A")) 　If rng Is Nothing Then Exit Sub 　For Each r In rng 　　If 0 < r.Value And r.Value < 6 Then 　　　r.Offset(0, 1).Value = Format(Time, "h時m分s秒") 　　Else 　　　r.Offset(0, 1).Value = "" 　　End If 　Next r End Sub

その他の回答 (4)

  • keirika
  • ベストアンサー率42% (279/658)
回答No.5

セキュリティーレベルが『高』以上になっていないでしょうか。

  • xls88
  • ベストアンサー率56% (669/1189)
回答No.3

>エラーにはならないが時刻が入力されないです。 下記コードを End Sub の上に入れてみてください。 MsgBox "動いています！" マクロが動いているならメッセージボックスが出ます。 あと、ブレークポイントを設けるとかしてデバッグをしてください。 デバッグについて http://members.jcom.home.ne.jp/rex-uchida/vba110.htm ステップ実行 http://hp.vector.co.jp/authors/VA016119/step/step01.html ローカルウインドウでのデバッグ http://www.nikonet.or.jp/spring/sanae/program/vba/vba_11.htm

  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.2

貼り付けたシートと別のシートに値を入れているとか？ はないですよね。

  • xls88
  • ベストアンサー率56% (669/1189)
回答No.1

>以前はできたんですが最近また入れるとできなくなっていました。 何を何処に入れたのですか？ エラー内容は表示されますか？ マクロは途中で停止するのですか？ エラーにはならないが時刻が入力されないのですか？ エラー内容が解れば書き込まれた方が良いかと思います。

goku716
質問者

補足

詳しく説明するの忘れてました。 エラーにはならないが時刻が入力されないです。 あとＡ列に１から５の値を入力しました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • 「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 見様見真似で作ったため、恥ずかしながら基本が全く理解できていません。 恐らく簡単なミスだと思うのですが、自力では解決方法を探し出せませんでした。 何とか２つの内容が実行できないものでしょうか。 どうか、お知恵をお貸し下さい。

  • 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

  • エクセルのマクロ

    セルの値が変わったら動くマクロですが、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　VBAについて

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, cancel As Boolean) If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub Application.Goto Worksheets("人件費").Range("A1") Worksheets("人件費").Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = Target.Offset(, -5).Value cancel = True End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, cancel As Boolean) If Intersect(Target, Range("G:G")) Is Nothing Then Exit Sub Application.Goto Worksheets("外注費").Range("A1") Worksheets("外注費").Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = Target.Offset(, -5).Value cancel = True End Sub 上の指令はFの列をダブルクリックすると人件費のシートが開いてAある値を人件費の新しいセルのAに代入する指令ですが それをG列ダブルクリックで外注費シートに同じようにやろうと思いましたが出来ません。 たぶん根本的に書き方が間違っているのかと思われますが、ご指導のほどお願いします。

  • Worksheet_Change、名前の定義で分岐

    エクセル2010です。 Worksheet_Change　イベントで、名前の定義で分岐させようと思います。 下記二つの方法は思いつきましたが、ほかにもっと良い方法はないでしょうか？ 実際にはもっとたくさんの名前の定義があります。 ・Intersectで見る方法 Private Sub Worksheet_Change(ByVal Target As Range) 　　Select Case True 　　Case Not Application.Intersect(Target, Range("見積日")) Is Nothing 　　　　Range("有効期限").Value = Range("見積日").Value + 60 　　Case Not Application.Intersect(Target, Range("Trigger")) Is Nothing 　　　　If Target(1).Value = "AAAA" Then '(1)は結合セルクリア対策 　　　　　　MsgBox "BBBBを入力してください。" 　　　　　　Range("BBBB").Select 　　　　Else 　　　　　　Range("BBBB").MergeArea.ClearContents 　　　　End If 　　Case Not Application.Intersect(Target, Range("BBBB")) Is Nothing 　　　　If Target(1).Value = "日付入力" Then 　　　　　　Range("BBBB").Value = InputBox("日付を入力してください。") 　　　　End If 　　End Select End Sub ・アドレスで見る方法 Private Sub Worksheet_Change(ByVal Target As Range) 　　Select Case True 　 Case Target(1).Address = Range("見積日")(1).Address 　　　　Range("有効期限").Value = Range("見積日").Value + 60 　 Case Target(1).Address = Range("Trigger")(1).Address 　　　　If Target(1).Value = "AAAA" Then '(1)は結合セルクリア対策 　　　　　　MsgBox "BBBBを入力してください。" 　　　　　　Range("BBBB").Select 　　　　Else 　　　　　　Range("BBBB").MergeArea.ClearContents 　　　　End If 　　Case Target(1).Address = Range("BBBB")(1).Address 　　　　If Target(1).Value = "日付入力" Then 　　　　　　Range("BBBB").Value = InputBox("日付を入力してください。") 　　　　End If 　　End Select End Sub

  • VBAの記録を追加したい

    エクセル2002使用です。 VBAで次のコードを使っています。 Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range Set Target = Intersect(Range("C:C"), Target) If Target Is Nothing Then Exit Sub For Each Rng In Target If Rng.Value <> "" Then Rng.Offset(, -2).Value = Now Else ' (*) Rng.Offset(, -2).Value = "" ' (*) End If Next Rng End Sub （C列のセルに何か入力されると、A列の同じ行にその時刻が入る。） 同じシートで、F列に何か入力されるとE列の同じ行にその時刻が入るように書き直したいのですが、どうすればいいのでしょうか？ すいませんが、よろしくお願いします。

  • Excel　VBA　の件で質問です

    照合システムを作ろうとネットを閲覧していたら次のコードが見つかりました。 Private Sub Worksheet_Change(ByVal Target As Range) Dim rr As Range If Not Intersect(Target, Range("C1:D10")) Is Nothing Then For Each rr In Intersect(Target.EntireRow, Range("C:C")) If Not IsEmpty(rr) And Not IsEmpty(rr.Offset(, 1)) Then Application.EnableEvents = False If rr.Value <> rr.Offset(, 1).Value Then Beep rr.Offset(, 2).Value = "NG" Else rr.Offset(, 2).Value = "OK" End If Application.EnableEvents = True End If Next End If End Sub このコードでいくと、C列とD列が同じであればE列にOK、間違っていればNGなのですが、C1とC2が同じであればE1にOK、間違っていればNG。次にC3とC4が同じであればE3にOK、間違っていればNG。…というふうにしたいのですが、どうすれば良いのでしょうか？

  • VBA Intersectで範囲の記述

    エクセル2000です。 Intersectで範囲の記述で、名前が定義された範囲、myRng と　その2列右どなりを指定したいのですが、 Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Union(Range("myRng"), Range("myRng").Offset(, 2))) Is Nothing Then Exit Sub MsgBox Target.Address End Sub のようにUnionを使わなければできないでしょうか？ myRngがA1:A10であれば、 If Intersect(Target, Range("A1:A10,C1:C10")) Is Nothing 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

  • 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 以上何か良い方法があれば教えて頂きたいです。また不明な点があれば ご質問ください　　　　　

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する