|
今年の夏はめちゃめちゃ暑いですね。
犬のお散歩は、日が落ちてアスファルトが冷えてからいきましょう。
(肉球がやけどしちゃいますからね。)
ところで、久々の更新です・・
夏は職業柄忙しいもので・・すいません。 今回は、セルをいろいろ操作して見ます。 まず、セルA1に何か文字を入力しておいてください。 文字の色を変更する。
自動記録しすると・・・
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2001/6/18 ユーザー名 : れいぞー
'
'
Range("A1").Select
With Selection.Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
End Sub |
こうなります。
７行目
：セルＡ１を選択
８行目
：選択(Select)されている「Fontオブジェクト」に対して
９行目
：フォントの名前(Name)です。「ＭＳ Ｐゴシック」にする。
１０行目
：フォントのスタイル(FontStyle)です。今回の例では標準に設定しています。
１１行目
：フォントのサイズ(Size)です。11ポイントに設定。
１２行目
：取り消し線(Strikethrough)です。True の場合、水平な取り消し線を付けます。
１３行目
：上付き文字(Superscript)の設定。True の場合、対象となるフォントが上付き文字になります。
１４行目
：下付き文字(Subscript)の設定。True の場合、対象となるフォントは下付き文字になります。
１５行目
：OutlineFont プロパティは Windows
では無効なので、無視します。
１６行目
：Shadow プロパティもWindows で Font
を対象にするときは、このプロパティは無効なので、無視します。
１７行目
：フォントの下線(Underline)の種類をxlUnderlineStyleNoneに設定します。下の表の5種類の定数があります。
１８行目
：「ColorIndexプロパティー」の値をカラー
パレットのカラー
インデックス番号の３(赤)にする。
１９行目
：マクロ終了。
これも、こんな、長〜くなってますが、やはりシェイプアップすると１行で済んじゃいます・・
Range("A1").Font.ColorIndex = 3
セルの書式設定で記録しているので必要ないプロパティーまで再設定されちゃうんです。
しかし、これでフォントのほとんどの設定が可能になります。
フォントの名前
のみ変更 ：Range("A1").Font.Name = "ＭＳ Ｐゴシック"
フォントのサイズのみ変更 ：Range("A1").Font.Size=
36
というように、設定しなおしたいプロパティーだけ変更すればいいのです。
その他のプロパティーも試してみてください。 |
セルを結合する。
自動記録しすると・・・
Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2001/6/18 ユーザー名 : れいぞー
'
'
Range("A2:B2").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
End Sub |
こうなります。
７行目
：セルＡ２からＢ２を選択
８行目
：選択(Select)されている「Rangeオブジェクト」に対して
１０行目
：セルに入力されている内容の配置 (横位置
HorizontalAlignment) 下の表の8種類の定数があります。
１１行目
：セルに入力されている内容の配置 (縦位置
VerticalAlignment) 下の表の5種類の定数があります。
１２行目
：折り返し(WrapText)の設定。True の場合、セル内の文字列を列幅で折り返します。
１３行目
：セルに入力されている内容の角度(Orientation)を設定します。(-90から90の値)
１４行目
：True の場合、セル内での文字列の配置が均等に設定されていると、前後に余分なスペースを挿入します。
１５行目
：True
の場合、使用可能な列幅に収まるように自動的に文字列を縮小します。
１６行目
：Trueの場合、選択範囲のセルを結合します。(やりたかったのはこれだけです。) もう、おわかりのように、自動記録は、必要ないものがたくさん記録されてしまいます。
ですから、必要なものを探して、シェイプアップしてあげればコードもすっきり見やすくなります。
セル結合の場合も１行になります。
Range("A2:B2").MergeCells = True Underline
| 定数 |
意味 |
| xlUnderlineStyleNone |
下線なし |
| xlUnderlineStyleSingle |
１本の下線 |
| xlUnderlineStyleDouble |
２本の下線 |
| xlUnderlineStyleSingleAccounting |
１本の下線でセルの幅の長さの線 |
| xlUnderlineStyleDoubleAccounting |
２本の下線でセルの幅の長さの線 |
HorizontalAlignment
＆ VerticalAlignment
| 定数(横位置) |
定数(縦位置) |
意味 |
| xlHAlignCenter |
xlVAlignCenter |
中央揃え |
| xlHAlignDistributed |
xlVAlignDistributed |
均等割り付け |
| xlHAlignJustify |
xlVAlignJustify |
両端揃え |
| xlHAlignLeft |
|
左詰め(インデント) |
| xlHAlignRight |
|
右詰め |
| xlHAlignCenterAcrossSelection |
|
選択範囲内で中央 |
| xlHAlignFill |
|
繰り返し |
| xlHAlignGeneral |
|
標準 |
| |
xlVAlignBottom |
下詰め |
| |
xlVAlignTop |
上詰め |
今回は前回に引き続きセルを操作してみました。
セルをいじくっているうちにシェイプアップもやってしまいました。
大体、ほとんどの機能は、自動記録で再現できます。いろいろ試してみてください。
次回は自動記録ではできない「VBAらしい」ことをやってみたいと思います。
|
