123
返回列表 上一主題 發帖

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

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

高中生Rank: 3Rank: 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 | 只看該作者
簡易顯示行列..
  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

帖子
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

帖子
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

帖子
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

        靜思自在 : 知識要用心體會，才能變成自己的智慧。
123
返回列表 上一主題