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

[jacky_police]

Cám ơn bạn! Bài viết của bạn rất hay. Tuy nhiên khi tôi sửa lại sheet temp của bạn theo hóa đơn dọc nhìn nó đẹp hơn, vuông vắn hơn theo 7 mức giá khác nhau. Nhưng khi chỉnh lại cả đoạn mã từ 16 -23 (Sheet1.Cells(1, 23) = i), từ 18 - 25 (Sheet4.Rows("1:25").Copy) khi bấm lệnh in thì nó báo lỗi hoặc không lên số thứ tự cũng như hóa đơn. Riêng cái VBA thì tôi dốt lắm.
Bạn xem lại chỉnh giúp mình. Cám ơn trước.

Public Sub in_bg()
Dim tu, den As Integer
'Xac dinh so in
tu = Sheet1.Cells(2, 14)
den = Sheet1.Cells(3, 14)
'Xoa trang in
Sheet5.Range("A:AQ").Clear
Application.ScreenUpdating = False
'Tao trang in
k = 1
For i = tu To den
Sheet1.Cells(1, 23) = i
Sheet4.Rows("1:25").Copy
Sheet5.Cells(k, 1).PasteSpecial Paste:=xlPasteValues
Sheet5.Cells(k, 1).PasteSpecial Paste:=xlPasteFormats
k = k + 26
Next
Application.ScreenUpdating = True
Sheet5.Activate
Application.CutCopyMode = False
'Tuyf banj chon cachs xem
'Sheet5.PrintPreview
Sheet5.Range("I1").Select
End Sub

 

[sealand]

To jacky_police:
Bạn sửa code như sau:

Public Sub in_bg()
Dim tu, den As Integer
                    'Xac dinh so in
    tu = Sheet1.Cells(2, 18)
    den = Sheet1.Cells(3, 18)
                    'Xoa trang in
Sheet5.Range("A:AQ").Clear
MsgBox tu & den

Application.ScreenUpdating = False
                    'Tao trang in
k = 1
For i = tu To den
Sheet1.Cells(1, 21) = i
Sheet6.Rows("1:25").Copy
Sheet5.Cells(k, 1).PasteSpecial Paste:=xlPasteValues
Sheet5.Cells(k, 1).PasteSpecial Paste:=xlPasteFormats
k = k + 26
Next
Application.ScreenUpdating = True
Sheet5.Activate
Application.CutCopyMode = False
            'Tuyf banj chon cachs xem
'Sheet5.PrintPreview
Sheet5.Range("I1").Select

End Sub

Nhưng bạn đã view chưa thiết lập như bạn sẽ tốn nhiều giấy và chi phí in ấn đấy

 

[sealand]

Như đã hứa với các bạn, mình sửa lại file Hoa don dien de xem in trực tiếp, không phải tạo sheet chứa hàng loạt hóa đơn. Bảng biểu gọn gàng hơn.
Để kiểm tra mình đang thay lệnh in trong Sub in_hoadon bằng thông báo như sau:

'Sheet4.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
MsgBox "Ban dang in trang " & i, , "CHUONG TRINH IN HOA DON DIEN"

Khi sử dụng các bạn sửa lại:

Sheet4.PrintOut From:=1, To:=1, Copies:=1, Collate:=True

 

[hoangtronglanh]

Xin chào và cảm ơn saland đã gửi cho file lập hóa đơn tiền điện, nhưng sao tôi thêm danh sách và in lại không thực hiện được. Ví dụ: Tôi muốn thay, hoặc thêm danh sách các hộ sử dụng điện vào nó không thể hiện được trên hóa đơn và khi tôi muốn in hộ a, hộ b, hoặc hộ c... không tài nào thực hiện được. Rất mong bạn giúp đỡ chỉ giáo xin chân thành cảm ơn!!

 

[phuonggvgp]

Hình như là phiên bản này của bạn vẫn chưa hoạt động được thì phải, hay cách sử dụng của nó khác. Sao mình ấn vào mục quyết định in hoá đơn mà không có thay đổi gì hết

Cho mình hỏi: Mình muốn thêm dòng Số No công tơ bằng hàm =VLOOKUP(W5.'S1'!A:K.2.0) để trỏ đến cột Ma bên sheet 1 mà không được. Sau khi ấn Enter nó thông báo lỗi. Bạn có thể xem hàm trên có đúng không và sai ở đâu. Nếu rảnh có thể nói giúp mình về hàm VLOOKUP và cách dùng hàm này. Cảm ơn rất nhiều

 

[sealand]

Bạn nhập số tư và đến xong phải chuyển con trỏ sang ô khác thì giá trị mới cập nhật và in được.Như mình đã nói, mình đang Demo để các bạn xem, khi dùng thì sửa code. Nay mình sửa để in luôn nhé.
Công thức của bạn sai vì trang S1 cột 2 là Tên KH chứ đâu có phải là số Counter. Bạn nên đưa file lên mình sẽ sửa trực tiếp cho tránh phải đoán chừng không chuẩn xác

To hoangtronglanh: Bạn thấy để tiết kiệm giấy, mình bố trí 2 HD trên 1 trang và 2 HD này phải liền nhau, nếu bạn muốn in riêng thì phải chấp nhận sửa lại hay in kèm theo 1 HD khác. Cách in 1 hóa đơn nào đó như sau ( ví dụ số TT=13):
Trang của HD là số TT/2=6 (Bỏ dư)
Bạn nhập số 6 vào ô Bạn đang in trang: .Sau đó ra lệnh in trên menu file hay nút lệnh trên thanh công cụ.
Bạn thêm danh sách và in không được bạn nên kiểm tra công thức đã mở rộng hết vùng danh sách chưa? Nếu thiếu thì sử lại cho đủ.

 

[phuonggvgp]

Cảm ơn anh nhiều lắm. Bây giờ em với xem thông tin về anh, xin lỗi anh vì sự khiếm nhã đã gọi là bạn. Anh thông cảm cho, anh hơn em đến chục tuổi.
Hiện em không làm được hàm Vlookup. Anh có thể giúp em thêm dòng lệnh số No công tơ Tại sheet temp.
EM đã dùng thử mẫu A2 của anh rồi. Sao em ấn lệnh in từ 1 đến 2 thì nó lại in 2 tờ (4 hoá đơn từ 1 đến 4). Thực ra em vẫn thích cách cho ra các hoá đơn để xem trước, vì như thế nó còn thấy được sai đúng, cái này thì nó in luôn không thấy được hoá đơn trước khi in. Đấy là nhận xét theo cách chủ quan của em thôi, anh thử xem có cách nào mà tối ưu hơn được không. Chẳng hạn xem trước khi thực hiện lệnh in.

 

[sealand]

To phuonggvgp :
Trong mỗi lĩnh vực nó có cái thú riêng của nó, thơ văn, chính sự, nghệ thuật và cả tin học nữa nó luôn tồn tại những tình bạn vong niên. Có chung niềm đam mê, chung điều trăn trở và có thể tâm sự, trao đổi với nhau thì còn gì tốt hơn. Vậy em không phải phân vân về xưng hô nhé.

Còn File em sửa khá tốt, chỉ cần lưu ý 1 số vấn đề sau:
-Hàm Vlookup em có thể tham khảo phần hộ dùng điện (Sheet S1 là cột 3)
=VLOOKUP(AK2,'S1'!A:K,3,0)
Chép C/thức và em chỉ thay số 3 (Cột 3) bằng số 2 (Cột 2) là được.

-Khi chép dán bảng tính nếu đã có Merge rất khó khăn nếu kích thước vùng chép và vùng dán không tương đồng. Em cứ thử làm mà xem. Vậy Sheet temp tuyệt đối không Merge các ô lại. Để căn giữa 1 vùng nên dùng Center Across selection. Anh rã hết các ô bị Merge là file chạy ngon ngay mà.
-Anh thấy hình như em nhầm mã KH với mã giá thì phải. Anh không hiểu mã quy ước của em như vậy là thế nào?

Đối với bản A2 thì như anh đã nói là in từ trang đến trang chứ không phải từ số đến số. Mà mỗi trang có 2 HĐ vậy em nhập như vậy in ra 4 HĐ là đúng. Nếu em muốn xem trước khi in thì có thể dùng lệnh:


Sheet4.PrintPreview


Thay cho lệnh:


Sheet4.PrintOut From:=1, To:=1, Copies:=1, Collate:=True


Chúc em thành công

 

[phuonggvgp]

Em hiểu rồi anh à. Cảm ơn anh đã nói rõ cho em biết về cái sai của em. Em cũng biết là sao chép công thức ở chỗ khác sang nhưng em không biết gộp lại nó gây ra lỗi. Một lầa nữa cảm ơn anh. Bây giờ em sẽ đầu tư thời gian nghiên cứu thêm về Excel, nếu có gì khúc mắc mong anh giúp em với
Do tại địa phương em có nơi rất xa, nếu áp dụng mức đầu đều là 1 giá hết thì không ổn, vì nơi xa tổn hao lớn. Vấn đề đặt ra là:
+ Nếu cột mã khách hàng có số 01 thì tính theo giá là 660 đồng
+ Nếu cột mã khách hàng có số 02 thì tính theo giá là 700 đồng.
+ vv... cho đến 1000 đồng
Em thử rồi việc quy thành mã 01 đến 07 là bên HTX điện chỗ em họ quy định thế ông nào thuộc mã nào thì tính tiền mức 1 theo mã đó. Các mức còn lại vẫn giữ nguyên. Dân chỗ em trình độ thấp lắm nên họ không hiểu VAT là gì cả mà chỉ hiểu là tại sao lại mất thêm một khoản gì đó mà không phải của mình ở cuối. Do vậy phần VAT phải để trống và cộng luôn vào phía trên

 

[phuonggvgp]

Anh Sealand! .
Anh có tài liệu nào liên quan đến VBA không, loại tài liệu mà dành cho người mới học đó. Nếu có anh cho em xin 1 cái, em muốn học cái này quá. mấy ngày nay nghiên cứu cái của anh thấy hay ghê. Cảm ơn anh trước nhé

 

[sealand]

Mình thấy bạn nên nhờ anh em trên diễn đàn mua giúp cuốn Lập trình VBA của Phan Tự Hướng mới phát hành ấy. Sách đó tầm tầm về kiến thức và văn phong thuần Việt nên dễ học.
Mình bổ xung file hôm trước để có thể áp dụng các khu vực giá khác nhau phổ biến ở nông thôn hiện nay đồng thời đổi mẫu dễ coi hơn

 

[laianhtu]

Chào bạn,

File này có áp dụng cho giá điện kinh doanh của các Doanh nghiệp không vậy bạn ?

Hàng tháng công ty Điện lực có gửi hóa đơn GTGT đến DN mình dùng file này test được hả ?
Thanks.
Anh Tú.
"Love is beautiful when it's unconclusive".

 

[jacky_police]

Cảm ơn bác Sealand. Các cách làm của các bác rất hay, tuy nhiên bây giờ tại chỗ em đòi hỏi khi nhập danh số liệu vào phải in lọc được ra bảng kê từng tháng. Ví dụ: Em có hồ sơ của 2 trạm biến áp và quản lý theo trạm. khi nhập dữ liệu và in theo bảng kê Tiền điện tháng 3 theo trạm. Em gửi kèm theo file: Có thể thay thế sheet3 cho sheet1. Nhờ các bác chỉ giúp em cho công việc được nhà hơn. Còn đương nhiên là phải in hóa đơn rồi, tốn cũng phải in chứ.

 

[sealand]

To Jacky:
Mình sẽ xem và tham gia cụ thể sau.

To laianhtu:
Mình đã thiết lập bảng giá mở bạn có thể ráp giá theo yêu cầu theo 7 mức giá.
Nhưng với yêu cầu Test thì chỉ cần lập 1 sh tính giá là xong. Khi xem chỉ nhập số điện sd theo từng thời gian (Vì điện KD có tính theo giờ cao điểm , thấp điểm...) và cho kết quả để so sánh là được, nó sẽ khác so với bài này là điện sinh hoạt.

 

[vanungbhxh]

Cám ơn bạn sealan, ban gởi bảng tính tiền điện theo 7 bậc mới và cho 1-3 ví dụ cho mình theo Email: Vanungbhxh@yahoo,com.vn. minh đang cần. sau minh xẽ mua đứt bản quyền của bạn nhé! hãy gửi mình xem thử nhé! ( mình không cám ơn xuông, vì mình đã làm 1 tuần rồi mà không được). bạn nhớ gửi cho mình cả địa chỉ của bạn nhé. mình chưa biết Email của bạn nên chưa cho địa chỉ của mình được. khi biết Email của bạn mình xẽ cho địa chỉ cụ thể của mình ngay. (vì mình đang cần gấp lắm. chào bạn- hẹn gặp lại.

 

[sealand]

To vanungbhxh:
-Các bài của mình đã đưa lên diễn đàn bạn cứ dùng vô tư không phải phân vân về quyền cũng như tiền nong. Cũng như mọi người chỉ cần bạn nhấn nút Thank là mình biết có bạn quan tâm về bài của mình, mình cũng rất vui là giúp thêm 1 bạn điều gì đó. Các bài cũ bạn tải ngay trên diễn đàn được mà.
-Mình đang làm lại file để có thể kết hợp báo cáo tháng năm, khi nào xong mình sẽ gửi lên cho các bạn
-Các thắc mắc về File cũ chưa giải quyết được cứ đưa bài lên GPE hay liên hệ theo chữ ký của mình.
Cám ơn các bạn đã quan tâm.

 

[sealand]

Từ 1 số ý kiến của các bạn mình hoàn thiện file quản lý điện với 1 số tính năng sau:
+Hàng kỳ chỉ cần nhập chỉ số cuối kỳ, ngoài ra không cần điều chỉnh gì thêm.
+Có thể in Hoá đơn, Bảng kê tổng hợp, chi tiết kỳ, năm và đối chiếu SD điện.
+Hệ thống bảng giá phù hợp với điều kiện có phụ phí bổ xung thêm so với giá quy định.

Chú ý: -Hạn chế thay đổi kết cấu, Các bạn lưu ý khi nhập đừng vào ô có công thức. Để các bạn chỉnh sửa nên mình chưa khoá ô công thức.
-Mình làm ví dụ ít khi các bạn bổ xung nhớ kiểm tra công thức đã phủ hết vùng dữ liệu chưa nhé.
-Mình đang làm quyết toán năm nhưng các bạn quan tâm nên tranh thủ viết, thời gian hạn chế không kiểm tra hết được nhất là các điểm không hợp lý, mong các bạn góp ý bổ xung.

Mong các bạn từ đây phát triển thêm để hoàn thiện và phục vụ tốt công việc của mình.
Chào các bạn.

 

[hoangtronglanh]

Xin trân thành cảm ơn Sealand! Tập New hóa đơn điện 2009 Anh vừa gửa cho rất bổ ích và sát với thực tế, tôi vừa xem qua thấy có thể áp dụng cho HTX của địa phương. Nhưng sao danh sách tên hộ sử dụng tôi đã sửa lại cho phù hợp ở trang Temp, mà ở tang hóa đơn nó không thay đổi được, và các bảng tổng hợp số lượng hộ có thêm nhiều được nữa không hay chỉ có vậy thôi? Tôi muốn nó hàng ngàn hộ có được không? có những cột tại sao tôi không kéo rộng ra được . Rất mong được sự chỉ giáo của anh. Một lần nữa xin được cảm ơn Anh!
Hoàng Trọng Lành!

 

[sealand]

Xin trân thành cảm ơn Sealand! Tập New hóa đơn điện 2009 Anh vừa gửa cho rất bổ ích và sát với thực tế, tôi vừa xem qua thấy có thể áp dụng cho HTX của địa phương. Nhưng sao danh sách tên hộ sử dụng tôi đã sửa lại cho phù hợp ở trang Temp, mà ở tang hóa đơn nó không thay đổi được, và các bảng tổng hợp số lượng hộ có thêm nhiều được nữa không hay chỉ có vậy thôi? Tôi muốn nó hàng ngàn hộ có được không? có những cột tại sao tôi không kéo rộng ra được . Rất mong được sự chỉ giáo của anh. Một lần nữa xin được cảm ơn Anh!
Hoàng Trọng Lành!

Chắc là công thức ở cột số kéo chưa hết, nên vùng trống số tt sẽ bị bỏ.
Danh sách thêm bao nhiêu chỉ hạn chế bởi Excel và cấu hình máy tính khi file quá lớn mà thôi. Nếu danh sách lên dăm ngàn hộ trở lên thì nên chia mỗi trạm, hay thôn 1 file để giảm dung lương.(Thực tế mình làm các file Kế toán có 7.000-10.000 dòng vẫn chạy tốt)
Khi thêm danh sách không chạy công thức thì bạn kiểm tra lại công thức, như mình đã nói mình làm vội nên vùng dữ liệu chưa khai báo hết được các banj chép xuống cho đủ và điều chỉnh công thức 1 chút. Đúng ra mình nên dùng name động để tự động mở rộng vùng dữ liệu.
Nếu khó khăn về việc D/c các bạn cứ nạp DS và dữ liệu rồi gửi theo địa chỉ Email ở chữ ký của mình mình sẽ đ/c giúp. Sau này khi hoàn thiện file chắc sẽ không bị tình trạng này nữa.
Lưu ý: Chỉ nhập chỉ số ở trang main. DS, giá và trạm ở trang DMuc chứ không nhập gì ở trang temp. Trang này để cho các bạn xem thôi chứ khi sử dụng thì Hide nó đi.

 

[phuonggvgp]

Bác cứ đưa ra hướng mở, em thấy nó hay lắm. Hiện tại em đang thực hiện theo hoá đơn này và đang thực hiện kéo dài danh sách ra, vì thực tế chỗ em mỗi trạm gần 600 khách hàng cơ
Anh à, chỗ em còn phát sinh một cái nữa là một nhà có đến 2 công tơ và phải thêm cột số hộ. Em đang sử lí công thức này theo cách mới của anh, cách cũ thì em làm được rồi
Em còn một thắc mắc nữa: Sao bác không bổ sung thêm mục in từ số đến số như thế tiện hơn vì muốn in lại hoá đơn thì chỉ gõ số là nó in lại cho mình hoá đơn theo yêu cầu