メイン（VBA） Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Const staterng As String = "C3:C33" '状態列 Const seirng As String = "K3:K33" '性向列 '現在時刻取得とフォーマット Dim daytime As Date daytime = Now Dim nowtime As String nowtime = Format(daytime, "yyyy/m…
