"Vlookup" and "Match" in VBA - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » "Vlookup" and "Match" in VBA

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

"Vlookup" and "Match" in VBA

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

11^# 跳轉到 »

發表於 2011-6-23 13:25 | 只看該作者

謝謝指教~~!!感覺功力提昇了不小!!

50 字節以內
不支持自定義 Discuz! 代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

10^#

發表於 2011-6-22 21:31 | 只看該作者

嗯，上傳檔案就好辦了！
改這樣

Sub test()
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim ItemName As String
z = 2
Do While Range("A" & z).Value <> ""
ItemNam = Worksheets("Sheet1").Range("A" & z).Value
x = Application.Match(ItemNam, Sheet2.[A1:A100], 0)
Debug.Print x
z = z + 1
Loop
End Sub

複製代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

9^#

發表於 2011-6-22 17:14 | 只看該作者

變數有變數的用法，跟字符是不同的表示。
變數不用雙引號。

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

8^#

發表於 2011-6-22 16:36 | 只看該作者

本帖最後由 am0251 於 2011-6-22 17:13 編輯

很奇怪,我試過:
ItemNam = Range("A" & z).Value
x = Application.WorksheetFunction.Match(""ItemNam"",, Sheets("OUT").Range("A:A"))
是不行的,只有不用變數"ItemNam"而直接把"Range("A" & z).Value"打進去才能用

Book1.rar (12.98 KB)

50 字節以內
不支持自定義 Discuz! 代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

7^#

發表於 2011-6-22 15:20 | 只看該作者

上述列出的方法你只能選一樣
不能每樣同時用，還加上錄製的代碼
前面"x="也不能加在裡面，哪能這麼多等號？

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2011-6-22 15:15 | 只看該作者

Range("d" & z) = Evaluate("MATCH(""ItemNam"",Sheet2!A:A,0)")

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

5^#

發表於 2011-6-22 14:12 | 只看該作者

謝謝,我試了...
x = Range("D" & z).Application.Formula = " [=MATCH(Sheets1!""ItemName"",Sheets2!A:A,0)]"
就是不行,可以告訴我,我錯在哪裡嗎?
謝謝~~!

50 字節以內
不支持自定義 Discuz! 代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2011-6-22 13:38 | 只看該作者

方法1：用application.引用公式
方法2.用evaluate+公式
方法3.用中刮號把公式框起來

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

3^#

發表於 2011-6-22 13:31 | 只看該作者

謝謝回覆,可惜我權限不夠,不能下載,可以簡單的介紹一下嗎?

50 字節以內
不支持自定義 Discuz! 代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-6-21 17:06 | 只看該作者

http://forum.twbts.com/viewthrea ... p;extra=&page=1
這裡有在vba中引用工作表函數的實例

靜思自在 : 要批評別人時，先想想自己是否完美無缺。

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