Cách làm hóa đơn tính tiền điện trong Excel (1 người xem)

khanh_pdc2000 · 16/4/09

xin lỗi vì hôm wa mình đánh chữ không có dấu.
Trước hết minh xin cảm ơn các bạn đã wan tâm giúp mình.
đúng rồi
phần in hóa đơn, không xuất được dữ liệu từ những số liệu mình đã nhập
File t"Tien dien Duyet" mà bạn Phuonggvgp đã gởi ở trang 5 đó
bạn phuonggvgp xem lại dùm mình nhé
cảm ơn nhiều

khanh_pdc2000 · 16/4/09

Mấy bác cho mình hỏi chúc
phần "Temp" KW sử dụng
muốn thay đổi định mức sữ dụng
chẳn hạn như la mức 1 là 40kw
mức 2 là 20kw tiếp theo
vậy phải làm sao?
==============================
bác sealend xem lại dùm e ở trang 5
hóa đơn tiền diện Duyệt
phần in hóa đơn không được
cảm ơn rất nhiều

hoangtronglanh · 16/4/09

Xin chào Anh sealand! Mấy hôm nay không đwợc gặp Anh để hỏi về cách lập hóa đơn tiền điện thấy bí quá. Nhwng trwớc tiên xin đwợc chúc Anh mạnh khẻo, thành đạt và hạnh phúc!
Anh ạ! mấy file hóa đơn tiền điện Anh gửi trước ; các trang khác thì em làm cũng tạm được rồi, nhwng chỉ kẹt là trang hóa đơn không làm sao thay đổi được dữ liệu mới, mà em phải in ở trang mẫu; mỗi lần in được có 01 hóa đơn nên việc in tiến hành rất chậm. Nên em nhờ Anh chỉ giúp thế nào để in được nhanh xin được cảm ơn!

phuonggvgp · 16/4/09

khanh_pdc2000 đã viết:
bác sealend xem lại dùm e ở trang 5
hóa đơn tiền diện Duyệt
phần in hóa đơn không được
cảm ơn rất nhiều

Cái đó không sai đâu, việc không in được bạn phải xem có thiếu thông tin nào của khách hàng không, có thể lỗi số thứ tự, lỗi công thức... nhìn chung phải rà soát lại sao cho thật chính xác. Tôi hiện đang dùng cái đó thấy ổn lắm rồi

sealand · 16/4/09

To Hoang Trong Lanh:
Cái ô Đang sử lý số nó quyết định sự thay đổi của 1 HD. Bạn thử gõ 1 số khác vào xem trang temp có thay đổi không. Nếu thay đổi thì bạn xoá dòng thay đổi vị trí nên không cập nhật được.

hoangtronglanh · 17/4/09

Anh Sealand file hóa đơn tiền điện Anh gửi có một số danh sách hộ sử dụng điện tượng trưng làm ví dụ; áp dụng thực tế em phải thay danh sách đó bằng những hộ sử dụng điện thực tế ở địa phương. Nhưng khi thay đổi tên hộ ở trang danh mục thì ở các trang khác thay đổi theo kể cả ở trang temp, còn riêng ở trang hóa đơn tiền điện không thay đổi được. bây giờ phải làm sao, bắt đầu từ đâu? Bay giờ Anh cho em một phai khác trong đó có: báo cáo kỳ, tháng, năm, giá điện bậc thang 07 mức chuẩn, và có 05 loại giá điện sử dụng mục đích khác không tính bậc thang, không tính thời gian sử dụng trong ngày, mức giá cụ thể là: 955đ-1000đ-1135đ-1150đ-1350đ(chưa kể thuế GTGT). Mong anh giúp đỡ em xin cảm ơn !

hoangtronglanh · 17/4/09

À mà em quên ; còn phần số tiền viết bằng chữ ở dưới tại sao nó cũng không thể hiện được Anh gúp em luôn phần viết số tiền bằng chữ Anh nhế!

sealand · 17/4/09

To Hoang Trong Lanh:
Bạn gửi File của bạn vào E-mail: vieth@live.com mình kiểm tra lại cho. Như bạn nói rất có thể còn bị xoá mất code rồi. Hàm đọc số mình lập hẳn trong file chứ không phải là ad-in nữa.

khanh_pdc2000 · 17/4/09

phuonggvgp đã viết:
Cái đó không sai đâu, việc không in được bạn phải xem có thiếu thông tin nào của khách hàng không, có thể lỗi số thứ tự, lỗi công thức... nhìn chung phải rà soát lại sao cho thật chính xác. Tôi hiện đang dùng cái đó thấy ổn lắm rồi

Xin cảm ơn đã giúp đỡ.
Tôi dow file đó về không được in hóa đơn không được, tôi không có sửa gì hết, mà lỗi của tôi cũng như nhiều bạn khác bị, đó là in nhiều hóa đơn không được, chỉ in được hóa đơn ở phần temp thôi (mỗi lần 1 hóa đơn) và khi vào trang "HDon" khi lick vào các ô số thì hiện là số chứ không phải là công thức.
Mong được sự giúp đỡ. cảm on rất nhiều

khanh_pdc2000 · 17/4/09

phuonggvgp đã viết:
Cái đó không sai đâu, việc không in được bạn phải xem có thiếu thông tin nào của khách hàng không, có thể lỗi số thứ tự, lỗi công thức... nhìn chung phải rà soát lại sao cho thật chính xác. Tôi hiện đang dùng cái đó thấy ổn lắm rồi

khi mình vào "lập in hóa đơn điện" báo lỗi như sau:

You may encounter this error for the following reasons:
1. Macro security is set to High and you selected Disable when prompted by the macro warning dialog when opening the file, or the macro was unsigned and was automatically disabled by the application
If the macro was signed and you chose the Disable button when prompted to accept the certificate for the macro when the file was opened, you can use the following procedure to enable the macro:
· Close the file and any other instances of the application currently running on the computer (this may include closing any applications using portions of the application you are currently running, such as Outlook which can use Word, database applications, and others).
· Open the file again and examine the certificate of trust details and set the Always trust macros from this publisher box if you trust the certificate issued by the publisher.
· Click the Enable button to allow the macro to run.
If the macro was not signed (no attached certificate of trust) and you have verified the source of the unsigned macro and believe you can trust it, you can enable the macro with the following procedure:
· Select the Tools menu option and then select Macro and Security. In the resulting Security dialog, set the security level to Medium by clicking the Medium radio button....

sealand · 17/4/09

Để có thể chạy lệnh VBA các bạn phải thiết lập như sau:
Mở Excell bình thường
Chọn Tools--->Chon Sercurity---> chọn Low
Thoát ra rồi mới mở File này

Nếu còn lỗi, các bạn thử làm như sau:
Chọn cả trang temp.
Nhấn nút Merge cell
Trở lại trang main để lập HĐ xem có kết quả không.

phuonggvgp · 17/4/09

Đúng rồi phải hủy chế độ bảo mật đi mới dùng đc
Cái này là cái cơ bản bạn phải biết trước khi sử dụng những lệnh của VBA. Nếu để ở chế độ Low đồng nghĩa cho phép cả lệnh tốt và xấu, do đó bạn cần phải cẩn thận.
Xin hỏi anh sealand một câu. Ở phần số tiền bằng chữ nó hiện một cái như sau mà không thuận cho lắm
Ví dụ: 3.082.000 thì nó viết là ba triệu tám mươi hai ngàn. Vậy em muốn nó đổi là ba triệu không trăm tám mươi hai ngàn được không. Nếu được thì phải sửa VBA như thế nào

sealand · 18/4/09

Mình gửi lại file tạo hoá đơn với nhiều loại hình giá (Giá trong file là giá giả định, các bạn điều chỉnh lại). Phần báo cáo các bạn hoàn thện tiếp nhé.
Riêng phần hàm đọc chữ thì các bạn cứ chép trên diễn đàn rồi thay vào thì tốt hơn.

khanh_pdc2000 · 19/4/09

sealand đã viết:
Mình gửi lại file tạo hoá đơn với nhiều loại hình giá (Giá trong file là giá giả định, các bạn điều chỉnh lại). Phần báo cáo các bạn hoàn thện tiếp nhé.
Riêng phần hàm đọc chữ thì các bạn cứ chép trên diễn đàn rồi thay vào thì tốt hơn.[/quote
Cảm ơn anh sealand rất nhiều, file anh gởi tôi đã dow về dc và sử dung rất tuyệt vời, giúp tôi thực hiện công việc rất nhanh đỡ vất vả.
Một lần nữa cảm ơn anh và cảm ơn diễn đàn

hoangtronglanh · 20/4/09

Anh Sealand hiện em đang quản lý gồm 04 trạm biến áp, mỗi trạm có 750 hộ sử dụng điện. Hàng tháng điện lực họ ghi chỉ số công tơ làm 02 kỳ(15 ngày chốt một lần). Trong tổng kwh sử dụng tại mặt máy biến áp có 02 loại mục đích sử dụng(điện sinh hoạt+điện mục đích khác) điện sinh hoạt ngành điện căn cứ số hộ để tính bậc thang, điện mục đích khác tính một giá= 865đ/kwh(chưa bao gồm VAT) tỷ lệ điện mục đích khác; trạm A=10.8%, trạm B=5%, trạm C= 3,43%, trạm D= 4,4%. VD trạm B một kỳ 15 ngày sử dụng=50.000kwh*5%=2.500kwh điện mục đích khác, còn 45.000kwh điện sinh hoạt, số này căn cứ số hộ để tính bậc thang cho 15 ngày, còn 2.500kwh*865đ/kwh. Vậy Anh giúp em lập bảng để tính số tiền hàng kỳ để biết số tiền trả cho ngành điện, em xin cảm ơn Anh nhiều!

jacky_police · 20/4/09

To Sealand:
File của anh có kèm theo biểu tượng (logo) ở phía trên. Bây giờ tôi muốn sửa file bmp đó thành chữ ký điện tử xuống phía dưới bên phải thì phải làm sao? Tôi đã làm thử nhưng không được, tôi chỉnh địa chỉ (pic.IncrementLeft 140.25) thử nhiều lần chữ ký chỉ chuyển từ trên xuống dưới bên trái nhưng không thể chỉnh xuống bên phải được. Anh chỉ giúp tôi nhé. Nếu để lãnh đạo ký 2000 bản như vậy thì thật là khổ.

sealand · 20/4/09

To jacky_police:
Bạn chú ý mấy dòng lệnh:
pic.IncrementLeft 370 (Dịch sang phải)
pic.IncrementTop 370# (Dịch xuống dưới)
Với 2 chỉ số này thì biểu tượng sẽ nằm đúng vùng chữ ký đó.

To Hoang Trong Lanh: Theo mình chắc chắn ngành điện phải áp dụng nguyên tắc khoán theo hộ.Ví dụ trạm 1 có 750 hộ và kỳ 1/2 tháng thì riêng điện sinh hoạt trạm 1 theo mức 1 sẽ là 750*50/2. Còn thực tế xã mới tính toán tiền và thu theo công tơ thực tế. Mình hỏi vây để có cơ sở đưa ra bảng tính giá.
Mình gửi xem có đúng không nhé.

jacky_police · 21/4/09

To Sealand:
Cảm ơn anh. Thật tuyệt vời, tôi làm được rồi. Hiện tôi đã chỉnh sửa đôi chút cho phù hợp với đơn vị tôi một số file các bác gửi lên diễn đàn. Tuy nhiên file này sử dụng công thức do đó khi nhập dữ liệu vào thì dung lượng quá lớn. Những dòng không có dữ liệu vẫn còn không bị ẩn đi. Phần hóa đơn thì trải dài cả sheet, máy tốt thì xử lý nhanh, còn máy mà kém thì chờ đợi rất lâu. Hơn nữa hóa đơn khi in bằng máy in khác lại phải chỉnh, bị lệch, nói chung là chưa được tiện lợi lắm.
Anh có thể giúp tôi bổ sung mấy cái VBA vào để những dòng không có dữ liệu ẩn đi tại các Sheet CT ky; Trạm ky, TH ky... và sheet Hóa đơn thì chỉ cần 2 hóa đơn thôi nhưng khi ra lệnh in có thể in từ trang đến trang (ra lệnh là in thôi).
Một lần nữa cảm ơn anh nhiều nhiều...
File của tôi gửi lên tôi chỉ dùng riêng cho điện sinh hoạt và 2 mức giá điện mục đích khác cho 2 loại đối tượng là kinh doanh và các đơn vị hành chính sự nghiệp. Tuy nhiên đối với 2 đơn vị mục đích khác này tôi cho ra một file riêng để dễ quản lý.
Anh giúp tôi nhé.
Anh cho tôi địa chỉ email để tôi gửi file tới anh nhờ anh giúp có được không vậy.
Email của tôi là: macduong2008@gmail.com

sealand · 21/4/09

Chào Jacky:
Trước đây,mình đã lập file in ngay từ trang temp nhưng 1 số bạn muốn xem trước khi in.
File lớn vì quá danh sách, bạn lựa DS xóa bớt dòng công thức cho đỡ nặng. Trong khi chưa thiết kế VBA thì bạn chỉ cần AutoFilter cột số TT chọ none blank fa được mà.
Cần thiết liên hệ với mình theo địa chỉ ở chữ ký dưới bài ấy.

hoangtronglanh · 22/4/09

Anh Sealand ơi! Tất cả đều tuyệt vời rồi, xin chân thành cảm ơn anh đã giúp đỡ. Còn điều này nữa Anh giúp em; Hiện nay việc in hóa đơn tiền điện khi in ra hóa đơn một tờ giấy A4 trong đó có 02 HĐ, sau đó cắt rời ra mỗi lần đưa vào bàn xén từ 15-20 tờ, trong mỗi tờ A4 có hai số HĐ phải cắt rời ra, từ đó nó bị lộn xộn không theo thứ tự 1234...Nên em muốn thiết lập căn lề chuyển sang in bằng giấy A5 cho nó có thứ tự từ A đến z không bị lộn xộn, giúp việc phát HĐ cho từng nhà cũng dễ dàng, mà em không sao căn được như ý muốn, Anh giúp em với!

sealand · 23/4/09

hoangtronglanh đã viết:
...Nên em muốn thiết lập căn lề chuyển sang in bằng giấy A5 cho nó có thứ tự từ A đến z không bị lộn xộn, giúp việc phát HĐ cho từng nhà cũng dễ dàng, mà em không sao căn được như ý muốn, Anh giúp em với!

Bạn sửa Code như sau là được (Bạn lưu ý sửa bổ xung đoạn code màu xanh đậm. Không biết có phải do máy in không chứ máy của mình định giấy A5 thì báo lỗi đành thiết lập giấy B5, bạn thiết lập thử bằng A5 xem sao. Chiều in bạn vào PageSetup xác định cũng được):

Mã:

Public Sub in_bg()
Dim tu, den As Integer
Dim path As String
path = ThisWorkbook.path
Dim pic As Shape
If Sheet6.[X12] = "In tat ca" Then
Sheet6.[X14] = 1
Sheet6.[X15] = Application.WorksheetFunction.Max(Sheet6.Range("A3:A5000"))
End If
    'tu = Sheet1.Cells(2, 13)
    tu = Sheet6.[X14]
    den = Sheet6.[X15]
   [B][COLOR=Blue]With Sheet5
    .Range("A:AQ").Clear
    .PageSetup.PaperSize = xlPaperB5
    .ResetAllPageBreaks
    For Each pic In .Shapes
            pic.Delete
    Next
End With[/COLOR][/B]

Application.ScreenUpdating = False
                    'Tao trang in
k = 1

For i = tu To den
Sheet6.Cells(8, 24) = i
If Sheet4.Range("Z20") > 0 Then
Sheet4.Rows("1:27").Copy
Sheet5.Cells(k, 1).PasteSpecial Paste:=xlPasteValues
Sheet5.Cells(k, 1).PasteSpecial Paste:=xlPasteFormats
   Sheet5.Pictures.Insert (path & "\BT1.bmp")
   Sheet5.Range("F" & k + 9 & ":F" & k + 19).Merge
k = k + 28
    [B][COLOR=Blue]Sheet5.HPageBreaks.Add Before:=Cells(k, 1)[/COLOR][/B]

End If
Next
For Each pic In Sheet5.Shapes
 pic.ScaleWidth 0.79, msoFalse, msoScaleFromTopLeft
   pic.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
       pic.IncrementLeft 140.25
    'pic.IncrementTop 30#

Next

Application.ScreenUpdating = True
Sheet5.Activate
Application.CutCopyMode = False
            Sheet5.Range("I1").Select

End Sub

khanh_pdc2000 · 30/4/09

sealand đã viết:
Mình gửi lại file tạo hoá đơn với nhiều loại hình giá (Giá trong file là giá giả định, các bạn điều chỉnh lại). Phần báo cáo các bạn hoàn thện tiếp nhé.
Riêng phần hàm đọc chữ thì các bạn cứ chép trên diễn đàn rồi thay vào thì tốt hơn.

Xin cảm ơn anh Sealand, e đã dow về sử dụng rồi, a cho e hỏi cái này, tháng 3 e đã làm được rồi, nhưng khi chuyển qua kỳ tháng 4 thì khi "lập in hóa đơn điện" thì bị lỗi, các phần khác đều tốt cả
Cảm ơn anh đã giúp đỡ

Báo lỗi như thế này nè:

Visual Basic is able to convert and coerce many values to accomplish data type assignments that weren't possible in earlier versions. However, this error can still occur and has the following causes and solutions:

<LI class=LB1>The variable or property isn't of the correct type. For example, a variable that requires an integer value can't accept a string value unless the whole string can be recognized as an integer. Try to make assignments only between compatible data types. For example, an Integer can always be assigned to a Long, a Single can always be assigned to a Double, and any type (except a user-defined type) can be assigned to a Variant.
<LI class=LB1>An object was passed to a procedure that is expecting a single property or value. Pass the appropriate single property or call a method appropriate to the object.
<LI class=LB1>A module or project name was used where an expression was expected, for example: Debug.Print MyModuleSpecify an expression that can be displayed.
<LI class=LB1>You attempted to mix traditional Basic error handling with Variant values having the Error subtype (10, vbError), for example: Error CVErr(n)To regenerate an error, you must map it to an intrinsic Visual Basic or a user-defined error, and then generate that error.
<LI class=LB1>A CVErr value can't be converted to Date. For example: MyVar = CDate(CVErr(9))Use a Select Case statement or some similar construct to map the return of CVErr to such a value.
At run time, this error typically indicates that a Variant used in an expression has an incorrect subtype, or a Variant containing an array appears in a Print # statement. To print arrays, create a loop that displays each element individually.

For additional information, select the item in question and press F1 (in Windows) or HELP (on the Macintosh).

haihatinh · 6/5/09

em đã tải tập tin về hóa đơn điện về, rất hay em cảm ơn!
nhừn sao khi em nháy vào in hóa đơn tì lại hiện ra một của sổ và em nháy ok thì nó mất,
em phải làm sao, giúp em nhé!
em cảm ơn!
anh gửi lời giải qua email của em nhé: haicoihaha@yahoo.com.vn

sealand · 6/5/09

Bạn nói vậy, mình không hình dung nổi cửa sổ đó là gì? Để nhanh gọn, bạn load lại file lên hoặc gửi vào email của mình (vieth@live.com) vì mình không biết file bạn sử dụng là file nào

hoahuuhuyet · 8/5/09

Mình có chỉnh sửa file để in hóa đơn tiền nhưng khi chỉnh sửa xong thi ở sheet3 không hiện gì . Bạn nào làm có thể sửa giúp mình cho nó hoàn chỉnh được không? VB minh ko hiểu lắm . Thanks.

sealand · 8/5/09

Mình sửa phần thô, bạn hiệu chỉnh lại

nokia2009 · 11/5/09

[FONT=&quot]Chào các Anh/Chị[/FONT]
[FONT=&quot]Tôi mới học Excel, muốn tính tiền điện theo giá mới nhưng dùng hàm IF dài dòng quá. Mong Anh/Chị có cách nào để hàm tôi lập ngắn hơn không hoặc có cách tính nào khác không.[/FONT]

IF(D3<=50,D3*$K$4,IF(D3<=100,50*$K$4+(D3-50)*$K$5,IF(D3<=150,50*$K$4+50*$K$5+(D3-100)*$K$6,IF(D3<=200,50*$K$4+50*$K$5+50*$K$6+(D3-150)*$K$7,IF(D3<=300,50*$K$4+50*$K$5+50*$K$6+50*$K$7+(D3-200)*$K$8,IF(D3<=400,50*$K$4+50*$K$5+50*$K$6+50*$K$7+100*$K$8+(D3-300)*$K$9,IF(D3>400,50*$K$4+50*$K$5+50*$K$6+50*$K$7+100*$K$8+100*$K$9+(D3-400)*$K$10)))))))

sealand · 11/5/09

Hoan hô bạn, Bạn mới học mà lập được cái công thức hoành tráng vậy là thành công lắm đó nha. Chắc cũng có lý ngành điện quy định 7 mức là giới hạn của hàm if lồng nhau chức không phải là 8.Có cách làm cho công thức gọn hơn là thay các đoạn công thức có kết quả rồi bằng kết quả. Ví dụ:

IF(D3<=50,D3*$K$4,IF(D3<=100,50*$K$4+(D3-50)*$K$5,IF(D3<=150,50*$K$4+50*$K$5+(D3-100)*$K$6,IF(D3<=200,50*$K$4+50*$K$5+50*$K$6+(D3-150)*$K$7,IF(D3<=300,50*$K$4+50*$K$5+50*$K$6+50*$K$7+(D3-200)*$K$8,IF(D3<=400,50*$K$4+50*$K$5+50*$K$6+50*$K$7+100*$K$8+(D3-300)*$K$9,IF(D3>400,50*$K$4+50*$K$5+50*$K$6+50*$K$7+100*$K$8+100*$K$9+(D3-400)*$K$10)))))))

Bạn có thể thay đoạn màu đỏ bằng 30000. (Còn nhiều đoạn nữa) Ác liệt nhất là đoạn màu xanh bằng 540750 (Kiểm tra các đoạn mình tô màu nhé)

sealand · 11/5/09

Học VBA có thể bằng nhiều con đường, nhưng chịu nghiên cứu, vọc nhiều với trợ giúp của anh em GPE cũng là một đường khả quan nhé.
File của bạn nếu đã lạpp thành bảng gia thì cũng có thể viết như file kèm

thangnh2k · 7/6/09

Phần mềm Quản lý và tính tiền điện

hoangtronglanh đã viết:
Xin anh chỉ dẫn cụ thể bắt đầu từ đâu, vì thực tế tôi chưa biết BVA mở như thế nào và chỉnh ra làm sao ;Mong anh giúp cho xin cảm ơn anh!

Phần mềm tính tiền điện theo thông tư mới chạy bằng Acess:
- Tính và in hóa đơn chi tiết khách hàng (nửa tờ A4)
- Báo cáo thống kê doanh số ...
Down oad tại đây :http://www.mediafire.com/download.php?jtnzjd2jneu http://www.mediafire.com/download.php?iz5madnj11j
liên hệ dt:0983.629290 Email :huuthang@gmail.com

Pham_tuan1964 · 10/6/09

cứu em

HTX em quản lý khoảng 1.500 hộ dùng điện. Em muốn các đại ca thông thạo excel cho em file hoá đơn tính tiền điện. Em xem trong diễn đàn các đại ca đã làm dược nhưng copi về vẫn thiếu chữ ký của người nộp tiền em sửa ở temp nhưng khi cho tính hoá đơn máy toàn báo lỗi vậy các đại ca sửa giúp. Em cảm ơn trước nhé.

Pham_tuan1964 · 10/6/09

cứu em, cứu em khẩn cấp. 15 này em chốt số rùi

HTX em quản lý khoảng 1.500 hộ dùng điện. Em muốn các đại ca thông thạo excel cho em file hoá đơn tính tiền điện. Em xem trong diễn đàn các đại ca đã làm dược nhưng copi về vẫn thiếu chữ ký của người nộp tiền, ô sêri công tơ bác mặc định vào mã trạm em sửa ở temp nhưng khi cho tính hoá đơn máy toàn báo lỗi vậy các đại ca sửa giúp. Em cảm ơn trước nhé. Em gửi kèm file em đã sửa ở temp mong đại ca nào viết chương trình này giúp em nhé

Pham_tuan1964 · 10/6/09

Pro nào giúp em với.Em quản lý tiền điện của hợp tác xã khoảng 1500 hộ đang cần file tính tiền và lập hóa đơn.Ở Diễn đàn,các pác đã có em cóp về nhưng thiếu tên hộ nộp tiền ở cả phần hóa đơn và phần cuống @!##

,trong ô số seri công tơ pác mặc định thành mã trạm -0-/.

.Em đã sửa ở file temp nhưng khi lên lập hóa đơn máy báo lỗi.Pro nào viết ra cái chương trình này sửa giúp em với.Em gửi kèm file temp đã sửa để pro tham khảo.
http://www.mediafire.com/download.php?nmkzwh4m1mi
YM của em là : Pham_tuan1964@yahoo.com

jacky_police · 17/6/09

To Sealand:
Tôi có file dữ liệu khoảng 2000 hộ. Hiện tại tôi nhập dữ liệu mới có 3 tháng 4, 5, 6 Nhưng không hiểu vì sao khi lập hóa đơn để in thì file nó chậm, để in được 1000 hóa đơn này tôi phải mất khoảng 4h chỉ để lập hóa đơn thôi.
Tôi muốn nó chạy nhanh hơn để khi in chỉ mất khoảng 30 phút thôi và dung lượng vừa phải khoảng 5mb.
Vấn đề nữa là khi lập hóa đơn để in thì 20 hóa đơn đầu nó tạo thành 1 trang từ hóa đơn thứ 21 trở đi thì khi in được 2 hóa đơn vào 1 tờ giấy A4.
Tôi gửi file đính kèm nhờ anh xem giúp nguyên nhân làm sao. Do công thức hay vì lý do nào khác.
Giúp tôi nhé.
File lớn quá không đính kèm được. Tôi gửi vào email cho anh nhé.

sealand · 18/6/09

Nói chung, file này nặng chủ yếu ở mấy cái báo cáo còn phần lập Hoá đơn chắc là nó không thể gây ra tốc độ ấy được. Để cải thiện về tốc độ và dung lượng thì phải hy sinh tiện ích thôi. (Tức là loại bỏ bớt báo cáo - Chỉ cần xoá bớt các sheet này) . Nếu vẫn muốn để lại thì tạo file báo cáo riêng rồi link dữ liệu tới file này. Khi in Hoá đơn thì ta lập và in vài trăm Hoá đơn 1 lần thôi.

thangnh2k · 18/6/09

Phần mềm Quản lý và tính tiền điện

Pham_tuan1964 đã viết:
Pro nào giúp em với.Em quản lý tiền điện của hợp tác xã khoảng 1500 hộ đang cần file tính tiền và lập hóa đơn.Ở Diễn đàn,các pác đã có em cóp về nhưng thiếu tên hộ nộp tiền ở cả phần hóa đơn và phần cuống ,trong ô số seri công tơ pác mặc định thành mã trạm .Em đã sửa ở file temp nhưng khi lên lập hóa đơn máy báo lỗi.Pro nào viết ra cái chương trình này sửa giúp em với.Em gửi kèm file temp đã sửa để pro tham khảo.
http://www.mediafire.com/download.php?nmkzwh4m1mi
YM của em là : Pham_tuan1964@yahoo.com

Anh thử dùng cai này di http://www.mediafire.com/download.php?jtnzjd2jneu http://www.mediafire.com/download.php?iz5madnj11j

nguyentracdat39 · 12/7/09

các bác giúp em với em bị hiện tượng khi in hóa đơn khi em in thì tất cả các chữ ở các dòng trong nó nhảy linh tinh chẳng hạn như 1 tờ A4 có 2 cái hóa đơn thì khi em in thì lúc thì nó ở 1 trang A4 lúc thi chỉ có 1 nữa chữ ở tờ A4. cac chữ nó bi nhảy linh tinh như hình ở dưới. bác nào biết chỉ cho em với

sealand · 13/7/09

Bạn kiểm tra lại có thể lỗi hoặc mất dòng lệnh này trong Sub inbg():
Sheet5.Cells(k, 1).PasteSpecial Paste:=xlPasteFormats

nguyentracdat39 · 13/7/09

em đã kiểm tra rồi nhưng vẫn còn dòng đó mà. Em mở đi mở lại thì lại được sau đó em chỉnh trang temp rồi in lại hóa đơn thì lại bị.

sealand · 13/7/09

Trang Temp nó đã được chỉnh phù hợp kích cỡ rồi bạn dãn dòng là nó xô dịch lung tung ngay. Tất cả các trang kết quả chép đúng mẫu này. Mình muốn để các bạn tham khảo thôi chứ đúng ra in xong phải khóa lại.

nguyentracdat39 · 14/7/09

the thì bác hướng dẫn em cách khóa nó lại với. tức la sau khi em chỉnh trang temp chuẩn rồi sau đó ko cho chỉnh nữa.

khanh_pdc2000 · 2/9/09

Xin cảm ơn anh Sealand, e đã dow về sử dụng rồi, a cho e hỏi cái này, tháng 7 e đã làm được rồi, nhưng khi chuyển qua kỳ tháng 8 thì khi "lập in hóa đơn điện" thì bị lỗi, các phần khác đều tốt cả
Báo lỗi thế này "The macro "HD theo gia.xls'in_bg' cannot be found"
Cảm ơn anh đã giúp đỡ

sealand · 2/9/09

Cái này dễ bị xoá mất Macro rồi, ý mình nói là các phần mềm diệt virus ấy, bạn kiểm tra lại hoặc gửi File lên xem sao

haihatinh · 5/9/09

cách lập in hóa đơn

mình có một file muốn lập in hóa đơn ở phần main nhưng ko được.
Các bạn giúp mình tạo lại marco để chạy được bình thường.
có phai đính kèm đó!

sealand · 5/9/09

-Không Merge cell tại sheet temp vì lệnh copy--Paste không thực hiện được
-Lưu ý câu lệnh If Sheet4.Range("Z20") > 0 Then khi sửa chữa bổ xung thì bạn thay đổi ô Z20 tương ứng ô tổng cộng, nếu để bằng 0 là code sẽ thoát

haihatinh · 6/9/09

Mình đổi ở câu lệnh If Sheet4.Range("Z20") > 0 Then thành If Sheet4.Range("W24") > 0 Then nhưng vẫn không được!
Các bạn giúp mình cái!
mình đang cần gấp!
nếu giúp được xin gửi câu trả lời qua email: haicoiaha@yahoo.com.vn

poasche_gts · 7/9/09

bác nào biết tính trường hợp mà hộ bị thay công tơ thì làm thế nào ạ.
VD: một hộ trong tháng 8 họ thay công tơ giữa chỉ số công tơ cũ và công tơ mới ở trang main mình sẽ sử lý thế nào em không biết phải làm thế nào bác nào có cách sử lý giúp em với.

thuynguyen113 · 10/9/09

Chào các anh!
Cảm ơn các anh đã chia sẻ tài liệu. Anh có thể xem giúp em cái hóa đơn em đã sửa, nhưng không hiểu tại sao khi in vào giấy A5 thì chỉ được mấy trang đầu còn mấy trang sau thì nó bị lệch trang và ko thể in được. Anh trả lời nhanh giúp em cái, em đang cần gấp. Thanks anh nhé, anh có thể gửi vào em mail của em hd2_bka@yahoo.com

sealand · 10/9/09

To haihatinh
Câu lệnh If Sheet4.Range("Z20") > 0 Then thành If Sheet4.Range("W24") > 0 Then có ý nghĩa là kiểm tra nếu tổng số tiền W24 >0 thì chép HD. Vậy bạn phải tìm đúng ô Cộng tiền mới được vì ban đã sửa đổi nên ô này dịch chuyển đi.
To Thuynguyen:
Nếu bạn đã đến đoạn in ra được là tốt rồi, vấn đề còn lại là bạn co dãn trang Temp cho khớp đúng với 1trang A5 mà thôi. Không thấy file của bạn nên không có ý kiến cụ thể được.
To poasche_gts
Thì bạn thêm khách hàng mới với tên hộ cũ và số Counter mới. Tháng 8 hộ đó sẽ có 2 hoá đơn theo 2 Counter.

poasche_gts · 10/9/09

Em cám ơn bác sealand. Bây giờ em muốn làm thêm năm báo cáo sao cái file mẫu bác post lên không có bác nhỉ. bác có thể hướng dẫn cho em được không ạ.

thuynguyen113 · 10/9/09

Chào anh! em cảm ơn anh nhiều đã giúp đỡ em. Em đã chỉnh và in được trên giấy A5 hoặc trên giấy A4 ( 2 hóa đơn) nhưng chỉ in đc vài trang là bị lệch, nó bị hiện tượng đẩy trang, anh có thể xem trước khi in và giúp em nhé. Thanks!

sealand · 10/9/09

To thuynguyen113

Bạn thử lại xem sao nhé

To poasche_gts

Bạn nói rõ hơn là năm ở đâu. Nếu chỉ là tiêu đề thì bạn thêm trực tiếp tại sheet Temp nhé
Ví dụ file của thuynguyen113 tại H1 nhập ="HÓA ĐƠN TIỀN ĐIỆN GTGT THÁNG "&'S1'!L1 & " NĂM " &'S1'!M1

poasche_gts · 11/9/09

Ở trang main ý bác ở chỗ năm báo cáo ý.Khi em chuyển đổi các năm thì không được ạ.

poasche_gts · 11/9/09

thuynguyen113 đã viết:
Chào anh! em cảm ơn anh nhiều đã giúp đỡ em. Em đã chỉnh và in được trên giấy A5 hoặc trên giấy A4 ( 2 hóa đơn) nhưng chỉ in đc vài trang là bị lệch, nó bị hiện tượng đẩy trang, anh có thể xem trước khi in và giúp em nhé. Thanks!

Của mình cũng bị giống bạn hiện tại mình cứ phải in từng hóa đơn 1 mặc dù mình không chỉnh sửa trang temp nữa.ai biết chỉ giúp với

sealand · 11/9/09

1/ Mình đã bổ xung từ ngày , đến ngày. Ô ngày nhập theo nguyên tắc ngày tháng của Excel.
2/Căn chỉnh: Nếu bạn vẫn giữ file cũ bạn lưu ý dòng lệnh trong Sub in_bg:

Sheet4.Rows("1:27").Copy

Do các bạn giãn trang tối đa không còn chân nữa, nên bạn phải sửa lại:

Sheet4.Rows("1:23").Copy

Giờ thì bạn chỉ co giãn hiệu chỉnh trang temp từ dòng 23 trở lại để khi printview bấm Next không thấy chạy trang là được. Các máy khác nhau nên mình không làm sẵn cho các bạn được nhưng làm như vậy chỉ vài phút là có thể cả trăm trang không hề dịch chuyển

sealand · 14/9/09

Đây chỉ là vấn đề định dạng thôi mà, bạn hình dung trang temp như 1 con dấu. Nếu con dấu to hơn 1 chút hay nhỏ hơn khi đóng liên tục thì mỗi trang sẽ bị lấn đi hay co lại 1 chút, dồn nhiều trang nó sẽ xô lẹch đi.Bạn xem lại lệnh copy trong code xem chép từ dòng nào tới dòng nào rồi điều chỉnh sao cho vùng đó bằng với trang A5 hoặc A4/2.Cẩn trọng 1 chút là được thôi mà

poasche_gts · 14/9/09

Không còn cách nào khác ạ.Em thử đi thử lại cả ở lện nữa.Còn 1 vấn đề ở trang main cái phần báo cáo năm em chuyển giữa các năm thì không được bác ạ.

sealand · 14/9/09

Bạn gửi vào Email của mình , mình kiểm tra lại cho.
Riêng năm nhằm hạn chế dụng lượng file cho Excel chạy trơn tru hơn bạn nên để mỗi năm 1 file.

thuynguyen113 · 22/9/09

Hóa đơn tiền điện

Chào các bác! Các bác có thể giúp em tính số tiền của các khách hàng vào Phần S1 nhé. Em loay hoay mà không sao tính được. Các bác xem ở phần S1 giúp em nhé. Thanks.

sealand · 22/9/09

Bạn nên thêm bảng phụ để xác định mức sử dụng thì dễ hơn. Sau Hide nó đi

yphuong13lsvn · 26/9/09

sealand đã viết:
Hoan hô bạn, Bạn mới học mà lập được cái công thức hoành tráng vậy là thành công lắm đó nha. Chắc cũng có lý ngành điện quy định 7 mức là giới hạn của hàm if lồng nhau chức không phải là 8.Có cách làm cho công thức gọn hơn là thay các đoạn công thức có kết quả rồi bằng kết quả. Ví dụ:

IF(D3<=50,D3*$K$4,IF(D3<=100,50*$K$4+(D3-50)*$K$5,IF(D3<=150,50*$K$4+50*$K$5+(D3-100)*$K$6,IF(D3<=200,50*$K$4+50*$K$5+50*$K$6+(D3-150)*$K$7,IF(D3<=300,50*$K$4+50*$K$5+50*$K$6+50*$K$7+(D3-200)*$K$8,IF(D3<=400,50*$K$4+50*$K$5+50*$K$6+50*$K$7+100*$K$8+(D3-300)*$K$9,IF(D3>400,50*$K$4+50*$K$5+50*$K$6+50*$K$7+100*$K$8+100*$K$9+(D3-400)*$K$10)))))))

Bạn có thể thay đoạn màu đỏ bằng 30000. (Còn nhiều đoạn nữa) Ác liệt nhất là đoạn màu xanh bằng 540750 (Kiểm tra các đoạn mình tô màu nhé)

Trường hợp mà Tôi 0 muốn thay 1 đoạn hàm = con số và muốn thay = 1 hàm khác để có được kết quả cuối cùng là đúng thì làm cách nào?
Xin được hướng dẫn.
Cảm ơn nhiều!

sealand · 28/9/09

yphuong13lsvn đã viết:
Trường hợp mà Tôi 0 muốn thay 1 đoạn hàm = con số và muốn thay = 1 hàm khác để có được kết quả cuối cùng là đúng thì làm cách nào?
Xin được hướng dẫn.
Cảm ơn nhiều!

Việc thay thế này là hoàn toàn bình thường, bạn cứ thay thôi. Nó không có gì sai về cú pháp cả vì thực chất đây là thay kết quả trả về của công thức bằng 1 Const. mà thôi. Còn giờ thay bằng đoạn hàm khác thì trước hết bạn phải test đoạn hàm đó có đúng không đã. Nếu nó hợp lệ rồi thì phải xem nó lồng công thức bao nhiêu cấp rồi cộng số cấp đó với số cấp đã có của công thức đến đoạn thay thế có trên 7 cấp không vì hạn chế tối đa 7 hàm trở lại thôi đấy. Nhưng mình muốn nói thêm là thay bằng số là đảm bảo công thức nhanh nhất, chính xác nhất.

hoangtronglanh · 2/6/10

Anh Sealand ơi ! Làm thế nào để chèn chữ ký và lập in ra nhiều hoá đơn tiền điện đã có chữ ký, anh giúp em với và xin cảm ơn anh nhiều!

sealand · 3/6/10

Chữ ký thường là 1 Picture mà ta Scan hay chup.
Bạn có thể làm nhw đoạn phim sau ( Nhớ mở rộng màn hinh cho rõ nhé)

hoangtronglanh · 3/6/10

Tập tin trên của Anh hướng dẫn chèn được Picture vào trang hóa đơn mẫu (trang Temp) nhưng khi lập in hóa đơn thì nó không ra được các hóa đơn. Không biết phải làm sao được mong Anh giúp đỡ!

khanh_pdc2000 · 11/6/10

Chào các bạn!!!!!!!1
Mình muốn tạo một danh sách và 1 temp, vậy làm thế nào để in hàng loạt hoá đơn.
Có huynh nào biết chỉ dùm đệ.

quehuongtt · 15/7/10

File tính tiền điện và hóa đơn

Chào các bạn! Mình mới tập ứng dụng excel vào làm file quản lý tính tiền điện và hóa đơn. Mình mới sử dụng các công thức thông thường nên tốc độ rất chậm. Mong các bạn giúp để cho in được hóa đơn theo mẫu trong file đính kèm được pro hơn và tốc độ xử lý nhanh hơn khi số lượng hô tiêu thụ nhiều

titanic20072007 · 25/9/10

sealand đã viết:
Mình xin gửi file In Hoá Đơn Điện có chèn biểu tượng công ty (Mình dùng dạng file *.bmp) .Lưu ý file biểu tượng đổi tên là BT1.bmp và chép vào cùng thư mục với file in Hoa đơn.

Kèm theo cả merger dòng Copyright cạnh HĐ.

Mong góp cho các bạn 1 cách thực hiện vừa ý.

Nếu em muốn cho thêm một ảnh chữ ký thì làm thế nào. Em thử rồi nhưng không được. Mong anh chỉ giúp.

NH_DK · 25/9/10

titanic20072007 đã viết:
Nếu em muốn cho thêm một ảnh chữ ký thì làm thế nào. Em thử rồi nhưng không được. Mong anh chỉ giúp.

Nếu bạn muốn chèn chữ ký vào thì bạn phải chèn vào vùng của Sheet Temp đó. Vì tác giả đã thiết lập vùng này để copy sử dụng cho Sheet Form2 rồi.
Chúc bạn thành công!

titanic20072007 · 25/9/10

NH_DK đã viết:
Nếu bạn muốn chèn chữ ký vào thì bạn phải chèn vào vùng của Sheet Temp đó. Vì tác giả đã thiết lập vùng này để copy sử dụng cho Sheet Form2 rồi.
Chúc bạn thành công!

Ý mình là mình đã chèn được logo của điện nhưng muốn chèn thêm chữ ký nữa thì không được hình như nó chỉ cho chèn một hình ảnh thôi thì phải. Có huynh nào biết chèn thêm một ảnh nữ thì giúp mình với

NH_DK · 26/9/10

titatito75 đã viết:
Bác Sealand lên tiếng giúp anh em đi. Không chèn được chữ ký đâu bác ạ !
Em gửi file của em vào Mail bác rồi. Mong bác giúp đỡ

Xin lỗi anh sealand, em xin sửa lại file của anh chút nhé!
Không biết làm như thế này có đúng ý bạn không!? Bạn xem file đính kèm nhé!

sealand · 26/9/10

Xin lỗi vì chậm trễ, được ngày chủ nhật đám xá nhiều quá.
Nay mình gửi file có biểu tượng và chữ ký nha
Chúc các bạn thành công

P/s: Các bạn đâu có gủi file nào đâu. Thôi thì tham khảo tự làm vậy nha.

titanic20072007 · 3/10/10

Bác sealand ơi sao khi tạo xong hóa đơn thì nó tạo ra nhiều trang trắng ở phía dưới thế. VD em in hóa đơn từ 1-> 50 thì nó tạo ra trong trang hóa đơn 50 trang trong đó chỉ có 25 trang đầu là hóa đơn của 50 người còn 25 trang còn lại trang trắng. Có cách nào đưa ra không có trang trắng ở cuối không?

sealand · 3/10/10

Như vậy rất có thể Page setup cho máy in cua bạn phải xem lại. Ngay các thắc mắc khác của bạn cũng để cho mình nghi ngờ vấn đề này. Bạn lưu ý chiều rông của trang in. Nêu số trang in tăng gấp đôi thì gần chắc định dạng Page chắc chắn nhỏ hơn chiều ngang của giấy A4.
Nếu bạn có Teamviewer thì mình có thể kiểm tra trực tiếp trên máy của bạn.

titatito75 · 5/10/10

Bác Sealand Check mail và giúp em nốt đi bác

titatito75 · 6/12/10

Xin lỗi bác ! nhưng tôi là dân IT tôi biết phải cài như thế nào. Access đã cài, Macro để Low rồi. >>> chạy vẫn báo lỗi. Nản.
Còn bác Sealand với bác Ngọc chạy đâu mất tiêu luôn. Thấy mấy cái của tôi đưa ra khó quá nên ko chịu giúp. ====> nản nốt !

sealand · 6/12/10

Không hẳn vậy, cái chính là không biết lý do gì trên máy của bạn. Thậm chí cái file lỗi sinh ra các trang trắng cũng không thấy nên chỉ phỏng đoán vậy thôi chứ biết nó làm sao đâu.

hieuhi77 · 2/1/12

Chào Anh Sealand
Em dem xem rất nhiều file chỉnh sửa của bác thật là thú vị và bổ ích. Mỗi người thêm 1 ý kiến cứ thé ngày càng hoàn chỉnh hơn. Em có một thắc mắc là ở phần main mục Năm báo cáo sao bác không để Năm báo cáo dài thêm nữa đên khoảng 2020 chẳng hạn.
Và em cũng muốn vọc chỗ đó mong bác chỉ giúp.

sealand · 2/1/12

Cái đó là Validation, bạn cứ thêm vào có sao đâu

hieuhi77 · 2/1/12

Em đã thử nhưng không cho phép bác chó thể chỉ em chi tiết hơn một chút được không. Cảm ơn bác nhiều.
Em đã gửi file vào mail của bác mong bác xem và chỉ giáo.

hoangtronglanh · 12/1/12

Các bác cho e hỏi tí: khi lập hóa đơn dòng tiền điện bằng chữ quá dài không đủ giấy , làm thế nào để dòng chữ này tự động xuống dòng khi quá dài?

ptm0412 · 12/1/12

hoangtronglanh đã viết:
Các bác cho e hỏi tí: khi lập hóa đơn dòng tiền điện bằng chữ quá dài không đủ giấy , làm thế nào để dòng chữ này tự động xuống dòng khi quá dài?

Format wrap text thì nó tự xuống dòng.

chuthuy1601 · 9/5/12

Hóa đơn tiền điện

hiện giờ mình đang học về thuế GTGT, giảng viên mình cho bài về nhà và bắt phải tự thiết kế hóa đơn và kê khai thuế GTGT. có nghiệp vụ doanh nghiệp thanh toán tiền điện, tổng tiền thanh toán là 13.420.000đ đã có thuế. vậy khi mình lập hóa đơn có phải tính ra số điện đã sử dụng k? tính và lập hóa đơn như thế nào? giúp mình với nhé. cám ơn mọi người thật nhiều.

txonline · 2/8/12

^_^ cái này thì ko nên làm trên excel bạn nhé, nếu bạn quan tâm, liên lạc mình qua số 0902842428 mình sẽ hỗ trợ bạn thêm. (trước khi gọi sms cho mình nha)

thuythuyhtx · 20/8/13

mình thay đổi code trong phần temp để 2 hóa đơn/A4 giấy dọc thì lại bị lỗi chỉ in được 1 hộ trên temp thôi ko in được các hộ khác. có ai giúp mình với

sealand · 20/8/13

thuythuyhtx đã viết:
mình thay đổi code trong phần temp để 2 hóa đơn/A4 giấy dọc thì lại bị lỗi chỉ in được 1 hộ trên temp thôi ko in được các hộ khác. có ai giúp mình với

Bạn phải gửi lại file mới biết bạn sửa ra sao chớ.

thuythuyhtx · 13/9/13

có ai có thể chỉnh phần hoá đơn thành khổ 1/2 A4 giấy dọc cho mình với

toxuantungtung · 1/4/14

bạn chỉ công thức tính tền điện bằng excel từ 0 đến hơn 400 kw cho mình với

phamtuantkv · 19/6/14

Bạn ơi bây giờ thay đổi thành 5 mức giá thì làm thế nào vậy.

sealand · 19/6/14

Do vẫn còn anh em quan tâm tới vấn đề này nên mình đã sửa lại file với các nội dung sau:

1/Việc tính toán dùng VBA chứ không dùng công thức để đảm bảo chính xác và dễ cập nhật hơn.
2/Điều chỉnh lại cách tính toán theo hệ số khu vực: Giá khu vực bằng giá chuẩn nhân với hệ số giá theo bảng.
3/Cập nhật cách tính giá 6 mức áp dụng kể từ ngày 01/06/2014

Cách làm hóa đơn tính tiền điện trong Excel (1 người xem)

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

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên gạo cội

File đính kèm

Thành viên mới

Thành viên mới

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

Thành viên gạo cội

File đính kèm

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

Thành viên gạo cội

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên mới

Thành viên gạo cội

Thành viên mới

File đính kèm

Thành viên gạo cội

File đính kèm

Thành viên mới

File đính kèm

Thành viên gạo cội

Thành viên gạo cội

File đính kèm

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

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

Thành viên gạo cội

Thành viên mới

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên mới

Thành viên gạo cội

Thành viên mới

File đính kèm

Thành viên gạo cội

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên mới

File đính kèm

Thành viên gạo cội

File đính kèm

Thành viên mới

Thành viên mới

Thành viên gạo cội

File đính kèm

Thành viên gạo cội

Thành viên mới

Thành viên gạo cội

Thành viên mới

File đính kèm

Thành viên gạo cội

File đính kèm

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên gạo cội

File đính kèm

Thành viên mới