Excel VBA質問箱 IV

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

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


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

6729 / 76734

←次へ　｜　前へ→


	【75602】Re:advancedfilterでの日付け検索

masu - 14/5/23(金) 15:27 -


	引用なし

	パスワード

▼kanabun さん：
再質問です
以下のようなデーターがあるとしまして
　　データー
　　　　2015/9/12 Am
　　　　2012/2/10:15:30:00
　　　　2016/8/11 am
　　　　2016/7/10 pm
　　　　02/08/01 PM

以下のマクロを作成しまして
年；月の値は取得できましたが
日の値を取得する方法が分かりません
よろしくお願いします

Sub GetInStr()
　　Dim FA_NAME As String
　　Dim M As Integer
　　Dim F1 As String
　　Dim F2 As String
　　Dim F3 As String
　　Dim Gyou As Integer
　　Dim Retu As Integer
　　Dim sht As Worksheet
　　
　　 Gyou = 6
　　 Retu = 5
　　
　　 Set sht = ThisWorkbook.Worksheets("sheet1")
　　　Do
　　　　 FA_NAME = sht.Cells(Gyou, Retu)
　　
　　　　 If InStr(1, FA_NAME, "/") = 0 Then
　　　　　　 Exit Do
　　　　 Else
　　　　　　 '---- 年を取得 ----
　　　　　　 ' 2015/9/12 AM --"/"は先頭から5文字目にあるから
　　　　　　 '前m=5-1 ４文字　"2015"を取得

　　　　　　 M = InStr(1, FA_NAME, "/") - 1　　　　　　　　 '-----M=4
　　　　　　 sht.Cells(Gyou, Retu + 2) = Left(FA_NAME, M)　 '-----"2015"
　　　　　　
　　　　　　 '---- 月を取得 ----
　　　　　　 '2015/9/12 AM--の先頭6文字目から後ろを取得する
　　　　　　 'FA_NAME="9/12 AM"を取得
　　　　　　 '"/"は先頭から２文字目にあるから
　　　　　　 '前M=2-1 1文字　"9"を取得

　　　　　　 FA_NAME = Trim(Mid(FA_NAME, (InStr(FA_NAME, "/") + 1)))
　　　　　　 M = (InStr(FA_NAME, "/") - 1)
　　　　　　 sht.Cells(Gyou, Retu + 3) = Left(FA_NAME, M)
　　　　　　
　　　　　　 '---- 日を取得----
　　　　　　 ’????????????
　　　　　　 ’????????????
　　　　　　 FA_NAME = Trim(Mid(FA_NAME, (InStr(FA_NAME, "　") + 1)))
　　　　　　 M = (InStr(FA_NAME, " ") + 1)
　　　　　　 F3 = Left(FA_NAME, M)
　　　　　　 sht.Cells(Gyou, Retu + 4) = F3　　　　　　　
　　　　　　 Gyou = Gyou + 1　　　　　　
　　　　 End If
　　 Loop

10 hits

▼

【75574】advancedfilterでの日付け検索 masu 14/5/21(水) 13:17