Excel VBA質問箱 IV

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

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


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

30987 / 76732

←次へ　｜　前へ→


	【51004】Re:セルの中央揃えについて

多摩川 - 07/8/24(金) 16:15 -


	引用なし

	パスワード

▼ぱっせんじゃーさん：

ありがとうございます。
申し訳ないですが，もう少しお付き合い願えないでしょうか？

ヘルプを参考に（というより殆どそのままですが･･･）作成してみました。
私の理解が正しいか確認していただけないでしょうか？

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

こういうことでしょうか？

3 hits

▼

【51000】セルの中央揃えについて 多摩川 07/8/24(金) 15:40