Giúp tạo hàm trong vba (1 người xem)

[chanmenhanmay]

Chào các a/c
Do yêu cầu công việc em cần tạo hàm tự định nghĩa như sau: IF(LEN(B2)=11,RIGHT(B2,10),RIGHT(B2,9))
Mong anh chị giúp em

 

[chuot0106]

Chào các a/c
Do yêu cầu công việc em cần tạo hàm tự định nghĩa như sau: IF(LEN(B2)=11,RIGHT(B2,10),RIGHT(B2,9))
Mong anh chị giúp em

Bạn đưa File giả lập lên đây!

 

[chanmenhanmay]

Bạn đưa File giả lập lên đây!

a giúp dùm em, thanks anh

 

[ndu96081631]

a giúp dùm em, thanks anh

Bạn dùng công thức ngắn thế này là được rồi:

=RIGHT(B2,LEN(B2)-1)

Code VBA để làm gì? Mà dù có muốn viết thành code thì cũng viết y chang như tôi vừa viết thôi

 

[Phuocam]

Chào các a/c
Do yêu cầu công việc em cần tạo hàm tự định nghĩa như sau: IF(LEN(B2)=11,RIGHT(B2,10),RIGHT(B2,9))
Mong anh chị giúp em

Thử hàm tự tạo này:

Public Function Tach(Chuoi As String) As String
Chuoi = Trim(Chuoi)
    Tach = Right(Chuoi, 9 - (Len(Chuoi) = 11))
End Function