Excel(2007)のVBAを作成していただきたいです。

1つのシートで、不等号付き数字例えば<0.02を全て0と表示。さらに、例えば[0.03]のように括弧付きの数値の括弧を全てなくし、0.03と表示するというVBAを作成していただきたいです。
できれば、そのままVBAをコピー貼り付けして使えるようにしてほしいです。
宜しくお願いします。

回答の条件
  • 1人2回まで
  • 13歳以上
  • 登録:2012/07/19 15:31:06
  • 終了:2012/07/19 17:14:23

ベストアンサー

id:Mook No.1

Mook回答回数1312ベストアンサー獲得回数3912012/07/19 16:17:43

ポイント300pt

このような感じの処理でしょうか。

アクティブシートを処理するようにしています。

Sub ramumuModify()
    Set RegExp = CreateObject("VBScript.RegExp")
    With RegExp
        .Global = True

'//  <### を 0 にする
        .Pattern = "^<\d+[\.]{0,1}\d*$"
        For Each r In ActiveSheet.UsedRange
            If .Test(r.Value) Then r.Value = 0
        Next

'//  [###] の [] を外す
        .Pattern = "^\[\d+[\.]{0,1}\d*\]$"
        For Each r In ActiveSheet.UsedRange
            If .Test(r.Value) Then r.Value = Mid(r.Value, 2, Len(r.Value) - 2)
        Next
    End With
    Set RegExp = Nothing
End Sub
他4件のコメントを見る
id:ramumu1031

Mookさん、全角です。
どうすれば、回避できるのでしょうか。
すみませんが、その部分の回避方法をお教えいただけますでしょうか。
宜しくお願いいたします。

2012/07/20 08:35:05
id:ramumu1031

Mookさん、回避できました。
ありがとうございました。

2012/07/20 09:56:51

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません