Tag: if statement

IF-THEN在VBA中带有string: 我想通过读取string的值来检查两个单元格的值是否相等。使用for循环来查找IF-THEN语句的匹配。当通过程序时，它显示的值是相同的一点，但IF – THEN比较只是继续运行我不明白为什么它不会停止时，他们是平等的。 Dim ws As Worksheet Dim lcol As Long Dim Val As String Dim Check As String 'Read in value for audit to continue Val = ContTextBox.Value 'Make Master Sheet Active Worksheets("Master").Activate Set ws = ThisWorkbook.Sheets("Master") 'Finds next empty column With ws lcol = .Cells(11, .Columns.Count).End(xlToLeft).Column + 1 End With 'i […]

如果2个单元格空白，那么第三个单元格空白，如果2个单元格是，那么“是”，否则“否”: 我有两个单元格A1和B1 。如果A1和B1等于是，则C1为Yes否则No 如果A1和B1是空白的，那么C1是空白的我在C1放置什么配方来完成这个？

多标准最大值如果声明: 我的数据集看起来像这样… State Close Date Probability Highest Prob/State WA 12/31/2016 50% FALSE WA 12/19/2016 80% FALSE WA 10/15/2016 80% TRUE 我的目标是build立一个公式来填充最右边的列。该公式应评估每个州内的closuresdate和概率。首先，应该select最高的概率，然后select最近的closuresdate，如果有一个概率上的关系（例如）。对于这个logging，它应该是“TRUE”。我认为这将包括一个MAX IF语句，但尚未能得到它的工作。这是我正在使用的一组更强大的数据。首先find每个区域内的最高概率，然后select最小（最老）的date，如果概率是平行的，可能会更容易。这也将服务于我的目的。 Region Forecast Close Date Probability (%) Okeechobee FL 6/27/2016 90 Okeechobee West FL 7/1/2016 40 Albany GA 3/11/2016 100 Emerald Coast FL 6/30/2016 60 Emerald Coast FL […]

使用VBA联合函数有条件地将单元格添加到范围: 我正在尝试使用联合方法将特定的单元格添加到各自的范围，具体取决于它们的内部颜色。我正在使用的代码如下所示： For Each cell In EntirePossibleRange If cell.Interior.Color = RGB(132, 151, 176) Then Set AccessabilityRange = Union(AccessabilityRange, Range("B" & cell.Row) Else If cell.Interior.Color = RGB(244, 176, 132) Then Set ConsistencyRange = Union(ConsistencyRange, Range("B" & cell.Row) Else If cell.Interior.Color = RGB(255, 217, 102) Then Set EfficacyRange = Union(EfficacyRange, Range("B" & cell.Row) Else cell.Interior.Color = RGB(191, […]

如果与VLookup声明: 我有麻烦设置一个函数，在多个条件下join我的两张床单。我想在航class栏中发生以下情况： IF sheet1.product = sheet2.product AND sheet1.date >= sheet2.start date AND sheet1.date <= sheet2.end date THEN sheet2.flight 我不能连接和查找，因为我正在寻找一个date范围，我不能使用if（和（因为我需要我的'value_if_true'是dynamic的。什么是最好的方法来实现我试图解释的？ Sheet1 For flight column row 1 =IF(AND(D2=Sheet2!A2,Sheet1!A2>=Sheet2!B2,Sheet1!A2<=Sheet2!C2),Sheet2!D2) Date Start Date End Date product flight 11/29/2015 11/29/2015 12/5/2015 product1 1 11/29/2015 11/29/2015 12/5/2015 product1 11/30/2015 11/29/2015 12/5/2015 product1 11/30/2015 11/29/2015 12/5/2015 product1 12/1/2015 11/29/2015 12/5/2015 product1 […]

VBA函数为多个Ifs的多个结果: 我很新的VBAfunction/任何超过基本的用户级计算机。我试图在Excel中创build一个函数，根据在六个不同区域（或单元格）中的评级返回一个值（评级可以等同于五个值）。试图根据6个不同的标准自动填充公司的评级。例如，如果G34> 84.99％，J34> 79.99％，K34 =“是”，那么“T”但是如果G34 <84.99％，J34> 79.99％和K34 =“否”，那么“T-”。我一直在尝试ElseIf声明，但仍然遇到问题。帮助非常感谢！下面是我试图得到的非常基本的全function： IF(G34>84.99%, J34>79.99%, K34="Yes", M34 >89.99%, N34 = 100%, O34>89.99%, Then "T", IF(G34>74.99%, G34<84.99%, J34>79.99%, K34 = "Yes", M34 >79.99%, M34 <89.99%, N34 = 100%, O34 <89.99%, O34>79.99%, Then "T-", IF(G34>64.99%, G34<74.99%, J34<79.99%, G34 > 74.99%, K34 = "NO", M34 >64.99%, M34 <79.99%, […]

Excel公式如果: 好。我有一个看似真正基本的公式的问题。它使用If函数。这是我所需要的。 If(b2:b50<>"",IF(b2:b50"607734",e2:e50="Patriot")) 所以基本上如果之间b2-b50有数字“607734”我想e2-e50显示“爱国者”

Excel如果匹配公式帮助需要: 有人可以帮助我以下的Excel公式 =IF(ISERROR(MATCH(A81,$E:$E,0)),"Sold Out Product","Existing Product") 该公式工作，但是，当我把公式下拉到空白单元格的公式显示“售罄产品”，我希望公式不显示任何空白单元格公式和结果的修改屏幕截图

VBA – IF语句与AND不工作: 任何帮助将是伟大的。我似乎不能用AND来得到ELSEIF。我正在使用一个用户的forms。当他们按下button时，用户窗体显示checkbox。当两个checkbox都被选中时，我遇到了麻烦。单独他们工作正常，我不知道我做错了什么。任何帮助将不胜感激 If Intact.Value = True Then storDate = Sheets("escalation").Cells(Selection.Row, 2) storProject = Sheets("escalation").Cells(Selection.Row, 3) StorBill = Sheets("escalation").Cells(Selection.Row, 4) storIntact = "Intact" With objWord.ActiveDocument .formfields("text2").Result = storDate .formfields("Text3").Result = storProject .formfields("Text4").Result = StorBill .formfields("Text9").Result = storIntact End With ElseIf Compugen.Value = True Then storDate = Sheets("escalation").Cells(Selection.Row, 2) storProject = […]

避免添加重复的工作表到Excel工作簿: 我在SheetNames里面有一个集合的单词，我试图为SheetNames每个单词添加新的Worksheet ，请find下面的代码。在添加Worksheet之前，我尝试使用sheetExists functionvalidation工作簿中是否已经存在工作sheetExists function ，下面提供了代码。 For Each SheetName In SheetNames If sheetExists(SheetName , newWB) = False Then newWB.Activate Set FilPage = Worksheets.Add FilPage.Activate SheetName = Replace(Replace(Replace(Replace(Replace(SheetName, ".", " "), "[", " "), "]", " "), "/", "_"), "\", " ") If Len(SheetName) <= 30 Then FilPage.Name = SheetName Else SheetName = Left(SheetName, 23) & […]