No.4ベストアンサー
- 回答日時:
こうすれば、対話形式になります。
対話形式ですから、一旦決まったものを取り消しや、訂正することも可能です。
'//
Sub ボタン1_Click()
Dim a As Variant
a = Application.InputBox("置換値を入力してください。", Type:=2)
If a = False Then Exit Sub
Range("G1:H1000").Select
With Application.Dialogs(xlDialogFormulaReplace)
.Show "□", a
End With
End Sub
No.3
- 回答日時:
ユーザフォームを使用する方が、結果はスマートですが、とりあえず、ユーザフォームを使用しないで、シートの上だけで、標準モジュールのコードだけでやる方法です。
Sub ボタン1_Click()
Dim TaishoArea As Range
Dim KobestuKasho As Range
Dim restuN As String, Taisho As String, Chikan As String
restuN = Cells(1, 2) ' Cells(1,2),Range("B1")にある列の文字○(例:「H」)
Taisho = Cells(1, 3) ' Cells(1,3),Range("C1")にある文字□(例:「山」)
Chikan = Cells(1, 4) ' Cells(1,4),Rangw("D1")にある文字▲(例:「海」)
Set TaishoArea = Range(restuN & "5:" & restuN & "1000")
For Each KobestuKasho In TaishoArea
KobestuKasho = Replace(KobestuKasho, Taisho, Chikan)
Next
TaishoArea.Select ' 処理には関係ないです。どこを置換対象としたのかを示す。
End Sub
「Set TaishoArea = Range(restuN & "5:" & restuN & "1000")」を換えると、置換対象範囲が変わります。
「restuN = Cells(1, 2) 」「Taisho = Cells(1, 3)」「Chikan = Cells(1, 4)」は、使ってないところなら、どこでも良いです。
ユーザフォームを使用する方法については、知っていることを教えていただければ、その上で回答できると思います。
No.1
- 回答日時:
「○列の□という文字を△に置換(この△は都度指定したい)」という動作をさせる事は可能でしょうか?
「エクセルシートの○列(この○はその都度指定したい)のセルに表示されている□という文字を、△に置換(この△もその都度指定したい)という動作を、エクセルのマクロを作っておいて、ユーザーフォームのボタンクリックで実現させることは可能です」
ただ マクロの全くわからない初心者さんに どこからどのように説明すれば良いのかが、難しいです。
https://oshiete.goo.ne.jp/qa/10395760.html
全く初心という程度とか、なにかヒントはないですか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) VBA 登録ボタンを省略してエンターキーで作業 4 2022/07/09 22:29
- Excel(エクセル) マクロでボタンにつける名前がどこに設定されているかわからないケースがありました。 1 2023/06/19 19:37
- Visual Basic(VBA) VBA 画面上のカーソルに文字数字を入力するコードを教えて下さい 1 2022/10/30 10:31
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
- Visual Basic(VBA) Powerpointでランダムな数字の結果を表示するマクロ 2 2023/08/04 10:04
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/12/26 12:05
- Excel(エクセル) マクロを教えてください 1 2022/11/28 14:52
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
別シートのリストから置換する方法
Excel(エクセル)
-
エクセルで一括で変更したいです
Excel(エクセル)
-
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
-
4
Excelでセルをクリックするたびに表示を切り替えるには?
Excel(エクセル)
-
5
エクセルで毎回の置換を簡単にできますか
Excel(エクセル)
-
6
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
7
エクセルで、月によって参照するシートを自動的に変える関数
Excel(エクセル)
-
8
マクロを使ってフォルダー内にあるtxtデータをエクセルにデータに変換する方法をご教授願います
Excel(エクセル)
-
9
Excelで数式中の一部の数字を一括して変更できますか
Excel(エクセル)
-
10
別ファイルを開かず、INDIRECT関数を使用せずに、別ファイルのデータを求めたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでシートにある赤文字...
-
Wordデータから,特定の単語を...
-
ワードで赤字のみを削除する方法
-
エクセル 住所録の中に登録して...
-
ワードの表の中の値の表示形式...
-
excelマクロ ボタンを押して文...
-
Excelの表中,数字の「1」をす...
-
ワードで半角英数の文字だけ選...
-
Word文書で1,2,3...になってい...
-
PostgreSQLのデータに半角カナ...
-
ワードの隠し文字を空白(スペ...
-
Excelで、小さいサイズの文字だ...
-
ワードの文章の中の数字を全て...
-
Wordの脚注を,1)・・2)・・3)...
-
エクセルで、コンマをピリオド...
-
ワードの表への入力について
-
ワードである言葉を打つと自動...
-
word 2003で、赤い文字(あるい...
-
「WORD」での作業 日本語・英...
-
ワードの置換で、文字列の前後...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでシートにある赤文字...
-
Excelの表中,数字の「1」をす...
-
ワードで赤字のみを削除する方法
-
Wordでカッコで括った文字を一...
-
ワードで半角英数の文字だけ選...
-
箇条書きのアタマに一括で「・...
-
ワードの表の中の値の表示形式...
-
Wordデータから,特定の単語を...
-
excelマクロ ボタンを押して文...
-
「WORD」での作業 日本語・英...
-
Wordの脚注を,1)・・2)・・3)...
-
wordで特定の色だけ印刷しない方法
-
エクセルで、コンマをピリオド...
-
word 2003で、赤い文字(あるい...
-
Word相互参照の文字を一括で変...
-
EXCEL2010のハイパーリンク先の...
-
英数字のフォント「Century」に...
-
ワードで太字になっているとこ...
-
セルの中の不要な文字を削除し...
-
word である文字をすべてイタリ...
おすすめ情報
ご回答ありがとうございます。
今回数式内の文字を置換したいのですが、下記のように作成してみてひとまず「gとh列の□を△(固定)へ置換」ができるボタンを作成できました。
Sub ボタン1_Click()
Range("g1:h1000).Select
Selection.Replace What:="□",Replacement:="△"
Range("g1").Select
End Sub
これで、△の部分をその都度指定できればいいのですが、どのような方法があるでしょうか?