| Customer | Đ Dài | ||||||||||
| Anh | |||||||||||
| Anh-Sebago | |||||||||||
| Áo | 2 | ||||||||||
| Áo | 3 | ||||||||||
| Áo-Sebago | |||||||||||
| Argentina | |||||||||||
| Bỉ | 2 | ||||||||||
| Bỉ | 3 | ||||||||||
| Pháp | 4 | ||||||||||
| Pháp | 5 | ||||||||||
| Việt Nam | 8 | ||||||||||
| Việt Nam | 9 | ||||||||||
| Ý | |||||||||||
| Nhật Bản | 8 | ||||||||||
| Nhật Bản | 9 |
Sub TimDauCachDauVaCuoi()
Dim Cls As Range, W As Integer, VTr As Byte
For Each Cls In Range([B3], [B3].End(xlDown))
VTr = InStr(Cls.Value, Space(1))
If VTr = 1 Or VTr = Len(Cls.Value) Then
W = W + 1:
Cls.Interior.ColorIndex = 34 + VTr
End If
Next Cls
[b1].Value = W
End SubEm xin cảm ơn sự góp ý từ anh ạ.
Em có cho chạy code mà báo lỗi như này ạ .
(1) Như thế này là như thế nào? Bạn không thể chép ra đây được ư?
Em cảm ơn đáp án của a ạ.
Thử lại code này coi sao
Sub Bao_Cao_NXT()
Dim Dic As Object, sArr(), i As Long, Res(1 To 10000, 1 To 9), sh As Worksheet
Dim tmp As String, j As Long, k As Long, x As Long, shts(), n As Long
Set Dic = CreateObject("scripting.dictionary")
shts = Array("TON DK", "NHAP TK", "XKHO TK")
For n = LBound(shts) To UBound(shts)
Set sh = Sheets(shts(n))
If n = UBound(shts) Then
sArr = sh.Range("C3", sh.[C65536].End(3)).Resize(, 5).Value
Else
sArr = sh.Range("B3", sh.[B65536].End(3)).Resize(, 5).Value
End If
For i = 1 To UBound(sArr)
tmp = sArr(i, 1) & sArr(i, 2) & sArr(i, 3) & sArr(i, 4)
tmp = Replace(UCase(tmp), " ", "")
If Not Dic.exists(tmp) Then
k = k + 1
Dic.Add tmp, k
Res(k, 1) = k
For j = 1 To 4
Res(k, j + 1) = sArr(i, j)
Next
Res(k, n + 6) = sArr(i, 5)
Res(k, 9) = "=RC[-3]+RC[-2]-RC[-1]"
Else
x = Dic.Item(tmp)
Res(x, n + 6) = Res(x, n + 6) + sArr(i, 5)
End If
Next
Next
With Sheets("BAOCAO_X-N-T")
.[A4:F10000].ClearContents
.[A4].Resize(k, UBound(Res, 2)) = Res
End With
End SubHôm nay làm ngày cuối rồi nên em cũng rãnh, vì vậy nên mới tóm cái mối mần ăn của bác Sa. Mong bác thông cảm. Chúc bác năm mới nhiều sức khỏe, sức khỏe và sức khỏe...
Em cảm ơn nhiều ạ .
Anh cho em hỏi !
Cho dù VBA xử lý được các khoảng trắng dư khi nhập đi chăng nữa, chủ bài đăng cũng nên tìm cách trừ khử ngay sai sót trong quá trình nhập liệu
Bạn có tin con số công bố "35 lần trong năm" ?
Mình không tin tưởng các con số công bố, đôi khi nói không đúng lại có lợi lớn cho cộng đồng
./ Làm việc thống kê tới con số, nhập liệu là chủ yếu. Cũng như bao ngành nghề khác cái tâm, cái kỹ càng là trên hết.
Từ VBA chuyển sang covid nhanh như chớp mắt
.
(1) Bạn chưa biết hay biết rồi (nhập liệu thông qua danh sách chọn trong 1 ComboBox) mà ngụy biện?.(1)/ Làm việc thống kê tới con số, nhập liệu là chủ yếu. Cũng như bao ngành nghề khác cái tâm, cái kỹ càng là trên hết.
.(1)/ Tuy nhiên trong quá trình làm việc, không thể không có những sai sót nhất định, khi dữ liệu này phải làm tay ( nhà máy đang đưa số hóa vào ). Và phải nhập trong nhiều ngày, với sự trùng lặp nhất định. Vì ngành nghề sản xuất
.(2)/ Do vậy bản thân người nhân viên khi làm cũng phải có những căn cứ đối chiếu ( số tổng ) Tồng tồn + Tổng nhập - Tổng xuất = Tổng cuối - Sau khi báo cáo chi tiết đã ra với số liệu tổng tương đồng nhau thì kết quả của mình cũng đã chính xác 95-96% rồi
(3)./ Bên cạnh đó nhà máy còn có các phòng ban liên quan, sẽ đối chiếu chi tiết cũng như tổng . cho nên VBA sẽ hỗ trợ công việc rất hữu hiệu đặc biết có các code làm cho cái thao tác dò, cộng dữ liệu thủ công sẽ đỡ đi rất nhiều.
Em xin chia sẽ quan điểm cá nhân của bản thân khi làm nghề ạ. Và rất cảm ơn mọi người đã có quan tâm tới bài viết này ạ
Nhận định của anh @SA_DQ gay gắt với em và DN của em quá ạ .
