[[20220111164444]]　『日付になる』（んー）　ページの最後に飛ぶ

『日付になる』（んー）

はじめまして。
シート1のA1セルには1-15というセルが入力されています。
しかし
シート2のA2セルに転記すると１月15日

 となっしまいます。
これを1-15をそのままシート2のA2セルに転記させるにはどういうコードを描けば良いでしょうか。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

すみません言い忘れてました。
シート1のA1セルの値は毎回変わります。

（んー） 2022/01/11(火) 16:59

 >1-15 はどうやって入力しているのですか。
 >セルの値は毎回変わるというのはどういうことですか。
「-」を含んだ値が変わるということですか。

 >シート2のA2セルに転記
 =Sheet1!A1

（nm） 2022/01/11(火) 17:35

ユーザーフォームのテキストボックスでバーコード入学をしています。
値は-の両端が変わります。
vbaでできたらいいなと思いました。
（んー） 2022/01/11(火) 17:43

 >vbaでできたらいいなと思いました。

    With Worksheets("Sheet2").Range("A1")
        .NumberFormatLocal = "@"
        .Value = Worksheets("Sheet1").Range("A1").Value
    End With

（ピンク） 2022/01/12(水) 00:27

みなさん無事にできました。
ありがとうございました。
（んー） 2022/01/12(水) 07:27

コメント返信：