1297746359 【エクセル2003】

A1~FC1に文字が入力されています。
任意の文字10文字までを指定(入力画面とか何かで)任意に入力すると
A1~FC1に入力されている全ての文字の頭に、指定した文字が付される
ようにするマクロ・VBA・関数などどれでも構いませんので教えて下さい。
画像を参考にして下さい。

文字だけでなく数字、スペース(半角全角含む)、記号なども対照です。

EX)追加したい文字「はてな」とした場合、 「はてな氏名」。「はてな住所」など

回答の条件
  • 1人1回まで
  • 登録:
  • 終了:2011/02/15 15:15:25
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

回答2件)

質問者が未読の回答一覧

 回答者回答受取ベストアンサー回答時間
1 jan8 456 204 96 2011-02-15 14:29:55
2 SALINGER 3454 2392 969 2011-02-15 14:37:30
  • id:taknt
    Sub test()
    Do While 1
    a = InputBox("付与したい文字列は?")
    If Len(a) > 10 Then
    MsgBox ("10文字以下にしてね。")
    Else
    Exit Do
    End If
    Loop

    For b = 1 To 159
    Cells(1, b) = a & Cells(1, b)
    Next b
    End Sub
  • id:SALINGER
    10文字以内っていうのを読み飛ばしたのでオープンしなくていいです。
    でも、いつからここ回答欄になったっけか。
  • id:jan8
    急いで回答し、10文字までの文字列に制限する要件を実装し忘れました。すいません。
  • id:msvista
    私の質問の仕方がマズかったですかね。
    もう一度、再考してから質問しなおします。

    オープンにしないで・・・とのことですので
    一旦、キャンセルさせていただきます。

    またよろしくお願いします。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません