Cách làm hóa đơn tính tiền điện trong Excel

[sealand]

To Hoangtronglanh: Bạn nhấn Alt+F11 -->Module-->Module1. Bạn chú ý đoạn code sau;

Public Sub in_bg()
Dim tu, den As Integer
                    'Xac dinh so in
If Sheet6.[X14] = "In tat ca" Then
Sheet6.[X16] = 1
Sheet6.[X17] = Application.WorksheetFunction.Max(Sheet6.Range("A3:A5000"))
End If

    tu = Sheet6.[X16]
    den = Sheet6.[X17]
                    'Xoa trang in
Sheet5.Range("A:AQ").Clear

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

For i = tu To den
[B][COLOR=Red]Sheet6.Cells(8, 24) [/COLOR][/B]= 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
k = k + 28
End If
Next
Application.ScreenUpdating = True
Sheet5.Activate
Application.CutCopyMode = False
            'Tuyf banj chon cachs xem
'Sheet5.PrintPreview
Sheet5.Range("I1").Select

End Sub

Bạn xem ô đang sử lý số có dòng cột là bao nhiêu thì điều chỉnh dòng màu đỏ theo số dòng cột đó.

To nguoiyeubien:
Mình sẽ tham gia cùng bạn nhưng chắc phải sau kỳ báo cáo này ( Khoảng 6/4 trở đi). Mong hết sức thông cảm.

 

[hoangtronglanh]

Anh sealand! Tôi loay hoay theo cách Anh đã chỉ dẫn mãi mà vẫn không tài nào chỉnh sửa được trang hóa đơn và lập in. Anh có còn cách nào dễ làm hơn mách bảo tôi với, tôi đang rất cần Anh ạ!

 

[sealand]

Anh sealand! Tôi loay hoay theo cách Anh đã chỉ dẫn mãi mà vẫn không tài nào chỉnh sửa được trang hóa đơn và lập in. Anh có còn cách nào dễ làm hơn mách bảo tôi với, tôi đang rất cần Anh ạ!

Bạn gửi bài lên GPE hoặc vào E-mail vieth@live.com mình chỉnh giúp còn nghiên cứu sau sẽ hiểu thôi. (Nhớ ghi rõ yêu cầu nhé)


To nguoiyeubien:
Thực ra yêu cầu của bạn thì không phải chỉnh sửa gì cả mà chỉ cần tính lại bảng giá cua đơn vị bạn thành chưa thuế VAT sau đó nhập vào 1 cột nào đó trừ cột 8 sau đó ghi loại giá theo cột tương ứng là xong

 

[phuonggvgp]

Anh Sealand! Em biết cách tạo một nút để khi nháy vào đó thực thi một lệnh theo yêu cầu của mình nhưng hiện tại vẫn không biết cách tạo đc nút in hóa đơn như của anh. Em muốn anh hướng dẫn kĩ hơn cho chúng em được biết và làm thế nào để tạo một nút lệnh nhưng khi in lại không thấy cái nút lệnh đó trên văn bản. Cảm ơn anh rất nhiều.

 

[sealand]

To phuonggvgp:
Bạn dung AutoShapes trên thanh công cụ Drawing vẽ 1 hình nên bảng tính (Hình gì thì tùy bạn chọn). Nhấn chọn hình (khi có các nút kéo xung quanh ) nhấn chuột phải. Trên menu popup bạn chọn Assign Macro và bạn chon trong danh sách những Macro (Sub) mà bạn đã tạo.
Để không in ra, cũng trên menu trên chọn Format AutoShapes-->Trên thẻ Properties xóa dấu kiểm Print Object-->OK

 

[nguyentracdat39]

bác sealand ơi cho em hỏi, cái phần quản lý trạm khi mình chọn tên trạm nó sẽ list ai ở trạm ra làm thế nào ý bác nhỉ em biết là dùng validation em xem thì trong phần source bác có đặt là =matram em ko biết làm cái này bác chỉ cho em với

 

[sealand]

bác sealand ơi cho em hỏi, cái phần quản lý trạm khi mình chọn tên trạm nó sẽ list ai ở trạm ra làm thế nào ý bác nhỉ em biết là dùng validation em xem thì trong phần source bác có đặt là =matram em ko biết làm cái này bác chỉ cho em với

Gọi cách làm này là đặt tên vùng. Bạn cứ gõ đủ số trạm cần thiết như thực tế. Sau đó vào Menu Insert -->Name-->Define
1/Sửa lại tên đã có: Chọn tên trong danh sách rồi sửa Refer to cho hết vùng dữ liệu trạm.
2/Đặt tên mới: Gõ tên ở ô trên cùng sau đó nhập vùng trong Refer to cho phù hợp

Cả 2 cách khi xong phải nhấn Add trước khi OK

Cách lọc theo trạm:
+ Trước hết trên bảng chung mình thêm cột phụ để xác định nếu hộ nào có mã trạm giống mã đã chọn thì đánh số từ 1,2,3... Nếu khác trạm thì bằng 0.
+ Trên bảng lọc trạm ta chỉ liệt kê các dòng lớn hơn 0 ở cột phụ theo 1,2,3..

 

[nguyentracdat39]

Gọi cách làm này là đặt tên vùng. Bạn cứ gõ đủ số trạm cần thiết như thực tế. Sau đó vào Menu Insert -->Name-->Define
1/Sửa lại tên đã có: Chọn tên trong danh sách rồi sửa Refer to cho hết vùng dữ liệu trạm.
2/Đặt tên mới: Gõ tên ở ô trên cùng sau đó nhập vùng trong Refer to cho phù hợp

Cả 2 cách khi xong phải nhấn Add trước khi OK

Cách lọc theo trạm:
+ Trước hết trên bảng chung mình thêm cột phụ để xác định nếu hộ nào có mã trạm giống mã đã chọn thì đánh số từ 1,2,3... Nếu khác trạm thì bằng 0.
+ Trên bảng lọc trạm ta chỉ liệt kê các dòng lớn hơn 0 ở cột phụ theo 1,2,3..

em đã hiểu và làm được theo của bác hướng dẫn nhưng khi mình thực hiện sự kiện chọn tên trạm cần list ra thì nó sẽ ra các danh sách mã trạm mình chọn, nhưng cái bước click vào mã trạm rồi nó list ra thì em ko biết bác chỉ giúp em với

 

[nguyentracdat39]

Còn một vấn đề nữa bác giúp em với bây giờ mình làm thế nào để kiêm tra những hộ họ không dung điện trong 1 tháng thì khi tiền điện bằng 0 thì không cho in hóa đơn nữa làm cách nào bác nhỉ

à bác có thể nói qua cho em cách đưa logo cty vào hóa đơn được không ạ?

 

[sealand]

To nguyentracdat39:
1/Vấn đề hóa đơn không có tiền đã được bỏ qua rồi mà. Bạn xem đoạn code:

If Sheet4.Range("Z20")>0 then....
Có thể bạn sửa trang temp nên nó thay đổi, bạn kiểm tra ô thành tiền là ô nào thì sửa đoạn mã trên cho phù hợp nhé.
2/Vấn đề đưa logo mình chưa tìm cách đưa vào hợp lý được. Mình sẽ có ý kiến sau.

3/Cái bạn gọi là List đó thực ra nó là Validation
Chọn ô cần gán-->Data-->Validation
Trong Allow: chọn List
Trong Source: Bạn gõ "=Matram"
OK

 

[sealand]

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 ý.

 

[thanhson_hp85]

Anh sealand! Tôi thấy diên đàn này rất hay và bổ ich, hơn nữa nó rất thực tế trong thời kỳ các đơn vị kinh doanh điện phải tính và in hóa đơn điện theo giá mới.
Tôi có tải về một số tập tin về và thấy rất hay, nhưng sao khi sử dụng lại không thay đổi được tên đơn vị, địa chỉ,... và đặc biệt là khi ấn vào lập hóa đơn điện thì không được. Rất mong bác chỉ giúp.
Xin cam on.

 

[sealand]

Mình không rõ bạn hỏi về file nào. Có file sửa ơ trang temp, nhưng các file về sau sửa ở trang main. Còn khi ấn lập hoá đơn mà không chạy có lẽ bạn sửa file đã thay đổi cấu trúc bảng hay dữ liệu lập HĐ rồi.

 

[thanhson_hp85]

Ngay cả fỉe gốc tải về, chưa thay đổi cấu trúc, mà khi chon kỳ báo cáo khác, gia sử la kỳ 3, xong nhấn lập in hóa đơn, nhưng HD gốc vẫn không thay đổi. Mình có xem bài trước là thay đổi trong VBA nhưng mình vào Module1 lại không biết thay đổi dòng
Sheet6.Cells(8, 24) = ia

ra sao, anh có thể nói rõ hơn được không. về VBA thì mình cũng không rảnh lắm.
Còn file minh muon hỏi là nhưng file ve sau nay, sửa nội dung đơn vị trong main nhưng lại bị khóa không sửa được.
Rất mong anh giúp, xin cảm ơn.

 

[sealand]

Ngay cả fỉe gốc tải về, chưa thay đổi cấu trúc, mà khi chon kỳ báo cáo khác, gia sử la kỳ 3, xong nhấn lập in hóa đơn, nhưng HD gốc vẫn không thay đổi. Mình có xem bài trước là thay đổi trong VBA nhưng mình vào Module1 lại không biết thay đổi dòng
Sheet6.Cells(8, 24) = ia

ra sao, anh có thể nói rõ hơn được không. về VBA thì mình cũng không rảnh lắm.
Còn file minh muon hỏi là nhưng file ve sau nay, sửa nội dung đơn vị trong main nhưng lại bị khóa không sửa được.
Rất mong anh giúp, xin cảm ơn.

Tốt nhất,bạn gửi lại file vào vieth@live.com mình test lại xem ra ra sao chứ không có bài nào đổi tên trong VBA cả, đồng thời cũng không có bài nào mình protect hết.

 

[sonnam76]

Cách làm hóa đơn tiền điện trong Excel?

Minh co van de sau day mong cac ban giup do:
Minh hien đang làm giá điện bậc thang mới năm 2009
1-50kw: 600 đ
51-100: 865 đ
101 - 150: 1135đ
151 -200: 1495đ
201-300: 1620đ
301 -400: 1740đ
401 trở lên: 1790.
Giá trên chưa có thuế VAT 10%
Mình thấy bài "Hóa đơn tiền điện" rất hay và có một vấn đề phát sinh thêm là một số hộ vẫn dùng 1 công tơ nhưng lại tách làm 2 hộ, như vậy thì khi tính số điện của hộ đó thì ở mức đầu tiên kông phải là 50Kw nữa mà là 100Kw vậy thì làm cách nào để tính. Mình đang chưa biết tính thế nào xin các ban chỉ giáo giúp đỡ cho mình hoàn thiện bài " hóa đơn tiền điện".
Mong nhận được sự giúp đỡ của mọi người. Nêu được mail cho mình
Email: itcvn_hd@yahoo.com

 

[sealand]

Hôm nay mình mới hiểu Counter 1 hộ , 2 hộ. Nó có liên quan tới mức gia ưu đãi của các hộ chung cộng lại. Mình phải sửa lại công thức mới được. Mình sẽ xem lại và trả lời sau.
Còn việc thay đổi mức giá thì bạn cứ nhập vào.

 

[sealand]

Đây là file riêng bạn ấy nhờ nên mình gửi trả lời bằng E_mail rồi. Mình kiếm các file lưu không thấy. Bạn gửi vào hộp thư dưới chữ ký của mình ấy, mình xem lại giúp.

 

[phuonggvgp]

Hôm nay mình mới hiểu Counter 1 hộ , 2 hộ. Nó có liên quan tới mức gia ưu đãi của các hộ chung cộng lại. Mình phải sửa lại công thức mới được. Mình sẽ xem lại và trả lời sau.
Còn việc thay đổi mức giá thì bạn cứ nhập vào.

Vấn đề này em đã đưa ra hướng giải quyết rồi và em đã thêm mục số hộ rồi. Anh sealand giúp em xem lại cách làm đó có đúng không (Ở file trước mà anh đã lấy về xem giúp em ý)

 

[phuonggvgp]

cho minh hoi minh tai "Hoa don tien dien Duyet" ve
phan in hoa don kg lap dc hoa don moi, so lieu kg thay doi
nho bac chi giup

Bạn muốn mọi người hướng dẫn xin hãy đánh có dấu như thế mới có thể dịch chính xác được.
Có thể tạm dịch như sau: Phần in hóa đơn không lắp được hóa đơn mới, số liệu không thấy dôi