忍者ブログ
手探りでパソコンの事を勉強するブログです。 何か覚えたら記録していきます。
2025 . 01
  • 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
  • 31
    • 　　

    [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">

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

    PR

    VBAで文字の置き換えをする。



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

    「あいう」    という文字を「いろは」に置き換える。

    Sub 置き換え()
    Dim A1 As Range
    For Each A1 In Selection
    A1.Value = Replace(A1.Value, "あいう", "いろは")
    Next A1
    End Sub

    置き換えしたい適用範囲（セル）を選択してから実行します。

    ※htmlタグを変換する場合、エラーになる場合があります。
    例えばA1.Value = Replace(A1.Value, "<font size="1">", "<font size="5">")と入力すると、ダブルクォンテーションが文字として認識されないためエラーを吐き出します。
    正しい記載方法はA1.Value = Replace(A1.Value, "<font size=""1"">", "<font size=""5"">")
    のように、ダブルクォンテーションを2つ記載します。

    複数の置き換えを一括して行う場合はA1.Value = Replace(A1.Value, "あいう", "いろは")と同じ要領で次の行に追加記入します。

    今日が今月の第3週目の日曜日かを求める。



     このエントリーをはてなブックマークに追加
    今日が第三日曜日の場合は"A1"にメッセージを書き込む。


    If Weekday(Date) = 1 And (Day(Date) + 6) \ 7 = 3 Then

                Range("A1").Value = "本日は第３日曜日です"

    End If


    HOME
    ©パソコン手探り all rights reserved.
    Powered by ニンジャブログ　　Designed by ピンキー・ローン・ピッグ
    忍者ブログ / [PR]