问题已解决，VBA代码如下： Sub tty() Dim i, num As Integer num = Application。WorksheetFunction。CountA(Range("A:A")) - 1 For i = 1 To num Cells(i + 1, 6) = Cells(i + 1, 5) + 90 Cells(i + 1, 1)。
EntireRow。Interior。ColorIndex = 0 If Cells(i + 1, 6) < Date Then Cells(i + 1, 1)。EntireRow。Interior。ColorIndex = 44 If Cells(i + 1, 6) = Date Then Cells(i + 1, 1)。
EntireRow。Interior。ColorIndex = 3 Next i Range(Cells(2, 1), Cells(num + 1, 255))。Select Selection。Sort key1:=Range("E2") End Sub 具体表格已发送到你的邮箱中。
答：复制>>选择性粘帖>转置 即可详情>>
答：详情>>
答：不同于PCMCIA卡，SymbolCF卡缺乏板载固件，它依靠设备驱动程序来下载固件详情>>
答：端口：500说明：InternetKeyExchange(IKE)（Internet密钥交换）端口：1645、1812说明：RemotAuthenticatio...详情>>
