Excel应用程序输入框的VBA代码

Question

我正在使用下面的VBA代码来匹配和删除Excel中的某些数据，我想使用应用程序输入框输入所需的列名，并用此输入数据替换代码中的“ B”

Sub ahmed_code()
Dim lr As Long, r As Long, x As Long

Application.ScreenUpdating = False
lr = Range("B" & Rows.Count).End(xlUp).Row
For r = lr To 2 Step -1
x = WorksheetFunction.CountIf(Range("Sheet2!$A:$A"), Cells(r, "B"))
If x = 0 Then
  Cells(r, "B").Resize(, 500).Delete Shift:=xlUp
End If
Next r
Application.ScreenUpdating = True

MsgBox "DONE YA M3alem ... Ahmed.Sousi ^_^ "
End Sub

Answer 1

使用如下代码：

Sub PickColumn()
   Dim r As Range, MyCol As String
   Set r = Application.InputBox(Prompt:="click a cell in the column", Type:=8)
   MyCol = Split(r.Address, "$")(1)
   MsgBox MyCol
End Sub

并在您的代码MyCol “ B”替换为MyCol