人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセル2000のファイルに「テキストボックス」がたくさんあります。このテキストボックス内の文字を一括で置き換えるにはどのようにすればいいでしょうか?

●質問者: msuzuki5
●カテゴリ:コンピュータ
✍キーワード:エクセル テキスト ファイル ボックス
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● MXF03305
●50ポイント

http://www.hatena.ne.jp/1089615935#

エクセル2000のファイルに「テキストボックス」がたくさんあります。このテキストボックス内の文字を一括で置き換えるにはどのようにすればいいでしょうか?.. - 人力検索はてな

邪道かもしれませんが

いったんhtmlで保存してノートパッドでなどで一括置き換えすれば出来ます。終わったらxls形式に戻せばよいのでは

◎質問者からの返答

ありがとうございます。早速やってみました。テキストエディタで置換後再度エクセルで読み込ませると”HTMLインポートエラー”が表示されてしまいました。できあがったファイルは一見、きちんと置換されている様に見えますがどこでエラーが起きているのかこれを調べるのに手間がかかりそうです。


2 ● name_mm
●100ポイント

http://127.0.0.1/

上記URLはダミーです。

VBAがわかるなら下記でどうでしょう?

ツール>>マクロ>>Visual Basic Editor

プロジェクトエクスプローラ内ThisWorkbookをダブルクリック

表示されたウィンドウに書きコード貼り付けし、コード内をクリックし実行。

下記プログラムは私の環境で簡単なテストをしていますが、バックアップをとり実施して下さい。

あくまでも、サンプルとして考えてもらえると(^^

Sub txtRep()

Dim oWs As Worksheet

Dim oTBox As Shape

Dim strWk As String

’全シートを対象とする

For Each oWs In Excel.ActiveWorkbook.Worksheets

For Each oTBox In oWs.Shapes

If InStr(oTBox.Name, ”Text Box”) > 0 Then

oWs.Activate

oTBox.Select

’Replace関数内に6個の引数がありますが、下記の内容を置き換えたい方法により

’2〜5番目の内容を変更して下さい。

’2:置き換え元文字列

’3:置き換え後文字列

’4:何文字目から置き換え対象とするか(1:先頭から)

’5:何回置き換えするか(-1:全て)

strWk = Replace(Selection.Characters.Text, ”置き換え元文字列”, ”置き換え後文字列”, 1, -1, vbTextCompare)

If strWk <> oTBox.AlternativeText Then

Selection.Characters.Text = strWk

End If

End If

Next oTBox

Next oWs

End Sub

◎質問者からの返答

おお! うまくいきました。

助かりました。ありがとうございます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ