Hỏi về hàm XLOOKUP tự tạo cho Excel 2010

[vova2209]

Em chào các anh chị!
Anh chị có code VBA hàm XLookup chạy cho phiên bản office 2010 không ạ.

 

[ptm0412]

Em chào các anh chị!
Anh chị có code VBA hàm XLookup chạy cho phiên bản office 2010 không ạ.

Hàm XLookup là hàm có sẵn, không phải hàm VBA.

 

[SA_DQ]

C1: Dò tìm như INDEX:

Mã

Tên

T01

T02

T03

T04

T05

T06

T07

T08

T09

T10

T11

T12

TF000

Thịt heo

11​

23​

35​

47​

59​

71​

83​

95​

107​

119​

131​

143​

TF001

Thịt bò

13​

25​

37​

49​

61​

73​

85​

97​

109​

121​

133​

145​

TF002

Thịt gà

15​

27​

39​

51​

63​

75​

87​

99​

111​

123​

135​

147​

TF003

Cá heo

17​

29​

41​

53​

65​

77​

89​

101​

113​

125​

137​

149​

B_000

Bia Sài gòn

19​

31​

43​

55​

67​

79​

91​

103​

115​

127​

139​

151​

B_001

Hà li da

21​

33​

45​

57​

69​

81​

93​

105​

117​

129​

141​

153​

B_003

Bia lên cơn

23​

35​

47​

59​

71​

83​

95​

107​

119​

131​

143​

155​

N_000

So đa

25​

37​

49​

61​

73​

85​

97​

109​

121​

133​

145​

157​

N_001

Co ca

27​

39​

51​

63​

75​

87​

99​

111​

123​

135​

147​

159​

LT000

Gao tẻ

29​

41​

53​

65​

77​

89​

101​

113​

125​

137​

149​

161​

LT001

Nếp

31​

43​

55​

67​

79​

91​

103​

115​

127​

139​

151​

163​

LT002

Bo bo

33​

45​

57​

69​

81​

93​

105​

117​

129​

141​

153​

165​

B_003

Bia lên cơn

=VLOOKUP(A16,A2:B13,2,FALSE)

T07

95​

=XVLooKup_(A16,A17,A2:N13)

Function XVLooKup_(Ma As String, Thang As String, CSDL As Range)
 Dim WF As Object
 
 Set WF = Application.WorksheetFunction
 XVLooKup_ = WF.VLookup(Ma, CSDL, 2 + Right(Thang, 2), False)
End Function

 

[SA_DQ]

Chuyển sang tra theo sản lượng của mã nhân viên:

Function XVLooKupT(MaHH As String, MaT As String, CSDL As Range)
 Dim WF As Object, Col As Integer

 Set WF = Application.WorksheetFunction
 Col = Switch(MaT = "NVH00", 3, MaT = "NVH01", 4, MaT = "NTC00", 5, MaT = "TKP00", 6, MaT = "TLS00", 7, _
    MaT = "TTM00", 8, MaT = "TTM01", 9, MaT = "LTF00", 10, MaT = "TTM02", 11, MaT = "KAO00", 12, MaT = "FTQ00", 13, MaT = "TTB00", 14)
 XVLooKupT = WF.VLookup(MaHH, CSDL, Col, False)
End Function

Hoa

Hồng

Cúc

Phượng

Sim

Mua

Mai

Đào

Mận

Ổi

Quýt

Bưỡi

Mã

Tên

NVH00

NVH01

NTC00

TKP00

TLS00

TTM00

TTM01

LTF00

TTM02

KAO00

FTQ00

TTB00

TF000

Thịt heo

11​

23​

35​

47​

59​

71​

83​

95​

107​

119​

131​

143​

TF001

Thịt bò

13​

25​

37​

49​

61​

73​

85​

97​

109​

121​

133​

145​

TF002

Thịt gà

15​

27​

39​

51​

63​

75​

87​

99​

111​

123​

135​

147​

TF003

Cá heo

17​

29​

41​

53​

65​

77​

89​

101​

113​

125​

137​

149​

B_000

Bia Sài gòn

19​

31​

43​

55​

67​

79​

91​

103​

115​

127​

139​

151​

B_001

Hà li da

21​

33​

45​

57​

69​

81​

93​

105​

117​

129​

141​

153​

. . .

. . .

. . .

TF003

TTM02

113​

=XVLooKupT(I19,I20,A5:N16)

 

[ptm0412]

C1: Dò tìm như INDEX:

Hàm dùng duy nhất cho bảng có tên cột có 2 con số cuối, và đúng vị trí thứ 3 trở đi.

Chuyển sang tra theo sản lượng của mã nhân viên:

Col = Switch(MaT = "NVH00", 3, MaT = "NVH01", 4, MaT = "NTC00", 5, MaT = "TKP00", 6, MaT = "TLS00", 7, _
MaT = "TTM00", 8, MaT = "TTM01", 9, MaT = "LTF00", 10, MaT = "TTM02", 11, MaT = "KAO00", 12, MaT = "FTQ00", 13, MaT = "TTB00", 14)

Hàm xài duy nhất cho bảng này, tên nhân viên này, mã nhân viên này, thứ tự này.

 

[SA_DQ]

Hàm chủ iếu dùng để đo sự phản ứng của tác giả VoVa 2209 mà!
Thực sự cũng chưa biết chắc ý tứ của người này thế nào.

 

[vova2209]

Hàm XLookup là hàm có sẵn, không phải hàm VBA.

vâng!............