如何在基于另一个单元格的单元格中写入

Question

我正在尝试检查一张工作表中的单元格是否具有特定值，如果是这种情况，请在另一张工作表的另一个单元格中写入文本字符串。

之后，我想在第一张工作表的某个范围内调用相同的子并将其应用于另一张工作表中的相应范围。 这些范围没有相同的位置，只有相同的大小。

下面是一个例子：

第一个二进制矩阵在第一张表中。 （例如，该位置可以在 A1:B2 中）。
第二个矩阵是基于第一个矩阵制作的（例如，位置可以在 A1:B2 中）。

到目前为止，这是我的想法（注意，它还没有工作）

Sub Convert(SomeCell, AnotherCell)
    If Worksheets("Sheet1").Range(SomeCell).Value > 0 Then
        Worksheets("Sheet2").Range(AnotherCell).Value = "String"
    End If
End Sub

编辑

我正在为这个 IF 语句公式搜索相应的 VBA 代码

= IF(Sheet1!A1>0;"String";"")

然后可以在某个范围内拖动。

Answer 1

这可能会给你一个想法：

Sub Convert(Source As Range, Target As Range, Replace As Variant)
    'Takes a binary matrix in source range and fills in target range
    'with value Replace taking the place of 1
    'assumes equal sized ranges
    
    Dim i As Long, j As Long
    For i = 1 To Source.Rows.Count
        For j = 1 To Source.Columns.Count
            If Source.Cells(i, j).Value = 1 Then Target.Cells(i, j).Value = Replace
        Next j
    Next i
End Sub

调用如下：

Sub test()
    Convert Sheets(1).Range("A1:B2"), Sheets(2).Range("A1:B2"), "String"
End Sub

可能有更好的方法来做到这一点，但这将为您提供一种在一张纸中表示二进制矩阵的方法，而在另一张纸中用字符串矩阵表示（如果这是您想要做的）。 请注意，如果源和目标范围重叠，可能会出现意外结果。