thanduong98
Thành viên mới

- Tham gia
- 14/8/08
- Bài viết
- 1
- Được thích
- 1
Giúp em với! nhà em cung cấp điện cho cả xã nên phải làm hóa đơn tính tiền điện. Các bác chỉ giúp em cách lập hóa đơn tính tiền điện bằng Excel




Giúp em với! nhà em cung cấp điện cho cả xã nên phải làm hóa đơn tính tiền điện. Các bác chỉ giúp em cách lập hóa đơn tính tiền điện bằng Excel
![]()
Mình gửi bạn 1 fíle tham khảo nhéGiúp em với! nhà em cung cấp điện cho cả xã nên phải làm hóa đơn tính tiền điện. Các bác chỉ giúp em cách lập hóa đơn tính tiền điện bằng Excel
![]()
Các Kw sau 50 Kw giá 1470 đồng giá là bao nhiêu? nếu sau 50 Kw giá 1110 giá đều là 1470 thì bạn thử dùng công thức sau xem có được không nhé.Cho mình hỏi nhé bây giờ mình muốn làm 1 file execel tính tiền điện. Ví dụ như: 100kw đầu giá 550 đồng, từ 50kw tiếp theo giá 1110, từ 50 kw tiep theo gia 1470đồng thì làm như thế nào.
Các Kw sau 50 Kw giá 1470 đồng giá là bao nhiêu? nếu sau 50 Kw giá 1110 giá đều là 1470 thì bạn thử dùng công thức sau xem có được không nhé.
A1 là cell chứa số điện
=IF(A1<=100,A1*550,IF(A1<=150,55000+(A1-100)*1110,110500+(A1-150)*1470))
Minh co van de sau day mong cac ban giup do:Mình gửi bạn 1 fíle tham khảo nhé
Mình xem rồi, cảm ơn bạn nhưng minh vẩn không làm được.To ppvn:
Bạn xem bài #18 của mình tại Topic này xem có thể được không? Bạn sửa lại khung giá cho phù hợp
Cảm ơn bạn. Bài viết của bạn rất hay. Bạn có thể hướng dẫn anh em bọn mình cách thiết lập lệnh in biên lai điện được không?Mình sửa lại theo yêu cầu của bạn hoangtronglanh. Bạn kiểm tra giúp
Thực ra file này mình làm theo yêu cầu của 1 bạn trên diễn đàn là tạo ra 1 sheet bao gồm toàn bộ các hóa đơn có thể xem in chỉnh sửa. Do vậy, mình làm 1 file temp dùng công thức để lấy dữ liệu. Mình viết 1 đoạn VBA lần lượt lấy số thứ tự theo yêu cầu điền cho temp. Temp sẽ lấy dữ liệu theo công thức. Tiếp theo mình lần lượt chép sang sheet đích.sealand thân mến! Mình cũng dùng Excel nhiều rồi nhưng hôm nay mình mới biết cách làm hoá đơn theo cách này. Bạn có thể nói qua về cách thực hiện file excel của bạn được không. Xin chân thành cảm ơn
Cảm ơn bạn. Bài viết của bạn rất hay. Bạn có thể hướng dẫn anh em bọn mình cách thiết lập lệnh in biên lai điện được không?
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
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
'Sheet4.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
MsgBox "Ban dang in trang " & i, , "CHUONG TRINH IN HOA DON DIEN"
Sheet4.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
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ỏ.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!
Mình gửi file bổ xung in từ số đến sốTôi muốn in từ hộ thứ...đến hộ thứ...thì làm thế nào?
Em xem mã của anh rồi và đã tự mình chuyển mà vào thành công cho file của em. Nhưng còn trường hợp là số hộ không phải là 1 thì nó báo sai kết quả. Tại sao em lại đưa thêm cột số hộ vào vì một lí do: Chỗ em để làm giảm đi tiền điện trong tháng có gia đình đã lắp 2 công tơ và có thể hơn để mục đích giảm mức bậc thang anh à. Nên không muốn viết 1 gia đình 2 đến 3 phiếu hoá đơn và chỉ chung một phiếu thôi. Em thấy rằng nhưng gì được như hôm nay là quá tốt rồi hơn những gì em mong đợi. Anh giúp chúng em thế là rất tốt, nhưng em muốn nghiên cứu và học hỏi kinh nghiệm từ anh mong anh bớt chút thời gian giúp chúng em. Em xin chân thành cảm ơn anhTo Phuong:
-Bạn thêm bớt cột phải kiểm tra xem có ảnh hưởng gì đế công thức không
-Bạn xóa 1 số ô dữ liệu của trang main nhưng không chỉnh sửa giá nên giá bị sai
-Mình sửa lại hàm tiền điện rồi nhưng cố định mã giá KD là 8
-Lưu ý mã KH nên quy định thống nhất ví dụ A0001,A0002....A5000
To quydab:
Mình sửa theo phương án của bạn và danh sách rộng trên 1800.Bạn kiểm tra lại có vấn đề gì thông báo cho mình biế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 lập HĐ có sử dụng VBA nên không mềm dẻo tự động điều chỉnh như công thức. Khi bạn thay đổi vùng thông số trang main nó không cung cấp D/kiện lập HĐ nữa và HĐ không được lập. Bạn mở VBA điều chỉnh 1 chút là được.
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 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é)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 ạ!
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-->Definebá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..
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.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.
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 ý)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.
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.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