如何在打開excel時在vba中激活動作

-5

我想在打開excel時使用vba激活特定單元格。如何在打開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

來源

2013-05-05 arok

你的問題沒有任何意義。一旦關閉工作簿，就不存在單元處於活動狀態或停用狀態的問題。如果要在打開工作簿時使特定單元格處於活動狀態，請使用workbook_open事件。 – Santosh 2013-05-05 12:32:31

好吧，你能告訴我如何激活特定單元格時打開excel。我試圖不工作。我粘貼我的代碼 – arok 2013-05-05 12:43:44

它已經在這裏回答http://stackoverflow.com/questions/16382801/how-to-keep-the -first-cell-always-active-in-excel-using-vba – Santosh 2013-05-05 12:44:38

我不知道你正在嘗試做的，但如果你想Send_Click在打開工作簿時運行，你只需要調用它在Workbook_Open事件：

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

請注意，Workbook_Open需要位於ThisWorkbook模塊中，但Send_Click可以位於不同的模塊中。

您還應該考慮直接引用您想要的單元格，而不是選擇單元格，然後使用ActiveCell。它會快得多，而且更容易避免錯誤。看到這個Q+A。

來源

2013-05-05 19:20:42

要激活一個單元格，您需要先選擇它。另外，如果紙張不活動，這也需要激活。

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-06 05:06:27 glh

可以告訴我如何在打開時關閉以前的操作excel – arok 2013-05-06 06:59:50

要做到這一點的唯一方法是將內容保存在內存中並重新選擇。不激活不激活另一個。 – glh 2013-05-06 07:14:04

即時通訊不知道我明白你的意思是停用。 – glh 2013-05-06 07:16:39

如何在打開excel時在vba中激活動作

回答

相關問題