[過去ﾛｸﾞ] 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

---

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

---

あと 989 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.020s