0
    Private Sub Workbook_SheetSelectionChange _
     (ByVal Sh As Object, ByVal Target As Excel.Range)
     x = Sh.UsedRange.Rows.Count
End Sub

我有一个像这样的私人子程序,我试图通过

 Workbook_SheetSelectionChange _

我得到一个编译错误,我试图重命名子,但它不允许我删除下划线,因为子中的第二行。我想知道为什么会这样,我怎么称呼这个子?

4

2 回答 2

2

_一个行继续符

 Private Sub Workbook_SheetSelectionChange (ByVal Sh As Object, ByVal Target As Excel.Range)

是相同的

Private Sub Workbook_SheetSelectionChange _
 (ByVal Sh As Object, ByVal Target As Excel.Range)

这与(极端)相同

Private _
Sub _
Workbook_SheetSelectionChange _
(ByVal _
Sh _
As _
Object, _
ByVal _
Target _
As _
Excel.Range)
于 2013-07-29T15:19:24.797 回答
1

尝试简单:

Workbook_SheetSelectionChange

或者

Call Workbook_SheetSelectionChange

_是一个连续字符,不是子例程名称的一部分。

于 2013-07-29T15:22:49.717 回答