【VBA】セル範囲の値のみをクリアする【RangeとClearを使う】

嚯嚯go發表於2024-10-02

參考元：【VBA】セル範囲の値のみをクリアする【RangeとClearを使う】
https://daitaideit.com/vba-range-clear/

VBAでセルをクリアする方法
VBAでセルの文字や、書式などをクリアする方法をまとめました。
こんな感じです。

Range("A1").ClearContents '値のみクリア
Range("A1") = "" '値のみクリア
Range("A1").Clear 'すべてクリア
Range("A1").ClearFormats '書式のみクリア
Range("A1").ClearComments 'コメントのみクリア
Range("A1").ClearHyperlinks 'ハイパーリンクのみクリア
Range("A1").Hyperlinks.Delete 'ハイパーリンクと書式をクリア

VBAコード
ダブルクリックで、セルに入力されている値を表示したり、クリアしたりするVBAコードです。
『ワークシートのコード』に記載します。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
  'ダブルクリック後のアクティブ狀態を解除
  Cancel = True
  
  Dim A
  'コメントがない場合
  If Target.Comment Is Nothing Then
    'コメントを追加
    Set A = Target.AddComment
    '表示
    A.Visible = True
    'セルの値をコメントに入力
    A.Text Text:=Target.Formula
    'コメントのサイズを22にする
    A.Shape.TextFrame.Characters.Font.Size = 22
  'コメントがある場合
  Else
    'コメントをクリア
    Target.ClearComments
  End If
    
End Sub

実行結果：
ダブルクリックでコメントを追加

　
ダブルクリックでコメントをクリア

相關文章