Làm bảng tổng kết tháng (1 người xem)

doanhoanghai · 21/12/09

Các Bạn giúp mình với $-\\/.$ !

Mình mới đi làm xếp cho mình 2 file khách hàng tháng 11 & tháng 12 bắt mình tổng hợp vào thành 1 file tổng kết mà mình ngu Excel lắm +-+-+-+

mà làm thủ công thì chắc 1 tháng mới xong được ! bạn nào pro giúp mình với nhé !

Thank @$@!^%

SA_DQ · 21/12/09

Bạn kiểm theo file đính kèm tổng kết trang tháng 11, sẽ tiếp. . .

PHP:

Option Explicit
Sub TKThuoc()
 Dim Clls As Range, Sh As Worksheet:         Dim MyColor As Byte
 Dim KhHg As String, TenNT As String
 
 Set Sh = Sheets("TKet"):                    Sheets("Th11").Select
 MyColor = Sh.[A1].Interior.ColorIndex + 1
 Sh.[B1].CurrentRegion.Offset(1).ClearContents
 For Each Clls In Range([A5], [A65500].End(xlUp))
   If Left(Clls.Value, 2) = "KH" Then
      KhHg = Clls.Value:            TenNT = Clls.Offset(, 1).Value
   ElseIf Left(Clls.Value, 2) = "Th" Then
      With Sh.[A65500].End(xlUp).Offset(1)
         .Value = KhHg:             .Offset(, 1).Value = TenNT
         
         .Offset(, 2).Value = Cells(Clls.Row - 1, 4).Value
         
         .Offset(, 3).Resize(, 5).Value = Clls.Offset(, 1).Resize(, 5).Value
         
         .Offset(, 8).Value = Month(Cells(Clls.Row - 1, 2).Value)
      End With
   End If
 Next Clls
 Sh.[A1].Resize(, 9).Interior.ColorIndex = IIf(MyColor > 41, 34, MyColor)
 Sh.Select:                                  Set Sh = Nothing
End Sub

doanhoanghai · 21/12/09

Pro qua trời !

Thank bạn nhiều nhé ! @$@!^%

không có bạn giúp không biết mình làm thủ công đến bao giờ nữa ! nhưng mình có thêm tháng 10 nữa thì phải làm sao hả bạn mình phải thêm hoặc sửa thêm gì nữa không ?

Mong bạn giúp đỡ ! $-\\/.$

SA_DQ · 21/12/09

nhưng mình có thêm tháng 10 nữa thì phải làm sao hả bạn mình phải thêm hoặc sửa thêm gì nữa không ? Mong bạn giúp đỡ ! $-\\/.$

Bỡi bảng dữ liệu tháng 12 của bạn hoàn toàn khác cấu trúc với tháng 11 nên mình "Không thèm" viết tiếp luôn!

Nếu dữ liệu giống thì hãy đưa lên trang tính đó thôi; Chúng ta sẽ tiếp

Bạn thấy có thể không, một khi chúng ta gộp vô 12 tháng & 1 bảng tổng kết trên 1 workbook mà thôi!

--=0

doanhoanghai · 21/12/09

Thank Bạn !

Ý của mình là thế này , mình đã làm thủ công đến tháng 11 rồi và giờ muốn gộp thêm tháng 12 vào nữa thành một báo cáo thôi ! liệu có được không bạn

VD nhé :
với khách hàng với mã là :
KH002 mình đã tổng hợp được đến tháng 11 rồi(trong Sheet T11)
giờ mình mới có tháng 12 mình muốn cộng tiếp vào xem khách hàng đó sau 12 tháng mua được bao nhiêu sản phẩm và trả lại bao nhiêu sản phẩm (chú ý phải có mã hóa đơn nhé VD hóa đơn 06501)

Giúp mình với nhé

Thank Bạn đã góp ý ! $-\\/.$

Mình cũng đã tìm hiểu rồi và đã làm được form từ tháng 1 đến tháng 11 rồi
nhưng mình đang vướng báo cáo tháng 12 quá bạn làm được = macro thì giúp mình với nhé

Form báo cáo mình làm sheet Tket !

Thank @$@!^%

SA_DQ · 21/12/09

Mới chỉ là chép dữ liệu của các khách hàng phát sinh trong tháng 12

Chưa thể toàn bộ & đợt thêm nha!

PHP:

Option Explicit
Sub TKThuoc()
 Dim Clls As Range, Sh As Worksheet:         Dim MyColor As Byte
 Dim KhHg As String, TenNT As String
 
 Set Sh = Sheets("TKet"):                    Sheets("Th11").Select
 MyColor = Sh.[a1].Interior.ColorIndex + 1
 Sh.[B1].CurrentRegion.Offset(1).Clear
 Application.ScreenUpdating = False
1 'Chép 11 Tháng'
 For Each Clls In Range([A5], [a65500].End(xlUp))
   If Left(Clls.Value, 2) = "KH" Then
      KhHg = Clls.Value:                     TenNT = Clls.Offset(, 1).Value
   ElseIf Left(Clls.Value, 2) = "Th" Then
      With Sh.[a65500].End(xlUp).Offset(1)
         .Value = KhHg:             .Offset(, 1).Value = TenNT
         .Offset(, 2).Value = Cells(Clls.Row - 1, 4).Value
         .Offset(, 3).Resize(, 5).Value = Clls.Offset(, 1).Resize(, 5).Value
         .Offset(, 8).Value = Right$("0" & Month(Cells(Clls.Row - 1, 2).Value), 2)
      End With
   End If
 Next Clls
 Sh.[a1].Resize(, 9).Interior.ColorIndex = IIf(MyColor > 41, 34, MyColor)
 Sh.[a1].End(xlDown).Offset(1).Resize(, 9).Interior.ColorIndex = 39
2 'Chép Khách Hàng Phát Sinh Trong Tháng 12'
 Const T01 As String = "KHANG", T02 As String = "SPACAPS"
 Dim Rng As Range, sRng As Range
 Dim MyAdd As String
 
 Sheets("Th12").Select
 Set Rng = Sh.Range(Sh.[a1], Sh.[a65500].End(xlUp))
 
 For Each Clls In Range([A13], [a65500].End(xlUp))
      If Left(Clls.Value, 2) = "KH" Then
         KhHg = Clls.Value:                     TenNT = Clls.Address
         Set sRng = Rng.Find(KhHg, , xlFormulas, xlWhole)
         If sRng Is Nothing Then
            Range(TenNT).Interior.ColorIndex = 35 + Clls.Row Mod 6
            TenNT = Range(TenNT).Offset(, 1).Value
         Else
            KhHg = "":                          TenNT = ""
         End If
         
      ElseIf (UCase$(Right(RTrim(Clls.Offset(, 1).Value), 4)) = T01 Or _
         Trim(UCase(Clls.Offset(, 1).Value)) = T02) And KhHg <> "" Then
         With Sh.[a65500].End(xlUp).Offset(1)
            .Value = KhHg:             .Offset(, 1).Value = TenNT
            .Offset(, 2).Value = Clls.Offset(, 1).Value
            .Offset(, 3).Resize(, 5).Value = Clls.Offset(1, 4).Resize(, 5).Value
            .Offset(, 8).Value = 12
         End With
      End If
 Next Clls

 Sh.Select:                                  Set Sh = Nothing
End Sub

doanhoanghai · 22/12/09

Const T01 As String = "Khang", T02 As String = "SPACAPS"

Bạn ơi ! sao tháng 12 ấy mình thấy nó cộng thiếu hay sao ý !
VD:KH0021 phải là 6 SPACAPS chứ !

và mình hỏi thêm chút nữa được không ? mình gắn T01 as string = " Phụ bì khang" sao không được nhỉ ? mình Replace hết Phụ bì khang ở sheet T12 thành Khang rồi mà vẫn không ra được ! -+*/

mình phải làm sao đây ?

Mong bạn giúp đỡ ! cảm ơn bạn rất nhiều @$@!^%

SA_DQ · 22/12/09

doanhoanghai đã viết:
(2) Const T01 As String = "Khang", T02 As String = "SPACAPS"

Bạn ơi !(1) sao tháng 12 ấy mình thấy nó cộng thiếu hay sao ý !
VD:KH0021 phải là 6 SPACAPS chứ !

và mình hỏi thêm chút nữa được không ? (3)mình gắn T01 as string = " Phụ bì khang" sao không được nhỉ ? mình Replace hết Phụ bì khang ở sheet T12 thành Khang rồi mà vẫn không ra được ! mình phải làm sao đây ?

Mong bạn giúp đỡ

(1) Bạn phải khẳng định rằng là sai chổ nào, dòng nào, mã nào; Chứ bạn không thể viết lắp lững như vậy được; Ai lại bắt tôi đi kiểm lại xem đã đúng hay chưa làm vậy, kỳ quá à nha!

(2) Mình khai báo trong hằng số toàn bộ chữ hoa hết mà!

(3) Macro kỵ với tiếng Việt có dấu; Để xài tiếng Việt trong nớ là điều khó vô chừng; Mình đi tìm cách đó là đơn giản rồi.

Vài lời cùng bạn.

doanhoanghai · 22/12/09

Mình làm xong hết rồi !
nhưng còn tổng kết vào thì chưa làm được nói thật là mình cũng không nghĩ ra các nào cả **~**

!

mình làm tổng kể điểm cho khách hàng ở từng quận bằng tay xong hết rồi và cũng đã tính được tổng khách hàng trong tháng 12 rồi nhưng mà không biết tổng hợp nó vào thế nào cả

Bạn xem file đính kèm ở các quận mình đều có 2 cột đó là tháng 12 ấy
thì mỗi khách hàng có một mã riêng nhưng không bít VLOOKUP sao nữa! !$@!!

Giúp mình với ! cảm ơn bạn trước nha ! @$@!^%

doanhoanghai · 22/12/09

(1) Bạn phải khẳng định rằng là sai chổ nào, dòng nào, mã nào; Chứ bạn không thể viết lắp lững như vậy được; Ai lại bắt tôi đi kiểm lại xem đã đúng hay chưa làm vậy, kỳ quá à nha!

Xin lỗi bạn nha ! &&&%$R

nhưng mà mình mới biết chút ít về lập trình thôi lên cũng không biết sai đoạn nào cả nhưng chỉ biết rằng nó cộng không được chính xác

VD: Với KH0021 và sản phẩm SPACAPS họ lấy 2 hóa đơn là 6 SPACAPS và được 18 Điểm
Nhưng khi chạy macro thì chỉ có 1 hóa đơn và 3 SPACAPS và được có 9 Điểm thôi !

(2) Mình khai báo trong hằng số toàn bộ chữ hoa hết mà!

Mình đã đổi Phụ bì khang thành =PBK và thay đoạn Const T01 As String = "Khang"
thành Const T01 As String = "PBK" mà chạy vẫn không ra được -0-/.

(3) Macro kỵ với tiếng Việt có dấu; Để xài tiếng Việt trong nớ là điều khó vô chừng; Mình đi tìm cách đó là đơn giản rồi.

Vài lời cùng bạn.

Mong bạn giúp đỡ mình làm kế toán nhưng kém excel lắm lắm ! $-\\/.$

tulaphl · 22/12/09

Bạn có thể dùng hàm VLOOKUP, cụ thể tại ô I5 của SheetB_DINH = IF(ISERROR(VLOOKUP(B5;Thang12!$A$2:$G$326;7;0));"";VLOOKUP(B5;Thang12!$A$2:$G$326;7;0))
Sau đó copi cho các Sheet khác. Bạn xem file

doanhoanghai · 22/12/09

From đặt hàng

Mình làm macro rồi nhưng vẫn bị lỗi phần :

1. không đặt được một đơn hàng có nhiều mã hàng không hiểu sao nó cứ nhảy lung tung

Ai biết giúp mình với $-\\/.$

ChanhTQ@ · 22/12/09

Bạn xem trong file kèm theo

Mình làm rồi, nhưng còn tổng kết vào thì chưa làm được nói thật là mình cũng không nghĩ ra các nào cả! mình làm tổng kể điểm cho khách hàng ở từng quận bằng tay xong hết rồi và cũng đã tính được tổng khách hàng trong tháng 12 rồi nhưng mà không biết tổng hợp nó vào thế nào cả

Những điều cần chú ý:

(*) Các trường của các trang tính quận huyện phải bắt đầu từ 1 dòng như nhau; Mình đã chỉnh lại bắt đầu từ con số 6;

(*) Cột 'A' của Thang12 có một số ô không được tô màu nền; Đó là các ô chưa tìm thấy mã trong bất kỳ trang tính nào còn lại.

(*) Nếu bạn cần số tổng ở cột cuối cùng với những khách hàng không có phát sinh tháng 12 thì mình sẽ giúp thêm câu lệnh nữa; Nhưng giờ bạn hãy kiểm thử macro làm đúng hết chưa?!

Chờ tin bạn!

PHP:

Option Explicit
Sub UpdateValue()
 Dim Sh As Worksheet, Sht As Worksheet
 Dim Rng As Range, sRng As Range, Clls As Range
 Dim MyAdd As String, jJ As Byte
 
 Set Sh = Sheets("Thang12")
 Set Rng = Sh.Range(Sh.[A1], Sh.[a65500].End(xlUp))
 For Each Sht In Worksheets
   jJ = jJ + 1
   If Sht.Name <> Sh.Name Then
      For Each Clls In Sht.Range(Sht.[b7], Sht.[b65500].End(xlUp))
         Set sRng = Rng.Find(Clls.Value, , xlFormulas, xlWhole)
         If Not sRng Is Nothing Then
            With Clls.Offset(, 7)
               .Value = sRng.Offset(, 6).Value
               .Offset(, 1).Value = .Offset(, -1).Value + .Value
            End With
            sRng.Interior.ColorIndex = 34 + jJ Mod 10
         End If
      Next Clls
   End If
 Next Sht

End Sub

doanhoanghai · 22/12/09

Quá chuẩn rồi bạn à !

Cảm ơn bạn thật nhiều không biết lấy gì cảm ơn cả ! bạn có ở HN không hum nào mình đi uống cafe làm quen nhé ! mình rất muốn được học hỏi @$@!^%

Mình mới có from đặt hàng mà không sao khi nhập hóa đơn có 2,3,4 sản phẩm trở lên nó lại chạy lung tung cả không hiểu làm sao !

Bạn xem giúp mình với |||||

SA_DQ · 22/12/09

Mình mới có from đặt hàng mà không sao khi nhập hóa đơn có 2,3,4 sản phẩm trở lên nó lại chạy lung tung cả không hiểu làm sao ! Bạn xem giúp mình với

Thường cái này, gồm có 2 phần & người ta lưu 2 fần í vô 2 trang tính khác nhau (Hay 1 trang tính chứa 2 vùng dữ liệu khác nhau)
Trang/vùng I gồm các dữ liệu thuộc loại tổng quát của hóa đơn, như:
NgàyCT, Người(Mã) Mua/bán hàng , Mã số thuế, Nơi giao nhận; Mã HĐ,. . .
Vùng/trang chi tiết gồm:
Mã HĐ, Mã/Tên hàng, ĐVT, Số lượng, ĐGiá, TTiền (Cần hay không cũng không sao), . .

Hai trang tính này liên hệ với nhau thông qua Mã HĐ

Bạn hãy tìm hiểu thêm trên diễn đàn; Chứ thật tình mình chưa hình dung là bạn muốn điều gì ở các trang tính mà bạn đưa của bài trên!

doanhoanghai · 22/12/09

mình muốn làm một From nhập hóa đơn gồm có

Mã HĐ , Mã NV , Tên NV, Mã KH , Tên KH, Địa chỉ của KH, Số lượng hàng , loại hàng

1 hóa đơn có 1 sp thì mình nhập được rồi , nhưng mà một hóa đơn nhập 2 loại hàng trở lên thì nó nhập lung tung hết lên và không hiểu lỗi tại đâu ???

Mong bạn xem giúp mình @$@!^%

SA_DQ · 22/12/09

Bạn tham khảo cái này trước

PHP:

Option Explicit
Sub CopyTo2Sheets()
 Dim Sh As Worksheet
 Dim MaHD As String:                      Dim Rws As Long
' On Error Resume Next
 
 Sheets("Form").Select:                   Set Sh = Sheets("HHoa")
 With Sh.[b65500].End(xlUp).Offset(1)
   .Value = Date:                         .Offset(, 1) = [G1].Value
   MaHD = TaoMa([G1].Value, Date)
   .Offset(, 3) = [G4].Value
   .Offset(, 2).Value = MaHD
   With .Offset(-1, -1)
      .Offset(1).Value = IIf(.Value = "STT", 1, 1 + .Value)
   End With
 End With
 Set Sh = Sheets("ChTiet")
 Rws = [B9].End(xlDown).Row - 8
 With Sh.[b65500].End(xlUp).Offset(1)
   .Offset(, -1).Resize(Rws).Value = MaHD
   .Resize(Rws).Value = [g9].Resize(Rws).Value
   .Offset(, 1).Resize(Rws, 3).Value = [c9].Resize(Rws, 3).Value
 End With
 Union(Range("C4:C6"), [G6], [B9].Resize(Rws, 4), [g9].Resize(Rws)).Value = ""
 
End Sub

doanhoanghai · 23/12/09

Sao mình chạy không được bạn nhỉ ?

nó báo lỗi ở dòng .Offset(, -1).Resize(Rws).Value = MaHD

bạn xem lại giúp mình với

Làm bảng tổng kết tháng (1 người xem)

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

Thành viên hoạt động

/(hông là gì!

Thành viên hoạt động

/(hông là gì!

Thành viên hoạt động

/(hông là gì!

File đính kèm

Thành viên hoạt động

/(hông là gì!

Thành viên hoạt động

Thành viên hoạt động

Thành viên chính thức

File đính kèm

Thành viên hoạt động

0901452không62

File đính kèm

Thành viên hoạt động

/(hông là gì!

Thành viên hoạt động

/(hông là gì!

File đính kèm

Thành viên hoạt động

Đếm ngược thời gian