Quản lý bán hàng điện thoại có tích hợp quản lý số imel (1 người xem)

[minhquang3211]

Hiện giờ bên em đang kinh doanh điện thoại
Em có tạo file mẫu dưới đây.

File có 2 sheet : Nhập hàng, Quản lý Imel
- Khi em nhập hàng trên sheet Nhập hàng với các cột dữ liệu : Tên, sl, d giá, thành tiên

Thì tương ứng ở sheet quản lý Imel cũng tạo tương thích theo bố cục
Giống như file em miêu tả ( Khi sản phẩm A, có số lượng là 5 thì sheet quản lý imel cũng insert sp A với số lượng là 1 và 5 dòng tương đương - Mục đích bên em để nhập số imel cho các sp này)
Mong sự hồi âm từ các bác!

 

[nghiaphuc]

Hiện giờ bên em đang kinh doanh điện thoại
Em có tạo file mẫu dưới đây.

File có 2 sheet : Nhập hàng, Quản lý Imel
- Khi em nhập hàng trên sheet Nhập hàng với các cột dữ liệu : Tên, sl, d giá, thành tiên

Thì tương ứng ở sheet quản lý Imel cũng tạo tương thích theo bố cục
Giống như file em miêu tả ( Khi sản phẩm A, có số lượng là 5 thì sheet quản lý imel cũng insert sp A với số lượng là 1 và 5 dòng tương đương - Mục đích bên em để nhập số imel cho các sp này)
Mong sự hồi âm từ các bác!

Bạn sử dụng code sau cho sheet Nhập hàng nhé:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer, j As Integer, SL As Integer, Rng As Range, Wf
    If Target.Column = 1 Or Target.Column > 4 Or Target.Count > 1 Then Exit Sub
    Set Wf = Application.WorksheetFunction
    i = Target.Row
    If Range("B" & i) <> "" And Wf.Count(Range("C" & i & ":D" & i)) = 2 Then
        Range("A" & i) = Wf.Count(Range("A2:A" & i - 1)) + 1
        Range("E" & i) = Range("C" & i) * Range("D" & i)
        SL = Range("C" & i)
        Set Rng = Sheet2.[A65536].End(xlUp).Offset(1)
        With Rng
            For j = 0 To SL - 1
                .Offset(j) = Wf.Count(Sheet2.[A:A]) + 1
            Next
            .Offset(, 1) = Range("B" & i)
            .Offset(, 1).Resize(SL).Merge
            .Offset(, 1).Resize(SL).VerticalAlignment = xlCenter
            .Offset(, 2).Resize(SL).Value = 1
        End With
    End If
End Sub

Với code trên, khi nhập dữ liệu trên sheet Nhập hàng, bạn chỉ cần nhập tại các cột B, VBA sẽ giúp bạn điền những phần còn lại.

 

[minhquang3211]

Vẫn là cách sử lý dữ liệu trên ạ

Em đã áp dụng các trên nhưng chỉ được cột số lượng và và tên hàng thôi ạ
Em muốn tự nhảy ra các cột khác như ( ngày, chứng từ, kho, tên ncc, kh...) nữa mà không biết chỉnh sửa lại vba trên ạ
Và dữ liệu được sắp xếp từng dòng giống như file em gửi ở dưới ( Qlý kho hàng cho xe máy - số khung, số máy...)
Các bác rành về lập trình giúp em với ạ
Em cảm ơn !
Mong các bác giúp đỡ

 

[concogia]

Em đã áp dụng các trên nhưng chỉ được cột số lượng và và tên hàng thôi ạ
Em muốn tự nhảy ra các cột khác như ( ngày, chứng từ, kho, tên ncc, kh...) nữa mà không biết chỉnh sửa lại vba trên ạ
Và dữ liệu được sắp xếp từng dòng giống như file em gửi ở dưới ( Qlý kho hàng cho xe máy - số khung, số máy...)
Các bác rành về lập trình giúp em với ạ
Em cảm ơn !
Mong các bác giúp đỡ

Viết cái này không khó, chỉ không hiểu cái số máy, số khung thôi
Tạm thời làm thế này, bạn nhập dữ liệu xong chọn sheet "KetQua" xem kết qủa nhé
Thân

 

[khunglongcodon]

Mình không sử dụng VBA, chỉ dùng hàm. Bạn coi thử xem có dễ hiểu không?
Mình tạo cột phụ đánh số thứ tự dòng dựa trên số lượng, rồi Tham chiếu qua.

 

[minhquang3211]

em trân thành cảm ơn 2 bác ạ, cách nào em thấy cũng OK hết, nhưng mà bản chất mù VBA nên em vẫn kết kiểu của bác khunglongcodon hơn ạ, Hi vong sẽ có dịp mời 2 bác bữa cafe