メインコンテンツへスキップ

Excelのセル値に基づいてフォントサイズをすばやく変更するにはどうすればよいですか？

docは値7に基づいてフォントサイズを変更します
Excelでは、セルのフォントサイズを必要に応じて変更できますが、下のスクリーンショットに示すように、別の列の値に基づいてセルのフォントサイズを変更しようとしたことがありますか？ この記事では、Excelのセル値に基づいてフォントサイズをすばやく変更するのに役立つVBAコードをいくつか紹介します。
別の列の値に基づいてフォントサイズを変更する

セルの値と文字の長さに基づいてフォントサイズを変更する

矢印青い右バブル 別の列の値に基づいてフォントサイズを変更する

別の列の値に基づいてフォントサイズを変更するには、VBAコードが役立ちます。

1.別の列に基づいてフォントサイズを変更するシートに移動し、を押します Altキー+ F11 同時に開くキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール、次にVBAの下に貼り付けます モジュール。 スクリーンショットを参照してください：

VBA：別の列の値に基づいてフォントサイズを変更する

Sub fontchange()
'UpdatebyExtendoffice20160614
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select cells that you want to change font size:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "Only can select one column", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Font.Size = xCell.Offset(, 1).Value
    Next
    Application.ScreenUpdating = True
End Sub

docは値2に基づいてフォントサイズを変更します

3。 押す F5 キーを押すと、ダイアログが表示され、フォントサイズを変更するセルを選択します。 スクリーンショットを参照してください：
docは値3に基づいてフォントサイズを変更します

4。 クリック OK、次に、選択した列のセルは、列の横の値に基づいてフォントサイズが調整されています。
docは値4に基づいてフォントサイズを変更します

矢印青い右バブル セルの値と文字の長さに基づいてフォントサイズを変更する

一方、セル自体の値または文字の長さに基づいてフォントサイズを変更する場合、たとえば、セルの値が10より大きい場合、または文字の長さが5より大きい場合、フォントサイズは16に変更されます。以下のスクリーンショットに示すように、フォントはArialに変更されます。それ以外の場合、フォントサイズは11、フォントはCalibriです。
docは値5に基づいてフォントサイズを変更します

1。 押す Altキー+ F11 有効にするキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール、以下のコードをに貼り付けます モジュール 脚本。 スクリーンショットを参照してください：

VBA：セル値または文字長に基づいてフォントサイズを変更します

Private Sub Worksheet_Calculate()
'UpdatebyExtendoffice20160614
    Dim xCell As Range
    For Each xCell In Range("G2:H9")
        With xCell
            If Len(.Text) > 5 Or Val(.Value) > 10 Then
                .Font.Name = "Arial"
                .Font.Size = 16
            Else
                .Font.Name = "Calibri"
                .Font.Size = 11
            End If
        End With
    Next
End Sub

 

docは値6に基づいてフォントサイズを変更します

3。 押す F5 コードを実行するためのキーであり、10より大きい値、または文字長が5より大きい値は、フォントがArialに、フォントサイズが16に変更されています。

ヒント： 上記のコードでは、必要に応じて範囲G2：B9を他のコードに変更できます。

最高のオフィス生産性向上ツール

🤖 Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行   |  コードを生成  |  カスタム数式の作成  |  データを分析してグラフを生成する  |  Kutools関数を呼び出す...
人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup  |   複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー   |  ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化   |  リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット:  12 テキスト ツール (テキストを追加, 文字を削除する、...）   |   50+ チャート 種類 (ガントチャート、...）   |   40+ 実用的 式 (誕生日に基づいて年齢を計算する、...）   |   19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...）   |   12 変換 ツール (数字から言葉へ, 通貨の換算、...）   |   7 マージ＆スプリット ツール (高度な結合行, 分割セル、...）   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

説明

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations