[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『あるセルが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.