Trang 1/4 1 2 3 4 cuốicuối
Hiển thị kết quả tìm kiếm từ 1 đến 10 trên tổng số: 32
  1. #1
    Tham gia ngày
    01 2007
    Bài gởi
    44
    Cảm ơn
    32
    Được cảm ơn 28 lần trong 12 bài viết

    Excel quản lý bán hàng

    Giúp mình thiết kế thêm phần tồn với. thank nhiều.

    Thank các bạn đã giúp đỡ, sau một thời gian mình đã hoàn thiện và nhập sản phẩm. nói chung mọi thứ là ok! mình xin đc share lại file này vì mình thấy nó sẽ có ích với rất nhiều người.
    Có bạn nào rành về combobox giúp mình add vào 2 sheep nhap và xuat với, vì nếu nhiều mã hàng thì hơi khó nhớ.

    Download
    password: thanhkhoan.com
    Tập tin đính kèm Tập tin đính kèm
    thay đổi nội dung bởi: khuctinhsy, 02-02-12 lúc 12:49 AM Lý do: share

  2. Có 11 thành viên cảm ơn khuctinhsy về bài viết này:


  3. #2
    Tham gia ngày
    08 2011
    Nơi Cư Ngụ
    Từ Sơn - BN
    Bài gởi
    347
    Cảm ơn
    322
    Được cảm ơn 527 lần trong 181 bài viết
    Trích Nguyên văn bởi khuctinhsy View Post
    Giúp mình thiết kế thêm phần tồn với. thank nhiều
    ùi té ra là lập trình VBA hả..hix hix..MÌnh không hiểu cái này. Nếu làm trên excel và dùng công thức excel. mình sẽ giúp bạn được hì,,,mà thực ra cái phần quản lý này của bạn đơn giản không cần dùng tới VBA,..dùng công thức excel là đủ...Phần tổng hợp nhập xuất tồn bạn nên làm theo như mình ví dụ cho bạn trong file nhé..hì tiếc là k giúp dc bạn. Nếu bạn muốn minh sẽ giúp bạn làm lại hoàn toàn trên excel. công thức đơn giản mà dễ hiểu. Mình xem fiel rồi cái công thức đơn giá vốn đầu kỳ của bạn ấy quá. dùng hàm if(type(vlookup cho dễ mà ngắn gọn
    thay đổi nội dung bởi: usagi90, 20-09-11 lúc 05:53 AM


  4. #3
    Tham gia ngày
    05 2007
    Bài gởi
    2,869
    Cảm ơn
    3,119
    Được cảm ơn 4,586 lần trong 2,278 bài viết
    Đây là macro sau khi sửa lại (tại dòng lệnh mang số 9)

    PHP Code:
    Option Explicit
    Private Sub Worksheet_Change(ByVal Target As Range)
     
    Dim Sh0 As WorksheetSh As WorksheetRng As RangesRng As RangeCls As Range
     Dim ShName 
    As StringMyAdd As String
     Dim Sj 
    As ByteSoNg As LongJj As LongSoLg As Double
     Dim Dat 
    As Date

     
    If Not Intersect(Target, [F1]) Is Nothing Then
       Set Sh0 
    ThisWorkbook.Worksheets("DM Hang")
       
    Jj Sh0.UsedRange.Rows.Count
       Dat 
    DateSerial(Year(Target.Value), 11)
       
    SoNg Target.Value Dat
       
    [b3].Resize(Jj6).ClearContents
       
    For Each Cls In Sh0.Range(Sh0.[a3], Sh0.[A65500].End(xlUp))
          
    SoLg Cls.Offset(, 3).Value
          
    For Jj 0 To SoNg
             
    For Sj 1 To 2
                ShName 
    Choose(Sj"Nhap""Xuat")
                
    Set Sh ThisWorkbook.Worksheets(ShName)
                
    Set Rng Sh.Range(Sh.[b3], Sh.[B65500].End(xlUp))
                
    Set sRng Rng.Find(Format(Dat Jj"mm/dd/yyyy"), , xlValuesxlWhole)
                If 
    Not sRng Is Nothing Then
                   MyAdd 
    sRng.Address
                   
    Do
                      If 
    Cls.Value sRng.Offset(, 1).Value Then
    9                     SoLg 
    SoLg Choose(Sj1, -1) * sRng.Offset(, Choose(Sj46)).Value   '<=|'
                       
    End If
                      
    Set sRng Rng.FindNext(sRng)
                   
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
                End 
    If
             
    Next Sj
          Next Jj
          With Cells
    (Cls.Row"B")
             .
    Resize(, 3).Value Cls.Resize(, 3).Value
             
    .Offset(, 3).Value SoLg
          End With
       Next Cls
     End 
    If
    End Sub 
    0909 127 085

  5. Có 2 thành viên cảm ơn HYen17 về bài viết này:


  6. #4
    Trích Nguyên văn bởi usagi90 View Post
    ùi té ra là lập trình VBA hả..hix hix..MÌnh không hiểu cái này. Nếu làm trên excel và dùng công thức excel. mình sẽ giúp bạn được hì,,,mà thực ra cái phần quản lý này của bạn đơn giản không cần dùng tới VBA,..dùng công thức excel là đủ...Phần tổng hợp nhập xuất tồn bạn nên làm theo như mình ví dụ cho bạn trong file nhé..hì tiếc là k giúp dc bạn. Nếu bạn muốn minh sẽ giúp bạn làm lại hoàn toàn trên excel. công thức đơn giản mà dễ hiểu. Mình xem fiel rồi cái công thức đơn giá vốn đầu kỳ của bạn ấy quá. dùng hàm if(type(vlookup cho dễ mà ngắn gọn
    Bạn ơi! Giúp mình chút với.
    Mình xem file của bạn đăng trên đó, Cái phần bên Nhập và bên xuất khi mình đánh mã hàng nó không tự nhày ra tên hàng haà quy cách ak? Mình có 1 file XNT gần giống dạng của bạn, nhg phần DM hàng của mình bị hỏng nên sang bêN Xn nó hok tự nhảy đc như trc nữa. Bạn có thể giúp mình làm 1 file excel như vậy dc hok

  7. Có 2 thành viên cảm ơn zijmkute89 về bài viết này:


  8. #5
    Tham gia ngày
    01 2007
    Bài gởi
    44
    Cảm ơn
    32
    Được cảm ơn 28 lần trong 12 bài viết
    Trích Nguyên văn bởi SA_DQ View Post
    Mình dùng macro sự kiện ở [F1]
    Bạn ơi bạn tính lại cho mình với. Ở phần xuất hàng ấy nó thống kê ở cột tồn từng ngày do đó bạn ko thể cộng tổng lại đc mà phải lấy ở ngày cuối cùng, Mình ví dụ: Hộp giấy ăn ở sheep Tồn bị âm 381 hộp.
    àh nhân tiện các bạn giúp mình thiết kế lại phần xuất với trước mình có nhờ một cao thủ làm hộ nhưng mà dùng = công thức mảng nên khi có nhiều hàng hóa mình tham chiếu xuống càng nhiều máy càng hay bị treo.
    thay đổi nội dung bởi: khuctinhsy, 20-09-11 lúc 09:04 PM

  9. #6
    Tham gia ngày
    01 2007
    Bài gởi
    44
    Cảm ơn
    32
    Được cảm ơn 28 lần trong 12 bài viết
    Trích Nguyên văn bởi HYen17 View Post
    Đây là macro sau khi sửa lại (tại dòng lệnh mang số 9)

    PHP Code:
    Option Explicit
    Private Sub Worksheet_Change(ByVal Target As Range)
     
    Dim Sh0 As WorksheetSh As WorksheetRng As RangesRng As RangeCls As Range
     Dim ShName 
    As StringMyAdd As String
     Dim Sj 
    As ByteSoNg As LongJj As LongSoLg As Double
     Dim Dat 
    As Date

     
    If Not Intersect(Target, [F1]) Is Nothing Then
       Set Sh0 
    ThisWorkbook.Worksheets("DM Hang")
       
    Jj Sh0.UsedRange.Rows.Count
       Dat 
    DateSerial(Year(Target.Value), 11)
       
    SoNg Target.Value Dat
       
    [b3].Resize(Jj6).ClearContents
       
    For Each Cls In Sh0.Range(Sh0.[a3], Sh0.[A65500].End(xlUp))
          
    SoLg Cls.Offset(, 3).Value
          
    For Jj 0 To SoNg
             
    For Sj 1 To 2
                ShName 
    Choose(Sj"Nhap""Xuat")
                
    Set Sh ThisWorkbook.Worksheets(ShName)
                
    Set Rng Sh.Range(Sh.[b3], Sh.[B65500].End(xlUp))
                
    Set sRng Rng.Find(Format(Dat Jj"mm/dd/yyyy"), , xlValuesxlWhole)
                If 
    Not sRng Is Nothing Then
                   MyAdd 
    sRng.Address
                   
    Do
                      If 
    Cls.Value sRng.Offset(, 1).Value Then
    9                     SoLg 
    SoLg Choose(Sj1, -1) * sRng.Offset(, Choose(Sj46)).Value   '<=|'
                       
    End If
                      
    Set sRng Rng.FindNext(sRng)
                   
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
                End 
    If
             
    Next Sj
          Next Jj
          With Cells
    (Cls.Row"B")
             .
    Resize(, 3).Value Cls.Resize(, 3).Value
             
    .Offset(, 3).Value SoLg
          End With
       Next Cls
     End 
    If
    End Sub 
    Mình không biết sử dụng macro thế nào đâu, các bạn làm xong giúp mình add luôn vào file nha

  10. #7
    Tham gia ngày
    01 2007
    Bài gởi
    44
    Cảm ơn
    32
    Được cảm ơn 28 lần trong 12 bài viết
    Trích Nguyên văn bởi zijmkute89 View Post
    Bạn ơi! Giúp mình chút với.
    Mình xem file của bạn đăng trên đó, Cái phần bên Nhập và bên xuất khi mình đánh mã hàng nó không tự nhày ra tên hàng haà quy cách ak? Mình có 1 file XNT gần giống dạng của bạn, nhg phần DM hàng của mình bị hỏng nên sang bêN Xn nó hok tự nhảy đc như trc nữa. Bạn có thể giúp mình làm 1 file excel như vậy dc hok
    HiHI cái phần nhập xuất mình hay ở chỗ là không cần phải nhớ mã hàng, tên hàng mà chỉ cần đặt chuột vào là nó tham chiếu sang bên sheep DM bạn chỉ cần chọn trong list hồi trc có một người trên GPE thiết kế cho mình bằng combofix gì đó

  11. #8
    Tham gia ngày
    09 2008
    Bài gởi
    2,850
    Cảm ơn
    2,902
    Được cảm ơn 3,752 lần trong 2,093 bài viết

    Mình đang vội

    Sẽ trao đổi với bạn thêm & đây là file đính kèm

    (Sa_DQ hết dung lượng để đưa file lên rồi!)
    Tập tin đính kèm Tập tin đính kèm

  12. Có 4 thành viên cảm ơn ChanhTQ@ về bài viết này:


  13. #9
    Tham gia ngày
    01 2007
    Bài gởi
    44
    Cảm ơn
    32
    Được cảm ơn 28 lần trong 12 bài viết
    Bạn ơi giúp mình làm lại với. vẫn bị sai ở phần tồn. mình ví dụ như mã LH06 tồn ĐK 9 + nhập 1=10
    xuất 2+3 = 5 --> tồn cuối kỳ = 5 (còn GPeVattu lại tính ra tồn cuối kỳ là -7).

    Còn một vấn đề nữa là phần lãi lỗ thì ở file của mình thiết kế tính cho từng lần bán. các bạn giúp mình tính tổng lãi của tổng số hàng đã bán đến cùng một thời điểm cho từng loại hàng thể hiện trên sheep Tồn đc ko. Mình đính kèm lại file và đã thêm một số chỉ tiêu, các bạn giúp mình với. Mình đang rất cần vì mình mới mở một shop nho nhỏ muốn dựa vào file này để quản lý hàng.

    xin cảm ơn!
    Tập tin đính kèm Tập tin đính kèm

  14. Thành viên sau cảm ơn khuctinhsy về bài viết này:


  15. #10
    Tham gia ngày
    08 2011
    Nơi Cư Ngụ
    Từ Sơn - BN
    Bài gởi
    347
    Cảm ơn
    322
    Được cảm ơn 527 lần trong 181 bài viết
    Trích Nguyên văn bởi khuctinhsy View Post
    Bạn ơi giúp mình làm lại với. vẫn bị sai ở phần tồn. mình ví dụ như mã LH06 tồn ĐK 9 + nhập 1=10
    xuất 2+3 = 5 --> tồn cuối kỳ = 5 (còn GPeVattu lại tính ra tồn cuối kỳ là -7).

    Còn một vấn đề nữa là phần lãi lỗ thì ở file của mình thiết kế tính cho từng lần bán. các bạn giúp mình tính tổng lãi của tổng số hàng đã bán đến cùng một thời điểm cho từng loại hàng thể hiện trên sheep Tồn đc ko. Mình đính kèm lại file và đã thêm một số chỉ tiêu, các bạn giúp mình với. Mình đang rất cần vì mình mới mở một shop nho nhỏ muốn dựa vào file này để quản lý hàng.

    xin cảm ơn!
    trời ơi là trời bạn nghe mình thì có phải dễ dàng không? Mình đã bảo là cái file quản lý của bạn ấy. dùng hoàn toàn bằng excel là đơn giản nhất...Nếu nhất trí mình sẽ giúp bạn thiết kế lại hoàn toàn bằng công thức . Nếu cần thì add nik yahoo mình để tiện trao đổi


  16. Có 2 thành viên cảm ơn usagi90 về bài viết này:


Trang 1/4 1 2 3 4 cuốicuối

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]