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

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 ，则单元格变为数字5 .我希望它旁边的单元格显示 Manipulated现在，用户可以区分该单元格已被宏操作。

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

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