excelのマクロを使い、指定のセル内の末尾に文字を追加

Question

excelのマクロを使い、指定（A1）のセル内の末尾に文字を追加したいのですが
以下のコードだと選択範囲全てにfaa-001が入ってしまいます

やりたいことはA1セルにhttp://www.example.com/abc/
とあった場合に

faa-001を末尾に追加したいだけです

http://www.example.com/abc/

は毎回変わりますが、末尾に追加したいfaa-001は変わりません

処理前↓

http://www.example.com/abc/

やりたい処理↓

http://www.example.com/abc/faa-001

としたいです

Sub 選択されているセル範囲に対して､faa-001を末尾に追加()

Dim xRng As Range
Const xConst As String = "faa-001"
If TypeName(Selection) = "Range" Then
For Each xRng In Selection
xRng.Value = xRng.Value & xConst
Next xRng
End If

End Sub

Comments

[coco_bauer]

何がしたいのか不明です。追加する文字列は、セルの位置によって変わるという事ですか？選択範囲全体ではなく、選択範囲の左上隅のセルにだけ文字列を追加したいという事ですか？？？？

Answer 1

掲示ソースにはコメントが１つもありませんが、この10行足らずのコードの各行でそれぞれどんな処理が行われているか、正しく把握できていますか？

まずは今書かれている処理の意味を把握しましょう。
そしてそのコードの意味をコメントとして記述してみましょう。

これだけで今回の目的に沿わないコードがどこなのかが分かりやすくなります。

Sub 選択されているセル範囲に対して､faa-001を末尾に追加()
    Dim xRng As Range   '対象セルの取り出し用変数
    
    Const xConst As String = "faa-001"  '末尾に追加する文字列
    
    If TypeName(Selection) = "Range" Then
        '現在選択されていものが"Range"(セル範囲)の場合
        
        '選択範囲に含まれるセルをひとつずつループ処理
        For Each xRng In Selection
            '取り出したセルの値に「末尾に追加する文字列」を追記する
            xRng.Value = xRng.Value & xConst
        Next xRng
        
    End If
    
    'A1セルだけでいいのならわざわざ選択範囲をループする必要はない
    Range("A1").Value = Range("A1").Value & xConst
    
End Sub

Comments

[ryuujinn]

jawaさん、コメントありがとうございます
＞コードの意味をコメントとして記述
コメントして頂けたお蔭でいらない部分が分かりました
ありがとうございます

[jawa]

まいど少し厳しいアドバイスになってしまっていますが、ソフトウェア技術者とは単に動くものを作るのが役割ではなく、プログラムを理解し制御できるところが大事なのだと思いますので、どうぞご理解くださいm(__)m

目的を達せられたようで何よりです。(^-^)b

Answer 2

そうですね、提示されているソースは
条件判定なしで 選択範囲のセルすべてに追加するようになっていますね。

特定の条件に一致した場合のみ追加したい、という場合は IF などで条件判定をする必要があります。

末尾に追加する条件がわかりませんが、以下のどちらかでしょうか。
＃ 以下で薄灰色になっているコードは コメントアウトしている部分です。（実際には実行されない部分）

Sub AddTailFaa001()

    Const xConst As String = "faa-001"
    
    Dim xRng As Range
    If TypeName(Selection) = "Range" Then
        For Each xRng In Selection  '★選択範囲をLOOPで回す
            
            '★元々のソース。問答無用で末尾に追加
            'xRng.Value = xRng.Value & xConst
            
            '★セルが空じゃなければ末尾に追加するパターン
            'If xRng.Value <> "" Then
            '    xRng.Value = xRng.Value & xConst
            'End If
            
            '★セル値が http で始まっている場合は末尾に追加するパターン
            If InStr(xRng.Value, "http") = 1 Then
                xRng.Value = xRng.Value & xConst
            End If
        
        Next xRng
    End If

End Sub

Comments

[sk_3122]

ん？ A1 だけで良いということ？選択範囲のセルではなく？
となるとちょっと変わってきますね。すみません、上記はスルーしてください。

[ryuujinn]

sk_3122さん、コメント、コード記載ありがとございます

単純にA1にある文字列の末尾にfaa-001を追加したいです
私が記載したような選択範囲、選択範囲全てではなく、A1だけでいいのですが
難しいでしょうか？

[sk_3122]

いえ、難しくはないです。場所は A1 固定で良いのでしょうか？

もしそうだとすると、LOOP (For Each) でぐるぐる回す必要はありません。

■Range("A1").Value で A1 の値が取れます。

■末尾に追加すること自体は
Dim xRng As Range ' 変数を定義
Set xRng = Range("A1") ' 変数にA1への参照をセット

あとは元々書かれていた「末尾に追加するコード」でできます。

■ただ、問答無用で追加してしまって良いのか、
　・セルが空の場合は？
　・URLでも何でもない値が入っていた場合は？（httpで始まらない場合）
　・すでに末尾が faa-001 の場合は？（複数回実行するとどんどん追加されていってしまうが良いか）

　あたりを検討した方が良いのかなと思います。

[ryuujinn]

sk_3122さん、コメント、コード記載ありがとうございまいした

＞・セルが空の場合は？
　・URLでも何でもない値が入っていた場合は？（httpで始まらない場合）
　・すでに末尾が faa-001 の場合は？（複数回実行するとどんどん追加されていってしまうが良いか）

上記は検討していなかったので助かりました
ありがとうございました