1.´룺
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
------------------------------------------------------------------------------------------------------------------------------------------
2.´дУǹܲ䡣    
Sub test()
    MsgBox "л񹲺͹ " _
            & " " _
            & "Ű "
End Sub
------------------------------------------------------------------------------------------------------------------------------------------
3.޸´룬53дΪʽֵ
Sub ABC()
    MsgBox Format(Date, "AAAA,yy-mm-dd"), vbRetryCancel + vbExclamation
End Sub
--------------------------------------------------------------------------------------------------------------------------------
4.޸Դ룬ʹͨExcel 200320072010ͬʱĿɶԡ
MsgBox Cells(3, Columns.Count).End(xlToLeft).Column
_____________________________________________________________________________________________________________________