書籍の丸写しばっかりは、やめます。

自分のためにも、一生懸命コメントしてくださる方、たまたまこのブログにヒットした方・・・

誰にとってもメリットないからです。


簡単なスケジュールですが、こんなデータがあったとします。


A列

3/1   

3/2  

3/3   

3/4   


これを下記のようにしたいと思います。


A列 B列   C列

3/1   木    ●

3/2   金    ○

3/3   土    ●

3/4   日    休


For i = 2 to 4


cells(i,2)=format(cells(i,1))


Format(cells(i,1),"aaa")= "木" then "●"


イメージとしては、こんな感じだとおもいます。

明日、書いてみます。