Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12407 / 76734

←次へ　｜　前へ→


	【69849】Re:書式を保持したまま置換したい

sasa - 11/9/3(土) 16:50 -


	引用なし

	パスワード

▼めーさん：
>さて、教えていただいた方法で早速ためしてみたのですが、
>「私の物」の書式が「このペンは」はと同じ
>「ＭＳＰゴシック」「黒色の文字」になってしまいました。
>「です」の書式は保持されました。
>（PCの環境は、WindowsXP　Excel2003です）

先の一例マクロはWindowsVista＆Excel2007 及び Windows7＆Excel2010で動作確認し正常に動作しています。
Excel2003ではバグ(仕様)でうまくいかないと思われますが、
2003で全然ダメではなんなので、一応excel2000～2010の環境で動くコードを示しておきます。(あくまで一応です？)

Sub CharacterSubstitution(ByVal sou$, ByVal des$)
　Dim ws As Worksheet, tb As TextBox, nn&, ll&
　ll = Len(sou)
　For Each ws In Worksheets
　　For Each tb In ws.TextBoxes
　　　nn = InStr(tb.Characters.Text, sou)
　　　If nn Then
　　　　If ll = 1 And nn <> Len(tb.Text) Then
　　　　　tb.Characters(nn + 2, 1).Insert tb.Characters(nn + 1, 2).Text
　　　　End If
　　　　tb.Characters(nn + 1, IIf(ll = 1, 1, ll - 1)).Text = des
　　　　tb.Characters(nn, 1).Delete
　　　End If
　　Next
　Next
End Sub

7 hits

▼

【69827】書式を保持したまま置換したい めー 11/9/1(木) 17:57