エクセルで、書式設定をして表示させているものを、表示している見たままを

質問

エクセルで、書式設定をして表示させているものを、表示している見たままを別セルに値として表示したいです。

うまく説明ができないのですが、
「A1」に40330　と入力されていて
書式設定で、「平成22年6月1日」と表示されています。

それを、A2に文字で、平成22年6月1日と、A1の表示されてる見たまま同じものを
文字で直接入力されている状態で表示させたいのです。

値のみコピーするのとは違うし、どうしたものか困っています。

わかっていただけますか？
B1に「1」と入力してあって、書式設定で3桁表示をさせてあり見た目は「001」になっているものを
B2のセルに、数字で「001」と入力させたい。こんな感じです。

セルは仮ですので、どこのセルでもそう表示できれば構いません。
伝わりましたか？

いい方法がありましたら、教えてください。

回答No.3

mu2011 · ベストアンサー

Ａ列をＢ列に値として入力するマクロ（ＶＢＡ）は如何でしょうか。
対象のシートタブ上で右クリック→コードの表示→以下のサンプルコードを貼り付けてお試しください。

＜サンプル＞
Sub test()
For Each a In Range("A:A")
If a = "" Then Exit Sub
b = a.NumberFormat
c = Application.WorksheetFunction.Text(a, b)
Range("b1").Offset(a.Row - 1).NumberFormat = "@"
Range("b1").Offset(a.Row - 1) = c
Next
End Sub

お礼

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

VBAはさすがに奥が深いといいますか、勉強になりました。
今後も何かありましたら、ご指導ください。

回答No.4

noname#204879

添付図参照

C2: =A2
設定する書式を左隣のセル(B2、文字列書式)に示した

D2: =TEXT(A2,B2)
書式は標準

お礼

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

TEXT関数は思いつかなかったです。この手がありましたね。
で、表示されたセルを、値のみコピーすれば希望通りになります。
VBAを使わなくても、この方法ですとばっちりでした！

今後も何かありましたらご指導を宜しくお願いします。

回答No.2

jcctaira

VBAでユーザ関数を作れば良いかと思います。

【使用方法】
　=見た目通り(A1)

【VBA】
Function 見た目通り(範囲 As Range) As String
　見た目通り = WorksheetFunction.Text(範囲.Value, 範囲.NumberFormatLocal)
End Function

お礼

ありがとうございました。
VBAを勉強してみるいい機会になりました。

今後も何かありましたらご指導ください。

回答No.1

daiku164

A2セルに　=A1　ではダメなんですか?

お礼

直接その文字といいますか、数字等が入って欲しいのです。
回答ありがとうございました。