Excel（エクセル）活用コミュの数字で金額の呼び出しもろもろ

教えてください。
駐車場料金の料金を出す式なんですが
写真のような式を作り
こちら側では、赤文字のAと４と開始時刻と終了時刻を記入し検索ﾎﾞﾀﾝを押せば
下の　　A店店舗　1000円　とかを出すようにしたいのですが。
可能でしょうか？
●１＝３０分
２＝６０分
３＝９０分
....
６＝１８０分の割引です。
７のみ全額無料です。

駐車料金は最初の２９分間が無料で

■３０分以上になると３００円
５９分まで３００円で６０分を越えると４５０円です。

以後３０毎に１５０円ずつ上がっていきます。

出来ればでいいのですが上の式は
通常の料金で、イベント料金は
最初の３０分は無料は同じなんですが
■のところが多少違います。
駐車料金３０分以上になると１０００円
５９分まで１０００円で６０分を越えると２０００円です。
つまり３０分毎に１０００円という料金です。

大変恐縮ですが教えていただけたら幸いです。

コメント(6)

最初
全て
最新の40件

[1] mixiユーザー 09月08日 22:30

文面を読んだだけなので出来るかどうかは不安ですが
以下のようなコードでどうでしょうか？

Sub Macro1()
M = Hour(Range("I15") - Range("F15")) * 60 + Minute(Range("I15") - Range("F15"))

If Range("M15") = 7 Then
　 M = 0
Else
　 M = M - Range("M15") * 30
End If

If M - 30 < 0 Then
　 Mi = 0
Else
　 Mi = M - 30
End If

If Sgn(M - 29) = 1 Then
　 S = 1
Else
　 S = 0
End If

If Range("M14") = 1 Then
　 Money = S * 300 + Application.WorksheetFunction.RoundDown(Mi / 30, 0) * 150
Else
　 Money = S * 1000 + Application.WorksheetFunction.RoundDown(Mi / 30, 0) * 1000
End If

Range("E18") = Application.WorksheetFunction.VLookup(Range("L15"), Range("F2:J10"), 2, False)
Range("J18") = Money
End Sub

[2] mixiユーザー 09月08日 23:44

マリ男さん
いつも有難うございます。
ほんと助かりました。
有難うございます。

[3] mixiユーザー 09月08日 23:48

いえいえ
実際には完全に出来るかどうかはわかりませんので
実験をしたり、コードを読んでみて下さい

[4] mixiユーザー 09月09日 08:00

> マリ男さん
無事起動しました。
コードの分析をしたいと思います
ありがとうございました

[5] mixiユーザー 09月09日 08:41

良かったです
実際はかなり思いつきで組んだので、もっと単純に出来るかもしれませんが
とりあえず、起動したのであれば一安心です

[6] mixiユーザー 09月09日 08:57

若干短くしてみました

Sub Macro1()
M = Hour(Range("I15") - Range("F15")) * 60 + Minute(Range("I15") - Range("F15"))

If Range("M15") = 7 Then
　 M = 0
Else
　 M = M - Range("M15") * 30
End If

If M < 30 Then
　 S = 0
　 Mi = 0
Else
　 S = 1
　 Mi = M - 30
End If

If Range("M14") = 1 Then
　 Money = S * 300 + Application.WorksheetFunction.RoundDown(Mi / 30, 0) * 150
Else
　 Money = S * 1000 + Application.WorksheetFunction.RoundDown(Mi / 30, 0) * 1000
End If

Range("E18") = Application.WorksheetFunction.VLookup(Range("L15"), Range("F2:G10"), 2, False)
Range("J18") = Money
End Sub

ログインすると、みんなのコメントがもっと見れるよ