enoch

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-1-10 18:38 | 只看該作者

用公式追蹤出自那一欄位

能夠輸入資料, 可以追蹤到在那一個表中出現
例如輸入
vwx顯示為表3
tde 顯示為表4嗎
請指教

表1 表2 表3 表4
abc jkl stu zbc
def mno vwx eqa
ghi pqr yqa tde

樓主熱帖

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-1-10 19:50 | 只看該作者

本帖最後由 register313 於 2012-1-11 00:54 編輯

回復 1# enoch

初學者VBA

出自何工作表

Sub cc()
ser = InputBox("請輸入要尋找的值:")
If Trim(ser) <> "" Then
For sht = 1 To Sheets.Count
Set rng = Sheets(sht).Cells.Find(what:=ser, lookat:=xlWhole)
If Not rng Is Nothing Then
out = out & Sheets(sht).Name & Chr(10)
End If
Next sht
End If
If out = "" Then
MsgBox "沒有找到"
Else: MsgBox "尋找的值" & ser & "出現在工作表" & Chr(10) & out
End If
End Sub

複製代碼

出自何欄位

Sub dd()
ser = InputBox("請輸入要尋找的值:")
If Trim(ser) <> "" Then
For C = 1 To Range("A1").End(xlToRight).Column
Set rng = Columns(C).Find(what:=ser, lookat:=xlWhole)
If Not rng Is Nothing Then
out = out & Cells(1, rng.Column) & Chr(10)
End If
Next C
End If
If out = "" Then
MsgBox "沒有找到"
Else: MsgBox "尋找的值" & ser & "出現在" & Chr(10) & out
End If
End Sub

複製代碼

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

3^#

發表於 2012-1-11 12:49 | 只看該作者

回復 2# register313

="表"&MAX((A2:D4=F1)*COLUMN(A2:D4)) 陣列公式
F1為欲查詢之資料

TOP

dino1978

中學生 Rank: 2

帖子: 38
主題: 4
精華: 0
積分: 65
點名: 0
作業系統: Window7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-12-16
最後登錄: 2013-12-13

4^#

發表於 2012-1-12 07:14 | 只看該作者

回復 3# register313

register313大大,
想請教一下
out = out & Cells(1, rng.Column) & Chr(10)
與
out = Cells(1, rng.Column) & Chr(10)
有什麼樣的不同?
out = out & Cells(1, rng.Column) & Chr(10)
這一段我不太懂是什麼意思再麻煩您抽空解答, 謝謝

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

5^#

發表於 2012-1-12 08:12 | 只看該作者

回復 4# dino1978

因本程式是放在FOR迴圈內(設有3次迴圈)

            out = Cells(1, rng.Column) & Chr(10)
第1迴圈out之值       第1次儲存格之值+分行
第2迴圈out之值       第2次儲存格之值+分行
第3迴圈out之值       第3次儲存格之值+分行
最後輸出out之值    第3次儲存格之值+分行

               out = out & Cells(1, rng.Column) & Chr(10)
第1迴圈out之值       空值+第1次儲存格之值+分行
第2迴圈out之值       第1次儲存格之值+分行+第2次儲存格之值+分行
第3迴圈out之值       第1次儲存格之值+分行+第2次儲存格之值+分行+第3次儲存格之值+分行
最後輸出out之值    第1次儲存格之值+分行+第2次儲存格之值+分行+第3次儲存格之值+分行

TOP

dino1978

中學生 Rank: 2

帖子: 38
主題: 4
精華: 0
積分: 65
點名: 0
作業系統: Window7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-12-16
最後登錄: 2013-12-13

6^#

發表於 2012-1-14 14:22 | 只看該作者

回復 5# register313

謝謝register313大大明白了, 謝謝您詳盡的解說!!

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兔年全勤獎章

7^#

發表於 2012-1-14 15:11 | 只看該作者

本帖最後由 GBKEE 於 2012-1-15 07:07 編輯

回復 2# register313
出自何欄位 : 如尋找的值在一欄中出現數次會有誤差

Option Explicit
Sub Ex()
Dim MyText As String, Rng As Range, F_Address As String, TheFind As String
MyText = Trim(InputBox("請輸入要尋找的值:"))
If MyText <> "" Then
Set Rng = Range("A1").CurrentRegion.EntireColumn.Find(MyText, lookat:=xlWhole)
If Not Rng Is Nothing Then
F_Address = Rng.Address
Do
TheFind = IIf(TheFind = "", Rng.Address(0, 0), TheFind & " " & Rng.Address(0, 0))
Set Rng = Range("A1").CurrentRegion.EntireColumn.FindNext(Rng)
Loop Until F_Address = Rng.Address
End If
End If
If TheFind <> "" Then
MsgBox MyText & " 位於 : " & TheFind
Else
MsgBox "沒有找到 " & MyText
End If
End Sub

複製代碼

TOP