With Worksheets("hidden").Range(Target.Address) If Val(.Item(1, 1).Value) = 1 Then .ClearContents Else .Value = 1 End If End With Cancel = True End Sub そして、カレンダーの条件付き書式設定において、隠しシートのセルを参照する条件式を追加すれば良いと思います。
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Worksheet_SelectionChange Application.EnableEvents = False With Target Union(.EntireRow, .EntireColumn).Select .Activate End With Application.EnableEvents = True End SubThisWorkbook Module – 每个工作簿都包含一个 ThisWorkbook 对象,其总是位于...
'セルA1にMyStringを配置 Range("A1").Value = MyString 'Split関数で文字列の構成部分を分割する MyArray = Split(MyString, ",") 'Join関数を使って、セミコロン区切りで元の文字列を再作成する Target = Join(MyArray,";") '結果の文字列をセルA2に配置 Range("A2").Value = Target End ...
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Worksheet_SelectionChange Application.EnableEvents = False With Target Union(.EntireRow, .EntireColumn).Select .Activate End With Application.EnableEvents = True End SubThisWorkbook Module – 每个工作簿都包含一个 ThisWorkbook 对象,其总是位于...