No.3ベストアンサー
- 回答日時:
No.2ですが、一部間違えました(^^;;;
Worksheets(2).Range("C" & mM).FormulaR1C1 = _
Worksheets(1).Range("B" & iI).Value
Worksheets(2).Range("C" & mM).NumberFormat = _
"ggge年m月d日"
ではなく、正しくは
Worksheets(2).Range("C" & mM).NumberFormat = _
"ggge年m月d日"
Worksheets(2).Range("C" & mM).FormulaR1C1 = _
Worksheets(1).Range("B" & iI).Value
です。
No.2
- 回答日時:
もしかすると日付データの入っている列が、文字列形式なのでは?その場合は下記のコードでokだと思います。
Sub Test()
Dim mM As Integer, iI As Integer, endLine As Integer
mM = 1
endLine = Worksheets(1).Range("A65536").End(xlUp).Row
For iI = 1 To endLine
Worksheets(2).Range("B" & mM & ":E" & mM).Value = _
Worksheets(1).Range("A" & iI & ":D" & iI).Value
Worksheets(2).Range("C" & mM).FormulaR1C1 = _
Worksheets(1).Range("B" & iI).Value
Worksheets(2).Range("C" & mM).NumberFormat = _
"ggge年m月d日"
mM = mM + 1
Next iI
End Sub
No.1
- 回答日時:
Sheet1のA1に日付データがあるとして、
Sub Test()
With Worksheets("Sheet2").Range("A1")
.NumberFormat = "ggge年m月d日"
.Value = Worksheets("Sheet1").Range("A1").Value
End With
End Sub
でどうでしょう?
この回答への補足
すみません説明が不十分でした。
下記のプロシージャを実行すると、Worksheet(2)のC列が形式表示されないのです。
Sub Test()
Dim mM As Integer, iI As Integer, endLine As Integer
mM = 1
endLine = Worksheets(1).Range("A65536").End(xlUp).Row
For iI = 1 To endLine
Worksheets(2).Range("B" & mM & ":E" & mM).Value = _
Worksheets(1).Range("A" & iI & ":D" & iI).Value
Worksheets(2).Range("C" & mM).NumberFormat = _
"ggge年m月d日"
mM = mM + 1
Next iI
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- Excel(エクセル) エクセルについて教えてください。 1 2022/12/26 09:01
- Excel(エクセル) エクセルに詳しい方 よく読んでからのご回答お願いします 外部からデータが来ますが、日付が202201 7 2022/06/29 16:15
- Excel(エクセル) エクセルについて教えてください。 1 2023/03/03 08:38
- Excel(エクセル) エクセルで日付に続けて連番を表示したい 6 2022/05/25 23:33
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/01/10 09:15
- Excel(エクセル) エクセルの表示形式について教えてください あるセルの「A」という値と、別のセルの「B」という値を組み 4 2023/02/21 21:55
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/04/21 08:59
- Excel(エクセル) エクセルで、 A1セルに「A」という値、 B1セルに「B」という値が入っています。 どちらも表示形式 5 2023/02/22 23:05
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
入力後に日付順になるように自...
-
日付だけを変更して印刷(Excel)
-
エクセルの条件付き書式につい...
-
31:30:00が1900/1/1 7:30:0
-
エクセルのセルにカレンダーを...
-
日付入力→指定のセルの色を塗り...
-
エクセルでENTERを押すと数式が...
-
EXCELで直近の日付を抽出する関数
-
Excelに入力した個々の日付の数...
-
西暦や和暦の表示をyyyymmdd表...
-
日付を入力したセルをファイル...
-
エクセル 当番表の作り方 エク...
-
Excelで半年後の日付を計算したい
-
Excelで、年だけの「西暦」から...
-
エクセル関数で日付かどうかの...
-
エクセルで日付入力欄を作成し...
-
エクセルの日付入力
-
Excelで日付を4ケタで入力し、○...
-
海外の日付を表示させたい
-
エクセルで数字列の間に『/』を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
31:30:00が1900/1/1 7:30:0
-
日付だけを変更して印刷(Excel)
-
入力後に日付順になるように自...
-
Excelで半年後の日付を計算したい
-
エクセルでENTERを押すと数式が...
-
エクセルで数字列の間に『/』を...
-
エクセルのセルにカレンダーを...
-
エクセル 当番表の作り方 エク...
-
エクセル関数で日付かどうかの...
-
Excelで、年だけの「西暦」から...
-
ファイルのオープン時に今日の...
-
Excelで8/26等の日付を全てその...
-
日付入力→指定のセルの色を塗り...
-
エクセルで日付入力欄を作成し...
-
☆Excelエクセルで入力した日の...
-
EXCELで直近の日付を抽出する関数
-
日付を入力したセルをファイル...
-
◆ EXCEL自動入力日付を自動で...
-
ワード差込について
-
WORDで翌日や翌々日の日付を表...
おすすめ情報