エクセル97のVBAで、下記の様にセル"A1"と"B1"を結合し、文字配置を
均等割り付けにしたセルの文字配置に"前後にスペースを入れる"を
くわえたいのですが?又、文字制御に"折り返して全体を表示する"も
行いたいのですが?教えてください。


Range("A1:A2").Merge
Range("A1:A2").HorizontalAlignment = xlHAlignDistributed
Range("A1:A2").VerticalAlignment = xlVAlignCenter
Cells(1, 1).Value = "テスト123456789"
Cells(1, 1).Font.Name = "MS 明朝"
Cells(1, 1).Font.Size = 10

このQ&Aに関連する最新のQ&A

A 回答 (2件)

こんにちは。


ただ、書式設定をしただけですが、参考になれば幸いです。

Range("A1:A2").Select
With Selection
.HorizontalAlignment = xlDistributed
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = True
.ShrinkToFit = False
.MergeCells = True
End With
    • good
    • 0
この回答へのお礼

ありがとうございます。
参考になりました。

お礼日時:2001/06/19 13:04

' 前後にスペースを入れる?


Cells(1, 1).Value = " " & Cells(1, 1).Value & " "

' 折り返して全体を表示する
Cells(1, 1).WrapText = True

※動作未確認
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング

おすすめ情報