Question

我编写了一个代码，可以让我从选定的其他单元格中修改特定单元格的信息，但是我需要能够选择多个单元格。

我尝试将以下代码乘以h4，h5，h6等，而不是h3，但无法正常工作。相反，它完全禁用了代码，即使是已经运行的部分，我也必须重新启动excel。

With Selection


If Selection.Value = Range("h3") Then
   Range("bk3").Value = True
   Range("l3").Value = Now
   If MsgBox("Do you want to sign?", vbYesNo, "Signature Confirmation") = vbYes Then  '<---- Confirmation Pop-Up
    VarNUMCB = InputBox("Type Collab. Number") '<---- Collab. Number Pop-Up.
    Range("j3").Value = Range("j3").Value & " | " & VarNUMCB
   Else
   End If
Else
   Range("bk3").Value = False

End If

End with

注意：我不希望从任何选定的单元格对l3，j3和bk3进行更改。每个单元格都应链接到其自己的行（水平），并且从H列中选择多个单元格应正确填充其余链接信息。

Answer 1

这是我能够克服的答案，它可能不是最有效的，但它确实起作用。（我必须将其应用于每行，如果有数十行/几百行，这会非常痛苦

If cel.Value = Range("H3") 0 Then                                                                                                                                                                                                                                                                                                                                                                                                                                                         'What's up? nice, you found me. yeah it was the intern. so many "if" statements for no reason? i like the extra work :D
    If Range("l3").Value = "" Then
       Range("bk3").Value = True
       Range("l3").Value = Now
       If MsgBox("Do you want to sign?", vbYesNo, "Signature Confirmation") = vbYes Then  '<---- Confirmation Pop-Up
          VarNUMCB = InputBox("Place Collab. Number") '<---- Collab. Numb.Pop-Up
       Else
       End If

          If Range("h3").Value <= 0 Then
             Range("j3").Value = Range("j3").Value & " | " & VarNUMCB
          Else
          End If

    Else
    End If

  Else
  End If

如何将此代码应用于多个单元格？

1 个答案: