小编Jia*_*ang的帖子

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim b As Integer
    b = 0

    Dim cell As Range
    Dim rgn As Range

    Set rgn = Range("f2:f200")

    For Each cell In rgn
        If IsEmpty(cell) = False Then
            b = b + 1
        End If
    Next

    Range("d2").Value = b
End Sub

嗨,我在尝试运行以下Excel VBA代码时遇到了问题.将弹出一个消息框,说有一个

"堆栈空间"

问题到行Set rgn = range("f2:f200"),然后另一个消息框会弹出并说出来

"对象'范围'的方法'值'失败"

我不知道出了什么问题......非常感谢你的帮助.

有什么方法可以使用VBA更改系统默认打印机？以及更改其设置？还是VBA TT要求太多