EXCELの条件付書式、IF関数につきまして。

質問

お世話になります。
EXCELで一つの行において、計という文字が含まれるものだけ
セルの右端に表示させる方法をお教えいただきたく。
それ以外は左端に表示。
現在は全てセルの左端揃いで文字が表示されております。
条件付書式、IF関数などを利用することによって可能でしょうか？
どうぞよろしく御願い申し上げます。

回答No.2

wisemac21 · ベストアンサー

編集の検索で検索する文字列に「*計*」と入力し、[すべて検索]ボタンをクリックする。
次に、ショートカットキー Ctrl＋A を操作すると、計の含まれるセルがすべて選択されるので、書式設定ツールバーの右揃えをクリックする。

回答No.3

nac03056

条件付き書式でできないか考えてみたのですが、右寄せの処理はどうにもなりません。気休めですが、書式をユーザー定義で「;;;" "@」としてスペース分だけ右に寄せてみました。
別セルでＩＦ関数を使って表示させるのであれば、文字数を調べて必要な数だけ頭にスペースを加えるということで対処できるかもしれません。あとは他の方が答えているような都度手動かＶＢＡの出番ですね。

回答No.1

tom04

こんにちは！
条件付書式で可能かどうかは判りませんが・・・

VBAでの一例です。

画面の左下にあるSheet見出しの操作したいSheet見出し上で右クリック　→　コードの表示
VBE画面が表示されますので、↓のコードをコピー＆ペーストしてマクロを実行してみてください。

Sub test()
Dim i, j As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To Cells(i, Columns.Count).End(xlToLeft).Column
If Cells(i, j) Like "*計*" Then
Cells(i, j).HorizontalAlignment = xlRight
Else
Cells(i, j).HorizontalAlignment = xlLeft
End If
Next j
Next i
End Sub

尚、一旦マクロを実行すると元に戻せませんので別Sheetにコピー＆ペーストしてマクロを試してみてください。

質問文に
＞現在は全てセルの左端揃いで文字が表示されております
とありますので、コード内の
Else
Cells(i, j).HorizontalAlignment = xlLeft
の2行は不要かもしれません。

他に良い方法があればごめんなさいね。m(__)m