エクセルマクロで指定したセルの値を表示変更し転記

質問

エクセルマクロで指定したセルの値を表示変更して指定したセルに転記したい

セルＡ列に書式が標準で
20101117と入っています。
これをB列にセルの値も表示も共に11/27としたいです。
（セルの値は2010/11/17でセルの表示は11/27ではまずいです。）

Ａ列にデーターがあるまで繰り返したいです。
行数は作業毎で常に違います。
以下の記述では出来ませんでした。
よろしくお願いします。

Sub 日付()
行 = 2
Do
If Cells(行, 1).Value = "" Then Exit Do
Cells(行, 2).Value = Mid(行, 1,5,2) &"/"& RIGHT(行, 1,2)
行 = 行 + 1
Loop
End Sub

回答No.1

mu2011 · ベストアンサー

>Cells(行, 2).Value = Mid(行, 1,5,2) &"/"& RIGHT(行, 1,2)
　⇒Cells(行, 2).NumberFormat = "@"
　　Cells(行, 2).Value = Mid(Cells(行, 1), 5, 2) & "/" & Right(Cells(行, 1), 2)

一例です。

Sub 日付()
For 行 = 2 To Cells(Rows.Count, "A").End(xlUp).Row
With Cells(行, 2)
.NumberFormat = "@"
.Value = Format(Cells(行, 1), "!@@/@@")
End With
Next
End Sub

お礼

セルの表示も、セルの値も
11/17
となり、目標達成です。

どうもありがとうございました。

回答No.3

tom04

こんばんは！
関数だけでできそうですが・・・
VBAをご希望のようなので、一例です。
A列は必ず8桁の数値だという前提で、

Sub test()
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
With Cells(i, 2)
.Value = Mid(Cells(i, 1), 1, 4) & "/" & Mid(Cells(i, 1), 5, 2) & _
"/" & Mid(Cells(i, 1), 7, 2)
.NumberFormatLocal = "m/d" '←月日を二桁表示にしたい場合は "mm/dd" に変更
End With
Next i
End Sub

こんな感じではどうでしょうか？
的外れならごめんなさいね。m(__)m

お礼

セルの表示は
11/17
になりました。
ですが
セルにカーソルをあててfxのところに表示される値は
2010/11/27
でした。
これだとこのファイルを別システムに放り込むときに
まずいのです。
セルの値も
11/17
でないとまずいのです。

お手数をかけて申し訳有りません。
どうもありがとうございました。

回答No.2

NMZ1985

Cells(行, 2).Value = Mid(行, 1,5,2) &"/"& RIGHT(行, 1,2)
このままだと、行の数字を加工しようとしています。

Cells(行, 2).Value = "'" & Mid(Cells(行, 1).Value, 5, 2) & "/" & Right(Cells(行, 1).Value, 2)
先頭に"'"をつけて文字列として、Cells(行, 1).Valueの値を加工するようしました。

お礼

申し訳ありません。
作成後のファイルを別システムにインポートするのですが
セルの値が
’11/17
となっているのが原因で取り込めないようです。

どうもありがとうございました。