[[20220921205732]]　『編集履歴』（SS）　ページの最後に飛ぶ

『編集履歴』（SS）

エクセル2003あたりの物ですか2019でこのコード使ったらエラーに
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If Sh.Name <> "更新履歴" Then
        With Sheets("更新履歴")
        .Range("A2:E2").Insert Shift:=xlDown
        .Range("A2").Value = Sh.Name
        .Range("B2").Value = Target.Address
        .Range("C2").Value = CreateObject("WScript.Network").UserName
        .Range("D2").Value = Now
        .Range("E2").Value = Target.Value
        End With
    End If
End Sub

互換性とかあるのですか？
修正出来たらお願いします

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

もしかして：「更新履歴」シートがない
（火災報知器） 2022/09/21(水) 21:08

「更新履歴」シートがない
有ります
（SS） 2022/09/21(水) 21:11

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range
ここでエラー
（SS） 2022/09/21(水) 21:14

「Sh」が存在していません。
修正は無理です。
（rg7g） 2022/09/21(水) 21:17

F8を押していってステップ実行を進めた結果どこで止まってどんなエラーを吐くか
（火災報知器） 2022/09/21(水) 21:22

 ＞互換性とかあるのですか？
 その辺のところは何も変わってないです。

 ＞エクセル2003あたりの物ですか2019でこのコード使ったらエラーに
 どんなエラーなんですか？

 ThiWworkbookのシートモジュールにちゃんと書いていますね？

 エラーには関係ないでしょうが、
  (1)　With　ステートメントの直下に
       Application.EnableEvents = False

  (2)　End With　ステートメントの直上に
 　     Application.EnableEvents = True

     を挿入した方がいいと思います。
  　　※いつのバージョンであっても無駄なイベントの連鎖は避けるべきだと思います。

（半平太） 2022/09/21(水) 21:29

コンパイルエラー
名前が適切ではありませんWorkbook_SheetChange
っと出だし止まってしまいます

（ジョージ） 2022/09/21(水) 21:33

Workbook → Worksheet ?
（r） 2022/09/21(水) 22:08

既にWorkbook_SheetChangeがあるのに、同名のプロシージャを追加しているのでは？

 　
（γ） 2022/09/21(水) 22:12

ジョージさん、こちらは解決したんです？
[[20220921173648]]『UserFormの大きさ』（ジョージ）
（壁に耳あり） 2022/09/21(水) 22:17

2007では正常に動いてるけどね。
書くとこ間違ってないかい？

（vvb） 2022/09/22(木) 01:58

 補足です。

 「名前が適切ではありません」というエラーは、
 プロシージャの名前が重複したときにだけ表示されるエラーメッセージです。
 プロシージャ名が適切ではない（例：数字で始まるなど）場合は
 別のエラーメッセージになります。

 イベントプロシージャを複数追加してしまう、
 という相談例は過去にも結構あり、割とありがちなミスのようです。
 それで次の事態は、ふたつのコードをつなげましたが、動作しません、という話。。。。。
 脱出条件などに手入れが必要になります。
 　
（γ） 2022/09/22(木) 19:35

　勘違いしていました。
（r） 2022/09/21(水) 22:08 はスルーしてください。

（r） 2022/09/22(木) 20:51

 >勘違いしていました。

 あながち勘違いではないと思います。
 提示されたコードを正規の場所に2個張り付けてコンパイルすると、
 「名前が適切ではありません」というエラーがでます。
 これだけほったらかしなので、解決済みかと。
（vvb） 2022/09/22(木) 22:36

念のため。
rさんと私(がんま）は別人です。
プロシージャ名重複説を書いた私は別に勘違いしているとは申し上げていませんよ。

 　
（γ） 2022/09/22(木) 23:42

コメント返信：

[ 一覧(最新更新順) ]

[[20220921205732]] 『編集履歴』（SS） ページの最後に飛ぶ

[[20220921205732]]　『編集履歴』（SS）　ページの最後に飛ぶ