こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルVBAで指定曜日の割引計算式

以前次の計算式を教えていただきました。
NewDataRow = Cells(Rows.Count, "J").End(xlUp).Row + 1
Range("J" & NewDataRow).FormulaR1C1Local = "=IF(DATEDIF(RC5,TODAY(),""Y"")>80,""大型中止"",""OK"")"
今度はRange("N"&NewDataRow)に曜日指定された(たとえば水曜)曜日の日になると10%の割引金額を表示する計算式をどなたか教えてください。。
自分でも考えながらやっていますがなかなか辿り着けません、宜しくお願いします

投稿日時 - 2014-09-09 20:53:06

QNo.8748522

困ってます

質問者が選んだベストアンサー

日付から曜日を取得する(WEEKDAY)
http://www.officepro.jp/excelfunc/date/index9.html

を使って計算します。A1に元の金額があるとしたら

Range("J" & NewDataRow)..Formula = "=IF(WEEKDAY($E1,1)=4,A1*0.9,A1)"

投稿日時 - 2014-09-09 21:43:29

お礼

ありがとうございました。
少しづつではありますがVBAが理解できるようになってきたと思います本当にありがとうございました。

投稿日時 - 2014-09-10 11:35:14

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問