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

NguyenthiH · 15/12/16

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 đỡ

NguyenthiH · 15/12/16

Cám Ơn Anh HieuCD, Anh quocgiacan. Em còn nhờ vả các Anh nữa nhe(Đừng la "Chú Cún Con" tội nghiệp)
EM có ý định là sẽ tạo Form để nhập liệu vào Sheet2. Sẽ có 3 ComboBox(CB_TenCN, CB_MaHang, CB_CongDoan). 3 TextBox(TB_Ngay, TB_To, TB_SL) và 1 ListBox. Em đang thiết kế Form, mong các Anh giúp đỡ nữa.

befaint · 15/12/16

NguyenthiH đã viết:
Em còn nhờ vả các Anh nữa nhe

Bạn nhờ giúp đỡ, nhờ hỗ trợ thôi, chứ nhờ vả thì hơi nguy hiểm...

NguyenthiH · 15/12/16

Anh befaint vui tính ghê. Ai lại nhờ người ta "Vả" mình đâu Anh. Nói đùa, mong các Anh giúp đỡ "Cún Con"

NguyenthiH · 15/12/16

"Cún Con" lại nhờ các Anh giúp đỡ nữa ah.
Khi gỏ tháng vào Sheet3!A2 thì sẽ lọc trong Sheet2, đập vào bảng Sheet3!A5:C các tổ, mã hàng theo tổ và tổng thành tiền theo mã hàng của tổ đó làm trong tháng đó. "Cún Con" có đính kèm File. Mong các Anh giúp đỡ.

HieuCD · 15/12/16

NguyenthiH đã viết:
"Cún Con" lại nhờ các Anh giúp đỡ nữa ah.
Khi gỏ tháng vào Sheet3!A2 thì sẽ lọc trong Sheet2, đập vào bảng Sheet3!A5:C các tổ, mã hàng theo tổ và tổng thành tiền theo mã hàng của tổ đó làm trong tháng đó. "Cún Con" có đính kèm File. Mong các Anh giúp đỡ.

bạn nhập tháng vào A2 code sẽ chạy

NguyenthiH · 15/12/16

"Cún Con" Cám Ơn Anh HieuCD nhiều nhiều.

NguyenthiH · 15/12/16

"Cún Con" vừa tạo Form xong, mong Các Anh giúp "Cún Con" nhập liệu với.
Trong Form, Cb_CN lấy list là cột G của Sheet1 và khi chọn tên công nhân trong Cb_CN thì tự đập "Tổ" của công nhân đó vào Tb_To.
Cb_MH lấy list là cột A của Sheet1(lọc không trùng) và khi chọn mã hàng trong Cb_MH thì Cb_CD chỉ có những công đoạn của mã hàng đó.
Khi chọn công đoạn rối gỏ số lượng vào Tb_SL nhấn enter thì đập dữ liệu của Cb_CN và Tb_SL vào ListBox1 và lúc đó Cb_CD và Tb_SL bị xóa và lại chọn công đoạn trong Cb_CD và gỏ số lượng vào Tb_SL lại enter để đập vào ListBox1.
Khi nhấn Cmd_NL thì ghi dữ liệu của Form vào Sheet2.
"Cún Con" mong các Anh giúp ah!

NguyenthiH · 16/12/16

"Cún Con"có tâp làm code như vầy để lấy List cho Cb_CN nhưng không được (Lỗi)

Mã:

Private Sub UserForm_Initialize()
Dim Arr1()
    With Cb_CN
        .ColumnCount = 1
        .ColumnWidths = "180"
        Arr1 = Sheet1.Range(Sheet1.[G1000].End(xlUp), Sheet1.[H4]).Value
    End With
    Cb_CN.List = Arr1
     With Me.ListBox1
        .ColumnCount = 3
        .ColumnWidths = "50;180;70"
     End With
    End With
End Sub

Mong các Anh giúp đỡ.

ChanhTQ@ · 16/12/16

Trong Form, Cb_CN lấy list là cột G của Sheet1 và khi chọn tên công nhân trong Cb_CN thì tự đập "Tổ" của công nhân đó vào Tb_To.

Nếu bạn viết/vẽ Form cho ngành may, thì danh sách tên CN nên có mã duy nhất cho từng người
Ví dụ:

PHP:

'Tên Công Nhân         Mã'
Nguyễn thị Lụa        NTL00
Nguyễn thị Lan        NTL01
Hồ thị Đào            HTF00
Đặng hồng Thắm        FHT00
Thái thị Tám          TTT00
Đỗ ngọc Thủy          FNT00
Lưu ngọc Loan         LNL00
Lê thị ngọc Thảo      LNT00
Thái thị thảo Thanh   TTT02
Hồ thị Khanh          HTK00
Đặng thị Huệ          FTH00
Nguyễn lan Hương      NLH00
Thái thị Bảy          TTB00
Trần thị Tú           TTT00
Trần thị cẩm Vân      TCV00
Lê thị Thúy           LTT00
Nguyễn Văn Toàn       NVT00
Nguyễn Văn Thể        NVT01
Đoàn Văn Hậu          FVH00 
Dương Quang           DJQ00

NguyenthiH · 16/12/16

"Cún Con" Cám Ơn Anh ChanhTQ@, Vì công nhân chổ em chỉ có 150 người, và khi nạp vào Danh Sách, nếu trùng thì em đặt là A, B. Mong Các Anh giúp đỡ.

befaint · 16/12/16

NguyenthiH đã viết:
"Cún Con" Cám Ơn Anh ChanhTQ@, Vì công nhân chổ em chỉ có 150 người, và khi nạp vào Danh Sách, nếu trùng thì em đặt là A, B. Mong Các Anh giúp đỡ.

"Người ta" phải xử lý dữ liệu ngon lành đã rồi mới đi tính làm chuyện khác.
Cứ đặt mã cho 150 người rồi làm gì cũng dễ và rất khoa học.

NguyenthiH · 16/12/16

Vây "Cún Con" nhờ các Anh làm luôn cho vậy.

NguyenthiH · 16/12/16

Sao em nạp List cho Cb_CN cứ bị lỗi hoài. "Cún Con"gà về VBA, mong các Anh giúp đỡ.
Em cũng có tìm trên GPE: 1, 2.
Mong các Anh giúp đỡ.

NguyenthiH · 16/12/16

Sao em nạp list cho ComboBox "Công Nhân", mà bị lỗi vảng ngay chổ màu đỏ vậy các Anh:

Mã:

Private Sub UserForm_Initialize()
     With Cb_CN
           .ColumnWidths = "50"
                Arr = Sheet1.Range(Sheet1[B][COLOR=#ff0000].[G4],[/COLOR][/B] Sheet1.[G65536].End(xlUp)).Value 
                  .List() = Arr   
         End With
    With ListBox1
        .ColumnCount = 3
        .ColumnWidths = "50;280;70"
    End With
End Sub

Mong các Anh giúp đỡ.

NguyenthiH · 16/12/16

Anh HieuCD chỉnh dùm em cột C của Sheet3 ("Tổng Thành Tiền" có dấu phân cách hàng ngàn với.(#,##0.00)
Vì code anh khi chọn tháng là xóa hết.

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
    [B][COLOR=#ff0000]Sheets("Sheet3").Range("A5:C1000").Clear[/COLOR][/B]
    Sheets("Sheet3").Range("A5").Resize(k, 3) = Arr
    Sheets("Sheet3").Range("A4").Resize(k + 1, 3).Borders.LineStyle = 1
End If
End Sub

Mong anh giúp đỡ.

ChanhTQ@ · 16/12/16

Bạn thử vận hành với Form trong file này; Có gì khó khăn thì fản hồi ngay nha! )*&^)

NguyenthiH · 16/12/16

"Cún Con" Cám Ơn Anh ChanhTQ@nhiều nhiều.
Ủa file của Anh là File tìm kiếm mà.
Anh có thể làm theo Form em làm được không Anh.

ChanhTQ@ · 16/12/16

Ủa file của Anh là File tìm kiếm mà.
Anh có thể làm theo Form em làm được không Anh.

Đó là Form của bạn mà! Chỉ có điều chưa cần tới ListBox (nên bỏ đi rồi) & thêm 2 TextBox để tiện nhập đơn giá công đoạn & mã NV

Bạn thử nhập liệu chưa vậy?

Các trị ta nhập vố các TextBox & ComboBox sẽ được lưu vô trang tính cần thiết.

NguyenthiH · 16/12/16

"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 đỡ.

NguyenthiH · 16/12/16

Đây nè Anh ChanhTQ hinh em chụp

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

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

Thành viên mới đăng ký

File đính kèm

Thành viên mới đăng ký

|||||||||||||

Thành viên mới đăng ký

Thành viên mới đăng ký

File đính kèm

Chuyên gia GPE

File đính kèm

Thành viên mới đăng ký

Thành viên mới đăng ký

File đính kèm

Thành viên mới đăng ký

0901452không62

Thành viên mới đăng ký

|||||||||||||

Thành viên mới đăng ký

Thành viên mới đăng ký

Thành viên mới đăng ký

Thành viên mới đăng ký

0901452không62

Thành viên mới đăng ký

0901452không62

Thành viên mới đăng ký

Thành viên mới đăng ký

Đếm ngược thời gian