123
返回列表 上一主題 發帖

[發問] 請問EXCEL怎麼取得工作表的數量與資料行數呢(跨工作表)!?謝謝

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
5# 跳轉到 »
發表於 2012-10-28 11:21 | 只看該作者
回復 4# konkon3141
alt +F1進入Visual Basic , 左邊找到目錄這個工作表點兩下


在右邊區域貼上這段code:
  1. Private Sub Worksheet_Activate()
  2.     'Q1:
  3.     Range("C9") = Sheets.Count - 2
  4.    
  5.     'Q2:-
  6.     Range("C10") = "=COUNTA(" & Sheets(2).Name & ":" & Sheets(Sheets.Count - 1).Name & "!B:B)" & "-COUNTA(" & Sheets(2).Name & ":" & Sheets(Sheets.Count - 1).Name & "!B1:B8)"
  7.     Range("C12") = "=COUNTA(" & Sheets(2).Name & ":" & Sheets(Sheets.Count - 1).Name & "!J:J)" & "-COUNTA(" & Sheets(2).Name & ":" & Sheets(Sheets.Count - 1).Name & "!J1:J8)"
  8.     Range("C14") = "=COUNTA(" & Sheets(2).Name & ":" & Sheets(Sheets.Count - 1).Name & "!P:P)" & "-COUNTA(" & Sheets(2).Name & ":" & Sheets(Sheets.Count - 1).Name & "!P1:P8)"

  10. End Sub
複製代碼
多試試 看能不能符合你的需求嚕
Book1.zip (1.68 KB)

TOP

konkon3141

帖子
17 
主題
4 
精華
0 
積分
21 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
10 
註冊時間
2012-10-16 
最後登錄
2012-12-1 
4#
發表於 2012-10-28 09:04 | 只看該作者
本帖最後由 konkon3141 於 2012-10-28 09:06 編輯
回復  konkon3141
先到EXCEL選項勾選開發人員 , 進入Visual Basic
左方選第一個工作表 , 複製以下代碼
stillfish00 發表於 2012-10-28 01:20


可能我解釋問題比較弱
我傳個範例檔案
1.rar (2.6 KB)
EXCEL有註解


問題1是第1工作表統計量中
能計算n-2工作表有幾個(去掉第1工作表跟最後工作表)
顯示"數字"再第1個工作表


問題2是第1工作表統計量中
顯示其後面工作表中(不報括最後工作表)
生產表單
維修表單
異動紀錄表單

共有多少筆資料
需要跨工作表尋找
B9~以下
J9~以下
P9~以下
資料數
因為我還沒填入所以都先打0


範圍如果我給夠大應該就可以當成無限範圍囉吧!?

大大你給我的Visual Basic我不知怎麼使用耶@@
2003只要按alt+f11就可以進入Visual Basic了
拜託大大了~~

TOP

stillfish00

帖子
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
左方選第一個工作表 , 複製以下代碼
  1. Private Sub Worksheet_Activate()
  2.     'Q1:列出工作表清單
  3.     Dim i
  4.     Range(Range("A1"), Range("A1").End(xlDown)).ClearContents   '先清除
  5.     For i = 3 To Sheets.Count   '不含前兩個工作表(目錄,型錄)
  6.         Range("A1").Offset(i - 3, 0) = Sheets(i).Name
  7.     Next
  8.    
  9.     'Q2:計算總數
  10.     Range("B1") = "=COUNTA(" & Sheets(3).Name & ":" & Sheets(Sheets.Count).Name & "!B:B)" & "-COUNTA(" & Sheets(3).Name & ":" & Sheets(Sheets.Count).Name & "!B1:B8)"
  11. End Sub
複製代碼

TOP

tincholon

帖子
2 
主題
0 
精華
0 
積分
7 
點名
0  
作業系統
windowns 
軟體版本
office 
閱讀權限
10 
性別
男 
註冊時間
2012-10-27 
最後登錄
2014-6-1 
2#
發表於 2012-10-27 16:20 | 只看該作者
可以使用巨集啊!

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
123
返回列表 上一主題