Chào mừng đến với Diễn đàn Dân Kế Toán - Kế toán tổng hợp thực tế.
Kết quả 1 đến 9 của 9
  1. #1
    Ngày tham gia
    Nov 2015
    Bài viết
    0

    Lập báo cáo bán hàng (báo cáo theo yêu cầu Quản trị) từ data báng hàng tổng hợp

    Em gửi file nhờ các bác giúp đỡ, đây là file dùng để báo cáo bán hàng bằng excel gồm 5 sheet: Bai0, Bai1, Bai2, Bai3, Bai4, Bai5 và được nhặt số liệu từ sheet "data banhang". Yêu cầu giải: đã ghi ở đầu mỗi workbook.

    Vì dữ liệu "data banhang" chỉ có 2 tháng mà đã gần 40.000 hàng, cho nên các bác cho vào công thức mảng là thua luôn.

    Em gửi kèm file "bai mau" đã làm được, và file "Phan1-2003" chưa làm được. Nhờ các bác giúp đỡ

    Cảm ơn alicetran155, newbee đã giải đáp bài trước

    View attachment 13217



    View attachment 13218

  2. #2
    Ngày tham gia
    Nov 2015
    Bài viết
    9
    Ðề: Lập báo cáo bán hàng (báo cáo theo yêu cầu Quản trị) từ data báng hàng tổng hợp

    Cho mình ké với vì mình k tìm ra chỗ để gởi bài. Mình mới ra trường nên muốn xin số liệu để làm BCTC. Bạn nào có cho mình xin nhé mail mình nè: xdieu.kt@mail.com. Cả nhà giúp mình voi, mình cam ơn

  3. #3
    Ngày tham gia
    Nov 2015
    Bài viết
    0
    Ðề:Đây là macro của Bai0



    Mã nguồn PHP:
    [COLOR=#000000]
    Option Explicit Sub Bai0[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Cls [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Rng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]sRng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Bai0"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select Set Sh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ThisWorkbook[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"KeToan"[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]b2[/COLOR][COLOR=#007700]], [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]b2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDown[/COLOR][COLOR=#007700])) For [/COLOR][COLOR=#0000BB]Each Cls In Range[/COLOR][COLOR=#007700]([[/COLOR][COLOR=#0000BB]c9[/COLOR][COLOR=#007700]], [[/COLOR][COLOR=#0000BB]c9[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDown[/COLOR][COLOR=#007700])) [/COLOR][COLOR=#0000BB]Set sRng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Find[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700], , [/COLOR][COLOR=#0000BB]xlFormulas[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]xlWhole[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]sRng Is Nothing Then Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Interior[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]ColorIndex [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]34 [/COLOR][COLOR=#007700]+ ([/COLOR][COLOR=#0000BB]Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Row Mod 9[/COLOR][COLOR=#007700]) Else [/COLOR][COLOR=#0000BB]Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]8[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next Cls End Sub [/COLOR
    Nhưng trong trang tính bạn đã ghi sẵn các dòng tổng cộng & sắp xếp rồi còn gì.

    (Cũng chưa thật biết chắc là mình đã nắm đúng iêu cầu của bạn chưa nữa; Có gì bạn bổ sung sau cái nha.)
    :chay:

  4. #4
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Đây là macro của Bai0

    ở Bai0, yêu cầu là làm theo tên "Mien" ở cột G. còn cột C là mình tự gõ thủ công vào, em muốn sử dụng công thức. Nếu mình thay đổi tên Miền tại cột J ở sheet "Ketoan" thì tên Cửa hàng nó phải chạy theo tên Miền ở cột G của sheet "Bai0". Bác giúp em làm công thức excel thuần túy nhé (cái code VBA em thua). Cái Code của bác em thử rồi, chạy ngon luôn nhưng do dữ liệu cột C "Cửa hàng" mình đã gõ sẵn.

  5. #5
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Bạn nên tạo mã hàng hóa 3 loại thương fẩm của bạn như sau:

    Nếu bạn ưng thuận với đề xuất, chúng ta sẽ lại từ đầu

    :tucao:​
    Bạn ngâm cứu xem sao & cho í fản hồi nha, mong tin từ bạn

  6. #6
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Bạn nên tạo mã hàng hóa 3 loại thương fẩm của bạn như sau:

    Em đồng ý với bộ mã mới của Bác, cảm ơn bác đã đưa ra ý kiến hay. Nhưng có một số mã có ký tự đầu là "K" là hàng khuyến mãi, "P" là phụ tùng chuyển thành "S" , bác chuyển giúp em nhé.

  7. #7
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề:Bài tập II: Máy mình chạy cỡ 7 fút!

    Được cái là 3 mặt hàng chính của bạn, bạn có thể chọn 1 tùy ý;

    Macro sự kiện tại ô [C3]

    (Nên fa sẵn li cafê nhen.)

  8. #8
    Ngày tham gia
    May 2017
    Bài viết
    31
    Ðề: Lập báo cáo bán hàng (báo cáo theo yêu cầu Quản trị) từ data báng hàng tổng hợp

    Bác ơi, data mới chỉ 2 tháng thôi mà đã 40.000 hàng ! cái này mà lên 12 tháng là ngồi đợi tới Tết Mông Cổ luôn

  9. #9
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Lập báo cáo bán hàng (báo cáo theo yêu cầu Quản trị) từ data báng hàng tổng hợp




    Bác ơi, data mới chỉ 2 tháng thôi mà đã 40.000 hàng ! cái này mà lên 12 tháng là ngồi đợi tới Tết Mông Cổ luôn
    Đây là macro cải tiến xài cho Bai1, so với cách truyền thống, macro này xài mảng dữ liệu nên tốc độ giảm đi 5 lần (Còn cỡ 1 gy hơn gì đó xíu cho 2 tháng dữ liệu của bạn hiện có. )



    Mã nguồn PHP:
    [COLOR=#000000]
    Option Explicit Sub Bai1_2[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Rng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Cls [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range Dim TT [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Dat [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Date[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Tmr [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Double Dim Rw [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]jJ [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Ff [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Ww [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Zz [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte Dim Arr[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]Mng[/COLOR][COLOR=#007700](): [/COLOR][COLOR=#0000BB]Dim sCh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String Set Sh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ThisWorkbook[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Data"[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Rw [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]b4[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]CurrentRegion[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Rows[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Count Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]a3[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rw[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]9[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Bai1"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select[/COLOR][COLOR=#007700]: [/COLOR][COLOR=#0000BB]Tmr [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Timer [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]Zz [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]10 To 11 Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]ab8[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"G" [/COLOR][COLOR=#0000BB]Dat [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]DateSerial[/COLOR][COLOR=#007700]([[/COLOR][COLOR=#0000BB]a4[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Zz[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]aa8[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Dat Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]Ac8[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]DateSerial[/COLOR][COLOR=#007700]([[/COLOR][COLOR=#0000BB]a4[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Zz[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]AdvancedFilter Action[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]xlFilterCopy[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]CriteriaRange[/COLOR][COLOR=#007700]:= [/COLOR][COLOR=#0000BB]_ Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"AA1:Ac4"[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]CopyToRange[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"AA10:AD10"[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]Unique[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]False Ff [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]F9999[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row Mng [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]f7[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Ff [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value ReDim mKQ[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1 To Ff [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1 To 3[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3 [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]Zz [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]22[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Ff [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]mKQ[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Arr [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]AB10[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]CurrentRegion[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]jJ [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To UBound[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) For [/COLOR][COLOR=#0000BB]Ww [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To UBound[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Mng[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]jJ[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]Mng[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Ww[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Then sCh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Left[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]jJ[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]TT [/COLOR][COLOR=#007700]= Switch([/COLOR][COLOR=#0000BB]sCh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"G"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]sCh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"H"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]sCh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"P"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]mKQ[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Ww[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]TT[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]mKQ[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Ww[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]TT[/COLOR][COLOR=#007700]) + [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]jJ[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next Ww Next jJ Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3 [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]Zz [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]22[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Ff [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]mKQ[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Next Zz [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]s999[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Timer [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]Tmr End Sub [/COLOR

 

 

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •