B列に数字を入力してもらうリストを作っています。
セルの書式設定→表示形式→ユーザー定義で、自動的に単位を表示させるようにしようとしたのですが、
セルA1に0が入っている場合、B列に表示される単位を"人"
セルA1に1が入っている場合、B列で表示される単位を"チーム"
と、同シート内の他セルを参考に、表示単位を変えたいのですが、出来るのでしょうか？
[=A1=0]###"人";[=A1=1]###"チーム";### では無効なようですし、[=0]###"人";[=1]###"チーム";### だと、そのセルに入力された数値が条件になってしまうので、使えませんでした。
投稿日時 - 2009-01-08 11:57:48
２００７なら条件付き書式設定で可能ですが、２００３はＶＢＡでないと不可能です。
参考にＶＢＡサンプルを追記しますのでお試し下さい。
（１）仮にSheet1として、sheet1タブを右クリック→コード表示→ＶＢＥ画面も右上側に以下のコードを貼り付け→ａｌｔ＋Ｆ４（ＶＢＥ終了）
因みに書式切り分けは１＝？？人、２＝？？チームとしています
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Select Case Target.Value
Case 1
Worksheets("sheet1").Columns("B:B").NumberFormat = "##0人"
Case 2
Worksheets("sheet1").Columns("B:B").NumberFormat = "##0チーム"
End Select
End Sub
投稿日時 - 2009-01-08 13:33:47
お礼
回答ありがとうございます。
導入方法も詳しく書いてくれたおかげで、無事やりたい動作が出来るようになりました。
マクロにはあまり詳しくなかったのですが、これを機に勉強してみたいと思います。
投稿日時 - 2009-01-08 15:11:10
0人が「このQ&Aが役に立った」と投票しています
ベストアンサー以外の回答（1件中 1～1件目)
