| |
▼川崎 さん：
こんばんは。
>セル内で特定文字が見つかったら、改行するマクロを作成したいのですが、
>いい方法を教えていただけないでしょうか？
>基本的なことで申し訳ありませんがよろしくお願いします。
新規ブックの標準モジュールに
'========================================================
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
