Excel VBA質問箱 IV

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

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


33156 / 76734 ←次へ | 前へ→

【48802】文字の抽出
質問  なた E-MAIL  - 07/5/9(水) 16:12 -

引用なし
パスワード
   いつもお世話になっております。

下記の文字列Aを文字列Bとして出力したいのですが、
上手くいきません。
どなたかアドバイス頂ける方、ご教授願えませんでしょうか?

文字列A:N20,(Z-2.4),N20,(Z-5.0),N30,(Z-2.4),N30,(Z-5.0)
文字列B:N20,(Z-5.0),N30,(Z-5.0)

規則は、それぞれのナンバーの最大マイナス値になります。
N20の最大マイナスは(Z-5)で、N30の最大マイナスも(Z-5)なので、
文字列Bこれになります。

以前も皆様に教えていただき、現状は下記のコードにしていますが、
現状だとN20(Z-2.4),N30(Z-5.0)と出力されてしまいます。


Private Sub CommandButton1_Click()

Dim isy As Long
Dim m1Dic As Object
Dim v As Variant
Dim tmp As String
Dim B As String

tmp = "N20,(Z-2.4),N20,(Z-5.0),N30,(Z-2.4),N30,(Z-5.0)"

v = Split(tmp, ",")

Set m1Dic = CreateObject("Scripting.Dictionary")
For isy = UBound(v) To LBound(v) Step -1
  If Not IsEmpty(v(isy)) Then
    If Not m1Dic.Exists(v(isy)) Then
      B = v(isy) & "," & B
      m1Dic(v(isy)) = v(isy)
    End If
  End If
Next
  
MsgBox B

Set m1Dic = Nothing

End Sub
3 hits

【48802】文字の抽出 なた 07/5/9(水) 16:12 質問
【48803】Re:文字の抽出 Kein 07/5/9(水) 18:02 回答
【48813】Re:文字の抽出 なた 07/5/10(木) 12:01 質問
【48817】Re:文字の抽出 Kein 07/5/10(木) 14:37 回答
【48825】Re:文字の抽出 なた 07/5/10(木) 18:46 お礼
【48804】Re:文字の抽出 ウッシ 07/5/9(水) 19:50 発言

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