![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.5ベストアンサー
- 回答日時:
こんばんは。
Wendy02です。ちょっとお話に興味があって、あえて修正版を作りました。
しょせん、Undoの仕組みというのは、どこかにバッファを置いているだけだと思うのです。私は、この手のものは、時々、Undoに代わるものを作ります。前のは、手抜きでしたから、今度は、もう少し手の込んだものを作りました。
通常は、VBAプロシージャで、すべてのUndoを考えていたら、VBA側に与えられているメモリは小さいので、それを食いつぶしてしまう可能性があります。
以下は、配列変数の一こまに、どの程度の許容量があるのか知りませんが、許容量を増やすなら、以下は、Logs の型をString 型すれば広がります。しかし、Null値を入れるために、Variant 型にしてあります。
String型の場合は、その代わりに、Chr(0)を入れればよいのですが。Null値のほうが簡単なのど、それを用いました。
'---------------------------------------------------------
'Option Explicit
Private Logs(100) As Variant
Sub ReplaceInTextBoxesR()
Dim shp As Object
Dim i As Integer
Const BEF As String = "あいうえお" '検索後
Const AFT As String = "ABCDE" '置換語
Const TX As Integer = vbTextCompare '全半角区別なし
Const BIN As Integer = vbBinaryCompare '全半角区別あり
For Each shp In ActiveSheet.Shapes
If shp.Type = msoTextBox Then
Logs(i) = shp.DrawingObject.Text
shp.DrawingObject.Text = _
Replace(shp.DrawingObject.Text, BEF, AFT, , TX) '全角半角区別なし
i = i + 1
End If
Next
Logs(i) = Null
If MsgBox("これでよろしいですか?", vbQuestion + vbOKCancel) = vbCancel Then
Call UndoLogs
End If
End Sub
Private Sub UndoLogs()
'一回きり、戻せます。
Dim shp As Variant
Dim i As Integer
For Each shp In ActiveSheet.Shapes
If shp.Type = msoTextBox Then
If IsNull(Logs(i)) Or IsEmpty(Logs(0)) Then Exit For
shp.DrawingObject.Text = Logs(i)
i = i + 1
End If
Next
Erase Logs
End Sub
No.4
- 回答日時:
#1です。
>元に戻せないことを強調
マクロの場合は、
間違った置換を行った場合は戻せませんよ(※)、
という意味合いでした、誤解を招き申し訳ないです。
※トレースジャーナルを持たない限り不可逆な置換である、と考えより
【ABCD】の【BC】を【CD】に変換しようとして【AB】を置換してしまったとしても
返還後の【CDCD】に無条件で【CD】を【AB】へ戻す処理を施しても
【ABAB】にしかならない
(“共有”ブックにある履歴を読み戻すイメージじゃない限り)
No.3
- 回答日時:
こんにちは。
#1の補足の、「残念ながら、マクロは使えません。」の意味が、マクロを使っていけないなら、諦めるしかありませんね。
それと、あまり、元に戻せないことを強調しているようなので、元に戻すオプションをつけてしまいました。
Const SW As Integer = 0 '順行 /0以外は、反転
は、簡単にいうと、=1 を入れれば、元に戻ります。
'-------------------------------------
'標準モジュールが適しています。
Sub ReplaceInTextBoxes()
Dim shp As Object
Const BEF As String = "abcdefg" '検索後
Const AFT As String = "あいうえお" '置換語
Const SW As Integer = 0 '順行 /0以外は、反転
Const TX As Integer = vbTextCompare '全半角区別なし
Const BIN As Integer = vbBinaryCompare '全半角区別あり
Dim SWd As String
Dim RWd As String
If SW = 0 Then
SWd = BEF: RWd = AFT
Else
SWd = AFT: RWd = BEF
End If
For Each shp In ActiveSheet.Shapes
If shp.Type = msoTextBox Then
shp.DrawingObject.Text = _
Replace(shp.DrawingObject.Text, SWd, RWd, , , TX) '全角半角区別なし
End If
Next
End Sub
誤解を招く表現で申し訳ございませんでした。
マクロを使っていけないということはありません。
元に戻すオプションまでつけて頂きありがとうございました。
No.2
- 回答日時:
マクロで一括置換する方法です。
Alt+F11でVBAの画面を開き、左側のツリーからブック名を選択し、右クリックから「挿入」>「標準モジュール」を選択して、右の画面に以下のマクロをコピーして貼り付けてください。
Sub テキストボックス置換()
Dim BeforeStr As String
Dim AfterStr As String
Dim WS As Worksheet
Dim s As Shape
Application.ScreenUpdating = False
BeforeStr = InputBox("置換前の文字列を入力してください。")
AfterStr = InputBox("置換後の文字列を入力してください。")
For Each WS In Worksheets
WS.Activate
For Each s In WS.Shapes
If s.Name Like "Text Box*" Then
s.Select
Selection.Characters.Text = _
Replace(Selection.Characters.Text, BeforeStr, AfterStr)
End If
Next
Next
Application.ScreenUpdating = True
End Sub
その画面でF5キーを押すか、Alt+F11でExcelの画面に戻ってAlt+F8からマクロを実行してみてください。一度置換したら元には戻せないのでご注意ください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
昔のあなたへのアドバイス
過去のあなたへ一度だけアドバイスを送れる電話があったとします。 もしあなたがその電話を手にしたら、いつの自分にどのようなアドバイスを送りますか?
-
エクセルのテキストボックス内は検索できないのでしょうか?
その他(Microsoft Office)
-
テキストボックス内の文字の一括変換
Excel(エクセル)
-
テキストボックスの文字列を置換するコードを教えてください
Visual Basic(VBA)
-
-
4
Excelで、テキストボックスに書かれた文字を検索したい
Excel(エクセル)
-
5
エクセルでテキストボックス内の文字を検索したい
Excel(エクセル)
-
6
Excelでオートシェイプのテキストボックス内の文字列を検索するマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで濁点カナの変換方法...
-
文字の列を揃えるには
-
秀丸で左に幅寄せする方法
-
数学 記号 sgn
-
Word2010で小数点の検索
-
桐の項目名の変数利用(一括処理)
-
秀丸で余分なスペースを削除したい
-
カンマを改行に変換する方法
-
エクセル重複削除で綺麗に削除...
-
ワードに「URL」を貼り付けると...
-
Wordでこのような三角が出てく...
-
ワードでCO2(二酸化酸素) ...
-
スケッチスタイルの有効化
-
エクセルで薄く透ける文字を入...
-
斜め線入りのゼロを表示させた...
-
OpenOfficeの用紙のサイズ変更で
-
WORD ページ右に脚注が欲しい
-
Excelのグラフ作成 『軸ラベル...
-
印刷用紙の中央に点線をいれた...
-
Word差し込み印刷で2ページ以降...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カンマを改行に変換する方法
-
カンマ( , )をタブに置換したい。
-
Excelで全角ハイフンを半角ハイ...
-
エクセルの『検索と置換ボック...
-
秀丸で余分なスペースを削除したい
-
Word:差し込み印刷時に文字列...
-
【MS Office Word 2007】文章の...
-
文字の列を揃えるには
-
エクセル重複削除で綺麗に削除...
-
エクセル 置換又は関数でかっこ...
-
複数のスペースを1つのタブに...
-
セルの文字列後ろのスペース削除
-
文字列に含まれているダブルク...
-
エクセルの「置換」で1行の部分...
-
word 改行マークを印刷時に表示...
-
1文字だけ置換したい
-
ワードで複数の文字を一括・連...
-
エクセルで濁点カナの変換方法...
-
CSVファイルの任意の列をダブル...
-
Word VBA フッターでの文字の置換
おすすめ情報