VBA Deployment Archive

1. 実装方法 ： 何をどこにコピーするか

  • STEP 1 本ページ下部 「 3. 稼働中VBAコード全文 」 の右上にある 「Copy」 ボタンをクリック。
  • STEP 2 Excelで Alt + F11 を押し 、 左側の対象シート名をダブルクリック。
  • STEP 3 右側に開いた白い画面へ直接貼り付けて完了。

2. Excel画面イメージとサンプル配布

ダブルクリックで 「●」 が代入され 、 合計が自動算出される稼働画面です。

Excel画面イメージ

💡 【 サンプルファイル配布について 】

画像と同じエクセル構成をゼロから作成するのは困難と思われます。 ご希望の方には、 この動作設定済みの「エクセルファイル」を直接お送りいたします。 「 あさまいCTS 」 のホームページ内の 「お問い合わせ」 よりお気軽にご連絡ください。

※多忙によりメールの確認が遅れる場合がございます。 １週間以上返答がない場合などは 、 恐れ入りますが 「あさまいCTS」 サイト内の 「営業案内」 ページへ進み 、 フッター左側に記載の携帯番号 をご参照の上 、 直接お電話にてご連絡いただけますと幸いです。

3. 稼働中VBAコード全文

Option Explicit

' 貼り付け先 ： 対象シートのシートモジュール
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim ws As Worksheet
    Set ws = Me
    
    If Intersect(Target, ws.Range("M5:M100")) Is Nothing Then
        Exit Sub
    End If
    
    Cancel = True
    
    If Target.Value = "●" Then
        Target.ClearContents
    Else
        Target.Value = "●"
    End If
    
    ws.Range("I2").Value = WorksheetFunction.SumIf( _
        ws.Range("M5:M100"), "●", ws.Range("K5:K100"))
End Sub

Sub ResetVBA()
    Application.EnableEvents = True
    MsgBox "復旧完了。"
End Sub