Excel VBA質問箱 IV

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

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


5865 / 13645 ツリー ←次へ | 前へ→

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

【48473】セル内での改行付加
質問  川崎  - 07/4/18(水) 18:04 -

引用なし
パスワード
   セル内で特定文字が見つかったら、改行するマクロを作成したいのですが、
いい方法を教えていただけないでしょうか?
基本的なことで申し訳ありませんがよろしくお願いします。

<前>
 項目1項目2

<後>項目という文字が見つかったら改行させる。
 項目1
 項目2

【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

【48491】Re:セル内での改行付加
お礼  川崎  - 07/4/19(木) 9:46 -

引用なし
パスワード
   ▼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

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