GBKEE

回復 1# av8d

1. Sub aa()
   
2.     Range("B1").Select
   
3.     Range("B1") = "=SUM(A1:A10)"
   
4.     Application.SendKeys "{F2}"
   
5.     Application.SendKeys "^+~"
   
6. End Sub

複製代碼

GBKEE

回復 3# av8d
執行Application.SendKeys    必須用圖片 或按鈕 指定 巨集 來執行, 或 如圖

下載 (73.44 KB)

2012-2-17 13:50

GBKEE

回復 5# av8d
因為是寫在Workbook裡面
有何問題你沒說啊!!

GBKEE

回復 7# av8d
程式如是在  物件模組中 為公用程式   ( 有沒有加上 "Public"都是公用程式 )  : 需指明物件模組的名稱                                          
如 Sub EX()
       Sheet1.Test
       Sheets("Sheet1").Test
       ThisWorkbook.Test
End Sub
程式如是在  一般模組(Module)中  為公用程式   ( 有沒有加上 "Public" )  :  直接呼叫即可
SUB Ex()
  Test
End Sub
程式如 為私用程式   ( 有加上 "Privatec" )  : 皆需為
Sub Ex()
        Run   " Sheet1.Test"
        Run   "Sheets("Sheet1").Test "
        Run   "ThisWorkbook.Test "
       Run   "Module1..Test "
End Sub

GBKEE

回復 9# av8d
私用Private 的程式 非自己的模組程式裡 中皆需用   Run "ThisWorkbook.Workbook_Open"
本身的模組 中直接呼叫 這 Private 的程式即可  Workbook_Open

GBKEE

回復 11# av8d
與Office XP無關


BOOK.rar (7.83 KB)

下載次數: 10

2012-2-21 09:40