Tag: 布尔值

如果工作表存在，运行子。 如果不是，则显示消息并退出子菜单

尽pipe在其他线程上查找这个主题，我仍然被卡住了。 我想帮助以下几点： 如果macros可以find名为“Transfers”的工作表，我希望它激活该工作表并运行其余的子工作，这使得“Transfers”成为最后一个工作表。 如果找不到名为“Transfers”的工作表，我希望这样写一条消息（请确保您已将您的数据表重命名为“Transfers”），然后退出Sub。我的代码不起作用。 Sub Double_Transfer_Report() Dim er As Boolean er = False On Error Resume Next 'Worksheets("Transfers").Activate er = true If er Then MsgBox ("Please make sure that you renamed your data sheet : Transfers) Exit Sub End If ActiveSheet.Move _ After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)

在excel中总结布尔值

我有许多布尔值A3 == T，B3 == F，C3 == T，D4 == T，E4 == F等。每个真（或在这种情况下的“T”）等于相应的值为2，而false则等于0。 任何人都知道我可以如何总结布尔值的数值，而不需要像replace原来的字母表示那样做任何事情？ 我知道SUMIF函数，但我不确定在这种情况下如何应用。

使用countif来确定类模块中的布尔值

我试图在类模块中使用布尔值，但代码在“公共属性获取DUPLICATES（）作为范围”MsgBox LOADPROPS.DUPLICATES“失败”请有人可以协助？ Sub INITIALIZE_CLASS() Dim LOADPROPS As cLoadData Set LOADPROPS = New cLoadData LOADPROPS.DUPLICATES = PasteLoadingForm.Columns("K") MsgBox LOADPROPS.DUPLICATES End Sub 并在类模块中 Public Property Get DUPLICATES() As Range DUPLICATES = pDUPLICATES End Property Public Property Let DUPLICATES(Value As Range) Dim lcount As Long lcount = Application.WorksheetFunction.CountIf(Value, "DUPLICATE") ' pDUPLICATES = lcount Select Case pDUPLICATES Case Is […]

VBA真布尔条件不尊重

这可能是一个非常愚蠢的问题，但我似乎无法find我的方式…我定义了一个名为safe_mode的全局variables，是一个布尔值。 在我的一个潜艇我需要检查它的价值，并给它一个新的价值相应。 下面的代码会给你更多的信息。 Private Sub Dev_Mode_Click() Dim pass As String If safe_mode = False Then pass = InputBox("Password") If pass <> "admin_rights" Then Sheets("Database").Visible = xlSheetVeryHidden Sheets("NewFile").Visible = xlSheetVeryHidden Sheets("LandingPage").Dev_Mode.Caption = "Admin" MsgBox ("Invalid Password") safe_mode = False MsgBox (safe_mode) Exit Sub Else Sheets("Database").Visible = True Sheets("NewFile").Visible = True Sheets("LandingPage").Dev_Mode.Caption = "Log Off" safe_mode = […]