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

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

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

"Vlookup" and "Match" in VBA

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

1^# 跳轉到 »

發表於 2011-6-21 17:06 | 顯示全部帖子

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

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

2^#

發表於 2011-6-22 13:38 | 顯示全部帖子

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

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

3^#

發表於 2011-6-22 15:15 | 顯示全部帖子

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

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

4^#

發表於 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

論壇貢獻勳章

5^#

發表於 2011-6-22 17:14 | 顯示全部帖子

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

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

6^#

發表於 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

論壇貢獻勳章

7^#

發表於 2011-6-23 15:47 | 顯示全部帖子

y = Format(Calendar1.Value, "d-mmm-yy")
MsgBox y

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

8^#

發表於 2011-6-23 20:26 | 顯示全部帖子

Cells(x, y)裡面的x,y都必須是數字
不能是日期。

靜思自在 : 不要隨心所欲，要隨心教育自己。

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