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.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が反応しないのです。(そうしたものらいしです)
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
お探しの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(エクセル)
-
Calculateイベントでセルを指定したい
Word(ワード)
-
”戻り値”が変化したときに、マクロを実行したい
Visual Basic(VBA)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
他のシートの特定のセルが変わると、自動実行されるマクロについて
Excel(エクセル)
-
6
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
【ExcelVBA】全シートのセルの...
-
セルの値によって、シート見出...
-
エクセルのシート名変更で重複...
-
VBA 検索して一致したセル...
-
シートが保護されている状態で...
-
ExcelVBA シート名を複数セルか...
-
ブック名、シート名を他のモジ...
-
エクセルで特定のシートのみ自...
-
Excel マクロについての相談
-
エクセル・マクロ シートの非...
-
エクセルのマクロについて教え...
-
実行時エラー1004「Select メソ...
-
vbaで複数のキーを元に集計する...
-
エクセル マクロのこの意味教えて
-
ExcelのVBAコードについて教え...
-
エクセルのマクロについて教え...
-
XL:BeforeDoubleClickが動かない
-
エクセル vbaにて 他シート(複...
-
【Excel VBA】シート表示、非表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
実行時エラー'1004': WorkSheet...
-
ExcelVBA シート名を複数セルか...
-
XL:BeforeDoubleClickが動かない
-
VBA 存在しないシートを選...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ブック名、シート名を他のモジ...
-
【Excel VBA】Worksheets().Act...
-
ExcelのVBAのマクロで他のシー...
-
エクセルのシート名変更で重複...
-
特定の文字を含むシートだけマ...
-
シートが保護されている状態で...
-
Excel マクロについての相談
-
VBA 検索して一致したセル...
おすすめ情報