Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


33474 / 76738 ←次へ | 前へ→

【48481】Re:セル内での改行付加
発言  ichinose  - 07/4/18(水) 22:24 -

引用なし
パスワード
   ▼川崎 さん:
こんばんは。

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


'========================================================
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

1 hits

【48473】セル内での改行付加 川崎 07/4/18(水) 18:04 質問
【48481】Re:セル内での改行付加 ichinose 07/4/18(水) 22:24 発言
【48491】Re:セル内での改行付加 川崎 07/4/19(木) 9:46 お礼

33474 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free