0

目盛りの代わりに十字「X」を追加する方法はありますか。チェックボックスで。? 助けてください。

4

3 に答える 3

1

Gary の Student の提案に基づいて、次のハックを思いつきました。

  • セルのサイズを小さな正方形にする
  • 次のようにフォーマットします。
    • テキストを中央揃え (水平および垂直)
    • 上と左の境界線は濃い灰色、下と右の境界線は薄い灰色
  • ワークシートのグリッド線を非表示にする
  • セルを含むワークシートのモジュールに次のコードを配置します。

    Option Explicit
    
    Private mRngOld As Range
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim rng As Range
        Set rng = Range("B2")
    
        If Application.Intersect(Target, rng) Is Nothing Then
            Set mRngOld = Target
            Exit Sub
        End If
    
        If rng.Value = "X" Then
            rng.Value = "-"
        Else
            rng.Value = "X"
        End If
    
        If Not mRngOld Is Nothing Then mRngOld.Select
    End Sub
    

ここでセル (例では ) をクリックすると、とB2が切り替わります。X-

これはどのように見えるかです:

スクリーンショットの例

サンプルワークブックへのリンクは次のとおりです。

于 2013-10-28T19:12:44.590 に答える
0

申し訳ありませんが、Excel の ActiveX チェックボックスはそのような機能をサポートしていません。

于 2013-10-28T14:51:10.257 に答える
0

wingding を使用し、小文字の o と x を使用できます。開いたボックスを印刷する小文字の o。小文字の x と x が入ったボックスを表示します。

于 2014-12-16T20:38:10.647 に答える