Question

我有一个计算长度的Excel工作表。我必须迭代一个起始值，直到其他两个值可比较为止。

两个问题： 1.没有值写入Cell（9，6） 2. If函数应返回false，但始终跳至“ Exit For”

我语法失败。我尝试了各种发现的东西，但没有发现错误。

对于＃1，我尝试使用Range（）。Value调用单元格对于＃2，我尝试了If（Abs（））<= ...

Sub Berechnung()

Dim tolerance As Integer
Dim i As Integer

tolerance = 0.2

For i = 500 To 1 Step -0.5
    Sheets("Tabelle1").Cells(9, 6).Value2 = i

    If (Worksheets("Tabelle1").Cells(6, 31).Value2 - Worksheets("Tabelle1").Cells(6, 33).Value2) <= tolerance Then
        Worksheets("Tabelle1").Cells(6, 9).Interior.ColorIndex = 4
        Exit For
    Else:
    End If

Next i

Debug.Print i
MsgBox "Wert wurde berechnet"
End Sub

Answer 1

问题

您应该能够直接设置单元格值，而无需引用SQLWARNING。
如果两个单元格的差为负，则条件将返回true。这样的事情可能会起作用。
变量CREATE DEFINER=`root`@`localhost` PROCEDURE `usp_SavePerson`( Username VARCHAR(100)) BEGIN DECLARE EXIT HANDLER FOR SQLEXCEPTION BEGIN ROLLBACK; INSERT INTO Log VALUES (RETURNED_SQLSTATE,MESSAGE_TEXT); RESIGNAL; END; DECLARE EXIT HANDLER FOR SQLWARNING BEGIN ROLLBACK; INSERT INTO Log VALUES (RETURNED_SQLSTATE,MESSAGE_TEXT); RESIGNAL; END; START TRANSACTION; INSERT INTO user (Username) VALUES (Username); COMMIT; END和Value2应该是双打。

答案

如何将“ For”循环中的值写入单元格

1 个答案: