Question

我一直在寻找一种解决方案，以将Excel工作表单元格的内容用作代码的输入。假设我有这段代码可以过滤某些值（如果它们不同于此代码中列出的值）：

Sub test()
   Dim r As Range 

   SheetName = "DPM"
   With Sheets(SheetName)
      For Each r In .Range("F2", .Range("F" & Rows.Count).End(xlUp))
         If r <> "A" And r <> "B" And r <> "C" Then r.Offset(, 1).ClearContents   > > > 
      Next r
   End With
   Application.ScreenUpdating = True
End Sub

A，B和C始终在变化，因此我必须不断用新值更新代码。我考虑过要有一个单独的Excel工作表，供用户放置其值例： A栏 X ÿ ž 因此我的代码将首先使用这些新值更新自身，然后执行。注意：我不想使用文本框来要求用户输入值，我只想拥有一个像“地图”这样的表，代码将从中进行更新。

我希望这很清楚，感谢您的宝贵时间和帮助！

Answer 1

我想你可能是个卑鄙的人

Dim inputSht As Worksheet
Set inputSht = ThisWorkbook.Worksheets("input")
If r.Value <> inputSht.Range("A1").Value And r.Value <> inputSht.Range("B1").Value And r.Value <> inputSht.Range("C1").Value

如何使用单元格的内容作为我的代码的输入？

1 个答案: