Excel VBA質問箱 IV

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

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


6726 / 76735 ←次へ | 前へ→

【75606】Re:advancedfilterでの日付け検索
発言  kanabun  - 14/5/23(金) 21:28 -

引用なし
パスワード
   ▼masu さん:

>  データー
>    2015/9/12 Am
>    2012/2/10:15:30:00
>    2016/8/11 am
>    2016/7/10 pm
>    02/08/01 PM
>

>日の値を取得する方法が分かりません

そういうばあいは / で文字列を 年、月、日以降 に分けましょう

Sub Try1()
  Dim v
  Dim t(1 To 3) ' t(Year,Month,Day)
  Dim c As Range
  
  With ThisWorkbook.Worksheets("sheet1")
    For Each c In .Range("E6", .Cells(.Rows.Count, "E").End(xlUp))
      v = Split(c.Value, "/")
      If UBound(v) = 2 Then
        t(1) = Val(v(0))  'Year
        t(2) = Val(v(1))  'Month
        t(3) = Val(v(2))  'Day
        If t(1) < 2000 Then t(1) = t(1) + 2000
        c.Offset(, 2).Resize(, 3).Value = t
      End If
    Next
  End With
End Sub

'----------------------
2015/9/12 Am        2015    9    12
2012/2/10:15:30:00        2012    2    10
2016/8/11 am        2016    8    11
2016/7/10 pm        2016    7    10
02/08/01 PM        2002    8    1

0 hits

【75574】advancedfilterでの日付け検索 masu 14/5/21(水) 13:17 質問
【75576】Re:advancedfilterでの日付け検索 kanabun 14/5/21(水) 14:27 発言
【75577】Re:advancedfilterでの日付け検索 masu 14/5/21(水) 16:10 質問
【75578】Re:advancedfilterでの日付け検索 kanabun 14/5/21(水) 16:57 発言
【75580】Re:advancedfilterでの日付け検索 masu 14/5/21(水) 17:37 お礼
【75602】Re:advancedfilterでの日付け検索 masu 14/5/23(金) 15:27 質問
【75605】Re:advancedfilterでの日付け検索 yuto 14/5/23(金) 21:22 回答
【75607】Re:advancedfilterでの日付け検索 masu 14/5/23(金) 21:49 お礼
【75606】Re:advancedfilterでの日付け検索 kanabun 14/5/23(金) 21:28 発言
【75608】Re:advancedfilterでの日付け検索 kanabun 14/5/23(金) 23:22 発言
【75609】Re:advancedfilterでの日付け検索 masu 14/5/24(土) 8:46 質問
【75610】Re:advancedfilterでの日付け検索 kanabun 14/5/24(土) 11:14 発言
【75611】Re:advancedfilterでの日付け検索 masu 14/5/24(土) 12:19 質問
【75612】Re:advancedfilterでの日付け検索 kanabun 14/5/24(土) 13:23 発言
【75613】Re:advancedfilterでの日付け検索 kanabun 14/5/24(土) 17:46 発言
【75614】Re:advancedfilterでの日付け検索 masu 14/5/24(土) 18:11 お礼

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