| |
▼ぱっせんじゃー さん：
ありがとうございます。
申し訳ないですが，もう少しお付き合い願えないでしょうか？
ヘルプを参考に（というより殆どそのままですが･･･）作成してみました。
私の理解が正しいか確認していただけないでしょうか？
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
こういうことでしょうか？
|
|
多摩川
- 07/8/24(金) 16:15 -
