Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

66030 / 76734

←次へ　｜　前へ→


	【15270】Re:改段落表示について

Jaka - 04/6/18(金) 14:04 -


	引用なし

	パスワード

関数にこだわってたんで、だんだんマクロの必要性に疑問が....。
手作業で関数を書き込んでフィルドラッグで十分な気もしてきました。

Sub ドレミ天国()
Dim MRo As Variant, ERo As Long, KKS As String
Dim KS1 As String, KS2 As String, KS3 As String, KS4 As String
MRo = Application.Match("No1", Rows(1), 0)
If IsError(MRo) Then MsgBox "No1がありません。": End
ERo = ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Count).Row
KS1 = "=RC[1]&IF(RC[2]="""","""",IF(AND(COUNTA(RC[1]:RC[1])>0,RC[2]<>""""),CHAR(10),"""")"
KS2 = "&RC[2])&IF(AND(COUNTA(RC[1]:RC[2])>0,RC[3]<>""""),CHAR(10),"""")"
KS3 = "&RC[3]&IF(AND(COUNTA(RC[1]:RC[3])>0,RC[4]<>""""),CHAR(10),"""")&RC[4]"
KS4 = "&IF(AND(COUNTA(RC[1]:RC[4])>0,RC[5]<>""""),CHAR(10),"""")&RC[5]"
KKS = KS1 & KS2 & KS3 & KS4
With Range(Cells(2, MRo - 1), Cells(ERo, MRo - 1))
　　.VerticalAlignment = xlTop
　　.WrapText = True
　　.FormulaR1C1 = KKS
　　.Rows.AutoFit
End With
End Sub

3 hits

▼

【15066】改段落表示について さき 04/6/14(月) 20:07