[發問] 輸入編號跑出資料

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

2^#

發表於 2014-2-13 10:37 | 顯示全部帖子

回復 2# GBKEE

感謝超級版主的教學
你的方法符合小弟的需求
只是小弟不太能理解,因為分的好散
多出那些EX是什麼意思
因為小弟是完全不懂慢慢研究的

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

3^#

發表於 2014-2-13 10:50 | 顯示全部帖子

回復 3# stillfish00

感謝stillfish00大大的指導
TextBox1是可以拿掉,
因為小弟之前剛學習時,很多連結都弄在TextBox1,所以才加上去的
再請問
ar = Application.Transpose(Application.Transpose(Sheets("資料表").Cells(lRow, "B").Resize(, 6).Value))
裡面的"B"是代表B欄嗎
裡面的 6 是代表 B欄之後的6欄嗎?
因為小弟真的是由完全不懂自行亂湊出來的

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

4^#

發表於 2014-2-13 11:03 | 顯示全部帖子

回復 5# GBKEE

再請問大大,那這2個呢
01.Option Explicit
02.Option Base 1
小弟試過拿掉他們
但執行後位置都亂了

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

5^#

發表於 2014-2-16 02:34 | 顯示全部帖子

回復 3# stillfish00

再次請教 stillfish00 大大
若整欄資料的話小弟又該怎麼做呢?
如附件

輸入編號跑出資料2.rar (10.61 KB)

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

6^#

發表於 2014-2-16 22:15 | 顯示全部帖子

回復 11# sunnyso

是的 sunnyso 大大
因為小弟就是都用函數導致檔案變的超大
所以才想說能夠改成VBA的地方盡量改
不然開啟檔案很難開啟

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

7^#

發表於 2014-2-17 15:24 | 顯示全部帖子

回復 13# GBKEE

感謝大大不厭其煩的位小弟解答
但此代碼  日期的地方顯示一樣是顛倒的@@
小弟發現了另一個方式了
就是把我原有的函數全部套用您再另一個主題給小弟的代碼
With Sheets("XX").[X?:X?]
      .Cells = " 原有函數(只是原有的"X"要變成" "X" ") "
      .Cells = .Value '公式轉成值
End With
這樣的方式就不用變動原本的函數而達到小弟的需求了^^
在此致上萬分的謝意^^