Excelのセルでの配置です。

あるセルに文字が入力されてるとします。その内容によって、配置を換えたい場合はどうするのでしょうか?条件付き書式では文字色とかは変えられるようですが、配置（中央表示、右側表示など）は変えられるんでしょうか?出来るんであれば教えて下さい。

No.3 ベストアンサー 回答者： ママチャリ 回答日時： 2016/03/19 10:58

残念ながら、条件付き書式では無理そうです（配置に関数する項目がありません）。

どうしても必要であれば、VBAでマクロを組むことになると思います。
下記にサンプルを記しましたので、理解できるようであれば、お試しください。

次のコードをWorksheet_Changeイベントプロシジャにコピーします。
このマクロは、特定の書式設定がされているセルだけを対象に、入力された値が文字であれば左寄せ、数字であれば右寄せ（通常と逆です）に設定します。
特定の書式設定とは、表示形式-ユーザー定義の種類で、”?” となっているセルです。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim t As Range
For Each t In Target
If t.NumberFormatLocal = "?" Then
If IsNumeric(t.Value) Then
t.HorizontalAlignment = xlLeft
Else
t.HorizontalAlignment = xlRight
End If
End If
Next
End Sub

この回答へのお礼

回答有り難う御座います。回答のコードを参考に何とか出来ました。
Private Sub Worksheet_Calculate()

Call 出力調整(Worksheets("個人明細").Range("e14:e18"))


End Sub

Private Sub 出力調整(ByVal Target As Range)

Dim t As Range
'Dim target As Range

'target = Worksheets("個人明細").Range("e14:e18")
For Each t In Target
If t.Offset(0, -1).NumberFormatLocal = "# ?/?" Then
If t.Value = 0 Then
t.Offset(0, -1).HorizontalAlignment = xlRight
Else
t.Offset(0, -1).HorizontalAlignment = xlLeft
End If
End If
Next

End Sub

お礼日時：2016/03/19 21:07

No.4 回答者： mike_g 回答日時： 2016/03/19 13:01

[No.2お礼]へのコメント、

》 添付図を見ることが出来ませんでした
貴方は、添付図を見れない端末で[教えて!goo]にアクセスしている、ということですか？

この回答へのお礼

回答有り難う御座います。ネットの状態が悪くてかどうかわかりませんが、今は見ることが出来ます。質問の仕方が悪かったかも知れません。出来れば、関数を埋め込んで、セルの状態をExcelに判断させたかったんです。目で見て判断して、配置を決めるのでは、データがおい時は大変ですからね。

お礼日時：2016/03/19 21:23

No.2 回答者： mike_g 回答日時： 2016/03/19 10:57

→添付図

この回答へのお礼

回答有り難う御座います。残念ですが、添付図を見ることが出来ませんでした。

お礼日時：2016/03/19 11:49

No.1 回答者： やにさん 回答日時： 2016/03/19 09:27

ぶっーにコピペ

一番左のコピペで全。
左から二番目だと文字のみ。

この回答へのお礼

回答有り難う御座います。一つ一つセルをチェックして、左に寄せる又は右に寄せるをすれば、それはそれで1つの回答ですがせっかく埋め込み関数とかがあるので、それを使うと言うことですが、答えを誤解してるかも知れません。(@_@)

お礼日時：2016/03/19 11:53