[[20020713222848]] 『あるセルが1なら通常書式にするマクロ?』(はな) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『あるセルが1なら通常書式にするマクロ?』(はな)

たとえば、あるセルの値が 1 なら 通常書式

@ なら太字にしてポイント数の変更をしたい

というマクロって組めますか?

どなたか教えてください


 条件付書式って聞いたことがありませんか?

 エクセルの学校(e1qw)条件付き書式

http://www.excel.studio-kazu.jp/lib/e1qw/e1qw.html

 を見てください。


 条件付書式だとフォントサイズはかえられませんよね?

 セルA1の値が「1」であればフォントサイズ11 スタイル標準

 「@」であればフォントサイズ14 スタイル太字 にしたいのですが。。。。

 マクロも覚えたてで、暗中模索というじょうたいなのですが

 マクロに関数を組み込むっていうことはできないのでしょうか?

 (はな)


 マクロの勉強なら話は別です。アクティブシートのセルA1からD4までの範囲で

 セルの値が1のもののFONTサイズを14ポイントにして太字にするには下のように

 します(一つの例です)。

 Sub CellSetBold()

 For Each cel In Range(Cells(1, 1), Cells(4, 4))

     If cel.Value = "1" Then

         cel.Font.Name = "MS Pゴシック"

         cel.Font.Size = 14

         cel.Font.Bold = True

     End If

 Next

 End Sub

 (kazu)


 ありがとうございます

 例えば、シート3のA1の値が「1」だった時はシート1のA1が「@」(サイズ変更含む)

 「2」だった時はシート1のB1が「A」(サイズ変更含む)

 という場合は上のようなマクロをいくつか組み合わせれば良いということですか?

 (はな)


 前回のCellSetBoldはセル範囲で変更する形でしたが、変更先が限られたセルなら

 もう少し簡単です。

 (私が機種依存文字の○数字を書くわけにはゆかないので、

 AAは○数字の1にして、BBは○数字の2に変更して使ってください)

 (kazu)

 Sub CellSetBold2()

     If sheets("Sheet3").cells(1,1).Value = "1" Then

         sheets("Sheet1").cells(1,1).Value = "AA"

         sheets("Sheet1").cells(1,1).Font.Name = "MS Pゴシック"

         sheets("Sheet1").cells(1,1).Font.Size = 14

         sheets("Sheet1").cells(1,1).Font.Bold = True

     End If

     If sheets("Sheet3").cells(1,1).Value = "2" Then

         sheets("Sheet1").cells(1,2).Value = "BB"

         sheets("Sheet1").cells(1,2).Font.Name = "MS Pゴシック"

         sheets("Sheet1").cells(1,2).Font.Size = 14

         sheets("Sheet1").cells(1,2).Font.Bold = True

     End If

 End Sub


 とっても初歩的なことでごめんなさい

 cells(1,1).Value = "1" Thenっていうのは

 セルA1が1の時って言うことですよね

 では 1 ではない時っていうのはどういう風に入力すれば良いんですか?

 (はな)


 シート3のセルA1が1のときシート1のセルA1をAAにする、

 シート3のセルA1が1ではないときシート1のセルB1をXXにするには

 下のように書きます。

(kazu)

 Sub CellSetBold3()

     If sheets("Sheet3").cells(1,1).Value = "1" Then

         sheets("Sheet1").cells(1,1).Value = "AA"

         sheets("Sheet1").cells(1,1).Font.Size = 12

     Else

         sheets("Sheet1").cells(1,2).Value = "XX"

         sheets("Sheet1").cells(1,2).Font.Size = 14

     End If

 End Sub


 ありがとうございました

 がんばってみます

 (はな)


 できましたぁぁぁぁぁ!!!

 ありがとうございましたーーー

 (はな)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.