テキスト挿入

解決

---

EXCELデータにマクロを使い特定のセルのデータにテキストを挿入したいのですがVBAではどの様に記述したらよいでしょうか
例  A1セルの"9999"データの頭にに"Y99="を挿入してY99=9999とするような場合。（開くデータによりA1セルの値が異なります）
超初心者な質問で申し訳ないのですが、ご教示頂けますでしょうか？

編集 削除

---

ActiveSheet.Range("A1").value = "Y99=" & ActiveSheet.Range("A1").value

で、いいのかな？

編集 削除

---

いなさん  ありがとうございました！

あまりにも初心者な質問で恐縮だったのですが、分からなくて困っていました。どうもありがとうございました。
そこで、もう一つ質問なのですが既にY99=9999となっているデータのY99=の部分のみY89=におきかえてY89=9999とする場合にはどうしたら良いのでしょうか？

編集 削除

---

Replace 関数を調べてみて下さい。

編集 削除

---

ReplaceはExcel97では使用できないので、
まずはExcelのバージョンを教えてください。

--ま、自前で
Public Function fReplaceChar(ByVal vExpr As String, ByVal vFind As String, ByVal vRepl As String) As String

    Dim sResult As String
    Dim iStart As Long
    Dim iPos As Long
    Dim iLen As Long

    iLen = Len(vFind)
    If iLen = 0 Then
        fReplaceChar = vExpr
        Exit Function
    End If

    iStart = 1

    Do
        iPos = InStr(iStart, vExpr, vFind)
        If iPos = 0 Then
            fReplaceChar = sResult & Mid$(vExpr, iStart)
            Exit Do
        End If

        sResult = sResult & Mid$(vExpr, iStart, iPos - iStart) & vRepl
        iStart = iPos + iLen
    Loop

End Function
こんな感じの関数を用意してみるのも良いでしょう。

編集 削除

---

いなさんへ

私にはむずかしーです。
とりあえず今回はテキスト挿入は解決しましたので、もう少し勉強してお問い合わせしようと思います。

どうもありがとうございました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。