[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

13(3): (ﾜｯﾁｮｲ 45cc-pyQU) 2020/08/31(月)19:07 ID:Lt7FggAF0(1/2) AAS
Ｂ列に"2020/8/1"のように日付が入っていて
Ｂ列に"発行日"&和暦を入力したいのですが、年・月・日がそれぞれ１桁の場合は頭に０が入ってしまします。
１桁の場合は、０の代わりに半角スペースにしたいのですがどう書けばいいですか

Dim r As Long

For r = 1 To Cells(Rows.Count,1).End(xlUp).Row
Cells(r,2).Value = Format(CDate(Cells(r,1)), "ggge年m月d日")
Next r

---

14: (ｱｳｱｳｳｰ Sa85-7m6G) 2020/08/31(月)19:10 ID:ZuoShitIa(1) AAS
>>13
Month関数使えば判定できるとか

---

16(1): (ﾜｯﾁｮｲ a5ce-xiBb) 2020/08/31(月)20:25 ID:Zj98ZIJ+0(1) AAS
>>13
For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
　　Cells(r, 2).Value = Replace(Replace(Format(CDate(Cells(r, 1)), "ggge年mm月dd日"), "年0", "年 "), "月0", "月 ")
Next r

---

119: (ﾗｸｯﾍﾟﾍﾟ MM8f-dQ4P) 2020/09/08(火)19:07 ID:Pjd0b/NhM(1) AAS
へー、そんな挙動するんだ。知らなかった

>-11
>-12
>-13
になると思ってたよ

---

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

---

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

---

ぬこの手 ぬこTOP 0.037s