• 締切済み

エクセルVBAでHTML文字を制御する方法

エクセルVBAを用いてセルの中に入っている「Ç(Cの下に縦の～がついた文字)」などの文字を操作する方法がわかりません。 (掲示板で表現ができない文字ですいません) 例えばセルの中に入っている「Ç(Cの下に縦～)」という文字を「A」に置換するマクロを自動記録にて保存したのですが ActiveCell.Replace What:="C", Replacement:="A", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False と、上記のように「Ç(Cの下に縦～)」が「C」として記録されてしまいます。 他の文字も似た文字に置き換えて記録されてしまうのでマクロを実行しても同じ結果が得られません。 VBEにて「C」の部分に強引に「Ç(Cの下に縦～)」をコピーペーストすると「??」と表示されてしまいます。 HTML文字を制御する方法をご存知の方、どうか方法を教えてください。

みんなの回答

noname#39970
noname#39970
回答No.1

参考 http://www.asahi-net.or.jp/~SD5A-UCD/rec-html401j/sgml/entities.html 質問文の記号が変換されているようだけどブラウザや文字コードによるのでは。

wakakusaan
質問者

お礼

何とか制御以外の方法で回避してプログラミングすることができました 参考URLありがとうございます

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • エクセル2003で特殊文字の置換方法

    エクセル2003、XPを使用しています。 エクセルのマクロで置換をしているのですが、 置換対象がCHAR(160)です。 セル上に上のを打ち込むと、実際は違いますが半角スペースに見えます。 特殊文字であっているのでしょうか。 それで、この文字を消したいと思い、以下の通りマクロで記述しているのですが、成功しません おわかりになる方いらしたらよろしくお願いします。 Cells.Replace What:=Chr(160), Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

  • エクセルで指定した文字に自動で置換することは可能ですか？？

    Ａ１セルに「バナナ」と表示されると下のマクロの記録で作った”置換するマクロ”の「りんご」の部分を「バナナ」に変更し、さらにこの置換マクロを自動実行することはできますか？？ Sub Macro1()' Cells.Select Selection.Replace What:="名前(1)", Replacement:="りんご", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Range("A1").Select End Suｂ このマクロの記録でなくてもいいんですが、あるセルに置換したい文字が表示された時点でシート内の置換が実行されるようにしたいんですけど・・・・・。 よろしくお願いします。

  • エクセルのマクロにＬＥＦＴ関数のような働きはありませんか？

    顧客データから抽出したデータの、書式を整える作業を自動記録したマクロを使ってやっています。 データの住所欄から、市か郡から下の部分を削除する作業があるのですが、抽出される顧客データは毎日違うので、自動記録のマクロでは出来ないため、この部分は手作業で行なっています。 この「住所の市または郡から下の部分を削除する作業」をマクロで行なう方法は無いでしょうか？ 自動記録のマクロでは以下のようになっています。 Cells.Replace What:="○○県××市○○町１－２－３", Replacement:="○○県××市", LookAt:=xlPart, _SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ReplaceFormat:=FalseCells.Replace What:="○○県＊＊市△△町４－５－６", Replacement:="○○県＊＊市", LookAt:=xlPart, _SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ マクロに、ワークシート関数の=LEFT（A1,（FIND（"市",A1）））と同じ様な働きを記述できればいいのか？とも思うのですが、やり方がわかりません。

  • SearchFormatやReplaceForma

    エクセルでマクロの記録をしたら Sub Sample() Cells.Replace _ What:="a", _ Replacement:="b", _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ MatchCase:=False, _ SearchFormat:=False, _ ReplaceFormat:=False End Sub のように取得されて、一つ一つの引数を確認したいのですが、 http://www.moug.net/tech/exvba/0050117.html を見ても SearchFormatやReplaceFormatについての説明がないのですが これらについての説明を見るにはどうすればいいでしょうか？ というか、なんでリンク先にはこれらの説明がないのですか？ あまり使わないプロパティ？だからでしょうか？

  • VBAで実行時エラー '1004'の解決方法

    VBA初心者です。 文字列を置換しようと思い、マクロを記録したところ下記ソースになりました。 Sub Macro1() Columns("D:D").Select Selection.Replace What:="エリア:", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub このマクロを単体で動かすと問題なく動作するのですが、他シートにおいてあるボタンに登録して一番最初に実行すると「実行時エラー '1004'」が出てしまいます。 ネットで色々調べましたが、解決方法が分かりません。 宜しくお願い致します。

  • ＥＸＣＥＬ　違う端末でマクロエラー

    私の端末で正常に作動したＥＸＣＥＬのマクロが、 他の端末ではエラーになり正常に動きません。 他の端末で実行する際、マクロやセルの中身など全く変更していません。 この場合、どのような原因が考えられますでしょうか？ マクロは以下の部分でエラーが出ています。 Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False よろしくお願いします。

  • excelのvbaを使って日付を置換したいのです

    こんにちは。いつも質問ばかりですみません。 今、excell の　ＶＢＡの勉強をしているのですが、たとえば、Ｂ列に2004/5/3 とか、2004/5/5とか、５月の日付ばかりはいっていたとして、その2004/5の部分を2004/6に置換したいとします。 それを、マクロでやらせてみて、VBAを見ると Sub Macro9() Cells.Replace What:="2004/5", Replacement:="2004/6", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub のようになるのですが、このプロシージャーを実行しても、うまく置換できません。 どのように記述したら、できるのか、教えていただけるとうれしいです。 よろしくお願いいたします。

  • ＶＢＡセル参照のパスのブック名に汎用性を持たせたい

    皆様どうぞ宜しくお願いいたします。マクロ初心者です。 Ｅxcel　２００３で作業をしております。 今回の仕事で必要なので、大変困っております。 BOOK１とBOOK２を開き、BOOK１のAシートのセル参照をBOOK２でもBOOK２でのセル参照として活かす為、BOOK１のAシートの＝をすべて＃に置換した後、BOOK２にAシートをコピーし、逆に＃を＝に戻しました。 ここから後なのですが、BOOK名が特定されてしまうため、汎用性が効きません。 どのようにすればよいのかお教えください。 どうぞ宜しくお願いいたします。 下記マクロコード Cells.Replace What:="=", Replacement:="#", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Sheets("店頭").Select Sheets("店頭").Copy Before:=Workbooks("ここの部分です.xls").Sheets(3) Cells.Replace What:="#", Replacement:="=", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub

  • Excelマクロ　置換について教えてください。

    A列の,10を,15に置換したいので下記マクロを記録しました。 ほかに,10を,16などにしたい場合もあるため、 入力画面を表示して初期値は,10から,15ですが、ほかを入力した場合は他の値で置換するマクロを教えてください。 Sub Macro1() Columns("A:A").Select Selection.Replace What:=",10", Replacement:=",15", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub

  • エクセル2003で、動作するでしょうか？

    現在、エクセル2007でマクロの作成練習をしていますが、 マクロの記録を使用して次のマクロを得ました。 ＞ Columns("B:B").Select Selection.Replace What:="Ｐ", Replacement:="m" ,_ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False,_ SearchFormat:=False, ReplaceFormat:=False エクセル2003を使用している友人の依頼で作成したものですが、 当方、エクセル2003の環境がないため、動作するのか エラーが生じるのか分かりません。 どなたか教えて下さい。 エラーが出るなら、どの部分を直せばいいのかも。よろしくお願いします

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する