Tag: if statement

两个If语句在VBA中相互内部: 我试图在VBA中相互编写两个If语句，但它给了我错误的答案。当我debugging它时，它显示程序没有通过ElseIf并继续与第一个If的其他。我怎么能有两个If语句在对方内部正常工作？码： If ConfigBox.Value <> … Then If ListBox1.Value = … Then DO SOMETHING Else DO SOMETHING End If ElseIf ListBox1.Value = … Or ListBox1.Value = … Then DO SOMETHING Else DO SOMETHING End If

平均如果不是零: 我有一张数据表（如下），其中“W”=“胜利”和“T”=“目标”。每个类别都是基于胜利型的。目标是根据个人的目标计算所有类别中最右侧列的平均“分数”。两个观察：（1）对于“W”= 0和“T”= 0的情况，这个类别在平均计算中应该被忽略 – 在分子和分母两者中; （2）对于有胜利但没有目标的情况（例如鲍勃的第7类），只有胜利应该被计算在内 – 即鲍勃对于第7类将有200％我在下面的图片中看到了它，但是一直在获得#VALUE！信息。

如果两个单元格至less有一个常用词，则为true，否则为false：Excel公式: 我有两列填充文字。我想比较两个单元格之间的任何相同的单词行。如何用Excel公式或vba函数完成这个工作？最好的祝福，

Excel VBA UserForm – 如果不是空的那么: 我正在制作一个用户表单，要求用户input。有很多的投入，但我有一个特别的问题。如果用户在文本框（名为SecondCompetitor）中inputANYTHING，我希望函数将一些值放入我的一个Excel工作表（名为ws4）中。这是我写的代码： With ws3 If Not IsEmpty(Me.SecondCompetitor.Value) Then .Cells(iRow3, 14).Value = Me.Ticker.Value .Cells(iRow3, 2).Value = Me.Rec1.Value .Cells(iRow3, 3).Value = Me.Rec2.Value .Cells(iRow3, 4).Value = Me.Rec3.Value .Cells(iRow3, 5).Value = Me.Rec4.Value .Cells(iRow3, 6).Value = Me.Rec5.Value .Cells(iRow3, 7).Value = Me.Rec6.Value .Cells(iRow3, 8).Value = Me.Rec7.Value .Cells(iRow3, 9).Value = Me.Rec8.Value .Cells(iRow3, 10).Value = Me.Rec9.Value .Cells(iRow3, 15).Value = Me.FirstCompetitor.Value .Cells(iRow3, […]

在“If”（Excel，VBA）中使用“For-Next”: 我正在尝试在单个“If” （代码如下）中结合多个“If”和一个“For-Next”语句。不幸的是，我总是得到一个错误信息： “编译错误：否则没有如果” 。你能看我的代码错误吗？ Sub Debugging() Workbooks("Problem.xls").Worksheets(1).Activate Cash_Rows = 5 Share_Rows = 6 If Cash_Rows <= Share_Rows Then Range("A1:A" & Cash_Rows).Select With Selection.Interior .ThemeColor = xlThemeColorAccent6 .TintAndShade = 0.399975585192419 Count_Cash = Application.WorksheetFunction.CountIf(Range("A:A"), "L*") For Each cell In Range("A1:A" & Cash_Rows) If CStr(cell.Value) Like "L*" Then Range("A" & cell.Row & ":" & "D" & […]

然后，VBA Excel如果单元格不等于公式: 我想检查一个单元格是否是这个公式，然后执行第二部分脚本代码简化 Range("B1:C1").Select If ActiveSheet.Name = "Sheet1" And ActiveCell <> "=formula1" Then Sheet1Macro 完整的代码（长） Range("B1:C1").Select If ActiveSheet.Name = "Sheet1" And ActiveCell <> "=IF(OR(IFERROR(SEARCH(""DKB"",RC[-2]),0),IFERROR(SEARCH(""Cox"",RC[-2]),0),IFERROR(SEARCH(""2020"",RC[-2]),0)),RC[-1],"""")" Then Sheet1Macro 我只是问如何检查单元格是否是一个公式，因为我插入行，并将公式从A2：F99更改为A99：F189例如

COUNTIF在零时显示空白: 我正在使用下面的公式： =IF(COUNTIFS('New In'!F:F,YTD!$A2,'New In'!B:B,YTD!$P$217)=0,"",COUNTIFS('New In'!F:F,YTD!$A2,'New In'!B:B,YTD!$P$217)) 如果结果为零，它需要做的是显示一个空白 – 它在某种程度上起作用 – 如果结果为零，则显示空白。但是，如果单元格值大于零，则会显示循环引用错误。任何想法发生了什么？

如果条件匹配+ vlookup，最大值: 我目前有以下Max If公式。 {= MAX（IF（A1：A5 = A13，H1：H5））} 这将工作正常，唯一的问题是，h1：h5值不是数字。我正在考虑做一个映射（即查找）的条目到一个数值，但似乎不适合查找内的函数。我知道最坏的情况下，我可以创build一个单独的查找公式，并find最大的基础上查找这些值，但我想避免这一点。请提供任何指导。谢谢！

封装如果function在Excel公式现在工作: 我正在尝试在以下情况下在Excel中创build一个逻辑函数。如果值> 85，那么输出应该是2 否则，如果值<85，则输出应为1 其他值<65，输出应为0 我创build的公式具有以下语法： =IF(O25>85;"2";IF(O25<85;"1";IF(O25<65;"0"))) 但是，当它less于65的输出失败。我在这里错过了什么？ Brgds，Sohail

对于循环忽略ELSE存在时的真IF条件: 在循环体中存在一个ELSE条件时，看起来我有一个让我的For循环确认我有一个True IF条件的问题。这是我写的： Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'TEST FIND/SEARCH FEATURES Dim String2Find As String = txtCPUSerial.Text Dim ColumnNumber As Integer = 1 'Access the worksheet Dim xlApp As Excel.Application xlApp = CreateObject("Excel.Application") xlApp = GetObject(, "Excel.Application") Dim xlWB As Excel.Workbook = xlApp.Workbooks.Open("C:\Users\Machine\Desktop\DocDirectory\MyDoc.xls") Dim xWS As Excel.Worksheet xWS = xlWB.Worksheets("Sheet1") […]