Giúp chỉnh sửa code VBA tính tổng khối lượng diễn giải (7 người xem)
- Thread starter amosis
- Ngày gửi
Người dùng đang xem chủ đề này
vanle33
Thành viên gạo cội
- Tham gia
- 30/10/08
- Bài viết
- 5,952
- Được thích
- 4,000
- Giới tính
- Nam
Bạn hãy search trên diễn đàn trước đã. Nếu không nhắn tin cho tôi.
Mình đã search trước khi đặt câu hỏi. Bạn xem kỹ ý mình hỏi. mình đã nhắn tin cho bạn.
Tiếp tục nhờ mọi người giúp ạ.
Vậy là chỉ xử lý khi nhập vào cột C?
Đúng rồi bạn à, bạn xem file mình đã ghi rõ
diẽn giải của bạn trong hình 2 và 3 : là dòng phép tính riêng, dòng chữ riêng? hay là cả 2
bạn cụ thể cách nhập liệu, code đơn giản hơn rất nhiều.
HungQuoc49
Thành viên tiêu biểu
- Tham gia
- 9/7/14
- Bài viết
- 683
- Được thích
- 440
Bài này cũng không có gì, bạn nêu rõ cách nhập diễn giải là xử lý được.
Cách diễn giải mình muốn thực hiện được như hình 1 và hình 3
Nhưng hiện tại trong code VBA đang bị lỗi như hình 2 nó không tổng lên như hình 3
Bạn vui lòng tải file rồi góp sửa giúp mình code
mình mong muốn được cả 2 cách như hình 1 và hình 3
nhưng hiện tại khi thực hiện theo hình 3 thì tổng khối lượng không đúng và bị lỗi như hình 2 (mong muốn thực hiện được như hình 3)
Cái này không phù hợp với mình bạn à.
HungQuoc49
Thành viên tiêu biểu
- Tham gia
- 9/7/14
- Bài viết
- 683
- Được thích
- 440
Lần chỉnh sửa cuối:
HungQuoc49
Thành viên tiêu biểu
- Tham gia
- 9/7/14
- Bài viết
- 683
- Được thích
- 440
Cảm ơn bạn.
Phần tính toán đã rất đúng yêu cầu của mình
Hiện tại đang cong lỗi phần định dạng dấu chấm "." và dấu phẩy "," rất mong bạn sửa giúp.
mình có gửi kèm ảnh mô tả lỗi
HungQuoc49
Thành viên tiêu biểu
- Tham gia
- 9/7/14
- Bài viết
- 683
- Được thích
- 440
Dán đoạn code này vào sheet KL
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DL As Range, Dem As Range, Tam, i, Dau, Cuoi
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("C14:C10000")) Is Nothing Then
Set DL = Target: DL.NumberFormat = "@" 'Thêm chỗ này
For Each Dem In DL
If Dem <> "" Then
If InStr(Dem, "=") Then Dem = Left(Dem, InStr(Dem, "=") - 1)
Tam = Dem
If InStr(Tam, ":") Then Tam = Right(Tam, Len(Tam) - InStr(Tam, ":"))
Tam = Replace(Tam, ",", ".")
Dem = Dem & "=" & Format(Evaluate(Tam), "#,##0.00") 'Thêm chỗ này
End If
Next Dem
For i = DL.Row + DL.Rows.Count - 1 To 1 Step -1
If Range("B" & i) <> "" Then
Dau = i
Range("E" & Dau).Value = 0
Exit For
End If
Next i
For i = DL.Row + DL.Rows.Count - 1 To UsedRange.Rows.Count
If Range("B" & i) <> "" And Range("C" & i) <> "" Then
Cuoi = i - 1
Exit For
Else
Cuoi = i
End If
Next i
Tam = 0
For i = Dau + 1 To Cuoi
If InStr(Range("C" & i), "=") Then
Tam = Tam + Right(Range("C" & i), Len(Range("C" & i)) - InStr(Range("C" & i), "="))
End If
Next i
Range("E" & Dau).Value = Tam
Range("E" & Dau).NumberFormat = "#,##0.00" 'Thêm chỗ này
End If
Application.EnableEvents = True
End Sub
Lần chỉnh sửa cuối:
Phanvankhich
Thành viên mới
- Tham gia
- 18/9/15
- Bài viết
- 10
- Được thích
- 0
File mắc một số lỗi sau:
1. Khi xóa dữ liệu trong bảng tính thì chữ Khối Lượng tỏng ô E 12 bị mất
2. Chưa đánh được số thứ tự
Mong bác sửa lại giúp em
HungQuoc49
Thành viên tiêu biểu
- Tham gia
- 9/7/14
- Bài viết
- 683
- Được thích
- 440
1. Khi xóa dữ liệu trong bảng tính thì chữ Khối Lượng tỏng ô E 12 bị mất
Mã:
sửa
For i = DL.Row + DL.Rows.Count - 1 To 1 Step -1
thành
For i = DL.Row + DL.Rows.Count - 1 To 14 Step -1
Mã:
Tìm mấy dòng cuối này
Range("E" & Dau).Value = Tam
Range("E" & Dau).NumberFormat = "#,##0.00"
End If
Application.EnableEvents = True
End Sub
Chèn thêm dòng lệnh như bên dưới
Range("E" & Dau).Value = Tam
Range("E" & Dau).NumberFormat = "#,##0.00"
Range("A14", "A" & UsedRange.Rows.Count) = "=IF(RC[1]<>"""",COUNTIF(R14C2:RC[1],""<>""),"""")"
End If
Application.EnableEvents = True
End SubPhanvankhich
Thành viên mới
- Tham gia
- 18/9/15
- Bài viết
- 10
- Được thích
- 0
Bác Kiểm tra lại giúp em. Vẫn bị lỗi phần đếm thứ tự.
HungQuoc49
Thành viên tiêu biểu
- Tham gia
- 9/7/14
- Bài viết
- 683
- Được thích
- 440
format cột A về general
Chọn toàn bộ A14:A67, nhấn ctrl+1
trang number--->category--->number--->ok
Lần chỉnh sửa cuối:
