Tính Thành Tiền (2 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
NguyenthiH

NguyenthiH

Thành viên mới đăng ký
Tham gia
11/12/16
Bài viết
965
Được thích
175
Giới tính
Nữ
Chào Mọi Người. Em là thành viên mới. Mong mọi người giúp em tính cột "Thành Tiền"với ah.
Cột "Thành Tiền"(Sheet2!G)= Sheet2!F * giá công đoạn(Sheet1!C
"Giá CÔng Đoạn" = Tìm theo "Mã Hàng" & "Công Đoạn" rồi lấy giá công đoạn.
Ví dụ như: ngay2/10/2016 - Nguyễn thị Lan - VL2335 - Ủi Ly - có giá công đoạn là 12 = 200*12 bằng 2400
Dữ liệu chỉ giả định, thực tế rất nhiều dòng, nếu viết code được, mong mọi người giúp đỡ
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
NguyenthiH đã viết:
"Cún Con" có thử code chỉnh cho cột thành tiền của Sheet3 có dấu phân cách hàng ngàn, nhưng không được
Mã: 
    Sheets("Sheet3").Range("A5:C1000").Clear
    Sheets("Sheet3").Range("A5").Resize(k, 3) = Arr
    Sheets("Sheet3").Range("A4").Resize(k + 1, 3).Borders.LineStyle = 1
    Sheets("Sheet3").Range("C5").Resize(k + 1).FormatNumber = FormatNumber("#,##0.00")
"Cún Con" gà về VBA.
Mong các Anh giúp đỡ.
Nhấp chuột vào đây để mở rộng...
Mã: 
      Sheets("Sheet3").Range("C5").Resize(k + 1).FormatNumber [COLOR=#0000ff]= "#,##0.00"[/COLOR]
 
Upvote 0
vẫn Không được Anh befaint ơi.!!
 
Upvote 0
Cám Ơn Anh ChanhTQ nhiều nhiều. Thế còn nạp vào ListBox(vì một công nhân có thể may nhiều công đoạn).
 
Upvote 0
Cám Ơn Anh; Thế còn nạp vào ListBox(vì một CN có thể may nhiều công đoạn).
Nhấp chuột vào đây để mở rộng...

May nhiều công đoạn trong 1 ngày?

Nhưng vấn đề ở đây không fải là ListBox, mà sẽ là vấn để bạn nhập như thế nào vô trang dữ liệu, mà mình gọi là 'CTiet'

Nếu thực hiện 2 công đoạn trong 1 ngày thì fải nhập 2 dòng thôi.

Còn nếu rất nhiều trường hợp fải làm nhiều công đoạn trong ngày thì ta lại fải tách trang này ra làm 2 Table liên hệ với nhau 1<-> nhiều (Giống như trong nhập/xuất kho vậy)
 
Upvote 0
với Anh befaint:
Anh và em đều viết lộn "FormatNumber", mà phải là "NumberFormat" mới được.
với Anh ChanhTQ:
Em không rành về VBA và cả 1<>nhiều, thực tế chô em một công nhân có thể may từ 3 ->4 cộng đoạn vả cả nhiều mã hàng. Mong Anh giúp đỡ.
 
Upvote 0
Em không rành về VBA và cả 1<>nhiều, thực tế chô em một công nhân có thể may từ 3 ->4 cộng đoạn vả cả nhiều mã hàng. Mong Anh giúp đỡ.
Nhấp chuột vào đây để mở rộng...

Vấn đề ở đây không fải là VBA, Vấn đề sẽ fải là cấu trúc lưu giữ dữ liệu thế nào cho tốt nhất.

Còn VBA cũng giống như công cụ hỗ trợ mà thôi.

Đúng là mình mới xem lại trang 'CTiet'; Trong đó 1 người trong 1 ngày có tham gia các công đoạn khác nhau & hiện giờ bạn đang nhập nhiều dòng cho 1 người.

Tuy nhiên cách này sẽ làm cho CSDL của bạn trùng nhiều trong các cột /trường (như: [Ngày], [Mã CN], Tên CN], [Tổ])

(*) Theo cách hiện giờ của bạn cũng được; Nhưng bạn cần biết có cách khác nữa để tránh trùng lặp
là người ta tách fần trùng lặp này ra 1 bảng riêng & các trường không trùng lặp ra 1 bảng riêng; Hai bảng này liên hệ với nhau.

Vậy lựa chọn hướng đi sẽ là bạn: Tiếp tục như hiện tại hay tách làm 2 bảng (Table)
Nếu chọn hướng mới, chúng ta fải hoàn toàn fụ thuộc vô VBA.

. . . . ? ? ?-+*/
 
Upvote 0
Cám Ơn Anh ChanhTQ@ đã quan tâm giúp đỡ em. Nếu không phiền gì Anh, thì Anh có thể giúp em làm theo cách tránh trùng lập được không ah!
ChanhTQ@ đã viết:
Nhưng bạn cần biết có cách khác nữa để tránh trùng lặp
là người ta tách fần trùng lặp này ra 1 bảng riêng & các trường không trùng lặp ra 1 bảng riêng; Hai bảng này liên hệ với nhau.
Nhấp chuột vào đây để mở rộng...

Mong học hỏi ở Anh.
 
Upvote 0
Fiền chứ sao lại chả fiền!

Tiêu 1 buổi í chứ lị!;;;;;;;;;;; :.,

Voọc kỹ chút đi nha!
 

File đính kèm

Upvote 0
"Cún Con" làm phiền Anh ChanhTQ@ quá. Không biết chiều nay Anh có đi gặp gỡ Anh Nguyễn Duy Tuân không, nếu có Anh chơi 1 lít vào là quên hết phiền muộn.
Cám Ơn Anh ChanhTQ@ nhiều nhiều.
 
Upvote 0
Cám Ơn mọi người đã giúp em. Bây giờ em muốn thống kê ra trong tháng Lương(tổng thành tiền) của từng người và muốn biết trong tháng từng người của tổ nào và từng mã hàng có tổng thành tiền là bao nhiêu ?
Code của Anh HieuCD là chi tiết của từng tổ làm theo mã hàng(có 3 cột,tổ,Mã Hàng, tỏng thành tiền)
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    If Target.Value < 1 Or Target.Value > 12 Then Exit Sub
    If Sheets("Sheet2").Range("B65500").End(xlUp).Row <= 3 Then Exit Sub
    Dim dic As Object, Darr(), arr(), i As Long, tmp As String
    Set dic = CreateObject("Scripting.Dictionary")
    Darr = Sheets("Sheet2").Range("A4:G" & Sheets("Sheet2").Range("A65500").End(xlUp).Row).Value
    ReDim arr(1 To UBound(Darr), 1 To 3)
    For i = 1 To UBound(Darr)
        If Month(Darr(i, 1)) = Target.Value Then
            tmp = Darr(i, 3) & "!@#" & Darr(i, 4)
            If Not dic.exists(tmp) Then
                k = k + 1:                  dic.Add tmp, k
                arr(k, 1) = Darr(i, 3):     arr(k, 2) = Darr(i, 4)
            End If
            arr(dic.Item(tmp), 3) = arr(dic.Item(tmp), 3) + Darr(i, 7)  
        End If
    Next i
    Set dic = Nothing
    Sheets("Sheet3").Range("A5:C500").Clear
    Sheets("Sheet3").Range("A5").Resize(k, 3) = arr
    Sheets("Sheet3").Range("A4").Resize(k + 1, 3).Borders.LineStyle = 1
    Sheets("Sheet3").Range("C5").Resize(k + 1).NumberFormat = "#,##0"
End If
End Sub
Bây giờ em muốn là Tên công nhân, tổ, mã hàng, tổng thành tiền và em có chỉnh code lại như vầy mà lỗi vàng ngay dòng đỏ:
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    If Target.Value < 1 Or Target.Value > 12 Then Exit Sub
    If Sheets("Sheet2").Range("B65500").End(xlUp).Row <= 3 Then Exit Sub
    Dim dic As Object, Darr(), arr(), i As Long, tmp As String
    Set dic = CreateObject("Scripting.Dictionary")
    Darr = Sheets("Sheet2").Range("A4:G" & Sheets("Sheet2").Range("A65500").End(xlUp).Row).Value
    ReDim arr(1 To UBound(Darr), 1 To 4)
    For i = 1 To UBound(Darr)
        If Month(Darr(i, 1)) = Target.Value Then
            tmp = Darr(i, 2) & "!@#" & Darr(i, 3) & Darr(i, 4)
            If Not dic.exists(tmp) Then
                k = k + 1:                  dic.Add tmp, k
                arr(k, 1) = Darr(i, 2):     arr(k, 2) = Darr(i, 3)
                arr(k, 3) = Darr(i, 4)
            End If
[B][COLOR=#ff0000]            arr(dic.Item(tmp), 2) = arr(dic.Item(tmp), 2) + Darr(i, 7)[/COLOR][/B]
        End If
    Next i
    Set dic = Nothing
    Sheets("Sheet4").Range("A5:D1000").Clear
    Sheets("Sheet4").Range("A5").Resize(k, 4) = arr
    Sheets("Sheet4").Range("A4").Resize(k + 1, 4).Borders.LineStyle = 1
    Sheets("Sheet4").Range("D5").Resize(k + 1).NumberFormat = "#,##0"
End If
End Sub
Mong mọi người giúp đỡ.
 
Upvote 0
Tổng hợp theo tổ hay theo từng người trong CQ của 1 tháng đây, mại zô!
 

File đính kèm

Upvote 0
Hay quá Anh ChanhTQ@, Cám ơn Anh nhiều nhiều
 
Upvote 0
Ah mà Anh ChanhTQ@ em hỏi tý: nếu phát sinh thêm mã hàng và công nhân thì cứ chèn vào tiếp hả Anh.(Sheet Thop và Sheet Lương)
Trong File Anh có MaQH là viết tắt của từ gì vậy Anh.
 
Upvote 0
Ah mà Anh ChanhTQ@ em hỏi tý: (1)Nếu phát sinh thêm mã hàng và công nhân thì cứ chèn vào tiếp hả Anh.(Sheet Thop và Sheet Lương)

(2) Trong File Anh có MaQH là viết tắt của từ gì vậy Anh.
Nhấp chuột vào đây để mở rộng...

(1) Với trình độ của bạn thì nên diễn dịch Code ra tiếng Việt để hiểu rõ hơn.

(2) MaQH: đó là từ viết tắt của cụm: [Mã Quan Hệ]

Mã này có chức năng liên hệ giữa fần 'Chung' với các dòng của fần 'Chi tiết'
Fần chung gồm các trường [Ngày], [Mã NV], [Tổ] & [MaQH]
Từ đó ta mới xác định được tổ của mỗi dòng chi tiết.
Fần chi tiết như bạn thấy, gồm các trường:
[TABLE="width: 427"]
[TR]
[TD="class: xl65, width: 83"][MaQH],
[/TD]
[TD="class: xl65, width: 96"][Mã Hàng],
[/TD]
[TD="class: xl66, width: 96"][Công Đoạn],
[/TD]
[TD="class: xl66, width: 70"]Số Lượng
[/TD]
[TD="class: xl66, width: 82"],Thành Tiền
[/TD]
[/TR]
[/TABLE]
Mã được tạo ra bỡi 2 thành tố (TT); TT đầu gồm 3 kí tự biểu thị Năm, tháng & ngày thực hiện SF
TT sau là mã CNV thực hiện công đoạn sản fẩm.
 
Upvote 0
NguyenthiH đã viết:
Cám Ơn mọi người đã giúp em. Bây giờ em muốn thống kê ra trong tháng Lương(tổng thành tiền) của từng người và muốn biết trong tháng từng người của tổ nào và từng mã hàng có tổng thành tiền là bao nhiêu ?
Code của Anh HieuCD là chi tiết của từng tổ làm theo mã hàng(có 3 cột,tổ,Mã Hàng, tỏng thành tiền)
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    If Target.Value < 1 Or Target.Value > 12 Then Exit Sub
    If Sheets("Sheet2").Range("B65500").End(xlUp).Row <= 3 Then Exit Sub
    Dim dic As Object, Darr(), arr(), i As Long, tmp As String
    Set dic = CreateObject("Scripting.Dictionary")
    Darr = Sheets("Sheet2").Range("A4:G" & Sheets("Sheet2").Range("A65500").End(xlUp).Row).Value
    ReDim arr(1 To UBound(Darr), 1 To 3)
    For i = 1 To UBound(Darr)
        If Month(Darr(i, 1)) = Target.Value Then
            tmp = Darr(i, 3) & "!@#" & Darr(i, 4)
            If Not dic.exists(tmp) Then
                k = k + 1:                  dic.Add tmp, k
                arr(k, 1) = Darr(i, 3):     arr(k, 2) = Darr(i, 4)
            End If
            arr(dic.Item(tmp), 3) = arr(dic.Item(tmp), 3) + Darr(i, 7)  
        End If
    Next i
    Set dic = Nothing
    Sheets("Sheet3").Range("A5:C500").Clear
    Sheets("Sheet3").Range("A5").Resize(k, 3) = arr
    Sheets("Sheet3").Range("A4").Resize(k + 1, 3).Borders.LineStyle = 1
    Sheets("Sheet3").Range("C5").Resize(k + 1).NumberFormat = "#,##0"
End If
End Sub
Bây giờ em muốn là Tên công nhân, tổ, mã hàng, tổng thành tiền và em có chỉnh code lại như vầy mà lỗi vàng ngay dòng đỏ:
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    If Target.Value < 1 Or Target.Value > 12 Then Exit Sub
    If Sheets("Sheet2").Range("B65500").End(xlUp).Row <= 3 Then Exit Sub
    Dim dic As Object, Darr(), arr(), i As Long, tmp As String
    Set dic = CreateObject("Scripting.Dictionary")
    Darr = Sheets("Sheet2").Range("A4:G" & Sheets("Sheet2").Range("A65500").End(xlUp).Row).Value
    ReDim arr(1 To UBound(Darr), 1 To [COLOR=#ff0000]4[/COLOR])
    For i = 1 To UBound(Darr)
        If Month(Darr(i, 1)) = Target.Value Then
            tmp = Darr(i, 2) & "!@#" & Darr(i, 3) & Darr(i, 4)
            If Not dic.exists(tmp) Then
                k = k + 1:                  dic.Add tmp, k
                arr(k, 1) = Darr(i, 2):     arr(k, 2) = Darr(i, 3)
                arr(k, 3) = Darr(i, 4)
            End If
[B][COLOR=#ff0000]            arr(dic.Item(tmp), 2) = arr(dic.Item(tmp), 2) + Darr(i, 7)[/COLOR][/B]
        End If
    Next i
    Set dic = Nothing
    Sheets("Sheet4").Range("A5:D1000").Clear
    Sheets("Sheet4").Range("A5").Resize(k, 4) = arr
    Sheets("Sheet4").Range("A4").Resize(k + 1, 4).Borders.LineStyle = 1
    Sheets("Sheet4").Range("D5").Resize(k + 1).NumberFormat = "#,##0"
End If
End Sub
Mong mọi người giúp đỡ.
Nhấp chuột vào đây để mở rộng...
bạn sửa code lại, với tên công nhân không được trùng trong công ty
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    If Target.Value < 1 Or Target.Value > 12 Then Exit Sub
    If Sheets("Sheet2").Range("B65500").End(xlUp).Row <= 3 Then Exit Sub
    Dim Dic As Object, Darr(), Arr(), i As Long, tmp As String
    Set Dic = CreateObject("Scripting.Dictionary")
    Darr = Sheets("Sheet2").Range("A4:G" & Sheets("Sheet2").Range("A65500").End(xlUp).Row).Value
    ReDim Arr(1 To UBound(Darr), 1 To [COLOR=#ff0000]4[/COLOR])
    For i = 1 To UBound(Darr)
        If Month(Darr(i, 1)) = Target.Value Then
           [COLOR=#ff0000] tmp = Darr(i, 2)[/COLOR] 'Tên công nhân không duoc trùng
            If Not Dic.exists(tmp) Then
                k = k + 1:                  Dic.Add tmp, k
[COLOR=#ff0000]                Arr(k, 1) = Darr(i, 2): Arr(k, 2) = Darr(i, 3): Arr(k, 3) = Darr(i, 4)[/COLOR]
            End If
            Arr(Dic.Item(tmp), [COLOR=#ff0000]4[/COLOR]) = Arr(Dic.Item(tmp),[COLOR=#ff0000] 4[/COLOR]) + Darr(i, 7)
        End If
    Next i
    Set Dic = Nothing
    Sheets("Sheet3").Range("A5:D1000").Clear
    Sheets("Sheet3").Range("A5").Resize(k, [COLOR=#ff0000]4[/COLOR]) = Arr
    Sheets("Sheet3").Range("A4").Resize(k + 1, 4).Borders.LineStyle = 1
End If
End Sub
 
Upvote 0
Không được Anh HieuCD ơi, vì cấu trúc Sheet2 của em sẽ có tên một người trên một cột. Em thử thấy nó không chạy gì hết.
 
Upvote 0
NguyenthiH đã viết:
Không được Anh HieuCD ơi, vì cấu trúc Sheet2 của em sẽ có tên một người trên một cột. Em thử thấy nó không chạy gì hết.
Nhấp chuột vào đây để mở rộng...
mình sử dụng file cũ, bạn sử dụng file của bài nào? nếu file mới thì gởi lên mới chỉnh được
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
ủa sao file em cũng là file đó mà không chạy code
 
Upvote 0
Xin lỗi Anh HieuCD em biết lỗi do đâu rồi(do nhầm sheet) Thế bây giờ Anh có thể tỗng hợp dùm tổng thành tiền của từng người trong tháng để em nộp thủ quỹ phát tiền được không ah!.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

SA_DQ
[Xin hỏi] Cách tính số tiền bình quân của tài khoản trong 1 tháng (1 người xem)
Trả lời
10
Đọc
163
VetMini
V
A
  • Question Question
Nhờ anh chị em chú bác giúp em viết code vba thay cho công thức dò tìm và tính
Trả lời
2
Đọc
62
A HOANG 620
A
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
12 13 14
Trả lời
262
Đọc
28K
toptikibeauty
T
T
tìm ra số tháng mà lượng hàng nhập ban đầu sử dụng hết
    • Cười
Trả lời
3
Đọc
134
minhminh27
minhminh27
nttrung_proneu
Cách giữ công thức khi lọc và tách file
Trả lời
2
Đọc
60
nttrung_proneu
nttrung_proneu
K
  • Question Question
Code vba đọc QR code file hình ảnh trên CCCD
    • Cười
Trả lời
0
Đọc
63
kingbo.camera
K
Nguyễn Duy Tuân
Phiên bản mới Add-in A-Tools v10 (2024) (1 người xem)
    • Thích
2 3
Trả lời
42
Đọc
3K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
H
  • Question Question
Gửi mail hàng loạt với mỗi mail là 1 file PDF đính kèm khác nhau
Trả lời
1
Đọc
56
minhminh27
minhminh27
B
Làm sao đổi đơn vị B, M này sang hàng đơn vị vậy mọi người? (1 người xem)
    • Cười
Trả lời
4
Đọc
67
Bao Nguyen 89
B
C
Tạo hyperlink hàng loạt
Trả lời
9
Đọc
5K
online.tanphat
O
TrungChinhs
  • Question Question
Hỏi cách làm tròn số trong VBA
Trả lời
9
Đọc
7K
SA_DQ
SA_DQ
dongbhhg
Tìm lương cơ sở theo từng tháng (1 người xem)
Trả lời
3
Đọc
91
dongbhhg
dongbhhg
V
Làm mẫu giấy đi đường (công lệnh) bằng Excel
Trả lời
12
Đọc
11K
Gà Công Nghệ
Gà Công Nghệ
N
Thử lập trình XLL add-in bằng C/C++
    • Thích
Trả lời
0
Đọc
91
nguyendang95
N
Tuấn Bụng Bự
tạo QRcode chuyển khoản ngân hàng (1 người xem)
Trả lời
5
Đọc
223
Tuấn Bụng Bự
Tuấn Bụng Bự
M
Tự chèn dòng khi cập nhật dữ liệu từ trang tính khác.
Trả lời
1
Đọc
60
BuiQuangThuan
B
Quách Ngọc
Trả về kết quả ngày tháng hay khoảng trống (1 người xem)
Trả lời
3
Đọc
70
Quách Ngọc
Quách Ngọc
MaxanB
Cần hỗ trợ công thức Vlookup nhiều sheet theo điều kiên
Trả lời
2
Đọc
90
MaxanB
MaxanB
N
Không chạy được file VBA
Trả lời
3
Đọc
151
nhjngj
N
N
Xin giúp e cách lọc dữ liệu bị trùng
Trả lời
1
Đọc
77
hoangtuaotrang_hp_vn
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
Back
Top Bottom