-6

我想在打开 excel 时使用 vba 激活特定单元格。

谁能指导我怎么做。

谢谢

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

     Application.DisplayAlerts = False

      End Sub

       Private Sub Workbook_Open()
       Worksheets("Sheet1").Range ("A1")
        End Sub
4

2 回答 2

1

我不确定您要做什么，但是如果您想Send_Click在打开工作簿时运行，您只需在Workbook_Open事件中调用它：

Private Sub Workbook_Open()
    Worksheets("Sheet1").Range("A1").Select
    Send_Click
End Sub

请注意，Workbook_Open需要在ThisWorkbook模块中，但Send_Click可以在不同的模块中。

您还应该考虑直接引用您想要的单元格，而不是选择一个单元格然后使用ActiveCell. 避免错误会更快，更容易。请参阅此问答。

于 2013-05-05T19:20:42.280 回答
0

要激活一个单元格，您需要先选择它。此外，如果工作表未激活，这也需要激活。

Worksheets("Sheet1").Activate 
Worksheets("Sheet1").Range("A1").Select

我可以建议单元格中的数据A1是否是您在send_click直接引用它的过程中所追求的，如下所示：

Private Sub Send_Click()    
    Dim strURL As String

    With Worksheets("Sheet1").Range("A1").
        strURL = "http://xxxxxxxxxx.com/excelAPI.php?customer_id=1&mobilenumber=" _
        & .Value & "&message=" & .Offset(0, 1).Value
    end with

    Call Sheets("Sheet1").WebBrowser4.Navigate(strURL)        
    Application.DisplayAlerts = False    
End Sub
于 2013-05-06T05:06:27.463 回答