Cần phần mềm tính tiền điện giá mới 2009 (3 người xem)

[tbinhvnn]

pa nào có phần mềm tính tiền điện sinh hoạt bậc thang và in ra hóa đơn điện giá mới chính phủ mới ban hành năm 2009 ,cho mình xin một bản với./.

 

[BNTT]

pa nào có phần mềm tính tiền điện sinh hoạt bậc thang và in ra hóa đơn điện giá mới chính phủ mới ban hành năm 2009 ,cho mình xin một bản với./.

Có rồi bạn ơi, xem ở đây nhé: http://www.giaiphapexcel.com/forum/showthread.php?t=19999

 

[gia thinh]

cần phần mềm tính tiền điện với mức giá mới 3/2009

chào mọi người trong diễn đàn
em có một file tính tiền điện trong nhà máy nhưng điện lực vừa đưa ra các giá khác nhau nên em gặp phải khó khăn trong việc tính tiền cho các bộ phận trong cty và tính tiền cho điện lực hàng tháng.
cty em có các hệ thống sản xuất và mỗi hệ thống đều có điện kế theo dõi số kwh.
cty em có 5 phòng ban mỗi phòng điều có điện kế theo dõi số kwh.
cứ 1h nhân viên ghi điện một lần .
cuối tháng căn cứ vào 3 rate của điện lực tính tiền
em xin mọi người xem qua và giúp em tính dùm.em cảm ơn nhiếu!

 

[laianhtu]

Xin chào bạn,

Gửi tặng bạn file tính tiền điện áp dụng kể từ 01/03/2009. Bạn chỉ cần nhập vào số KWh sử dụng sẽ tính ra giá tiền điện tiêu thụ hàng tháng.

Thanks.
Anh Tú.
"Love is beautiful when it's unconclusive"

 

[Lệnh Hồ Đại Hiệp]

Xin chào bạn,

Gửi tặng bạn file tính tiền điện áp dụng kể từ 01/03/2009. Bạn chỉ cần nhập vào số KWh sử dụng sẽ tính ra giá tiền điện tiêu thụ hàng tháng.

Thanks.
Anh Tú.
"Love is beautiful when it's unconclusive"

Cách sửu dụng Select Case giảm dần khá hay.
Tuy nhiên nên khai báo Function tường minh hơn.

--CV--

 

[thetrungkien]

Xin chào bạn,

Gửi tặng bạn file tính tiền điện áp dụng kể từ 01/03/2009. Bạn chỉ cần nhập vào số KWh sử dụng sẽ tính ra giá tiền điện tiêu thụ hàng tháng.

Thanks.
Anh Tú.
"Love is beautiful when it's unconclusive"

Hình như sai rồi thì fải, cách tính khá hay nhưng có vẻ như sai
VD: côngt=450 thì tổng phải là 627.750 mới đúng chứ không phải 806.750 như bạn tính
và

Case Is > 400
tiendien = (congto - 400) * 1790 + 717250 (phải là 538250)

 

[BNTT]

Xin chào bạn,

Gửi tặng bạn file tính tiền điện áp dụng kể từ 01/03/2009. Bạn chỉ cần nhập vào số KWh sử dụng sẽ tính ra giá tiền điện tiêu thụ hàng tháng.

Bạn ơi, xem lại tí. Sai hơi nhiều đó.

Ví dụ, xài 300KWh, đáp số của bạn là:

Tôi tính bằng tay nhé:

|

A​

​

|

B​

​

|

C​

​

|

D​

​

|

1​

​

|

Mức​

​

|

Chia ra​

​

|

Đơn giá​

​

|

Thành tiền​

​

|

2​

​

|

0-50​

|

50​

|

550​

|

27,500​

|

3​

​

|

51-100​

|

50​

|

865​

|

43,250​

|

4​

​

|

101-150​

|

50​

|

1135​

|

56,750​

|

5​

​

|

151-200​

|

50​

|

1495​

|

74,750​

|

6​

​

|

201-300​

|

100​

|

1620​

|

162,000​

|

7​

​

| | | | |

8​

​

|

Cộng =​

|

300​

| |

364,250​

|

Thành tiền = 27.500 + 43.250 + 56.750 + 74.750 + 162.000 = 364.250



Bạn bị sai từ 201 KWh trở đi.

200Kwh, bạn tính ra 202.250, thì đúng.
Nhưng thêm 1 KWh, nghĩa là sang mức 4, là cộng thêm 1.620 đồng
Nghĩa là xài 201KWh thì phải trả 202.250 + 1.620 = 203.870, phải không?

Chương trình tính tiền của bạn nó nói, xài 201 KWh phải trả đến 365.870 lận!

Tội nghiệp người dân xài điện quá, bạn à! Giá tăng đã mệt rồi, còn tính sai thế này thì...

 

[ptm0412]

Sửa lại 1 tí thôi, đừng kêu khổ nữa BNTT à:

Public Function tiendien(congto As Long)
Select Case congto
Case Is > 400
tiendien = (congto - 400) * 1790 + 538250        '717250'
Case Is > 300
tiendien = (congto - 300) * 1740 + 364250        '538250'
Case Is > 200
tiendien = (congto - 200) * 1620 + 202250        '364250'
Case Is > 150
tiendien = (congto - 150) * 1495 + 127500
Case Is > 100
tiendien = (congto - 100) * 1135 + 70750
Case Is > 50
tiendien = (congto - 50) * 865 + 27500
Case Is > 0
tiendien = congto * 550
End Select
End Function

 

[gia thinh]

cần phần mềm tính tiền điện sản xuất

em cám ơn mọi người rất nhiều nhưng thế này các bạn ạ!
theo các ông điện lực thì giá cả như sau:
thời gian từ 4h:00-9h:30 giá 870
thời gian từ 9h:30-11h:30 giá 1755
thời gian từ 11h:30-17h:00 giá 870
thời gian từ 17h:00-20h:00 giá 1755
thời gian từ 20h:00-22h:00 giá 870
thời gian từ 22h:00-4h:0 giá 475
riêng ngày chủ nhật thi:
thời gian từ 4h:00-22h:00 giá 870
thời gian từ 22h:00-4h:00 giá 475
xin các anh chị nghĩ giúp dùm em thật sự em cũng không giỏi về excel cho lắm.
hàng tháng phía diện lực sẽ kết sổ và0 ngày 23.nhiệm vụ của mình là tính ra tiền xem có phù hợp và đúng với giá của điện lực.tuy nhiên đối với cách tính điện sản xuất sẽ có sự chênh lệch trong giới hạn cho phép.
em xin cám ơn các anh chị.nếu không phiền anh chị có thể cho em xin địa chỉ mail hay số` phone thì em xin cảm ơn nhiều!

 

[ptm0412]

Bỗng phát hiện ra: hàm tiendien(congto) trong file của laianhtu là hàm của sealand viết trong bài này, kể cả cái sai sót cũng giống từng con số. Không biết nên xem chuyện này là thế nào?

 

[solomon2211]

Bỗng phát hiện ra: hàm tiendien(congto) trong file của laianhtu là hàm của sealand viết trong bài này, kể cả cái sai sót cũng giống từng con số. Không biết nên xem chuyện này là thế nào?

Chuyện này thú vị đây ??? Đúng giống nhau thì có thể. Nhưng sai giống nhau thì hay nhỉ ???

 

[thephi99]

Đề nghị bác up lại cho cộng đồng sử dụng để biết cách tính, có 1 số anh em khg bít VBA.

 

[sealand]

Cám ơn các bạn phát hiện sai sót và BNTT đã hiệu đính giúp, thực tình mình bận nhưng thấy bài "ngứa" nên làm vội chưa kiểm tra hết.

 

[viendo]

theo các ông điện lực thì giá cả như sau:
thời gian từ 4h:00-9h:30 giá 870
thời gian từ 9h:30-11h:30 giá 1755
thời gian từ 11h:30-17h:00 giá 870
thời gian từ 17h:00-20h:00 giá 1755
thời gian từ 20h:00-22h:00 giá 870
thời gian từ 22h:00-4h:0 giá 475
riêng ngày chủ nhật thi:
thời gian từ 4h:00-22h:00 giá 870
thời gian từ 22h:00-4h:00 giá 475

Giả sử số Kws sử dụng hàng ngày sản xuất là bằng nhau, bạn tham khảo file thử.
Bạn nhập ngày đầu, ngày cuối, số ngày nghỉ và tổng số Kws đã tiêu thụ vào. Xem tổng số tiền và so với hóa đơn của điện lực xem chênh lệch . Tham khảo cho vui nhé.

 

[sealand]

Cách của Vien Do có thể chì dùng cho các cơ sở SX nhỏ thôi, chứ đối với các công ty hiện nay đều có lắp Cong tơ điện tử, nó sẽ cung cấp đầy đủ các chỉ số vô công, hữu công và công suất sử dụng theo các khoảng thời gian theo bảng giá.

 

[viendo]

Cách của Vien Do có thể chì dùng cho các cơ sở SX nhỏ thôi, chứ đối với các công ty hiện nay đều có lắp Cong tơ điện tử, nó sẽ cung cấp đầy đủ các chỉ số vô công, hữu công và công suất sử dụng theo các khoảng thời gian theo bảng giá.

Cái file đó để tham khảo vui thôi mà. Hiện tại thì các Cty nhà máy đều gắn Công tơ điện tử và dựa vào đó tính tiền thôi.

 

[Trần Văn Bình]

khoảng đơn giá từ 50 - 100 có nội suy không nhỉ ?

 

[ChanhTQ@]

Tính cho vui!

Option Explicit
Function TienDien(Num As Long) As Long
 Dim SoTru As Long, SoNhan As Double, SoCong As Long
 
 SoTru = Switch(Num > 400, 400, Num > 300, 300, Num > 200, 200, Num > 150, _
        150, Num > 100, 100, Num > 50, 50, Num > 0, 0)
 SoNhan = Switch(Num > 400, 1790, Num > 300, 1740, Num > 200, 1620, _
        Num > 150, 1495, Num > 100, 1135, Num > 50, 865, Num > 0, 550)
 SoCong = Switch(Num > 400, 538250, Num > 300, 364250, Num > 200, 202250, _
        Num > 150, 127500, Num > 100, 70750, Num > 50, 27500, Num > 0, 0)
 
 TienDien = (Num - SoTru) * SoNhan + SoCong
 
End Function

 

[ptm0412]

cần phần mềm tính tiền điện sản xuất

Đã làm xong file tính tiền điện sản xuất theo từng giờ và từng giá cho giờ

1. Đã sửa tên sheet thành 1, 2, 3, ..., 31 để dễ dùng hàm

2. Đã insert 1 sheet "Tong" để tính toán, có sử dụng Group và Outline

3. Đã tạo 1 bảng con trong mỗi sheet để tính mức tiêu thụ theo các mức giá

4. Đã định làm bằng consolidate bằng code, nhưng bị lỗi consolidation: thiếu 1 dòng của 1 trong các sheet dù cho code không có lỗi. Cuối cùng đành dùng công thức làm tay.
Code này còn trong Module1 nhưng không xài được.

Sub Macro1()    
    Selection.Consolidate Sources:=Array( _
        "'26-12'!R35C7:R40C16", "'27-12'!R35C7:R40C16", "'28-12'!R35C7:R40C16", "'29-12'!R35C7:R40C16", _
        "'30-12'!R35C7:R40C16", "'31-12'!R35C7:R40C16", "'1-1'!R35C7:R40C16", "'2-1'!R35C7:R40C16", _
        "'3-1'!R35C7:R40C16", "'4-1'!R35C7:R40C16", "'5-1'!R35C7:R40C16", "'6-1'!R35C7:R40C16", _
        "'7-1'!R35C7:R40C16", "'8-1'!R35C7:R40C16", "'9-1'!R35C7:R40C16", "'10-1'!R35C7:R40C16", _
        "'11-1'!R35C7:R40C16", "'12-1'!R35C7:R40C16", "'13-1'!R35C7:R40C16", "'14-1'!R35C7:R40C16", _
        "'15-1'!R35C7:R40C16", "'16-1'!R35C7:R40C16", "'17-1'!R35C7:R40C16", "'18-1'!R35C7:R40C16", _
        "'19-1'!R35C7:R40C16", "'20-1'!R35C7:R40C16", "'21-1'!R35C7:R40C16", "'22-1'!R35C7:R40C16", _
        "'23-1'!R35C7:R40C16", "'24-1'!R35C7:R40C16", "'25-1'!R35C7:R40C16" _
        ), Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=True
End Sub

Có những dòng bị dấu đi từ dòng 5 đến dòng 9, dùng để kiểm tra chéo kết quả.

 

[ptm0412]

chào anh
đoạn code anh viết trên diễn đàn là sao vậy anh,em đọc mà không hiểu.
trong file anh gởi có phần số lương và thành tiền.số lượng ở đây mình tính sao hà anh.
mình có phần mềm nào nếu mình chỉ nhập số KWh sẽ cho ra số tiền không anh.?
ở đây phần báo biểu anh có ghi bộ phận thì anh chỉ lấy số liệu ở GCB,MGCB,GCB1.....thôi đúng không,nhưng chổ em có nhiều bộ phận như bộ phận quản lý,sản xuất,công vụ........cách tính cũng giống nhau phải không anh?
trong file em gởi cho anh thì anh can thiệp vào phần nào vậy anh,em thấy anh tô đỏ phần tổng.anh có thể giải thích các hàm anh sử dụng trong báo biểu giúp em không?thực ra em xem phần báo biểu của mình em cũng không biết hết nữa.có nhiều công thức và số liệu em tìm hoài mà không thấy.ví dụ như phần công thức ở RP+,RP,M,200812,......Anh giúp giải thìch dùm em được không?có những công thức khi em nhấp chuột vào thấy hiện lên đường dẫn C:\.................. là sao vậy anh.

1. Đoạn code đó chạy không được, chỉ là giải thích

2. số lượng: =INDIRECT("'"&DAY($A12)&"'!f50";1) = 26!F50

3. Thành tiền: =IF(WEEKDAY($A12;1)=1;F$3;F$2)*E12 = số lượng x đơn giá (có xét ngày thường hay chủ nhật). nghĩa là bảng giá phải được tạo trước với 2 loại giá: giá ngày thường và giá chủ nhật. Bảng giá nằm ở A13 của sheet Tong

4. "Phần mềm tính tiền điện" không có cho cách tính đặc thù này: mỗi giờ mỗi ghi chỉ số, mỗi giờ 1 giá khác nhau, ghi chỉ số giờ chẵn, bảng giá giờ lẻ (thí dụ giá cho mức sử dụng từ 9:30 đến 11:30). không những thế, lại còn nhiều bộ phận, nhiều mức giá, ...)

5. Có bao nhiêu bộ phận đã lấy hết số liệu cho bấy nhiêu bộ phận rồi. Nếu có các bộ phận khác, thì các bộ phận đó nằm ở đâu? cùng sheet hay khác sheet? cùng file hay khác file?

6. Có 1 ô anh tô đỏ vì số liệu sai: số MWh sử dụng bị âm, chả nhớ ở sheet nào.

7. Có 1 số công thức link tới những file tương tự của tháng trước (tháng 12/2007)

8. Báo biểu của mình mà không hiểu thì ai mà hiểu nổi?

Ghi chú: Để làm hoàn thiện cái file này, anh đã chỉnh sửa 1 số điều như au:

- Đổi tên sheet tương đương với ngày trong tháng để có thể dùng Indirect(day(26/12/2007)!F50) như hàm ở trên)

- Đã tạo 31 bảng tính số lượng MWh sử dụng trong từng khoảng thời gian ứng với các mức giá ở cùng 1 vị trí D48:J55. Muốn làm nhanh phải Sắp xếp dữ liệu tất cả các sheet theo cùng vị trí dòng cột, để ứng dụng biện pháp grooup sheets, nhập công thức tính hàng loạt cho 31 sheets.

- Do giờ ghi và giờ đổi giá là khác nhau nên có những mức MWh sử dụng phải tính nội suy mới có.


Nếu sinh ra nhiều bộ phận thì phải làm lại các bước như vậy, công thức phải làm thêm cho từng bộ phận, không copy được từ bộ phận này sang bộ phận khác. Nếu code conssolidate mà chạy được thì đã khỏe.

Để sửa lại code rồi chạy tự động, chứ người yếu đánh vật không nổi. Anh làm hoàn chỉnh cái file này trên 4 giờ.

File đã làm xong, dùng code consolidate. Lần này thì lấy luôn thành tiền từ từng sheet.