日本語入力ソフトとVBAの覚え書き

・各種日本語入力ソフトの辞書解説 ・ちょっと楽になるExcel VBA集

セルの選択範囲アドレスをクリップボードにコピーする

f:id:dz_dzone:20170814233145j:plain

Sub CopySelectedArea()
  ' ## 選択範囲アドレスをクリップボードにコピーする ##
  CS = Selection(1).Address
  CL = Selection(Selection.Count).Address
  
  SCI = CS & ":" & CL
  
  With CreateObject("Forms.TextBox.1")
    .MultiLine = True
    .Text = SCI
    .SelStart = 0
    .SelLength = .TextLength
    .Copy
  End With
  
  MsgBox "クリップボードにセル範囲 " & SCI & " をコピーしました。", vbOKOnly + vbInformation
End Sub