vba - 如何使用vba保持第一个单元格在excel中始终处于活动状态

Question

打开 Excel 工作表时如何保持第一个单元格始终处于活动状态。

任何人都可以指导我如何做到这一点。

这是我的代码：

       Private Sub Send_Click()
       Dim strURL As String
       strURL = "http://xxxxxxxxxxxx.com/excelAPI.php?customer_id=1&mobilenumber=" _
       & ActiveCell.Value & "&message=" & ActiveCell.Offset(0, 1).Value
       Call Sheets("Sheet1").WebBrowser4.Navigate(strURL)

       End Sub

Answer 1

我不太确定您为什么希望第一个单元格处于活动状态。如果只是因为您在代码中使用了ActiveCell，那么您应该定义一个 Range。像这样：

Private Sub Send_Click()
   Dim strURL As String
   strURL = "http://xxxxxxxxxxxx.com/excelAPI.php?customer_id=1&mobilenumber=" _
   & Range("A1").Value & "&message=" & Range("A1").Offset(0, 1).Value
   Call Sheets("Sheet1").WebBrowser4.Navigate(strURL)
End Sub

反正。这是您在打开工作簿时激活YourWorksheet的第一个单元格 (A1) 的方式：

Private Sub Workbook_Open() 
   Worksheets("YourWorksheet").Activate
   Range("A1").Activate
End Sub