有没有一种方法可以比较VBA中的两个条件

时间:2019-11-12 16:38:31

标签: excel vba

我有一个带有两列A和B的Workbook1。A有一个名称列表,而B有一个版本号。有没有一种方法可以打开另一个Workbook2,该Workbook2中有一个Name和一个版本nr,则宏将打开workbook1寻找一个Name,然后比较相应的Version号。如果workbook2中的版本nr较小,则workbook1中将出现一个消息框,指出“这是旧版本”,否则消息将显示“这是最新版本” 到目前为止,我仅在一种情况下尝试过此操作(请检查版本号)

Sub VersionChecker()

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
Dim Version As Range
Dim CurrentVersion As Range
Set Version = ActiveSheet.Range("Ver")
Workbooks.Open "C:\Test.xlsm"
Worksheets("sheet1").Activate
If Range("CurVer") = Version Then
    MsgBox ""this is up to date version"
Else
    MsgBox "this is a old version", vbCritical
End If

Workbooks("Test.xlsm").Close SaveChanges:=True
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub

只要工作簿1保持关闭状态就可以工作,但是我需要添加第二个条件“名称”。有没有解决的办法?任何帮助表示赞赏。

谢谢

0 个答案:

没有答案