Tag: if statement

Excel VBA：如何写入IF statemnt的整个使用的范围？

我的代码有些麻烦。 我试图使用一个IF语句的整个列直到IF语句内的行结束。 当我尝试运行我的代码时，它会显示“Error 1004：'Application defined or object defined error。” 这是我的代码到目前为止： Sub AddWorksheet5() Sheets.Add.Name = "Info1" End Sub Sub MoveColumns3() Sheets("SAP data Weekly").UsedRange.Copy Destination:=Sheets("Info1").UsedRange End Sub Sub Filter2() Worksheets("Info1").Range("A1").AutoFilter _ Field:=8, _ Criteria1:=">=1/1/2018", _ Criteria2:="<=12/31/2018", _ VisibleDropDown:=False End Sub Sub Addcolumn() Range("L1").Formula = "=IF(OR(LEFT($G1,2)=""55"",LEFT($G1,2)=""45"",$G1=""FORECAST""),$G1,""No"")" 'It works until this line: Range("L1", "L" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown End Sub […]

带有IF语句的Excel单元格的总和

假设我有这个条件： | Col A | Col B 10 |Jan 1 2017 | €15.0 11 |Jan 2 2017 | €17.0 12 |Jan 3 2017 | €11.0 …| … | … 186|June 26 2017 | € 23.55 在单元格B1中，我想要从某个date到另一个date的钱的总和所以，假设我想知道4月份的总和。 我所知道的IF语句就像这样IF（$ A：SA <=; true; false），但是这会给我0，因为它会考虑到A1而不是所有列A.我不知道我是否清楚，但如果有人知道了，可以给我一些帮助吗？ 谢谢

在不同的工作表中查找值

我正在尝试编写一些代码，例如，在工作表2中select单元格A2中的值，将其与工作表1中的范围A：A进行比较，如果find相同的值，则会从该工具中复制一些值在Sheet 1中将它们粘贴到Sheet 2中，然后在Sheet 2中查看单元格A3并重复该过程。 然后在Sheet 2中的单元格A4 我从这里失去了。 有任何想法吗？ Sub Last_Week() Dim Sheet2 As Worksheet Dim Sheet1 As Worksheet Set Sheet2 = ActiveSheet Set Sheet1 = ActiveSheet.Previous Sheet1.Activate Dim i As Integer For i = 1 To 1500 Columns("A:A").Select Set cell = Selection.Find(What:=(ACTIVATE WS AND SELECT THE VALUE IN COLUMN A AND ROW I) If cell […]

对象'Range'的方法'FormulaR1C1'失败

我在Excel中运行macros时出现问题（在Mac上为365版本）。 它在这部分失败： Dim LastRow2 As Long LastRow2 = Range("A65000").End(xlUp).Row Range("AV2").Select ActiveCell.FormulaR1C1 = _ "=IF(OR(AND(RC[-41]<>""ZZ"",RC[-27]=""I"",RC[-26]=""n"",RC[-40]<1),AND(RC[-41]<>""ZZ"",RC[-27]=""I"",RC[-26]=""n"",RC[-39]<1),AND(RC[-41]<>""ZZ"",RC[-27]=""I"",RC[-26]=""n"",RC[-38]<1),AND(RC[-41]<>""ZZ"",RC[-27]=""I"",RC[-26]=""n"",RC[-34]<1),AND(RC[-41]<>""ZZ"",RC[-27]=""I"",RC[-26]=""n"",RC[-33]<1),AND(RC[-41]<>""ZZ"",RC[-27]=""I"",RC[-26]=""n"",RC[-32]<1),AND(RC[" & _ "ZZ"",RC[-27]=""I"",RC[-26]=""n"",RC[-31]<1),AND(RC[-41]<>""ZZ"",RC[-27]=""I"",RC[-26]=""n"",RC[-30]<1),AND(RC[-41]<>""ZZ"",RC[-27]=""I"",RC[-26]=""n"",RC[-29]<1),AND(RC[-41]<>""ZZ"",RC[-27]=""I"",RC[-26]=""n"",RC[-28]<1)),""Error"",""Good"")" Selection.AutoFill Destination:=Range("AV2:AV" & LastRow2) 我无法弄清楚为什么…我没有看到有什么问题。 任何帮助，将不胜感激。

Excel中出现唯一值的次数之和

我有一个Excel表格，列出了一些国家，城市和首选的交通工具，例如下面的表格： 我想build立另外一张桌子，在每个国家，我想表示重复的运输方式的数量，如下所示： 例如，在阿尔及利亚，只有“汽车”出现不止一次，所以价值1会出现。 在安哥拉也是如此。在贝宁，“飞机”和“自行车”都出现了两次，所以二号出现。 我已经尝试了SUM，COUNTIFS和IFS的混合，但还没有成功地做我想做的事情。 我怎样才能做到这一点？

Excel IF critreria

我有一个要求，我试图确定我们是否打开我们公司的门票。 本质上，我们必须在下一个工作日内对案件作出回应，这里的例外情况是，如果在星期五18:00之后打开票，我们要等到星期二的结束18:00 所以我最初的想法是，如果一张票：1）票未打开，星期五，星期六，星期日，然后如果响应时间less于24，那么我们MET 2）星期五18:00之后打开一张票，那么直到EOD星期二18:00 – 星期五18:00到星期天23:59什么时间都没关系。 3）如果门票周五00：00-117：59开放，那么我们一直到周一18:00 问题是我不知道如何计算时间，在周五17:00开完一个案子，我们有72个小时的回应。 但是整个周末的任何时候都会有个案被打开，我如何从72中减去这个数字来决定我们是否会见。 这是我的表的一个例子 Month Year Day Time Hours Met/Miss January 2017 Wed 15:20 19.77 January 2017 Tue 9:02 2.04 January 2017 Tue 11:35 0 January 2017 Fri 10:37 0.19 January 2017 Fri 17:48 89.06 January 2017 Mon 0:33 0.03 任何build议，我也打算把这个包装到VBA中，这样macros就可以完成所有这些工作。 应该知道，我只是一个在Excel和VBA中的初学者 – 中级 – 对不起

Vba Goto将无法正常工作

大家好我一直玩“如果”“那么”“和”和“转到” 我想我得到了除了“转到”之外的所有东西，我不知道是否因为我使用了“如果”错误，或者是因为我使用了“转到”错误。 有人可以看看这个代码告诉我我做错了什么。 因为我使用“If”语句很多，所以如果我使用最好和最正确的方法将会很好。 是的，我知道在下面的代码中，我使用activesheet，我应该做的代码，而不使用activesheet，因为在这里stats很多人，但我不知道如何使用 Columns(1).Insert Shift:=xlRight 而没有激活表 所以这里是代码我有单元格A1的价值“新”所以转到应该被激活，但它不是。 Sub con() Set tsheet = ThisWorkbook.Sheets("Players") Sheets("Players").Activate ActiveSheet.Columns(1).Insert Shift:=xlRight Dim lngLastRow As Long If tsheet.Range("A1") = "new" Then GoTo AlR Else lngLastRow = Cells(Rows.Count, "B").End(xlUp).Row Range("A2").Formula = "=B2 & "" "" & C2 & "" "" & G2 & "" "" & D2" Range("A2").Copy Range("A2:A" & […]

Sum括号内部和外部的数字，并根据VBA或Excel中的值创build箭头

我有两个问题，我不介意使用“简单”的Excel或VBA。 我基本上有两列如下 Col1 Col2 AB 20(7) 4(4) C 4(3) 9(3) 我想要A行将括号内的数字和括号内的数字相加。 结果如下。 Col1 Col2 A 24(10) 13(7) B 20(7) 4(4) C 4(3) 9(3) 所以这是问题的第一部分，我不介意这是在Excel还是VBA中完成的。 问题的第二部分是根据Col1是Col2增加还是减less来创build箭头。 例如，当数量增加时，我想要一个箭头指向Col1旁边打印的Col1 Row A。 然后我想要另一个箭头指向B行，箭头指向C指向下降。 再次，Excel或VBA是好的，但我会认为这将更容易在VBA中实现，因为我不想每次都手动执行此操作，而是单击一个命令button以显示一个箭头。 在此先感谢您的帮助。

第二个IF语句中的错误在哪里？

我有VBA代码检查input的date与当前date，并填写适当的颜色单元格，并检查是否colomn “F”不是空的，它会着色的D，E，F列。 问题是，直到现在我有21条logging，但系统只是彩色19条logging，所以2列在F列中不是空的。 码： Private Sub CommandButton1_Click() Dim i As Long For i = Range("C5000").End(xlUp).Row To 2 Step -1 'Range upto 5000, chnge this as per your requirment' If IsEmpty(Cells(i, 3)) Then Cells(i, 3).Interior.Color = xlNone ElseIf (VBA.CDate(Cells(i, 3)) – VBA.Date()) < 0 Then Cells(i, 3).Interior.Color = vbGreen ElseIf (VBA.CDate(Cells(i, 3)) – VBA.Date()) = 0 […]

Excel的VBA – 如果更深入的select案例不符合标准，避免再次input代码

我想知道是否有一个解决方法，不要重新input代码，如果更深入的select案件不符合条件。 我必须检查月份是否是下面所列的月份之一，如果是我必须检查当月的date是否符合标准。 如果当天不匹配任何情况，则必须运行的代码是在上述ELSE情况下的Select语句中设置的代码。 我知道解决这个问题的唯一方法是通过使用IF语句而不是嵌套的select case，并使用GO TO LABEL将我带回CASE ELSE语句，但看起来非常不经典。 有没有办法不重新input相同的代码在其他情况下，如果更深的select案例不符合条件？ Select Case Month(Range("b" & Start)) Case 1 Case 4 Case 5 Case 6 Case 8 GiornoMese = listaattiva(j).Text & "/" & Month(Range("b" & Start)) & "/" & Year(Range("b" & Start)) Select Case Day(GiornoMese) Case 15 **HERE IF THE DAY IS NOT THE 15th CODE SHOULD JUMP […]