- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2025-7-5
|
本帖最後由 luhpro 於 2011-11-17 19:08 編輯
回復 7# linnetkill
你的程式要包在 Sub 與 End Sub 之間才能正常執行.
另外 For Each 後面要放 Range 範圍,
而不是只有一個儲存格.
還有, 程式若放在 ThisWorkBook,
建議要指明想要處理的儲存格所在的 Sheet,
而不是直接作用在 ActiveSheet,
以免處理程序作用到錯誤的儲存格或 Sheet.
Workbook_Open 可以透過程式碼區上方左側下拉式選單,
選擇 Workbook 自動產生表頭 Private Sub Workbook_Open() 與表尾 End Sub後,
再把開啟 Excel 時想要動作的程式放在其中即可
Private Sub Workbook_Open()
For Each c In Sheets("Sheet1").Range("B1:G9")
c.Value = c.Value * Int(Rnd * 100)
Next
End Sub |
|
發表於 2011-11-17 19:06
| 