|
▼川崎 さん:
こんばんは。
>セル内で特定文字が見つかったら、改行するマクロを作成したいのですが、
>いい方法を教えていただけないでしょうか?
>基本的なことで申し訳ありませんがよろしくお願いします。
新規ブックの標準モジュールに
'========================================================
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
|
|