Note: The other languages of the website are Google-translated. Back to English

Excelでダブルクリックしてセルにチェックマークを追加するにはどうすればよいですか?

通常、セルにチェックマークを挿入するには、[記号]ダイアログボックスに移動し、チェックマーク記号を見つけて手動で挿入する必要があります。 ただし、内部には多数の記号がリストされているため、[記号]ダイアログボックスでチェックマーク記号を見つけるのはそれほど簡単ではありません。 Excelのセルにチェックマークをすばやく追加するにはどうすればよいですか? この記事では、ダブルクリックするだけでセルにチェックマークを簡単に追加するVBAメソッドを紹介します。

ダブルクリックして、VBAコードのあるセルにチェックマークを追加します


ダブルクリックして、VBAコードのあるセルにチェックマークを追加します

次のVBAコードは、ダブルクリックしてセルにチェックマークを追加するのに役立ちます。 次のようにしてください。

1.セルにチェックマークを追加するために必要なワークシートを開き、右クリックして選択します コードを表示 右クリックメニューから。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウで、以下のVBAコードをコピーして コード 窓。

VBAコード:ダブルクリックしてセルにチェックマークを追加します

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

注意:コードでは、B1:B10は、ダブルクリックでチェックマークを追加する範囲です。 必要に応じて変更してください。

3。 プレス 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic ウィンドウを開き、ワークシートに戻ります。

ここで、範囲B1:B10のセルをダブルクリックすると、チェックマークが自動的に入力されます。 セルをもう一度ダブルクリックすると、挿入されたチェックマークが削除されます。

Excelの日常業務でチェックマークを頻繁に使用する必要がある場合は、ここで 自動テキスト の効用 Kutools for Excel。 この機能を使用すると、チェックマークを自動テキスト入力として保存し、以下のデモに示すように、Excelでワンクリックするだけで後で再送信できます。
ダウンロードして今すぐ試してみてください! (30-日フリートレイル)


関連記事:


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

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

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

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (12)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
comoeufaçoprainseriramarcadeseleçãonacélula、porémsemdeletaronúmerokeestiverdigitadonela ou seja、marca sairianafrentedonúmeroquandoeuderduplo clique ... e quando eu quizer apa clique novamenteeacélulavoltariaaonormar(continuariaapenasonúmero)。
このコメントは、サイトのモデレーターによって最小化されました
オラ・ルイス、テンテ・エッサ・アルタカオ。 Ira funcionar nas celulas A2:A10 e D2:D5、altere conformesuanecessidade。

忠雄


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range、Cancel As Boolean)
交差しない場合(Target、Union(Range( "A2:A10")、Range( "D2:D5")))は何もありません
Application.EnableEvents = False
Left(ActiveCell.Value、1)= ChrW(&H2713)の場合
ActiveCell.Value = Right(ActiveCell、Len(ActiveCell)-1)
ActiveCell.Horizo​​ntalAlignment = xlRight

ActiveCell.Value = ChrW(&H2713)&ActiveCell.Value
終了する場合
キャンセル= True
終了する場合
application.enablevents = true
End Subの
このコメントは、サイトのモデレーターによって最小化されました
このコードをループして、XNUMXつのブックの多くのワークシートに含める方法はありますか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちはleoflute、を押した後 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリックしてください このワークブック を開く ThisWorkbook(コード) ウィンドウをクリックし、以下のコードをコードウィンドウにコピーします。 コード内のシート名とセル範囲を変更することを忘れないでください。 Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object、ByVal Target As Range、Cancel As Boolean)
'によって更新されました Extendoffice 20201012
Dim xStrRg、xStrWs、xStrWsName As String
Dim xEEBol、xWSNBol、xBol As Boolean
薄暗いxArrWs
薄暗いxArrRg
Dim xI、xJ As Integer
ワークシートとしての薄暗いxW
範囲としての薄暗いxRg

xStrWs = "Sheet5、Sheet1、Sheet2"'特定のワークシート名
xStrRg = "B3:B10"'チェックマークを挿入するセルの範囲
xArrWs = Split(xStrWs、 "、")
xArrRg = Split(xStrRg、 "、")

xEEBol = Application.EnableEvents
Application.EnableEvents = False
エラーで次の再開
xStrWsName = Sh.Name
xbol = false
xWSNBol = 偽
xI = 0の場合UBound(xArrWs)へ
xStrWsName = xArrWs(xI)の場合
xWSNBol = 真
終了
終了する場合
次のxI

xWSNBolの場合
xWs = Application.Worksheets.Item(xArrWs(xI))を設定します
xJ = 0の場合UBound(xArrRg)へ
xRg = Sh.Range(xArrRg(xJ))に設定します
交差しない場合(Target、xRg)は何もありません
xBol = 真
終了
終了する場合
次のxJ
終了する場合

xBolの場合
ActiveCell.Value = ChrW(&H2713)の場合
ActiveCell.ClearContents

ActiveCell.Value = ChrW(&H2713)
終了する場合
キャンセル= True
終了する場合
Application.EnableEvents = xEEBol
End Subの

このコメントは、サイトのモデレーターによって最小化されました
やあ! チェックボックスが追加されたときにセルの色を変更するには、上記のコードに何を追加しますか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちはクリスタル
B1:B10と一緒にA3:A10にチェックマークを付ける方法はありますか?
このコメントは、サイトのモデレーターによって最小化されました
複数の列に対してこれを繰り返すにはどうすればよいですか? 
たとえば、私は次のようにそれが必要です:
E、F、I、J、M、N、Q、R、U、V、Y、Z、AC、AD、AG、AH、AK、A​​L、AO、AP、AS、AT、AW、AX
このコメントは、サイトのモデレーターによって最小化されました
Eu gostariadesabreseépossíveladicionaramarcacom apenas umcliqueaoinvésdedois。
このコメントは、サイトのモデレーターによって最小化されました
こんにちはユリシーズノナト、
マウスをXNUMX回クリックするだけでセルにチェックマークを追加する場合は、次のVBAコードを使用すると便利です。
クリックする必要があります 右マウス ボタンを押してコードをアクティブにします。
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'Updated by Extendoffice 20220714
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub
このコメントは、サイトのモデレーターによって最小化されました
ダブルクリック後に隣接するセルにタイムスタンプを追加するにはどうすればよいですか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちはソラ、
次の VBA コードは便利です。 ぜひお試しください。 ありがとうございました。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221125
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("B1:B10")
    Set xRight = Target.Offset(0, 1)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.Value = Now()
    End If
Application.EnableEvents = True
End Sub
このコメントは、サイトのモデレーターによって最小化されました
ボンジュール、

Une fois ces cases cochées, j'aimerais qu'une cellule x m'additionne les chiffres d'une suree Colonne, est ce possible ?

Merci a vous, bonne soirée
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護