Excel VBA質問箱 IV

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

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


24770 / 76732 ←次へ | 前へ→

【57309】Re:セル内の条件に合う文字列のみを抽出したい
発言  ハチ  - 08/8/6(水) 10:07 -

引用なし
パスワード
   ▼わんころもち さん:
>力技ですが、1000行で30秒ほどで終わりましたので、自分的にはよしとします。

解決済みとなってますので、参考という程度で見てください。

>    GoSub 文字列切り出し
>    GoSub 番号書き出し

GoSubはあまり、使いません。
Private Sub 文字切り出し(ByVal Code As Long)

など、別プロシジャにするのが一般的です。
好みの問題もありますので、参考ということで。

文字の切り出しの部分ですが、
自分の書いたロジックには無駄がありますね・・・
'例)3文字を切り出す
Sub test()
  Dim str As String
  Dim i As Long
  Dim buf As Variant
  
  str = "あいうえお"
  For i = 1 To Len(str) 'ここに補正値 -2 を追加する
    buf = Mid(str, i, 3)
    If Len(buf) = 3 Then
      MsgBox buf
    Else
      MsgBox "無駄:" & buf
    End If
  Next
End Sub

>番号書き出し:
>ThisWorkbook.Sheets("Sheet2").Activate
>  For Row2 = 1 To 1000
>    If Cells(Row2, 1) = "" Then
>      Cells(Row2, 1) = Bangou
>      Bangou = ""

    ここにExit For があると、
    少し無駄ループが減るのでは?

>    End If
>  Next
>Return

最終行に値と追加するロジックは、
もっと効率的なサンプルがあると思います。
探してみてください。
2 hits

【57294】セル内の条件に合う文字列のみを抽出したい わんころもち 08/8/5(火) 13:48 質問
【57297】Re:セル内の条件に合う文字列のみを抽出し... ハチ 08/8/5(火) 15:47 発言
【57308】Re:セル内の条件に合う文字列のみを抽出し... わんころもち 08/8/6(水) 9:24 お礼
【57309】Re:セル内の条件に合う文字列のみを抽出し... ハチ 08/8/6(水) 10:07 発言
【57315】Re:セル内の条件に合う文字列のみを抽出し... わんころもち 08/8/6(水) 18:04 発言
【57317】Re:セル内の条件に合う文字列のみを抽出し... kanabun 08/8/7(木) 11:08 発言

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