Nhờ mọi ngườigiúp đỡ gán nhân viên theo điều kiện

[quang118]

Kính chào mọi người!
Mình hiện đang phải ngồi làm thủ công công việc gán người phụ trách cskh, tiêu chí gán như sau
- Mạng Vina thì sẽ gán cho Quỳnh chăm sóc
- Các mạng khác sẽ gán cho Linh chăm sóc
1 file sẽ có rất nhiều Sheet, có số lượng KH khác nhau . Chi tiết theo hình minh họa đi kèm và file đi kèm. Nhờ mọi người hướng dẫn chỉ giúp mình cách gán tự động nhanh nhất. Xin cảm ơn

 

[anhtuan2939]

làm thủ công công việc gán người phụ trách cskh

Tại sao bạn không dùng hàm IF nhỉ

 

[quang118]

Tại sao bạn không dùng hàm IF nhỉ

Mình có rất nhiều file, mỗi file lại có nhiều sheet nên làm hàm if mất công bạn ạ, với lại file của mình xuất từ phần mềm ra nên định dạng nó là dạng text nên công thức không chạy bạn ạ

 

[anhtuan2939]

Mình có rất nhiều file, mỗi file lại có nhiều sheet nên làm hàm if mất công bạn ạ

bạn có thể kéo sẵn công thức xuống mấy chục nghìn xong cho 1 sheet luôn, xong copy cột đó sang cho các sheet khác. Nếu bạn thao tác chậm thì mất 10 phút, nhanh thì mất 5 phút. Thời gian bạn đăng bài đến giờ cũng mình nghĩ có thể xử lý hết tất cả các file bạn cần rồi.

 

[ptm0412]

xuất từ phần mềm ra nên định dạng nó là dạng text

Cột Mạng nếu không là text thì là gì bây giờ?

 

[quang118]

Cột Mạng nếu không là text thì là gì bây giờ?

Toàn bộ file là dạng text ạ nên ko sử dụng công thức được

 

[anhtuan2939]

Toàn bộ file là dạng text ạ nên ko sử dụng công thức được

Bạn chuyển định dạng cột cần viết công thức về định dạng General trước rồi hẵng nhập công thức.

 

[snow25]

Kính chào mọi người!
Mình hiện đang phải ngồi làm thủ công công việc gán người phụ trách cskh, tiêu chí gán như sau
- Mạng Vina thì sẽ gán cho Quỳnh chăm sóc
- Các mạng khác sẽ gán cho Linh chăm sóc
1 file sẽ có rất nhiều Sheet, có số lượng KH khác nhau . Chi tiết theo hình minh họa đi kèm và file đi kèm. Nhờ mọi người hướng dẫn chỉ giúp mình cách gán tự động nhanh nhất. Xin cảm ơn
View attachment 282845

Thử code.

Sub abc()
    Dim i As Long, arr, lr, kq, sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        With sh
            lr = .Range("I" & Rows.Count).End(xlUp).Row
            If lr > 7 Then
                arr = .Range("I8:J" & lr).Value
                ReDim kq(1 To UBound(arr), 1 To 1)
                For i = 1 To UBound(arr)
                    If arr(i, 1) = "VinaPhone" Then
                        kq(i, 1) = "Qu" & ChrW(7923) & "nh ch" & ChrW(259) & "m sóc"
                    Else
                        kq(i, 1) = "Linh ch" & ChrW(259) & "m sóc"
                    End If
                Next i
                .Range("K8:K" & lr).Value = kq
           End If
       End With
   Next
End Sub

 

[quang118]

Sub abc() Dim i As Long, arr, lr, kq, sh As Worksheet For Each sh In ThisWorkbook.Worksheets With sh lr = .Range("I" & Rows.Count).End(xlUp).Row If lr > 7 Then arr = .Range("I8:J" & lr).Value ReDim kq(1 To UBound(arr), 1 To 1) For i = 1 To UBound(arr) If arr(i, 1) = "VinaPhone" Then kq(i, 1) = "Qu" & ChrW(7923) & "nh ch" & ChrW(259) & "m sóc" Else kq(i, 1) = "Linh ch" & ChrW(259) & "m sóc" End If Next i .Range("K8:K" & lr).Value = kq End If End With Next End Sub

Tuyệt vời quá, được luôn ạ. Em cảm ơn nhiều

 

[ptm0412]

Toàn bộ file là dạng text ạ nên ko sử dụng công thức được

Bạn chưa từng viết công thức sao biết không được? Viết hàm If, hoặc tạo bảng rồi Vlookup, có phải cộng trừ đâu mà text không làm được?

 

[VetMini]

Bạn chưa từng viết công thức sao biết không được? Viết hàm If, hoặc tạo bảng rồi Vlookup, có phải cộng trừ đâu mà text không làm được?

Bộ phải đã từng viết cong thức mới biết hở?
Xưa rồi Diễm ơi. Bi giờ chỉ cần biết GPE, không cần biết gì nữa hết.
Mọi vấn đề đều có người làm giùm, tội gì phải viết công thức

 

[thanhphongtslocphat]

Bạn sửa ô như thế này. Vào format cells - General - Enter (sao đó dùng phím F2 - rồi lại enter) nhé

 

[quang118]

Bộ phải đã từng viết cong thức mới biết hở?
Xưa rồi Diễm ơi. Bi giờ chỉ cần biết GPE, không cần biết gì nữa hết.
Mọi vấn đề đều có người làm giùm, tội gì phải viết công thức

File của mình là file text nếu thao tác chuyển sang General rồi gõ công thức rồi lại chuyển sang text để đẩy vào pm thì nó mất công hơn rất nhiều, trước giờ mình cũng đã thực hiện thủ công bằng thao tác filter rồi gán từng sheet 1 bạn ạ chứ ko phải mình ko biết gì rồi lên GPE nhờ mọi người mà ko có chút động não nào.

Bài đã được tự động gộp: 3/11/22

Bạn chưa từng viết công thức sao biết không được? Viết hàm If, hoặc tạo bảng rồi Vlookup, có phải cộng trừ đâu mà text không làm đượ

Mình nghĩ đến giải pháp Vào format cells - General để viết công thức sau đó mình lại phải chuyển sang text để đẩy vào phần mềm nên hơi mất công. Nên trước giờ mình dùng lệnh filter để lọc rồi điền bạn ạ

 

[ptm0412]

File của mình là file text nếu thao tác chuyển sang General rồi gõ công thức rồi lại chuyển sang text để đẩy vào pm thì nó mất công hơn rất nhiều, trước giờ mình cũng đã thực hiện thủ công bằng thao tác filter rồi gán từng sheet 1 bạn ạ chứ ko phải mình ko biết gì rồi lên GPE nhờ mọi người mà ko có chút động não nào.

Bài đã được tự động gộp: 3/11/22

Mình nghĩ đến giải pháp Vào format cells - General để viết công thức sau đó mình lại phải chuyển sang text để đẩy vào phần mềm nên hơi mất công. Nên trước giờ mình dùng lệnh filter để lọc rồi điền bạn ạ

Bản chất cột "mạng" là text, cột "người phụ trách" cũng là text, cần gì chuyển tới chuyển lui? Thế nếu dùng VBA thì nó chuyển thành text á?
Rõ ràng là bạn chưa từng viết công thức rồi đưa vào "phần mềm". Mà thôi, không thể nói chuyện với người cố chấp và chỉ muốn nhờ vả, không muốn tự làm.