麻辣家族討論版版 » Excel程式區 » 輸入編號跑出資料

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

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

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-2-12 16:06 | 只看該作者

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

本帖最後由 gn00487767 於 2014-2-12 16:12 編輯

煩請大大教學

該如何添加指令

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

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

15^#

發表於 2014-2-17 16:24 | 只看該作者

回復 14# gn00487767

日期的地方顯示一樣是顛倒的@@

請在工作表上手動改回原是其格式,再執行程式看看

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

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

14^#

發表於 2014-2-17 15:24 | 只看該作者

回復 13# GBKEE

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

13^#

發表於 2014-2-17 06:46 | 只看該作者

回復 12# gn00487767
試試看

Option Explicit
Sub Ex()
Dim i As Integer, Ar(), m As Variant
With Sheets("自動顯示")
ReDim Ar(2 To .Range("A1").End(xlDown).Row, 1 To 3) '指定二維陣列元素的下限索引值,上限索引值
For i = 2 To .Range("A1").End(xlDown).Row
m = Application.Match(.Range("A" & i), Sheets("資料表").Range("A:A"), 0)
'應用工作表函數搜尋編號
If IsNumeric(m) Then
With Sheets("資料表").Range("A" & m)
Ar(i, 1) = .Range("B1") '名稱欄
Ar(i, 2) = .Range("C1") '日期欄
Ar(i, 3) = .Range("D1") '姓名欄
End With
End If
Next
.[B2].Resize(UBound(Ar) - 1, UBound(Ar, 2)) = Ar
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

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

12^#

發表於 2014-2-16 22:15 | 只看該作者

回復 11# sunnyso

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

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

11^#

發表於 2014-2-16 11:53 | 只看該作者

回復 1# gn00487767

一定要用vba嗎？單看圖, 用函數應該也可

ss

中學生 Rank: 2

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

10^#

發表於 2014-2-16 02:34 | 只看該作者

回復 3# stillfish00

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

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

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

9^#

發表於 2014-2-14 12:50 | 只看該作者

回復 6# gn00487767

裡面的"B"是代表B欄嗎
裡面的 6 是代表 B欄之後的6欄嗎?

是的

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2014-2-13 11:33 | 只看該作者

回復 7# gn00487767
vba視窗,有一說明指令,輸入 Option Explicit 有說明

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

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

7^#

發表於 2014-2-13 11:03 | 只看該作者

回復 5# GBKEE

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

靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。

返回列表下一主題上一主題