- 帖子
- 1018
- 主題
- 15
- 精華
- 0
- 積分
- 1058
- 點名
- 0
- 作業系統
- win7 32bit
- 軟體版本
- Office 2016 64-bit
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-9
- 最後登錄
- 2022-9-28
|
3#
發表於 2012-10-28 01:20
| 只看該作者
本帖最後由 stillfish00 於 2012-10-28 01:21 編輯
回復 1# konkon3141
先到EXCEL選項勾選開發人員 , 進入Visual Basic
左方選第一個工作表 , 複製以下代碼- Private Sub Worksheet_Activate()
- 'Q1:列出工作表清單
- Dim i
- Range(Range("A1"), Range("A1").End(xlDown)).ClearContents '先清除
- For i = 3 To Sheets.Count '不含前兩個工作表(目錄,型錄)
- Range("A1").Offset(i - 3, 0) = Sheets(i).Name
- Next
-
- 'Q2:計算總數
- Range("B1") = "=COUNTA(" & Sheets(3).Name & ":" & Sheets(Sheets.Count).Name & "!B:B)" & "-COUNTA(" & Sheets(3).Name & ":" & Sheets(Sheets.Count).Name & "!B1:B8)"
- End Sub
複製代碼 |
|