こんにちは
選択した複数のセルの先頭に文字を追加するマクロを書いたのですが、
どうにもうまくいきません。
以下のプロシージャで実行したら,「型が一致しません」と出て処理されません。
何がいけないのでしょうか?
作成しようとしてるプロシージャ
実行前 実行後
・国語 →The国語
・英語 →The英語
・数学 →The数学
↓私が作ったプロシージャ
Sub 選択した文字列にアポストロフィーを追加する()
Dim t As Range
Dim d As Range
Dim Moji As String
Moji= "The"
Set t = Application.InputBox("文字列を追加する範囲をドラッグしてください", Type:=8)
For Each d In t
t= Moji & t
Next d
End Sub
選択した文字列に一片に文字列を追加できるとすごい助かるのですが、うまくいかないです。
No.3ベストアンサー
- 回答日時:
For Each d In t
t= Moji & t
Next d
この部分を、
For Each d In t
d = Moji & d
Next d
に変更したらうまくいきました。
tはinputboxで選択した範囲で、その中からひとつずつセルを取り出す変数がdですので、
dに対してMojiを追加する必要がでます。
No.2
- 回答日時:
文字列の頭にアポストロフィを付けても意味はありませんが、このアポストロフィのことを、「接頭辞-> PrefixCharacter 」と言います。
Lotus1-2-3で使われていた時の名残だと思います。>For Each d In t
>t= Moji & t
>Next d
変数の使い回しは、この場合は不可です。
本来は、ある程度変数の名前は決めたほうがよいのですが。
Sub 選択した文字列にアポストロフィーを追加する()
Dim t As Range
Dim d As Variant
Dim Moji As String
Moji = "The"
Set t = Application.InputBox("文字列を追加する範囲をドラッグしてください", Type:=8)
If t Is Nothing Then Exit Sub
For Each d In t
d.Value = Moji & d.Value
Next d
End Sub
'-------------------
私なりに考えてみたコード
'' 選択した文字列にアポストロフィーを追加する
''という命題に従いました。
'//
Sub SelectedChar_addSingleQuote()
Dim Rng As Variant
Dim c As Range
On Error Resume Next
Application.DisplayAlerts = False
Set Rng = Application.InputBox("文字列を追加する範囲をドラッグしてください", Type:=8)
On Error GoTo 0
Application.DisplayAlerts = True
If IsEmpty(Rng) Then Exit Sub
For Each c In Rng
If c.Value <> "" Then
If c.PrefixCharacter = "" Then '二度打ちは避ける
c.Value = "'" & c.Value
End If
End If
Next c
End Sub
こんにちは!
回答ありがとうございます。
今回も回答していただき助かります。
WindFallerさんが書いてくれたプロシージャ、参考にさせていただきます!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Visual Basic(VBA) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) 以下のVBAで該当文字列の前後に付与したい。 例 前に付与 abc ユーザーID 12345 後に付 3 2022/04/19 21:50
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
EXELで文字列の先頭に文字を挿入したい(置換)
Excel(エクセル)
-
-
4
マクロでExcelのセルに任意の文字列を追加するには?
Excel(エクセル)
-
5
Excel 文字列の前後に、特定の文字を付加したい
Excel(エクセル)
-
6
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
7
エクセルVBAで、ある文字を含んでいたら別シートに抽出したい
Excel(エクセル)
-
8
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
9
VBAで文字列を数値に変換したい
Excel(エクセル)
-
10
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
11
VBA 書式設定を保持したままセル内の文字を追記
Excel(エクセル)
-
12
置換機能を使わずに先頭に「'」をつける方法
Excel(エクセル)
-
13
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
14
Excelでローマ字をカナに変換させる方法
Excel(エクセル)
-
15
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
16
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
17
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
18
[初心者です]VBAで指定列からAを検索し、発見したら隣のセルに値0を入れるマクロ。
Access(アクセス)
-
19
アクティブセルとそのセルに隣接する右隣の2つのセルをコピーしてシート2に貼り付ける
Excel(エクセル)
-
20
Excel MATCH関数で検索範囲内に同じ値の検索値が複数ある場合
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
未成年ですがドンキでオナホ買...
-
エクセルでマウスカーソルの形...
-
蛍光灯はドラッグストアで売っ...
-
Excelピボットテーブルで余計な...
-
ドラッグストアでTENGAを買おう...
-
ドンキに18禁コーナーじゃない...
-
Excel(エクセル)で価格帯別に...
-
ドラッグストアーのコスモスっ...
-
コスモスにTENGAは売っています...
-
セブンイレブンにクエン酸売っ...
-
PowerPointを使っているのです...
-
ドラッグストアでTENGAを買いた...
-
タスクバーからデスクトップへ...
-
50~60代の御夫婦に質問
-
ワードで、表をずらしてから表...
-
通常、ドラッグストアとコンビ...
-
ワードへの貼り付け順序
-
エクセルで特定のセル以下の全...
-
Snipping Toolで切り取った画像...
-
線のスタイル(太さ)をまとめ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
未成年ですがドンキでオナホ買...
-
Excelピボットテーブルで余計な...
-
エクセルでマウスカーソルの形...
-
ドンキに18禁コーナーじゃない...
-
蛍光灯はドラッグストアで売っ...
-
エクセルで特定のセル以下の全...
-
Excel(エクセル)で価格帯別に...
-
ドラッグストアでTENGAを買おう...
-
タスクバーからデスクトップへ...
-
PowerPointを使っているのです...
-
Snipping Toolで切り取った画像...
-
ワードで1ページに同じ内容の...
-
線のスタイル(太さ)をまとめ...
-
コスモスにTENGAは売っています...
-
エクセルの式をドラッグコピー...
-
イラレで急に日本語が打てなく...
-
ワードで、表をずらしてから表...
-
ラベルとテキストボックスのグ...
-
ドラッグストアーのコスモスっ...
-
メディアプレーヤーを起動、曲...
おすすめ情報