Excel VBA質問箱 IV

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

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


36026 / 76732 ←次へ | 前へ→

【45892】Re:データ抽出のやり方
回答  Jaka  - 07/1/17(水) 9:59 -

引用なし
パスワード
   インプットボックスを使わないで、フォームを使った方がいいと思いますけど、
いちいち文字を分解しなくてすむし...。
インプットボックスだとこんな感じで面倒です。
97でも使えるようにSplit関数使ってません。
ろくなエラー処理を施してません。

Do
  mstr = InputBox("何年/何月分を抽出しますか?" & vbLf & "記入例" & vbLf & _
          "2007/1〜2007/8", "抽出月指定")
  If mstr = Empty Then
    Exit Sub
  ElseIf InStr(1, mstr, "〜") > 1 Then
    Stt = InStr(1, mstr, "〜")
    If IsDate(Left(mstr, Stt - 1) & "/1") And IsDate(Mid(mstr, Stt + 1) & "/1") Then
     左辺 = Left(mstr, Stt - 1)
     初年 = Left(左辺, InStr(1, 左辺, "/") - 1)
     初月 = Mid(左辺, InStr(1, 左辺, "/") + 1)
     右辺 = Mid(mstr, Stt + 1)
     終年 = Left(右辺, InStr(1, 右辺, "/") - 1)
     終月 = Mid(右辺, InStr(1, 右辺, "/") + 1)
     Exit Do
    Else
     MsgBox "記入方式" & vbLf & "2007/1〜2007/8" & vbLf & "これ以外受け付けません。"
    End If
  Else
    MsgBox "記入方式" & vbLf & "2007/1〜2007/8" & vbLf & "これ以外受け付けません。"
  End If
Loop
MsgBox "初年 " & 初年 & "  " & "初月 " & 初月 & vbLf & _
    "終年 " & 終年 & "  " & "終月 " & 終月
1 hits

【45888】データ抽出のやり方 初心者です 07/1/17(水) 1:42 質問
【45892】Re:データ抽出のやり方 Jaka 07/1/17(水) 9:59 回答

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