QQ:171774787



Sub test()
   With Worksheets("ܱ")
      If .Range("A:A").ColumnWidth > 50 Then
         .Range("A:A").ColumnWidth = 50
      Else
	 .Range("A:A").ColumnWidth = .Range("A:A").ColumnWidth * 5
	 .Range("A:A").Clear
      End If
   End With

   Select Case Day(Date)
	Case Is <= 10
	   MsgBox "Ѯ"
	Case Is <= 20
	   MsgBox "Ѯ"
	Case Else
           MsgBox "Ѯ"
   End Select
End Sub



MsgBox "л񹲺͹" & _
" " & _
" Ű"



MsgBox Format(Date, "AAAA,yy-mm-dd"), vbExclamation + vbRetryCancel