摘要:
Public Sub 技巧()'保存并关闭工作薄 Dim wb As Workbook Set wb = ThisWorkbook '可指定任意工作簿 wb.Close savechanges:=False Set wb = Nothing End Sub Public Sub 技巧()'查询指定工 阅读全文
摘要:
Public Sub 技巧()#判断单元格是否有公式 Dim myRange As Range Set myRange = Range("A1") '指定任意单元格 If myRange.HasFormula = True Then MsgBox "单元格 " & myRange.Address & 阅读全文
摘要:
Public Sub 获取窗口状态() Dim myState As String myState = Application.WindowState If myState = xlMaximized Then MsgBox "Excel窗口最大化", vbInformation ElseIf my 阅读全文