ｴｸｾﾙﾏｸﾛでの回答をお願いします｡数値とある言葉を組み合わせてｾﾙに連続代入したいﾏｸﾛ初心者です｡ A列のA2?A16までに､AP列にある画像番号の.jpgを抜き取っ…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

ｴｸｾﾙﾏｸﾛでの回答をお願いします｡数値とある言葉を組み合わせてｾﾙに連続代入したい

ﾏｸﾛ初心者です｡

A列のA2?A16までに､AP列にある画像番号の.jpgを抜き取って､
Inputboxで入れる言葉を後にくっつけて代入したいのですが､うまくいきません｡

下記の式のどこがいけませんでしょうか？★でｴﾗｰがでます｡

Dim k2 As String
Dim r As long

'行列の行が2からｽﾀｰﾄ

k2 = InputBox("文字列", Title:="特定の文字列を入れてください", Default:="")

for r = 2 to 16
Cells(r, 1).Select
★ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[41],"".jpg"","""")"&""k2"""

Next

教えてくださいませ｡
お手数をおかけしますが､よろしくお願いいたします｡

●質問者: ﾘｾｰﾙ京都買取
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

▽1 ● きゃづみぃ
●20ﾎﾟｲﾝﾄ

ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[41],"".jpg"","" & k2 & "")"

こういうことでしょうか?

あ､後にくっつけるだけだから

ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[41],"".jpg"","""") & " & k2
でもいいのか｡

でも､最初のでも最後が .jpgならそれに置換するから結果はだいたい同じかもね｡

ﾘｾｰﾙ京都買取さんのｺﾒﾝﾄ
うｰん｡ごめんなさい｡k2のままだとｴﾗｰがでてしまいました｡回答ありがとうございました｡

ﾘｾｰﾙ京都買取さんのｺﾒﾝﾄ
gong1971さんの解説通りかと思います｡ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[41],"".jpg"","""") & " & k2でとまってしまいました｡もう修正されなくて大丈夫ですからね｡ありがとうございました｡

▽2 ● gong1971
●100ﾎﾟｲﾝﾄ

ﾍﾞｽﾄｱﾝｻｰ

ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[41],"".jpg"","""")&""" & k2 & """"

k2は文字列変数なので""内に書いてしまうと､k2という固定の文字列で処理されてしまいます｡

-----
以下､補足｡

元の数式では､ ) の後の " が不要なのと､
k2 を固定文字列(""内)に入れているのが正しくないですね｡

きゃづみぃさんの回答と私の回答の違いですが､
きゃづみぃさんの回答では .jpg を入力した文字列で置換しているのに対し､
私の回答では､ .jpg を置換で消したあと､後ろに入力した文字列を連結しています｡

もし､AP列のｾﾙに .jpg が無かった場合､私の回答では強制的に入力した文字列を連結し､
きゃづみぃさんの回答では入力した文字が連結されません｡

ﾘｾｰﾙ京都買取さんのｺﾒﾝﾄ
完ぺきでした｡わかりやすい解説にも感謝します｡

▽3 ● oil999
●70ﾎﾟｲﾝﾄ

SUBSTITUTEはﾜｰｸｼｰﾄ関数なので､Application.WorksheetFunction.SUBSTITUTE のようにして呼び出します｡
それよりも Replace を使った方が簡単で､下記のようになります｡

Dim k2 As String
Dim r As Long

'行列の行が2からｽﾀｰﾄ
k2 = InputBox("文字列", Title:="特定の文字列を入れてください", Default:="")

For r = 2 To 16
 Cells(r, 1).Value = Replace(Cells(r, 42).Value, ".jpg", "") & k2
Next r

ﾘｾｰﾙ京都買取さんのｺﾒﾝﾄ
こちらも完ぺきでした｡しかもわかりやすく､助かりました｡元の質問に対しては､gong1971さんがより近いと思いますので､いるか賞はgong1971さんになりますが､感謝します｡