|
でんさん、こんにちは〜
見てくれてありがとー
私も、万年初心者なんで、いつも皆さんから教わっています。
お互い頑張りましょー!
Jaka さん、こんちゃ。
>全然質問を読んでいませんけど、これ使えません?
>これなら複数のセルを変えられます。
>でも、取得等はダメみたいです
>
>Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> 'MsgBox Target.Cells.Font.Name 'ダメ使えません。
> MsgBox ActiveCell.Font.Name
> Target.Cells.Font.Name = "MS ゴシック"
> Target.Cells.Font.ColorIndex = 3
>End Sub
>
「Target.Cells.」やったら、一度に設定出来るんですね。
でも、「元のフォントが明朝だったら」という変更・・・のようなんで、
やっぱり、1つずつフォント名を取得しながらしないとダメなんじゃないかなー?
向井さん出てきてくんないから、わかんないけど。
>まるっきり別な話ですが、範囲を小さくしてテストしている所が、かわゆくて笑えました。
>For Each CL In Range("C1:D20")
> ↓
>For Each CL In Range("C1:D3")
え?そ、それって、ボクのんでした?
そーいえば、そんなことしたような(^^;
だって、範囲が広かったら、テストデータ入力すんの面倒で・・・
|
|