請問EXCEL怎麼取得工作表的數量與資料行數呢(跨工作表)!?謝謝 - Excelㄧ般區

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

21^# 跳轉到 »

發表於 2012-10-29 09:14 | 只看該作者

簡易顯示行列..

Sub ioxga()
For uxa = 1 To 10
'Sheets.Add After:=Sheets(Sheets.Count)
'Sheets("工作表" & uxa).Select
'Sheets("工作表" & uxa).Name = "工作表" & uxa
工作表1.[a1] = "表單名稱"
工作表1.[b1] = "列數"
工作表1.[c1] = "行數"
工作表1.Cells(uxa + 1, 1) = Sheets("工作表" & uxa).Name
工作表1.Cells(uxa + 1, 2) = Sheets("工作表" & uxa).Range("A1").CurrentRegion.Rows.Count
工作表1.Cells(uxa + 1, 3) = Sheets("工作表" & uxa).Range("A1").CurrentRegion.Columns.Count
Next
End Sub

複製代碼

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

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

  少看=只看不做也枉然

TOP

konkon3141

小學生 Rank: 1

帖子: 17
主題: 4
精華: 0
積分: 21
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 10
註冊時間: 2012-10-16
最後登錄: 2012-12-1

22^#

發表於 2012-10-30 23:49 | 只看該作者

本帖最後由 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

konkon3141

小學生 Rank: 1

帖子: 17
主題: 4
精華: 0
積分: 21
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 10
註冊時間: 2012-10-16
最後登錄: 2012-12-1

23^#

發表於 2012-10-31 07:49 | 只看該作者

本帖最後由 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

小學生 Rank: 1

帖子: 17
主題: 4
精華: 0
積分: 21
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 10
註冊時間: 2012-10-16
最後登錄: 2012-12-1

24^#

發表於 2012-10-31 14:01 | 只看該作者

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

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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]