返回列表 上一主題 發帖

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

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

請問
問題1:EXCEL怎麼取得工作表的數量!?
我有的檔案有n個工作表
我需要在第1頁顯示n-2個工作表(扣掉目錄與型錄)
要用甚麼方法呢!?

如果有新增會刪減資料表
則工作表數量要更新

我不會用VBA..
版本是2003的
如果用到VBA請大大細心教我要怎麼使用~~


問題2:以下功能去除前2個工作表(扣掉目錄與型錄)
我在第3工作表~後面所有工作表中
在B9~以下無限欄  填入資料時
在第1頁能顯示有資料行數

如在B9填了資料第1頁顯示1
B10如果也填了則第1頁顯示2
如果第4個工作表B9也填了
則顯示3

要能去抓B9欄以下(包括B9)有資料行有幾行
而且要跨工作表記算(第3工作表&無窮大(因為有時會新增工作表))
資料會隨著填入而更新

我不會用VBA..
版本是2003的
如果用到VBA請大大細心教我要怎麼使用~~

大大在別的論壇有人有些一寫了
想請問下面這些該怎麼辦呢!?

1.可以把"目錄"計算功能
寫成"更新資料"的按紐
需要觀看時才更新嗎!?

2.
如我果新增了新的工作表
B1填"盛富"
是不是必須放再PC針模S柄之中
才會計算以下資訊呢!?
模具數量 生產表單 維修表單 異動紀錄表單
因為工作表眾多
我才想說是否有IF之類的判斷式去判斷後面工作表B1的值
這樣如果再任意地方新增才比較方便
不然移工作表還蠻頭痛的..

3.
我新增了新的工作表
B1是"盛富"的客戶
是否能自動再目錄第49行
判斷那一欄為"盛富"
再其後面之空白格(如檔案的A68)
超連結其新增的工作表(與名稱)
並自動計算
生產表單 維修表單 異動紀錄表單
這行能用程式碼去計算嗎!?
自動超連結其左行名稱工作表的H2~H4
還是只能手動輸入公式呢!?

CommandButton1的字可以改為中文嗎
我改下面這行好像沒用...
Private Sub CommandButton1_Click()

PC針模內輸入下一筆資料中
H3與H4的程式碼該如何打呢!?

A9,I9,O9至以下
可否因為按了H2~H4
自動產生排序1.2.3~n呢

PC針模的程式碼可以批量複製於~n(包括空白格式)嗎!?
我按shitft他都不理我- -"

http://www.mediafire.com/?43ca7xv1g40yubi

TOP

本帖最後由 konkon3141 於 2012-10-31 07:51 編輯

大大你好
第2功能要改一下
我表格有換格式

2.B46至以下BH有限欄中
需傳回左邊工作表中H2~H4的值
不知道有辦法批量照A欄名稱傳回嗎?
如有新增工做表則H2~H4要能顯示資料數

6.新增工作表後(會再目錄與空白格式之中)能判斷B1值
然後判斷目錄49行
找尋相同B1值
再其行有數值後的空白格
自動建立其工作表名稱
並對名稱超連結至工作表
生產表單        維修表單        異動紀錄表單
此3項也要做資料新的工作的資訊更新

7.F2能夠搜尋其後工作表(並跳至工作表內)

檔案改成下面這個

http://www.mediafire.com/?z3h9x21vi1zhmoq

大大用好可否傳網路空間呢!?
因為權限不夠不能下載附件Q.Q
拜託了^^~~

TOP

本帖最後由 konkon3141 於 2012-10-30 23:52 編輯
回復  konkon3141
隱藏工作表的超連結會失效是正常的..
另一種方法是工作表不隱藏 , 到Excel選項裡取消  ...
stillfish00 發表於 2012-10-28 23:15



不好意思大大
因為我想把履歷建的更完善些
所以想新增一些功能
不知道EXCEL是否能有這些功能呢?
如果有些沒有也沒關係
有的功能再請大大給我講~~

1.
首先以下功能不包括目錄與空白格式
第B27~E39
需抓取其後面工作表中B1的名稱
計算有幾個工作表(放B欄)
這些工作表中有幾筆生產表單.維修表單.異動紀錄表單
如有新增工作表需更新資料(新增資料會放在目錄與空白格式之中)
大大做一個就好
其他我在自己改欄位與名稱

2.B46至以下D249
需傳回左邊工作表中H2~H4的值
不知道有辦法批量照A欄名稱傳回嗎(不包括空白行)?
如有新增行數則H2~H4要能顯示資料數

3.第2工作表~第n(包括空白格式)工作表中
H2~H4
需能計算B9,J9,K9(全部包括第9列)以下有幾比資料
大大做一個就好
其他我在統一貼上

4.A9,I9,O9至以下欄
能否判斷B9,J9,K9是否填入資料後
自動產生1.2.3.4的排序呢?

5.
I2~I4
能眺到最後輸入資料數之後的空白欄(Bi,Ji,Ki)
如我現在輸入B9了
按I2可以直接跳到B10
如沒有資料需跳回第9行

東想西想想了不少功能
不知道excel有沒有以上功能呢!?
再此不管結果如何都先謝謝大大了^^~~

大大用好可否傳網路空間呢!?
因為權限不夠不能下載附件Q.Q
拜託了^^~~

http://www.mediafire.com/?jb6y7kd9k8n8882

TOP

簡易顯示行列..
  1. Sub ioxga()
  2.     For uxa = 1 To 10
  3.         
  4.         'Sheets.Add After:=Sheets(Sheets.Count)
  5.         'Sheets("工作表" & uxa).Select
  6.         'Sheets("工作表" & uxa).Name = "工作表" & uxa
  7.         工作表1.[a1] = "表單名稱"
  8.         工作表1.[b1] = "列數"
  9.         工作表1.[c1] = "行數"
  10.         
  11.         工作表1.Cells(uxa + 1, 1) = Sheets("工作表" & uxa).Name
  12.         工作表1.Cells(uxa + 1, 2) = Sheets("工作表" & uxa).Range("A1").CurrentRegion.Rows.Count
  13.         工作表1.Cells(uxa + 1, 3) = Sheets("工作表" & uxa).Range("A1").CurrentRegion.Columns.Count
  14.         
  15.     Next
  16. End Sub
複製代碼

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

回復  konkon3141
隱藏工作表的超連結會失效是正常的..
另一種方法是工作表不隱藏 , 到Excel選項裡取消  ...
stillfish00 發表於 2012-10-28 23:15



在依莉有大大說如果嫌下表工作表索引標籤太多
可以考慮以檔案連結的方式
以我這個例子
就不知道有沒有1個工作表換成1個活頁簿的方法了
而且在目錄的統計量有辦法跨檔案計算嗎...這也是個大問題

取消工作表索引標籤還蠻不方便的@@
如果要新增工作表後要回空白格式 複製格式
真的非常麻煩..

感謝大大花了1天熱心的幫忙^^~~
學到了很多是學校不會教的知識~~

TOP

回復 16# konkon3141
隱藏工作表的超連結會失效是正常的..
另一種方法是工作表不隱藏 , 到Excel選項裡取消 工作表索引標籤
不過看用途啦  有時候會不太方便..

TOP

回復  konkon3141

自定義函數C9=All_Data(A1,空白格式!A1,0)
C10=All_Data('目錄&模具品名'!B:B,空白格 ...
Hsieh 發表於 2012-10-28 22:31



大大我論壇權限不夠
可以傳網路空間嗎@@!?
謝謝囉^^~~~

TOP

回復 13# konkon3141

自定義函數
  1. Function All_Data(sh As Range, sh1 As Range, MyType As Integer) As Double
  2. Application.Volatile
  3. For Each sht In Sheets
  4.   If sht.Name <> sh.Parent.Name And sht.Name <> sh1.Parent.Name Then
  5.      Rng = sh.Address(, , , , 0)
  6.      Rng1 = sh1.Address(, , , , 0)
  7.      Select Case MyType
  8.      Case 0
  9.      All_Data = All_Data + 1
  10.      Case Else
  11.      All_Data = All_Data + (Application.CountA(sht.Range(Rng)) - Application.CountA(sht.Range(Rng1)))
  12.      End Select
  13.   End If
  14. Next
  15. End Function
複製代碼
C9=All_Data(A1,空白格式!A1,0)
C10=All_Data('目錄&模具品名'!B:B,空白格式!B$1:B$8,1)
C11=All_Data('目錄&模具品名'!J:J,空白格式!J$1:J$8,1)
C12=All_Data('目錄&模具品名'!P:P,空白格式!P$1:P$8,1)
模具履歷.rar (46.42 KB)
學海無涯_不恥下問

TOP

另外請問大大我想把第3工作表"PC針模"~新手錶架(組)隱藏
但這樣會造成第1頁的數量無法計算耶...
目錄下方的超連結也會全部失效..

TOP

        靜思自在 : 一個人不怕錯,就怕不改過,改過並不難。
返回列表 上一主題