advanced help
per page, with , order by , clip by
Results of 1 - 1 of about 406 for kazu 条件付書式 (0.004 sec.)
kazu (7745), 条件付書式 (2647)
[[20020713222848]]
#score: 6689
@digest: 4aba9de8519206bf483d6ffc229d2e4f
@id: 316
@mdate: 2003-05-04T15:01:52Z
@size: 3039
@type: text/plain
#keywords: 更含 (15630), cellsetbold (15368), 常書 (11255), cellsetbold2 (7815), cellsetbold3 (7815), 中模 (6766), 暗中 (6766), 更先 (5341), ル太 (4054), ク" (3841), ゴシ (3134), e1qw (3133), 太字 (2955), font (2796), シッ (2570), ズ変 (2367), トサ (2240), ルa1 (2190), size (1638), sheets (1635), ロ? (1483), イズ (1427), ト3 (1410), ぁぁ (1293), cells (1146), cel (1115), 模索 (1060), は○ (966), サイ (951), ォン (871), ーー (806), sheet1 (755)
『あるセルが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 ---- ありがとうございました がんばってみます (はな) ---- できましたぁぁぁぁぁ!!! ありがとうございましたーーー (はな) ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200207/20020713222848.txt - [detail] - similar
PREV NEXT
Powered by Hyper Estraier 1.4.13, with 96861 documents and 607997 words.

訪問者:カウンタValid HTML 4.01 Transitional