ＥＸＣＥＬのマクロでｃｅｌｌ単位で右揃えや中央揃えをする方法？

ＥＸＣＥＬで，簡単なカード型ＤＢを作りたいので
以下のような一覧シートを作るマクロを作ったのですが
list_sheetのそれぞれのcellに，右揃えとか，中央揃えとかを設定したいのです
一度マクロを動かして，作成後の一覧シートに書式設定で右揃えとかしても，
もう一度マクロ起動すると元にもどってしまいます
どなたかよい方法を教えてください
以下は，自作マクロの一部です
cnt = 0
For ix = 1 To Worksheets.Count
Set now_sheet = Worksheets(ix)
If now_sheet.Name <> "一覧" And InStr(1, now_sheet.Name, "Sheet") <> 1 Then
cnt = cnt + 1
list_sheet.Cells(LINE_OFFSET + cnt, AUTHOR_COLUMN) = now_sheet.Cells(5, 6)
list_sheet.Cells(LINE_OFFSET + cnt, DATE_COLUMN) = Format(now_sheet.Cells(5, 2), "yyyy/mm/dd")
End If
Next ix

No.1 ベストアンサー 回答者： maruru01 回答日時： 2002/11/12 11:04

こんにちは。

maruru01です。

つまり、マクロ起動前後で位置揃えを保持したいということでしょうか。

それなら、
セルの設定変更前に、位置揃えを格納しておき、設定変更後に位置揃えをし直せばいいのではないでしょうか。


Dim temp As Integer

temp = now_sheet.Cells(5, 6).HorizontalAlignment

～セルに対する処理～

now_sheet.Cells(5, 6).HorizontalAlignment = temp


という感じで。

この回答へのお礼

大変参考になりました
HorizontalAlignment っていう プロパティ名がキーだったんですね
HorizontalAlignment でｗｅｂ検索したら以下の設定値も見つかりました
.HorizontalAlignment = xlHAlignCenter
.HorizontalAlignment = xlHAlignRight
.HorizontalAlignment = xlHAlignLeft
ありがとうございました

お礼日時：2002/11/12 11:26