EXCEL VBA シートの内容をメモ帳にコピー。

2019年9月13日

EXCELの任意の部分をメモ帳へコピペ（切り取り、貼り付け）する簡単なマクロです。

今回は2種類。

決まった範囲の時と、手動で範囲指定した時です。

2個目には範囲指定の部分がないだけです。

まず、コピペしたい表のタブ（下のほう）を右クリックして「コードの表示」選択。
そこに以下を張り付ける。

※今回VBAはシートの中にコードを書いています。Moduleに書くと、メモ長が早く開きすぎて、動かなかいこともありますので注意。

Sub MemoOpen001R()
Range("A1:H8").Select
Selection.Copy
Shell "notepad", 1
SendKeys "^V", True
End Sub

Sub MemoOpen002R()
Selection.Copy
Shell "notepad", 1
SendKeys "^V", True
End Sub

追記：タイマーを入れました。
sleep関数はWindowsAPIの関数ですのでAPI宣言します。
プログラムを書き込んでる一番上に書いてください。
宣言をすると、時間待ちができるようにします。1000が1秒。テストは0.5秒にしてますが、PCのスペックに合わせてコントロールしてください。
貼り付けを0.5秒後に実行する例です。

Option Explicit
'### API 宣言
#If VBA7 Then  '###（64bit）
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else '###（32bit）
    Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If

Sub MemoOpen001R()
  Range("A1:F6").Select
  Selection.Copy
  Sleep (500) '### 1000=1秒
  Shell "notepad", 1
  SendKeys "^V", True
End Sub

Sub MemoOpen002R()
  Selection.Copy
  Sleep (500) '### 1000=1秒
  Shell "notepad", 1
  SendKeys "^V", True
End Sub

 

次に、データーの入っているシートに図形、画像等を張り付けボタンを2個作り※なんでもいいです。
各々に「マクロ登録」してください。

実行するとこんな風になります。
002Rは範囲指定した部分のみコピーします。

以上。

追記2024.2

楽天モバイル 楽天社員・楽天従業員オファー

お乗り換えで14,000ポイント
新規ご契約で7,000ポイントプレゼント！
※楽天モバイル過去解約された方でもポイントが付きます。

【解説します】楽天モバイル 社員紹介キャンペーン中
サービスのご紹介ーおことわりー各種サービスの最新情報は楽天モバイルサイトにて確認・問い合わせください。キャンペーン適用条件等ご注意ください。・2024/7/1より楽天モバイル プラチナバンド始動（商用サービス開始）。プラチナバンドは主要都市部から順次拡大予定。・とのかく安い、しかも無制限に使っても2980円（税抜き）5G時代、マンガや動画を見たら数日で20GBなんて超えてしまいます。・RakutenLinkからの通話料無料は結構お得です。最近事故ってしまい、電話をかけることが多くなったので重宝してます。※他社接続サービスな...
www.bookservice.jp
 
https://www.bookservice.jp/2024/02/16/post-47209

VBA（マクロ）

Posted by master