|
▼ichinose さん:
ありがとうございます。
2番目のコーディングがよさそうです。
簡単にできるんですね。
助かりました。
>▼川崎 さん:
>こんばんは。
>
>>セル内で特定文字が見つかったら、改行するマクロを作成したいのですが、
>>いい方法を教えていただけないでしょうか?
>>基本的なことで申し訳ありませんがよろしくお願いします。
>新規ブックの標準モジュールに
>
>
>'========================================================
>Sub sample()
> Dim mystr As String
> Columns("A:A").ColumnWidth = 30
> Range("a1").Value = "項目1項目2"
> MsgBox "初期入力"
> mystr = Range("a1").Value
> Range("a1").Value = Replace(mystr, "項目", vbLf & "項目")
>'><後>項目という文字が見つかったら改行させる。
>'という仕様なら、本来は↑だと思いますが・・・、
>
> MsgBox "確認して"
> Range("a2").Value = "項目1項目2"
> MsgBox "初期入力"
> mystr = Range("a2").Value
> Range("a2").Value = Mid(mystr, 1, 1) & Replace(mystr, "項目", vbLf & "項目", 2)
>' ↑こっちですか?
>End Sub
|
|