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

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

1 个答案: