Excel VBA質問箱 IV

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

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


36085 / 76738 ←次へ | 前へ→

【45838】Re:テキスト
発言  Kein  - 07/1/15(月) 21:58 -

引用なし
パスワード
   今ちょっと時間がないのでヒントだけ。
Openステートメントで変数に一行読み込み↓

Line Input #1, Buf

先頭の文字を判定し、フラグの値を切り替える↓

Select Case Left$(Buf, 4)
  Case "[MAP": Flg = True
  Case "[cha": Flg = False
End Select

Flgが True の間だけセルに取り込む。

If Flg Then
  i = i + 1
  Cells(i, 1).VBalue = Buf
End If

てな感じで良いと思います。

0 hits

【45836】テキスト ChinaCoffee 07/1/15(月) 19:56 質問
【45838】Re:テキスト Kein 07/1/15(月) 21:58 発言
【45839】Re:テキスト ichinose 07/1/15(月) 22:20 発言
【45842】Re:テキスト Kein 07/1/16(火) 0:38 回答
【45845】Re:テキスト ChinaCoffee 07/1/16(火) 6:09 お礼

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