­ã´£³¡ªL

With Range("C2:AG3")
¡@¡@¡@.Columns(1).Borders.LineStyle = 1
¡@¡@¡@.Columns(1).Borders(xlEdgeRight).Weight = xlMedium
¡@¡@¡@.Columns(1).Copy
¡@¡@¡@.Cells.PasteSpecial xlPasteFormats
¡@¡@¡@.FormatConditions.Delete
¡@¡@¡@.FormatConditions.Add Type:=xlExpression, Formula1:= _
¡@¡@¡@¡@¡@¡@"=WEEKDAY(DATE($AM$1,$AN$1,COLUMN(A:A)),1)<>1"
¡@¡@¡@.FormatConditions(1).Borders(xlRight).Weight = xlThin
End With

¤Ï¨ä¹D¦Ó¦æ¡A¥þ³¡³]¬°¡e¥k²Ê½u¡f¡A
®æ¦¡¤Æ±ø¥ó¡A«D¡e©P¤é¡fªÌ¡A³]¡e¥k²Ó½u¡f¡ã¡ã