Sub シート名がわかっているときにブック名を取得する() Const FIND_SH = "顧客マスター" Dim bk As Workbook Dim sh As Worksheet For Each bk in Workbooks For Each sh in bk.Worksheets If sh.Name = FIND_SH Then MsgBox sh.Parent.Name Exit Sub End I…

Range("A1:C3").Dirtyでもユーザー定義関数(Function)からの呼び出しでは機能しない。サブルーチン(sub)経由で呼べば使える ネタ元 https://archives.aotsuki.org/excel-vba-calculate/#ApplicationCalculateApplicationCalculateFull

Dim a_cell As Variant Private Sub Worksheet_Calculate() If a_cell = "" Then a_cell = Cells(1,1).Value 'セルに初期値が入っていない時に代入 Exit Sub '１回目だけは、そのまま抜ける End If If a_cell <> Cells(1, 1).Value Then 'セル値が変化した時…

規定のコードを埋め込んでおくと、Googleにてリッチな検証結果として表示してくれるらしい必要なコードはこのツールで作れる https://www.google.com/webmasters/markup-helper/u/0/ 確認はこちらで リッチリザルトテスト