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

如何在打开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