Apple IDログイン機能メンテナンスのお知らせ

いつもお世話になっております.

Excelの第3列の2行目~2027行目までのセルに yyyy/mm/dd と入力されています.
dd (日付)を取り除き,yyyy/mm という入力に直したいのですが,方法が分からずに困っております.

Sub test()
Dim row As Integer
For row = 2 To 2027
   Sheets("Sheet1").Cells(row, 3).NumberFormat = "yyyy/mm"
Next
End Sub

上記のようにしてみたのですが,セルの表示形式が変わっただけで,
数式バーの表示を見てみると実質的に dd が残っています.

良い方法をご存知の方がいらっしゃいましたら,
ご教示の程どうぞ宜しくお願いいたします.

A 回答 (2件)

セルD2に以下の数式を入力


 =YEAR(C2)&"/"&MONTH(C2)
D3~D2027にD2をコピーして貼り付けでどうでしょうか?
    • good
    • 4
この回答へのお礼

YEAR( ),MONTH( )などがあることを初めて知りました.
使い勝手が良さそうですので,今後重宝しそうです.
ご回答誠にありがとうございました.

お礼日時:2007/04/01 01:18

こんばんは。



Cells(row, 3).Value = Year(Cells(row, 3)) & "/" & Month(Cells(row, 3))

とか

Cells(row, 3).Value = WorksheetFunction.Text(Cells(row, 3), "yyyy/mm")

でもOKです。
 
尚、Sheet1 がアクティブでないときは、
Sheets("Sheet1")を各Cellsの前に付加してください。
 
    • good
    • 0
この回答へのお礼

ご回答ありがとうございました.
VBAでの書き方までも記していただき助かりました.

お礼日時:2007/04/01 01:20

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています