忍者ブログ
手探りでパソコンの事を勉強するブログです。 何か覚えたら記録していきます。
2017 . 11
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  •   

    [PR]



    このエントリーをはてなブックマークに追加
    ×

    [PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

    エクセル2007でVBAを使った正規表現での文字の置き換え



    このエントリーをはてなブックマークに追加
    以前「VBAで文字の置き換えをする。」というエントリーを投稿しましたが、以前使ったRe

    place 関数では正規表現は扱えないかったため今回は正規表現に対応した文字の置き換え方法を紹介します。

    例)
    <a name="1">  →  <a name="hoge">
    <a name="2">  →  <a name="hoge">
    <a name="3">  →  <a name="hoge">

    <a name="9999">  →  <a name="hoge">

    上記のように桁数の決まっていない数字を変換する場合

     Sub 置き換え()


    Dim RE, A
    1 As Range
    Set RE =
    CreateObject("VBScript.RegExp")
    RE.Patter
    n = "<a name=""[0-9]+"">"
    For Each
    A1 In Selection
    A1.Value
    = RE.Replace(A1.Value, "hoge")
    Next
    Set RE =
    Nothing
    End Sub


    RegExp オブジェクトを使います。
    桁数の決まっていない数字は正規表現で[0-9]+と表現します。
    PR




    ■ この記事にコメントする
    お名前
    タイトル
    文字色
    URL
    コメント
    パスワード
    Vodafone絵文字 i-mode絵文字 Ezweb絵文字
    ■ コメント一覧
    ■ この記事のトラックバック
    この記事にトラックバックする:
    はてブ(はてなブックマーク)を使ったアクセスアップの裏技 HOME WordPressにTinyMCE Advancedをインストールする方法(高性能エディタプラグイン)
    ©パソコン手探り all rights reserved.
    Powered by ニンジャブログ  Designed by ピンキー・ローン・ピッグ
    忍者ブログ / [PR]