Tag: 是空的

当单元格不是空白时打印工作表: 好吧，我正在用这个结局。我已经搜遍了正确的代码，使这项工作，但没有任何工作到目前为止。我开始怀疑我的语法在另一部分覆盖我的IF语句的代码中出了问题。所有的build议都欢迎。我想要什么：我有一个程序，可以从一个订单打印不同公司的多个采购订单。有时我们不会从一家公司订购任何东西，所以我不希望代码允许打印订单。我认为通过检查某个单元是否为空可以停止打印。在下面的代码中，“D14”通常是要订购的数量，所以它是一个数值。但到目前为止没有任何工作。该代码仍然允许所有可能的订单表单被打印，即使没有任何东西要订购，单元格“D14”是空的。到目前为止我尝试过的东西： If Not IsEmpty(PO.Range("D14")) Then PO.PrintOut End If 和 If PO.Range("D14") = IsEmpty(False) Then PO.PrintOut End If End With 和 If PO.Range("D14") <> "" Then PO.PrintOut End If End With 下面是整个代码块，以便您可以更好地了解我正在尝试完成的任务。 Private Sub cmbPrintEchoFrance_Click() Dim OrderForm As Worksheet Dim PO As Worksheet Dim SoapList As […]

第二个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中的单元格是否为空或空白: 我有一个关于在Excel VBA中检查单元格是否为空的问题。我做了0，但不知道如何做空或空。码： ActiveCell.FormulaR1C1 = "=1000/(IF( RC[-2] = 0,100000000,RC[-2]))" 我想要什么，如果RC [-2] = 0或空，那么RC [-2] = 100000000，如果不是，那么RC [-2] 如： "=1000/(IF( OR(RC[-2] = 0, RC[-2]= Empty),100000000,RC[-2]))"但这个代码不这样做

在excel vba中testing空单元格: 我在Excel VBA中创build了一个公式 myformula(cell1, cell2, range) 范围看起来像这样的前7列： V1 D2 V2 D3 V3 D4 V4 RESULT 0.5 2 0.7 在第一列中将始终有一个值，它将是0和1之间的一个值。所有后面的列可能是空的，但是如果在D2中有一个值，那么在V2中也将有一个值等等。我的公式进入RESULT列，包括总结V列中的数字，但前提是前面的D列已满。即在这种情况下，它将计算V1 + V2，但忽略V3和V4。我一直在使用VB工作 if IsEmpty(D2) select适当的值，这在大多数情况下工作正常。但是，我也希望能够将这个公式应用于V和D值由公式计算的情况。公式是有条件的，输出一个数字，或者“”（类似于IF(A2="","",3) ）。所以单元格范围看起来相同，但不再被VB视为真空。我正在寻找解决这个问题的方法。我意识到一个公式的结果永远不会是真正的空白，但是有没有一种方法可以让单元格的内容“空白”，让VB理解它是空的？或者是有一个不同的条件，我可以用来拿起空单元格 – 但我必须能够区分零值和空单元格。 ETA：我正在努力实施Stepan1010的解决scheme。这就是我正在做的 – 这可能是错误的： Public Function YEARAV(sdate As Date, edate As Date, yearrange As Range) As Variant Dim v1 As […]

VBA – find空单元格，设置为“EMPTY”: 代码从工作表中find值并将它们复制到一张纸上。如果一列完全是空的，它将打印“没有项目”。我需要这样做，一旦它完成复制项目，它find列“B” （StartSht，“B”）中的任何空白单元格和从“C”最后占用的单元格的范围，填充它string“EMPTY” 任何想法我会怎么做呢？它确实（1），我需要它做（2）（1）（2） Set dict = GetValues(hc3.Offset(1, 0)) If dict.count > 0 Then 'add the values to the master list, column 2 Set d = StartSht.Cells(Rows.count, hc1.Column).End(xlUp).Offset(1, 0) d.Resize(dict.count, 1).Value = Application.Transpose(dict.items) Else 'if no items are under the HOLDER header StartSht.Range(StartSht.Cells(i, 2), StartSht.Cells(GetLastRowInColumn(StartSht, "C"), 1)) = " […]

遍历范围并find空单元格: 我有以下代码的问题。我希望它遍历一个范围（AK2直到数据结束），然后任何时候它find一个空单元格，它将其值更改为应收账款。它不这样做，我也没有得到任何错误通知。我的猜测是，我正在做一些错误的设置variables： Option Explicit Private Sub Leere() Dim rng As range Dim rcell As range Dim WS As Worksheet Set WS = Worksheets("Sheet2") Set rng = WS.range("AK2", range("AK2").End(xlDown)) For Each rcell In rng If rcell.Value = " " Then rcell.Value = "Accounts Receivable" End If Next End Sub 有任何想法吗？

Excel公式，如果它旁边的单元格已经为空，则将单元格转换为空单元格: 我需要一个Excel中的公式，如果列C中的相应单元格（即在同一行）已经是空的，将列D中的单元格变为空。详细来说，这是我的Excel表中的示例： CD 1 0,5 500 2 0.3 400 3 600 4 700 5 3.1 400 6 350 7 1.1 400 我想把它变成这样： CD 1 0,5 500 2 0.3 400 3 4 5 3.1 400 6 7 1.1 400 所有的值都是硬编码的。我想要什么？

如果不是Isempty返回“”值，但继续下一个语句: 此代码检查列G，如果它的值是“Test”，则在列E处获取相应的值并将其粘贴到下一行。 Sub FindOpcode_Placepart() Dim sourceCol As Integer, rowCount As Integer, currentRow As Integer Dim destCol_part As Integer, destRow As Integer Dim currentRowValue As String Dim destRowValue As String sourceCol_opcde = 7 ' find last row in column E rowCount = Cells(Rows.Count, sourceCol_opcde).End(xlUp).Row destCol_part = 5 destRow = Cells(Rows.Count, sourceCol_opcde).End(xlUp).Row 'for every row, find the Opcode […]

查找行号，检查该行中的特定列是否为空: 我有一系列作为我们各种机器的小时数据日志的工作簿。操作员每小时input一次数据，然后单击一个checkbox，将数据传输到单独的工作簿。有时，操作员不pipe出于什么原因都不会点击该框，所以我正在寻找一种方法来检查前一个框是否已被检查; 如果没有，则有一个特定的细胞被填充。如果有，工作簿会自动选中该框并提交该行的数据。所以我从这开始： Private Sub CheckBox03_Click() If CheckBox03.Value = True Then If CheckBox02.Value = False Then If MsgBox("The previous hour has not yet been completed. Continue?", vbYesNo, "User Input") = vbNo Then CheckBox03.Value = False Exit Sub Else End If Else End If Call errorCheck(sht1.CheckBox03, sht1.ComboBox03) End If 所以我已经检查了上一个checkbox，看它是否被点击，并且有时机器没有运行，所以没有数据需要input。棘手的部分是检查该行中的特定单元格是否被填充。如果需要添加数据，用户可以为每个小时事务添加额外的行，所以我没有设置行来查找。我需要确定checkbox所在的行，然后查看是否填充了“J”列。 […]

Access-VBA检查打开的Excel工作簿中的单元格是否为空，然后复制该行: 这是我第一次在这里问一个问题。我遇到了一个问题，我需要将某个行从一个工作簿复制到另一个工作簿。复制部分，我相信我可能已经解决了，但我的问题是非常简单的事情。要确定要复制哪些行，我必须查看第一个工作簿中的4个date，一个与他们检查我遇到麻烦是检查单元格是否为空。由于每次运行我的代码时都会在检查时出现不匹配的错误13。 Dim XX As Excel.Application —-secondary workbook Dim ws1 As Object Dim ws As Object Set XX = New Excel.Application XX.DisplayAlerts = False Set ws1 = XX.Workbooks.Add ws1.Activate Set ws = ws1.ActiveSheet Set xl = New Excel.Application —-primary workbook xl.DisplayAlerts = False Set wb = xl.Workbooks.Open(FilePath) For i = 2 To […]