web-dev-qa-db-ja.com

Excel VBA：アクティブセルを太字にする機能

モジュール内に次の機能があります。

Function Colorize(myValue)
    ActiveCell.Select
    Selection.Font.Bold = True
    Colorize = myValue
End Function

この関数を使用するセルは太字になっているはずです-ただし、エラーメッセージは表示されず、悲しくも本当ですが、太字になりません。私は何が欠けていますか？

ありがとう

vbaexcel-vbaexcel-2007excel
13
Shyam

UDFは、セル/シート/ワークブックのプロパティを変更できない値のみを返します。プロパティを変更するには、コードをWorksheet_Changeイベントなどに移動します。

例えば

Private Sub worksheet_change(ByVal target As Range)
  target.Font.Bold = True
End Sub
22
osknows

私が使う

            chartRange = xlWorkSheet.Rows[1];
            chartRange.Font.Bold = true;

first-row-cells-fontを太字に変更します。そして、それは機能し、Excel 2007も使用しています。

VBAで直接呼び出すことができます

            ActiveCell.Font.Bold = True

このコードを使用して、アクティブなセルに太字フォントと黄色の背景を持つタイムスタンプを作成します

           Private Sub Worksheet_SelectionChange(ByVal Target As Range)
               ActiveCell.Value = Now()
               ActiveCell.Font.Bold = True
               ActiveCell.Interior.ColorIndex = 6
           End Sub
1
Dev.Jaap