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

樓主熱帖

GBKEE

超級版主 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兔年全勤獎章

2^#

發表於 2014-2-12 17:04 | 只看該作者

回復 1# gn00487767
試試看

Option Explicit
Option Base 1
Private Sub CommandButton1_Click()
Ex
End Sub
Private Sub TextBox1_Change()
Ex
End Sub
Private Sub Ex()
Dim Rng As Range, Ar, i As Integer
Ar = Array([C3], [G3], [C5], [G5], [C7], [C9])
Set Rng = Sheets("資料表").Range("A:A").Find(WHAT:=TextBox1, LOOKAT:=xlWhole)
For i = 1 To UBound(Ar)
If Not Rng Is Nothing Then
Ar(i).Value = Rng.Offset(, i)
Else
Ar(i).Value = ""
End If
Next
End Sub

複製代碼

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

TOP

stillfish00

大學生 Rank: 4

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

3^#

發表於 2014-2-12 17:19 | 只看該作者

回復 1# gn00487767
TextBox1有使用需求嗎? 拿掉會清爽一點。
資料龐大可以參考下面，只用match找一次。

Private Sub CommandButton1_Click()
Dim lRow As Long, sID As String
sID = Sheets("表格").[E1].Value
If sID <> "" Then
With Sheets("資料表")
On Error Resume Next '忽略找不到時的 Error
lRow = Application.Match(sID, .Range(.[A1], .[A1].End(xlDown)), 0)
On Error GoTo 0 '還原
End With
If lRow > 0 Then
ar = Application.Transpose(Application.Transpose(Sheets("資料表").Cells(lRow, "B").Resize(, 6).Value))
With Sheets("表格")
.[C3].Value = ar(1)
.[G3].Value = ar(2)
.[C5].Value = ar(3)
.[G5].Value = ar(4)
.[C7].Value = ar(5)
.[C9].Value = ar(6)
End With
End If
End If
End Sub

複製代碼

TOP

gn00487767

中學生 Rank: 2

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

4^#

發表於 2014-2-13 10:37 | 只看該作者

回復 2# GBKEE

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

TOP

GBKEE

超級版主 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兔年全勤獎章

5^#

發表於 2014-2-13 10:48 | 只看該作者

回復 4# gn00487767

Private Sub CommandButton1_Click()
Ex '執行這程式 = Call Ex
End Sub

複製代碼

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

TOP

gn00487767

中學生 Rank: 2

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

6^#

發表於 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欄嗎?
因為小弟真的是由完全不懂自行亂湊出來的

TOP

gn00487767