八达网

标题: 哈哈，疯了 [打印本页]

作者: 黑晶 时间: 2010-4-12 12:53
标题: 哈哈，疯了
你是否应该这样做：
      Dim myExcel As New Excel.Application()
      Dim WithEvents MyBook As Excel.Workbook
  .......
      Private Sub MyBook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) Handles MyBook.SheetSelectionChange
               MsgBox("TMD!hai bu xing???!!!")
      End Sub

试过了，不行。我还试过：
  Dim myExcel as New Excel.Application()
  Dim WithEvents mySheet as Excel.WorkSheet
  ....
  mySheet=myExcel.ActiveCell.WorkSheet
  ....
  Private Sub mySheet_SelectionChange(ByVal Target as Excel.Range) Handles MySheet.SheetSelectionChange
      MsgBox("Niang xi pi!!!")
  End Sub

**************************************************************************************************************************************************
MsgBox("TMD!hai bu xing???!!!")
MsgBox("Niang xi pi!!!")

作者: 千夜不眠 时间: 2010-4-12 13:09
End Sub

欢迎光临八达网 (https://www.8-da.com/)