|
▼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
|
|