Excel VBA質問箱 IV

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

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


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

56996 / 76732

←次へ　｜　前へ→


	【24477】Re:データ変換について

kazu - 05/4/22(金) 18:10 -


	引用なし

	パスワード

今日はちょっと時間が無いんで一応これで出来ればこれで・・・。
条件が違う場合はどなたかがｻﾎﾟｰﾄしてくれると思います。

--->　から　<---　迄がひとつの構文になります。

　　If Buf(Cnt) Like MasterFlg & "*" Then
　　　　StrMAster = Mid(Buf(Cnt), Len(MasterFlg) + 1)
　　ElseIf Buf(Cnt) Like DateFlg & "*" Then
　　　　StrDate = Mid(Buf(Cnt), Len(DateFlg) + 1)
　　ElseIf Buf(Cnt) Like VluFlg & "*" Then
　　　　StrData = Mid(Buf(Cnt), Len(VluFlg) + 1)
　　　　With Range(Cells(RCnt, 1), Cells(RCnt, 3))
　　　　　　.NumberFormatLocal = "@"
　　　　　　.Value = Array(CStr(StrMAster), StrData, Format(StrDate, "YYYY/MM/DD"))
　　　　End With
　　　　RCnt = RCnt + 1
　　End If

の中の
StrData = Mid(Buf(Cnt), Len(VluFlg) + 1)
の部分をいづれか条件にあうものに変更してみて下さい。

'現状(CZの後全部取得)　　--->
　　　　StrData = Mid(Buf(Cnt), Len(VluFlg) + 1)
'現状(CZの後全部取得)　　<---
　　　　
'CZの後3文字　--->
　　　　StrData = Mid(Buf(Cnt), Len(VluFlg) + 1, 3)　　　　　　
'CZの後3文字　<---
　　　　
'特定文字列1から特定文字列2迄　(特定文字列含む)　--->
　　　　StrData = Mid(Buf(Cnt), Len(VluFlg) + 1)
　　　　Bunri1 = "0"　　　　　　　　　　　　　　　　　　'-------　特定文字列1　　
　　　　Bunri2 = "0"　　　　　　　　　　　　　　　　　　'-------　特定文字列2　
　　　　Fst = InStr(1, StrData, Bunri1)
　　　　Lst = InStr(Fst + 1, StrData, Bunri2)
　　　　If Fst <> 0 And Lst <> 0 Then
　　　　　　StrData = Mid(StrData, Fst, Lst - Fst + Len(Bunri2))
　　　　End If
'特定文字列1から特定文字列2迄　(特定文字列含む)　<---

'特定文字列1から特定文字列2迄　(特定文字列含まない)　--->
　　　　StrData = Mid(Buf(Cnt), Len(VluFlg) + 1)
　　　　Bunri1 = "0"　　　　　　　　　　　　　　　　　　'-------　特定文字列1　　
　　　　Bunri2 = "0"　　　　　　　　　　　　　　　　　　'-------　特定文字列2　
　　　　Fst = InStr(1, StrData, Bunri1)
　　　　Lst = InStr(Fst + 1, StrData, Bunri2)
　　　　If Fst <> 0 And Lst <> 0 Then
　　　　　　StrData = Mid(StrData, Fst + Len(Bunri1), Lst - Fst - Len(Bunri1))
　　　　End If
'特定文字列1から特定文字列2迄　(特定文字列含まない)　

1 hits

▼

【24414】データ変換について 初心者 05/4/21(木) 19:58