Hàm xác định Phòng Ban trong cơ quan (1 người xem)

[huy vu]

Chào các anh /chị trong diễn đàn.
Em có tự xây dựng hàm tự tạo để xác định phòng ban trong cơ quan như sau:

Function PhongBan(str As String) As String
    If Left(str, 1) = 1 Then PhongBan = "Phong Khach Hang"
    If Left(str, 1) = 2 Then PhongBan = "Phong Giao Dich"
    If Left(str, 1) = 3 Then PhongBan = "Phong Hanh Chinh"
    ' Va nhieu dau khac
    
    If Left(str, 1) >= 10 And Left(str, 1) < 1 Then Exit Function
    
End Function

Căn cứ vào đầu của chuỗi, ví dụ: Nếu đầu chuỗi = 1 thì là phòng Khách hàng, v.v...
Tuy nhiên, theo hàm trên, cứ if mới then em thấy không ổn, khi giả sử đầu phòng có 1 -> 10 về sau tăng lên 11 đên 20
Vậy có cách nào hay hơn, Mong các anh/chị giúp đỡ.

 

[mhung12005]

Chào các anh /chị trong diễn đàn.
Em có tự xây dựng hàm tự tạo để xác định phòng ban trong cơ quan như sau:

Function PhongBan(str As String) As String
    If Left(str, 1) = 1 Then PhongBan = "Phong Khach Hang"
    If Left(str, 1) = 2 Then PhongBan = "Phong Giao Dich"
    If Left(str, 1) = 3 Then PhongBan = "Phong Hanh Chinh"
    ' Va nhieu dau khac
    
    If Left(str, 1) >= 10 And Left(str, 1) < 1 Then Exit Function
    
End Function

Căn cứ vào đầu của chuỗi, ví dụ: Nếu đầu chuỗi = 1 thì là phòng Khách hàng, v.v...
Tuy nhiên, theo hàm trên, cứ if mới then em thấy không ổn, khi giả sử đầu phòng có 1 -> 10 về sau tăng lên 11 đên 20
Vậy có cách nào hay hơn, Mong các anh/chị giúp đỡ.

Bạn có thể dùng Select case thay thế if.

Nhưng nếu viết hàm như này thì dùng công thức và với 1 bảng dò là đc chứ viết hàm chi cho mệt.

Chỗ này nó cứ thừa thừa làm sao ấy:

If Left(str, 1) >= 10

 

[huy vu]

Em muốn tạo thành addin để dùng tại 1 số máy nên tạo hàm này ạ. Không mỗi máy lại thêm 1 bảng dò rồi vlookup/lookup cũng mất thời gian.

 

[Hau151978]

Function PhongBan(str As String) As String
    Dim arr()
    arr = Array("Phong Khach Hang", "Phong Giao Dich", "Phong Hanh Chinh")
    PhongBan = arr(Left(str, 1) - 1)
End Function

Nếu nhiều phòng hơn thì lấy 2 chữ số đầu làm phòng 01, 02,.. sau đó dùng left(str,2)

 

[huy vu]

Function PhongBan(str As String) As String
    Dim arr()
    arr = Array("Phong Khach Hang", "Phong Giao Dich", "Phong Hanh Chinh")
    PhongBan = arr(Left(str, 1) - 1)
End Function

Nếu nhiều phòng hơn thì lấy 2 chữ số đầu làm phòng 01, 02,.. sau đó dùng left(str,2)

Dùng mảng có vẻ ổn hơn. Cảm ơn a Hau.

 

[SA_DQ]

Bạn có thể xài hàm CHOOSE(), như

FongBan="Phòng " & Choose(Cbyte(Left(Str,1)),"..","..",. . .)

 

[haonlh]

Em muốn tạo thành addin để dùng tại 1 số máy nên tạo hàm này ạ. Không mỗi máy lại thêm 1 bảng dò rồi vlookup/lookup cũng mất thời gian.

Liệu có thể để bảng này trong chính file addin để dò tìm. Có được không???

 

[huy vu]

Liệu có thể để bảng này trong chính file addin để dò tìm. Có được không???

Được anh ơi, cho cả bảng vào addin?

 

[Ngoai Thanh]

Chào các anh /chị trong diễn đàn.
Em có tự xây dựng hàm tự tạo để xác định phòng ban trong cơ quan như sau:

Function PhongBan(str As String) As String
    If Left(str, 1) = 1 Then PhongBan = "Phong Khach Hang"
    If Left(str, 1) = 2 Then PhongBan = "Phong Giao Dich"
    If Left(str, 1) = 3 Then PhongBan = "Phong Hanh Chinh"
    ' Va nhieu dau khac
    
    If Left(str, 1) >= 10 And Left(str, 1) < 1 Then Exit Function
    
End Function

Căn cứ vào đầu của chuỗi, ví dụ: Nếu đầu chuỗi = 1 thì là phòng Khách hàng, v.v...
Tuy nhiên, theo hàm trên, cứ if mới then em thấy không ổn, khi giả sử đầu phòng có 1 -> 10 về sau tăng lên 11 đên 20
Vậy có cách nào hay hơn, Mong các anh/chị giúp đỡ.

Bạn thử theo cách của mình xem sao nhé ! thử gõ vài mã tiếp ở cột E..

 

[VetMini]

...
Tuy nhiên, theo hàm trên, cứ if mới then em thấy không ổn, khi giả sử đầu phòng có 1 -> 10 về sau tăng lên 11 đên 20
Vậy có cách nào hay hơn, Mong các anh/chị giúp đỡ.

Bạn dùng code như thế này để xác định con số đứng trước chuỗi:

dim num as integer
Do While IsNumeric(Mid(chuoi,num+1,1))
num = num + 1
Loop
num = Val(Left(chuoi,num))