Excel VBA質問箱 IV

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

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


54118 / 76732 ←次へ | 前へ→

【27415】Re:日付の貼り付け
発言  ichinose  - 05/8/8(月) 18:42 -

引用なし
パスワード
   ▼yuu さん:
こんばんは。

>VBAにて日付をコピーして、別なシートに貼り付けると文字が数字で出ます。
>例えば、2005/2/28(金)をコピーして、別なシートへ貼り付けるVBAを実行
>すると0.3958333とかの数字で表示されてしまいます。セルの書式は日付に設定しているのですが、教えてください。
そのVBAコードを記述して下さい。


以下のコードは、
アクティブシートのセルA1に2005/2/28を設定し(書式設定により
2005/2/28(月)と表示されます)、
このセルA1の値を右隣のシートのセルC1に移行します。
この時、C1に書式は曜日を削除した日付に設定しています。
よって、アクティブシートの右隣にシートが存在しなければ
なりません。

新規ブックの標準モジュールに
'==========================================
Sub test()
  With ActiveSheet.Range("a1")
    .NumberFormatLocal = "yyyy/m/d(aaa)"
    .Value = #2/28/2005#
    ActiveSheet.Next.Range("c1").Value = .Value
    End With
  With ActiveSheet.Next.Range("c1")
    .NumberFormatLocal = "yyyy/m/d"
    End With
End Sub

上記のコードでうまく行くようならご自分のコードと比較してください。

0 hits

【27412】日付の貼り付け yuu 05/8/8(月) 18:08 質問
【27415】Re:日付の貼り付け ichinose 05/8/8(月) 18:42 発言

54118 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free