Tag: if statement

在单元格Y中显示值大于，小于单元格X: 这是场景。我的学校有一个NHS的候选人电子表格，由几位教师，社区成员等给出一个分数。我平均分数，然后基于这个数字，他们得到一个评分/价值从一个标题。我正在寻找一个能够读取单元格X（他们的平均分数）的值并在单元格Y（他们的评分）中显示特定值的公式。以下是标准：值<2.0，显示0 值> 2.0值<3.0，显示1 值> 3.0，值<3.5，显示2 值> 3.5，值<3.75，显示3 值> 3.75，显示4 我试图查找这个和我发现最接近的是一个公式，我修改看起来像这样： =IF(I10="AVERAGE_CHARACTER",IF(I10<2,0,IF(AND(I10>2,I11<3),1,IF(AND(I10>3,I11<3.5),2,IF(AND(I10>3.5,I11<3,75),3,IF(I11>3.75,4,0)))))) 它所说的在单元格中是FALSE。不知道我是否使用了错误的公式或在公式中有拼写错误。思考？如果有一个替代或更简单的方法，我愿意提出build议。谢谢！来源： http ： //www.excelforum.com/excel-formulas-and-functions/575953-greater-than-x-but-less-than-y.html

如何从第3行开始select整个列 – vba: 嘿这里是我的代码，它正在工作，而不是select整个列，我想select第3行后的所有列buter，例如我想select所有的列b，但在B3后，我希望是有道理的。有任何想法吗？ Sub HorizontalLoop() Dim lCol As Long Sheets("output").Select For lCol = 1 To 100 Dim inputrange As String If Not IsEmpty(Cells(lCol).Value) Then inputrange = Cells(1, lCol).Value Cells(1, lCol).EntireColumn.Select Selection.Copy Sheets("input").Select ActiveSheet.range(inputrange).Select ActiveSheet.Paste Sheets("output").Select End If Next lCol End Sub 任何帮助将非常感激:)谢谢H

Excel：Count如果是Quandry: 感谢您的帮助提前！所以我的问题是：我有一张表格，用于logging我的项目中出现的风险。他们从关键评分到低评分，可以是“开放”或“closures”。我想要一个公式，将只计算开放的行动是至关重要的。到目前为止，我已经得到了= COUNTIF（风险！E：E，“Critical”），它正确地计算了关键风险的数量，但显然没有考虑到它们是开放还是封闭。我在开始时尝试使用IF IF语句，但发现= IF（风险！H：H =“打开”，COUNTIF（风险！E：E，“Critical”））并没有真正地返回我所需要的。我肯定记得之前这个工作，但我想也许我用VBA？过了一段时间，因为我用Excel！任何帮助非常感谢！埃德

variables包含相同的值（VBA）: 为了生成邮件列表，我已经认识到在我的variables“To”中包含相同的值test@test.com 。邮件列表是在Visual Basic for Applications（VBA）中定义的。那么，我正在考虑如何定义一个语句来检查，当variables具有相同的值，然后修剪所有重复。这意味着我需要variables在邮件列表中出现一次。例如： Dim objMail As Object Dim objOutlook As Object Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) With objMail .To = test@test.com; name1@test.com; name2@test.com; name3@test.com; test@test.com; name4@test.com … End With 有没有人有一个想法？

如果范围内的值是真或假，写“好”或“坏”: 我有一个列（T）的值的范围（T5到T35），所有的值通常是“真”，但是当一个或多个值表示错误，我想excel写单元格T36“坏”。对于“真”值也是一样，如果都是“真”，那么在单元格T36中写“好”。感谢您的帮助

IF语句Excel VBA: strTemp = ActiveSheet.PivotTables("BreakCon").PivotFields("Service Type").PivotItems("International Data") If Err = 0 Then FieldExists = True Else FieldExists = False If FieldExists = True Then With ActiveSheet.PivotTables("BreakCon").PivotFields("Service Type") .PivotItems("International Data").Visible = False .PivotItems("Non Contracted").Visible = False ElseIf FieldExists = False Then With ActiveSheet.PivotTables("BreakCon").PivotFields("Service Type") .PivotItems("Non Contracted").Visible = False Else MsgBox ("Error") End If 有时，通过代码传递的数据有“国际数据”，但偶尔也不会，所以我添加了这个If语句来检查“国际数据”是否在数据透视表中，如果不是，那么转到下一个if语句。任何人都可以看到这个代码的问题？我已经尝试了所有我知道的方式，但却遇到了砖墙！干杯!

列表中最大值为true: 我有一张与此相似的工作表 ABC 2016 5 TRUE 2015 7 FALSE 2016 8 TRUE 2016 3 TRUE 2015 5 FALSE 我需要显示B和A的最高值，其中C为TRUE。所以我想我会需要2个公式来显示这个。我知道我应该使用MAX和IF，但是我不知道如何把它放在一起。所以在这个例子中，我想要的结果是： 2016 8

如果语句VBA: 我在Excel VBA中使用If和ElseIf语句为数据库search写脚本。 search是通过一个UserForm进行的，该UserForm有两个字段，标记为Country和Category并在脚本中定义如下： Dim country As String Dim Category As String country = Sheets("Results").Range("D5").Value Category = Sheets("Results").Range("D6").Value 信息在search国家方面被search和呈现，因此search运行所需的最小值是用户提供的国家在数据库中的国家。根据用户input的标准，search将在名为“ Database的工作表中运行一个数据表，并将结果粘贴到另一个名为“ Results表中。根据search条件，脚本将运行If语句指定的几个选项。 scheme1 – 用户提供了一个国家和一个类别，并且： country存在于数据库中，但是; 该Category不存在于特定的国家。在这种情况下， MsgBox会popup，说用户提供的国家和类别的特定组合不存在于数据库中。该消息将询问用户是否希望针对所提供的国家的所有条目进行search，在这种情况下。我已经写了相应的代码如下： finalrow = Sheets("Database").Range("A200000").End(xlUp).Row For i = 2 To finalrow If Sheets("Database").Cells(i, 1) = country And _ (Category <> "" Or Sheets("Database").Cells(i, 3) <> Category) […]

Excel如果语句缩短？: 我有VBA代码写入颜色的单元格基于什么值在不同的单元格。是否有可能缩短以下？我不熟悉VBA的脚本，希望如果这个可以缩短，那么我可以把它应用到一个更大的文件。 Sub RoutingCheck() Dim I As Long, r1 As Range, r2 As Range For I = 2 To 456 Set r1 = Range("A" & I) Set r2 = Range("B" & I) If r1.Value = 94 And r2.Value = " " Then r1.Interior.Color = vbRed If r1.Value = 94 And r2.Value = "" Then […]

VBA *对于每个单元循环* IF（第1列中的值）= x AND IF（第2列中的等效值）> 7 THEN: 我有一个与VBA的问题，我似乎无法find一个在线答案。我几个星期前才开始自学，所以如果这是一个相当简单的答案，我很抱歉… 我正在试图写一个macros，其中整个行是无色的（这是一个单词？）基于列E中的值和列AN（同一行）中的等效值。我到目前为止是： For Each cell In Sheets(5).Range("E9:E" & LastRow) If (cell.Value = "BA" Or cell.Value = "NH" Or cell.Value = "AD") Then If ActiveCell.Offset(0, 35) > 7 Then cell.EntireRow.Interior.color = xlNone End If Next cell 唯一的问题是，当我尝试运行它给出了“编译错误：下一个没有For”错误消息。 ?? 我错过了什么…有一个“为…” 如果我删除下面的行然后代码运行， If ActiveCell.Offset(0, 35) > 7 Then 但是这不是我所要求的输出，因为列A中的所有BA，NH和AD值的整个行都是无色的，无论它们是> 7还是<7。 IF-THEN-IF语句引起的错误是什么？