Ｐａｇｅ 645 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼SubTotalを目立たせるには 日高久雄 03/1/28(火) 9:47 ┣Re:SubTotalを目立たせるには パピー 03/1/28(火) 13:46 ┃ ┗Re:SubTotalを目立たせるには 日高久雄 03/1/28(火) 16:04 ┃ ┗やっぱり外していましたか。 パピー 03/1/29(水) 9:42 ┗Re:SubTotalを目立たせるには Jカーター 03/1/29(水) 10:01 ┗Re:SubTotalを目立たせるには 日高久雄 03/1/30(木) 12:52 ─────────────────────────────────────── ■題名 ： SubTotalを目立たせるには ■名前 ： 日高久雄 <hisao_hidaka@hotmail.com> ■日付 ： 03/1/28(火) 9:47 -------------------------------------------------------------------------
| ちょっと教えてください 下記のような構文でSubTotalを出したいのですが subtotalの書き込まれて行を太字にするとか cellを水色にするとか 或いは 第5列に小計と入れるとかして目立たせたいのですが どうすれば宜しいでしょうか？ Range("A2").Subtotal GroupBy:=12, Function:=xlSum, _ TotalList:=Array(6, 7, 8, 9), Replace:=False |
| こんにちは。 以下のコードを試して見て下さい。 質問の意を外していたらごめんなさい。 Range("A2").Font.Bold = True '太字にする Range("A2").Interior.ColorIndex = 8 'セルを水色にする |
| ▼パピー さん： すみません。RANGE("A2")のように 決まったCELLを扱うのでなく SUBTOTAL で挿入された行（位置が変動します）を扱いたいのですが。 >こんにちは。 >以下のコードを試して見て下さい。 >質問の意を外していたらごめんなさい。 > > Range("A2").Font.Bold = True '太字にする > Range("A2").Interior.ColorIndex = 8 'セルを水色にする |
| 日高さん、こんにちは。 やっぱり質問の意を外していましたか、失礼しました。 SubTotalの位置は最終行では無いのでしょうか？ 最終行なら、やり方もありますが・・・・ 途中行のようですね。 ごめんなさい。 |
| こんにちは。 >subtotalの書き込まれて行 数式のあるセルということなので 以下のコードで特定できると思います。 Sub test() Columns(5).SpecialCells(xlCellTypeFormulas).Select End Sub 的はずれならご容赦ください。 |
| ▼Jカーター さん： お返事有難う御座いました。 うまく行きました。 >こんにちは。 >>subtotalの書き込まれて行 >数式のあるセルということなので >以下のコードで特定できると思います。 > >Sub test() > Columns(5).SpecialCells(xlCellTypeFormulas).Select >End Sub > >的はずれならご容赦ください。 |