vba - Excel-VBA : Inputting range in userform call

Question

我有越来越多的数据文件，并且在某个列中没有填写。我有填充数据的代码，虽然我想制作一个按钮来调用用户表单供用户填写范围，以便代码在用户提供的范围内工作(因为数据是由用户自己调整的)。填充空白单元格的代码是；

Sub fillblank()
Dim range As Range
Dim cell As Range
Dim value As String
Set range = Sheets("Sheet1").Range("E4:E15")
For Each cell In range
 If Trim(cell.Value) <> "" Then
   value = cell.Value
 Else
   cell.Value = value
 End if
Next cell
End Sub

我希望用户在用户表单中输入范围(E4:E15)。如果仅依赖范围，如何执行用户表单？感谢stackoverflow.com。

Answer 1

在用户表单中放置一个文本框并将其命名为txtRng .然后声明一个名为 MyRng 的变量如String .将该文本框值分配给 MyRng变量并将此变量用作范围的参数，例如...

Set range = Sheets("Sheet1").Range(MyRng)

所以，完整的代码如下

Sub fillblank()
Dim range As range
Dim cell As range
Dim value As String
Dim MyRng As String

    MyRng = UserForm1.txtRng 'Use your form name here
    Set range = Sheets("Sheet1").range(MyRng)

    For Each cell In range
     If Trim(cell.value) <> "" Then
       value = cell.value
     Else
       cell.value = value
     End If
    Next cell

End Sub

我也建议你不要使用 range , value作为变量，因为其中一些保留关键字。它可能会导致输出异常。