ぺんろぐ

Windows、Webデザイン、ネット、ゲームなど中心とした気まぐれ更新ブログ。

[VBA]マウス等で選択したセルを操作(書式変更や計算)する方法

sen1.jpg
該当のセルをマウスで選択して、
その部分だけを書式変更。
そして何種類かの組み合わせにしたい
パターンをする作業というのは
仕事でも多々あると思います。

選択セルや、セル指定なら
VBAが記述できるんですが、
この場合だと、考えちゃうという方も多いんじゃないでしょうか。

そんな訳で今回は例として、マウスで選択した箇所を
赤文字、太文字にする時の記述のメモです。


Sub AkaFutoji()
  Dim x As Integer
  Dim Sentaku As Range

  Set Sentaku = Selection

  For x = 1 To Sentaku.Count
   '↓ここに選択セル内でやりたい事をかく!
   Sentaku.Cells(x).Font.Bold = True '←文字を太く!
   Sentaku.Cells(x).Font.ColorIndex = 3 '←文字を赤色に!
  Next

End Sub

スポンサードリンク

  1. 2012/12/11(火) 22:26:50|
  2. Excel & VBA
  3. | コメント:0

コメント

コメントの投稿

管理者にだけ表示を許可する

FC2Ad