Excel VBA質問箱 IV

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

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


39150 / 76732 ←次へ | 前へ→

【42701】Re:日付の編集にて
回答  りん E-MAIL  - 06/9/19(火) 18:29 -

引用なし
パスワード
   質問(煮詰まった) さん、こんばんわ。

IfとMidを組み合わせてるのと基本的に同じですがSplitで分割し並べ替えてます。

>1.10/11/06 を 2006/10/11 と表示したい場合は
Sub test1()
  Dim dte As Variant
  dte = Split("10/11/06", "/")
  MsgBox DateValue(dte(2) & "/" & dte(0) & "/" & dte(1))
End Sub
>2.3/11/06  を 2006/11/03 と表示したい場合は
Sub test2()
  Dim dte As Variant
  dte = Split("3/11/06", "/")
  MsgBox DateValue(dte(2) & "/" & dte(1) & "/" & dte(0))
End Sub
XL2K以降ですが、お試しください。

なお、既にセルに入って日付になってる場合は、
Sub test1-2()
  MsgBox DateValue(Format(Range("A1").Value, "mm/dd/yy"))
End Sub
Sub test2-2()
  MsgBox DateValue(Format(Range("A1").Value, "dd/mm/yy"))
End Sub
0 hits

【42695】日付の編集にて 質問(煮詰まった) 06/9/19(火) 16:10 質問
【42701】Re:日付の編集にて りん 06/9/19(火) 18:29 回答
【42708】Re:日付の編集にて りん 06/9/19(火) 21:07 発言
【42736】Re:日付の編集にて 質問(煮詰まった) 06/9/20(水) 12:04 お礼
【42721】Re:日付の編集にて Jaka 06/9/20(水) 9:34 発言

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