Excel VBA質問箱 IV

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

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


6730 / 76735 ←次へ | 前へ→

【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 4文字 "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"を取得
       '"/"は先頭から2文字目にあるから
       '前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

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 お礼

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