[發問] VLOOKUP問題請教

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

2^#

發表於 2015-2-5 09:33 | 顯示全部帖子

DEAR diolin 大大
TEST 後完全符合需求.感謝您之指導 THANKS*10000

羅

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

3^#

發表於 2015-3-25 11:53 | 顯示全部帖子

VLOOKUP函數轉VBA問題請教

DEAR ALL大大
圖二為程式碼
圖一之 Z 要如何改方可執行.煩不吝賜教.  THANKS*10000

圖一
mymax = Evaluate("VLOOKUP(""" & M & """,'結果2'!A:Y,Z,FALSE)")
圖二
Sub 一()
Sheet6.Select
Range("A1").Select
Sheet6.[D4:AA7].ClearContents
  For X = 4 To 7
  For Y = 4 To 7
  For Z = 2 To 5
If 1 = 1 Then
   M = Sheet6.Cells(X, 3)
   mymax = Evaluate("VLOOKUP(""" & M & """,'結果2'!A:Y,Z,FALSE)")
   If Application.IsError(mymax) = True Then mymax = "" '取代VLLOUP判斷2
   Sheet6.Cells(X, Y) = mymax
End If
Next
Next
Next
End Sub

羅

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

4^#

發表於 2015-3-26 08:05 | 顯示全部帖子

DEAR 大大
測試結果 4-7欄都跑出 Z=5之值
無依 Z=2之值至 4欄
無依 Z=3之值至 5欄
無依 Z=4之值至 6欄
無依 Z=5之值至 7欄
--煩不吝賜教 THANKS*10000
For Z = 2 To 5
For Y = 4 To 7

mymax = Application.WorksheetFunction.VLookup(M, Sheets("結果2").[A:Y], Z, False)

羅

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

5^#

發表於 2015-3-26 11:09 | 顯示全部帖子

DEAR 大大
1. mymax = Application.WorksheetFunction.VLookup(M, Sheets("結果2").[A:A].Resize(, Y), Z, False)- 秀出無法取得類別 WorksheetFunction的VLookup屬性.
  1.1 煩不吝賜教.
2.小弟先用如下較覆雜之方式運作.

Sub 一級()
Sheet6.Visible = True
Sheet1.Visible = False
Sheet6.Select
Range("A1").Select
Sheet6.[D4:AC7].ClearContents
  For X = 4 To 7
If 1 = 1 Then
   M = Sheet6.Cells(X, 3)
   mymax = Evaluate("VLOOKUP(""" & M & """,'結果2'!A:AA,2,FALSE)")
   If Application.IsError(mymax) = True Then mymax = "" '取代VLLOUP判斷2
   Sheet6.Cells(X, 4) = mymax

   mymax1 = Evaluate("VLOOKUP(""" & M & """,'結果2'!A:AA,3,FALSE)")
   If Application.IsError(mymax) = True Then mymax = "" '取代VLLOUP判斷2
   Sheet6.Cells(X, 5) = mymax1

   mymax2 = Evaluate("VLOOKUP(""" & M & """,'結果2'!A:AA,4,FALSE)")
   If Application.IsError(mymax) = True Then mymax = "" '取代VLLOUP判斷2
   Sheet6.Cells(X, 6) = mymax2

   mymax3 = Evaluate("VLOOKUP(""" & M & """,'結果2'!A:AA,5,FALSE)")
   If Application.IsError(mymax) = True Then mymax = "" '取代VLLOUP判斷2
   Sheet6.Cells(X, 7) = mymax3


Range("A1").Select
End If
Next

End Sub

羅

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

6^#

發表於 2015-3-26 16:24 | 顯示全部帖子

感謝GBKEE 大大指導 thanks*10000

羅