123
返回列表 上一主題 發帖

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

konkon3141

帖子
17 
主題
4 
精華
0 
積分
21 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
10 
註冊時間
2012-10-16 
最後登錄
2012-12-1 
15# 跳轉到 »
發表於 2012-10-28 22:06 | 只看該作者
回復  konkon3141
http://d.pr/f/Sxsz 這個檔案不能用嗎? 這是改過的
stillfish00 發表於 2012-10-28 21:44



這個可以了!!!
大大有改工作表名稱嗎!?
好像沒有改耶~~
沒有改工作是怎麼解決這個問題呢!?
在EYNY有人說工作表()會造成VBA引用儲存格能夠用的函數
所以很可能會混淆
再此感謝大大的幫忙^^~~
學習到很多EXCEL的知識

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
14#
發表於 2012-10-28 21:44 | 只看該作者
回復 13# konkon3141
http://d.pr/f/Sxsz 這個檔案不能用嗎? 這是改過的

TOP

konkon3141

帖子
17 
主題
4 
精華
0 
積分
21 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
10 
註冊時間
2012-10-16 
最後登錄
2012-12-1 
13#
發表於 2012-10-28 21:32 | 只看該作者
回復  konkon3141
http://d.pr/f/Sxsz

最後發現問題在工作表名稱有含括號 , 所以在使用公式時工作表名 ...
stillfish00 發表於 2012-10-28 21:20



    大大我把( ) + &全改成-
    結果切換到目錄他一直要我開啟檔案= ="
    而且輸入資料也不會更新筆數..
    http://www.mediafire.com/?s6eqfqc4dj3wlz9
    另外為甚麼工作表名稱不能使用( )呢!?
    再此先謝謝大大的幫忙^^~~

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
12#
發表於 2012-10-28 21:20 | 只看該作者
回復 11# konkon3141
http://d.pr/f/Sxsz

最後發現問題在工作表名稱有含括號 , 所以在使用公式時工作表名稱要另外加單引號才不會出錯
啊啊~這算我沒養成良好習慣啦><

TOP

konkon3141

帖子
17 
主題
4 
精華
0 
積分
21 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
10 
註冊時間
2012-10-16 
最後登錄
2012-12-1 
11#
發表於 2012-10-28 20:22 | 只看該作者
回復  konkon3141
內容就是在C10 填入公式
=COUNTA(開始工作表:結束工作表!B:B)-COUNTA(開始工作表:結束 ...
stillfish00 發表於 2012-10-28 19:15



    大大這是我的檔案
    模具履歷.rar (33.4 KB)
    請大大幫我看一下
    我權限不夠大大處理好可以傳到網路空間嗎Q.Q...
     拜託了~~謝謝^^

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
10#
發表於 2012-10-28 19:15 | 只看該作者
本帖最後由 stillfish00 於 2012-10-28 19:16 編輯

回復 9# konkon3141
內容就是在C10 填入公式
=COUNTA(開始工作表:結束工作表!B:B)-COUNTA(開始工作表:結束工作表!B1:B8)
即計算  所有開始工作表~結束工作表 B欄 非空白單元格總數
    減去  所有開始工作表~結束工作表 B1到B8 非空白單元格總數

因為工作表可能增加 , 不是固定同一個 , 所以用VBA ,
Sheets(Sheets.Count - 1).Name 去找到最後一個工作表名字

C11, C12依此類推 , 我也不明白哪裡有問題

TOP

konkon3141

帖子
17 
主題
4 
精華
0 
積分
21 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
10 
註冊時間
2012-10-16 
最後登錄
2012-12-1 
9#
發表於 2012-10-28 18:31 | 只看該作者
我剛再試一下工作表會隨著新增而改變數量了

但是C10~C12還是無法顯示...
大大能跟我稍微解釋一下程式碼內容是甚麼嗎!!?
我看看是不是工作表出問題~~
拜託大大了

TOP

konkon3141

帖子
17 
主題
4 
精華
0 
積分
21 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
10 
註冊時間
2012-10-16 
最後登錄
2012-12-1 
8#
發表於 2012-10-28 15:56 | 只看該作者
本帖最後由 konkon3141 於 2012-10-28 15:58 編輯
回復  konkon3141
恩..我不曉得是不是版本不同造成的, 我只有2010執行都正常 , 你試試
1.使用前面的附件 ...
stillfish00 發表於 2012-10-28 14:58



我把目錄改成我第1頁的名稱
還是無法執行耶
沒權限下載附件..所以不知道範例是否2003是否可以跑
怎麼檢查目錄工作表是否有保護呢!?
  1. Private Sub Worksheet_Activate()
  2.     'Q1:
  3.     Sheets("目錄&模具品名").Range("C9") = Sheets.Count - 2
  4.    
  5.     'Q2:
  6.     Sheets("目錄&模具品名").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.     Sheets("目錄&模具品名").Range("C11") = "=COUNTA(" & Sheets(2).Name & ":" & Sheets(Sheets.Count - 1).Name & "!J:J)" & "-COUNTA(" & Sheets(2).Name & ":" & Sheets(Sheets.Count - 1).Name & "!J1:J8)"
  8.     Sheets("目錄&模具品名").Range("C12") = "=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
複製代碼
出現以下畫面




拜託大大了q.q謝謝^^~

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
7#
發表於 2012-10-28 14:58 | 只看該作者
本帖最後由 stillfish00 於 2012-10-28 14:59 編輯

回復 6# konkon3141
恩..我不曉得是不是版本不同造成的, 我只有2010執行都正常 , 你試試
1.使用前面的附件時能正常執行嗎?
2.檢查目錄工作表是否有保護?
3.程式Range前指定Sheets("目錄") , 看有沒有差異?
  1. Private Sub Worksheet_Activate()
  2.     'Q1:
  3.     Sheets("目錄").Range("C9") = Sheets.Count - 2
  4.    
  5.     'Q2:
  6.     Sheets("目錄").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.     Sheets("目錄").Range("C11") = "=COUNTA(" & Sheets(2).Name & ":" & Sheets(Sheets.Count - 1).Name & "!J:J)" & "-COUNTA(" & Sheets(2).Name & ":" & Sheets(Sheets.Count - 1).Name & "!J1:J8)"
  8.     Sheets("目錄").Range("C12") = "=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
複製代碼

TOP

konkon3141

帖子
17 
主題
4 
精華
0 
積分
21 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
10 
註冊時間
2012-10-16 
最後登錄
2012-12-1 
6#
發表於 2012-10-28 12:13 | 只看該作者
本帖最後由 konkon3141 於 2012-10-28 12:15 編輯
回復  konkon3141
alt +F1進入Visual Basic , 左邊找到目錄這個工作表點兩下


在右邊區域貼上這段cod ...
stillfish00 發表於 2012-10-28 11:21



大大你好
我的資料是要C10,C11,C12
所以我把程式位置改成C11,C12
他出現以下錯誤
我巨集有開低




另外大大我新增工作表後
工具表C9的工具表總數並不會更新耶

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
123
返回列表 上一主題