VBAなんでも質問スレ Part3 (137ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

26(2): デフォルトの名無しさん [] 2022/05/06(金)17:09 ID:n/glZxQ+(1)
Excel VBAの質問です。
初心者で申し訳ありません。
yahoo知恵袋にベストアンサーにあったものなのです。

Sub Sample1()
Dim dt As Date

dt = Range("D11").Value
Range("D12").Value = GetNENDO(dt, 3)
MsgBox dt & " は " & GetNENDO(dt, 3) & " 年度です"
End Sub

Function GetNENDO(dt, x)
GetNENDO = Year(DateAdd("m", -x, dt))
End Function

Range("D12").Value = GetNENDO(dt, 3)の(dt, 3)が理解できません。
またYear(DateAdd("m", -x, dt))の-xとはどういうことでしょうか。

抽象的ですみません

---

33(1): デフォルトの名無しさん [sage] 2022/05/08(日)10:51 ID:ZAasayov(1)
>>26にある知恵遅れ袋の回答者が来てるようだな

---

34(2): デフォルトの名無しさん [sage] 2022/05/08(日)11:57 ID:wZiRxxsO(1)
>>26
GetNENDはなんでわざわざ引数2つにしてるんだろうな
年度を求めるなら暦年との差は必ず3な訳で、
2つめの引数に3以外を指定するならGetNENDOって名前が不適切

>>33
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1063327550
これだろ？
質問の要件が「エクセルのVBAを使って」なんだからおかしくはない

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.014s