|
▼ぱっせんじゃー さん:
ありがとうございます。
申し訳ないですが,もう少しお付き合い願えないでしょうか?
ヘルプを参考に(というより殆どそのままですが・・・)作成してみました。
私の理解が正しいか確認していただけないでしょうか?
Sub CellCenter2()
With Worksheets(1).Range("a1:e10")
Set c = .Find("-", LookIn:=xlValues)
'"-"のセルの検索&cへの代入
If Not c Is Nothing Then
'検索セルがないことがなく(要するにある時)以下を実施
firstAddress = c.Address
'アドレスの取得
Do
c.HorizontalAlignment = xlCenter
'中央揃え
Set c = .FindNext(c)
'検索の継続
Loop While Not c Is Nothing And c.Address <> firstAddress
'検索セルがあり,最初のアドレスと次のアドレスが一致しなくなるまで繰り返す
End If
End With
End Sub
こういうことでしょうか?
|
|