hatena
hatena
2020/05/21 (木) 12:22:56
If文で切り分けるといいでしょう。
.ControlTipText = Nz(DLookup("摘要","T_休日","日付=#" & D & "#"),"") '定休日をヒントテキストに設定
If .ControlTipText = "" Then
.ControlTipText = ktHolidayName(D) '祝日名をヒントテキストに設定
End if
通報 ...
ありがとうございます。