| |
▼γ さん：
For Each ...Nextを使ったらできた気がします。
ありがとうございます。
結構時間がかかってしまうのは仕方がないですかね？
Sub Macro1()
Dim c As Range
For Each c In Selection
If Len(c) > 1 Then
With c
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Else
With c
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End If
Next c
End Sub
>条件付き書式で対応可能ですが、
>あえてマクロなんですね？
>
>詰まっているのはどこですか？
>まず1セルではできますか？
>文字列の長さはLen関数です。
>書式変更はマクロ記録を活用してください。
>
>選択範囲のそれぞれに対して実行するには
>For Each ...Next を使います。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
