Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38849 / 76807

←次へ　｜　前へ→


	【43090】Re:シート間のセル値のコピーについて

ponpon - 06/10/1(日) 23:13 -


	引用なし

	パスワード

▼タツヤさん：

>
>P10:Q349の範囲の書式設定は、
>分類→日付
>種類→H13.3.14

となっているのに

>"Ｈ１８．３．１５"とはならず、"3/15/2006"となってしまいます。

？？？？

こちらでは、標準の場合は、"2006/3/15"となり、

分類→日付　種類→H13.3.14の場合は、"H18.3.15" となります。

元データはシリアルで入ってますよね？

以下ではどうでしょう

　　　　----------------------------------------
　　　　Dim c As Range　'追加
　　----------------------------------------------
　 -----------------------------------------------
　　　 For Each r In myAry
　　　　　　　 Sh2.Range(r).Value = Sh1.Range(r).Value
　　　 Next
　　　 For Each c In Sh2.Range("P10:Q349")　　　　　　　'変更
　　　　　　If Not IsEmpty(c.Value) Then　　　　　　　　'変更
　　　　　　　c.Value = Format(CDate(c.Value), "ge.m.d") '変更
　　　　　　End If　　　　　　　　　　　　　　　　　　　'変更
　　　 Next　　　　　　　　　　　　　　　　　　　　　　 '変更

4 hits

▼

【43060】シート間のセル値のコピーについて タツヤ 06/10/1(日) 3:46