Worksheet_Calculate()
ですが、A:4 から h:4 だけ 反応する。 それ以外は、 Exet Sub で Calculate を 抜ける。
この範囲指定の方法は無いでしょうか
時間なら 下記で事足りるのですが
If Format(Time, "hh:nn:ss") < Format("9:00:00", "hh:nn:ss") And Format(Time, "hh:nn:ss") Format("3:00:00", "hh:nn:ss") Then
Exit Sub
End If
No.2ベストアンサー
- 回答日時:
こんばんは
ブック起動時にA4~H4の値をグローバル変数に格納してCalculateイベント発生時に比較しては如何でしょうか
'<<ThisWorkBookモジュール>>
Option Explicit
Private Sub Workbook_Open()
v = Worksheets("Sheet1").Range("A4:H4").Value
End Sub
'<<標準モジュール>>
Option Explicit
Public v As Variant
'<<シートモジュール>>
Private Sub Worksheet_Calculate()
Dim i As Long, flg As Boolean
For i = 1 To 8
If Range("A4:H4").Item(i).Value <> v(1, i) Then
MsgBox Range("A4:H4").Item(i).Address & " に変化がありました。"
End If
Next
If flg = True Then v = Range("A4:H4").Value
End Sub
No.1
- 回答日時:
> A:4 から h:4
よくわかりませんがA4セルからH4セルの範囲ということ?
つまりRange("A4:H4")の範囲で発生したCalculateイベントだけをトリガーにしたい?
通常の方法(該当のシートのCalculateイベント)ではそういう捕らえ方はできないと思います。
ただ、裏ワザというか、抜け道が考えられないわけではありません。
新しいシートを用意します。
仮にトリガーにするRange("A4:H4")があるシートをSheet1だとすると、新しく用意したシートに
=Sheet1!A4
=Sheet1!B5
=Sheet1!C4
中略
=Sheet1!G4
=Sheet1!H4
と入力し、それ以外の式は書きません。
その上で、この新しいシートのシートモジュールにCalculateイベントのマクロを書けばいかがでしょうか?
へそ!
やってみます。
基本 Changeで拾うべきなのですが、なぜか WEB配信データでChangeが反応しないのです。(そうしたものらいしです)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 09:24
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/01/23 17:13
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Access(アクセス) エクセルのVBAについて教えてください。 4 2023/01/21 10:21
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Private Sub Worksheet_Calculate()のことでお聞きします
Excel(エクセル)
-
”戻り値”が変化したときに、マクロを実行したい
Visual Basic(VBA)
-
Calculateイベントでセルを指定したい
Word(ワード)
-
-
4
他のシートの特定のセルが変わると、自動実行されるマクロについて
Excel(エクセル)
-
5
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
excelのマクロで該当処理できな...
-
XL:BeforeDoubleClickが動かない
-
同じ作業を複数のシートに実行...
-
特定の文字を含むシートだけマ...
-
エクセルのシート名変更で重複...
-
【ExcelVBA】全シートのセルの...
-
実行時エラー'1004': WorkSheet...
-
ExcelのVBAのマクロで他のシー...
-
エクセルのマクロでアクティブ...
-
VBA 存在しないシートを選...
-
ブック名、シート名を他のモジ...
-
Excelマクロのエラーを解決した...
-
実行時エラー1004「Select メソ...
-
VBA 入力月で該当シートを選択...
-
【VBA】シート名に特定文字が入...
-
userFormに貼り付けたLabelを変...
-
エクセル Worksheet_Calculate
-
ListViewの画面の更新
-
Excel VBA 複数行を数の分だけ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
ユーザーフォームに入力したデ...
-
同じ作業を複数のシートに実行...
-
ブック名、シート名を他のモジ...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
VBA 存在しないシートを選...
-
エクセルのシート名変更で重複...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
Excel VBA 複数行を数の分だけ...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
Excelマクロのエラーを解決した...
-
エクセル・マクロ シートの非...
-
VBAで同じシート名のコピー時は...
-
ExcelのVBAのマクロで他のシー...
-
【VBA】色のついたシート名を取得
おすすめ情報