Hiện Thông Tin Đối Số (1 người xem)

[alodie123]

Có Bác nào giúp em hiện đc đối số 2(chi_so_add) trong hàm dưới đây để mình lựa chọn giống như một số hàm của Excel (MATCH-Đối số 3 , VLOOKUP- đối số 4,....) để minh họa cho dễ hiểu ko giúp e với nhỉ?
Public Function TIMNGAY(ByVal target As Range, chi_so_add As Integer, so_add As Double) As Date
On Error GoTo thoat
ngay = CDate(target.Value)
Select Case chi_so_add
Case Is = 0: TIMNGAY = DateSerial(Year(ngay), Month(ngay) + 1, 1) - 1
Case Is = 1: TIMNGAY = DateSerial(Year(ngay), Month(ngay), 1)
Case Is = 2: TIMNGAY = DateAdd("yyyy", so_add, ngay)
Case Is = 3: TIMNGAY = DateAdd("q", so_add, ngay)
Case Is = 4: TIMNGAY = DateAdd("m", so_add, ngay)
Case Is = 5: TIMNGAY = DateAdd("d", so_add, ngay)
Case Is = 6: TIMNGAY = DateAdd("w", so_add, ngay)
Case Is = 7: TIMNGAY = DateAdd("h", so_add, ngay)
Case Is = 8: TIMNGAY = DateAdd("n", so_add, ngay)
Case Is = 9: TIMNGAY = DateAdd("s", so_add, ngay)
End Select
thoat:
End Function

 

[ndu96081631]

[h=2]Hiện Thông Tin Đối Số[/h]

Trên bảng tính bạn gõ =TIMNGAY(
Xong, bạn gõ ngay tổ hợp phím Ctrl + Shift + A sẽ thấy ngay các đối số

 

[Hau151978]

Trên bảng tính bạn gõ =TIMNGAY(
Xong, bạn gõ ngay tổ hợp phím Ctrl + Shift + A sẽ thấy ngay các đối số

Hình như ở đây chủ thread muốn tìm kiểu về kiểu khai báo ENUM như đối số thứ 4 của vlookup, thứ 3 của match.

 

[ndu96081631]

Hình như ở đây chủ thread muốn tìm kiểu về kiểu khai báo ENUM như đối số thứ 4 của vlookup, thứ 3 của match.

Nếu áp dụng hàm trong chính cửa sổ VBA thì còn làm được chứ gõ trực tiếp trên bảng tính thì e rằng... THUA (ít nhất là với trình độ của tôi)

 

[alodie123]

Nếu áp dụng hàm trong chính cửa sổ VBA thì còn làm được chứ gõ trực tiếp trên bảng tính thì e rằng... THUA (ít nhất là với trình độ của tôi)

Có nghĩa là nó ko tự động hiện các lựa chọn để mình chọn được à. Thế thì tiếc nhỉ .

 

[tor]

Bạn thử tìm hiểu về UdfHelper của tác giả Jurgen Volkerink xem nhé.