hatena
hatena
2020/05/18 (月) 17:51:32
下記のコードだとどうでしょうか。
Do Until rs.EOF
With Me("T" & rs!作業日 - FirstDay)
.value = .value & "<div>" & rs!開始時間 & " " & IIf(rs!確定<>"",""," <font color=red>☆</font>") & rs!略名 & </div>
End With
rs.MoveNext
Loop
通報 ...