メイン（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 =…

ご無沙汰しています。 しばらく更新してませんでしたが、現実の方が忙しかったのとGASに移植するのに夢中になってました。 追記で配布とか操作とかしんどかったところとか書いていこうと思います。