Question

我有一个“ If / Then”代码段，如果条件为真，它将更改单元格中的整数。我想做的是在该单元格旁边插入文本，以表明该单元已被操纵。

例如：

Public Sub testforfifty()
    Dim rcell As Range, rng As Range
    Set rng = Application.ActiveSheet.Range("D1:D" & Application.ActiveSheet.UsedRange.Rows.Count)
    For Each rcell In rng.Cells
        If rcell.Value > 50 And rcell.Value < 100 Then rcell.Value = rcell.Value - 50
        If rcell.Value >= 100 Then rcell.Value = "NoSplit"
    Next rcell
End Sub

如果该单元格为>=100，则该单元格的值仅更改为"No Split"，但是，如果数字为55，则该单元格将变为数字{{1 }}。我希望它旁边的单元格现在说5，以便用户可以区分该单元格已被宏操纵。

有人可以指出我正确的方向吗？谢谢！

Answer 1

从以下位置拆分出if语句：

If rcell.Value > 50 And rcell.Value < 100 Then rcell.Value = rcell.Value - 50

收件人：

If rcell.Value > 50 And rcell.Value < 100 Then 
    rcell.Value = rcell.Value - 50
    rcell.offset(0,1).value = "Manipulated"
End if

在所选单元格旁边插入文本-Excel VBA

1 个答案: