コピペ

 ★ 右クリック ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 今日は、一昨日一応完成させたエクセルファイルを試しに使ってみることにしました。
 やることは業務用システムを開いてデータをコピーエクセルに画面を切り替えてデータの貼り付け、それで気づいたのがUserFormに配置したテキストボックスは右クリックからショートカットメニューを表示して貼り付けができないこと。
 自分はショートカットキー(Ctrl+V)で十分な気もするのですが、「右クリックで貼り付けできないの?」という意見は出てきそうです。
 早速ネットで検索し素晴らしい記事を発見しました。(≧∇≦)/

 mi-yuとExcelさんの↓の記事を参考に作業開始。
 http://miyu-excel.seesaa.net/article/404902852.html
 下記のコードが上記のサンプルコードに比べ短いのは職場が個人の端末とネット閲覧用の端末が分けてあり又USBメモリの接続も制限されているので簡単にコピペできないためです。
 それに「貼り付け」に限定したほうが業務上都合が良いと判断しました。
 また、コピペでなく手打ちすると、VBEに入力候補が表示されるのでとても勉強になります。 
 

  標準モジュールに下記のコードを入力。

 Sub Right_Paste()
SendKeys "^V" '貼り付け
 End Sub

 Sub Right_Menu()
Dim myPopup As Variant

Set myPopup = Application.CommandBars.Add _
    (Position:=msoBarPopup, temporary:=True)

With myPopup
With .Controls.Add
.Caption = "貼り付け"
.OnAction = "Right_Paste"
.FaceId = 22
End With
.ShowPopup
.Delete
End With

Set myPopup = Nothing

 End Sub

 フォームのモジュールに下記コードを入力。

 Private Sub TextBox1_MouseUp(-略-)
  '右クリックしたらメニューを表示
  If Button = 2 Then
  Right_Menu
  End If
 End Sub

 

 上ではTextBox1だけですが実際にはもっと沢山あり一手間でした。
 そんなわけで、二つの意味でコピペしたいけど出来ない一日でした。
 それではまた(o・・o)/~ 

ブログランキング・にほんブログ村へ
にほんブログ村
関連記事
スポンサーサイト



コメントの投稿

非公開コメント

訪問者さま
カレンダー
09 | 2020/10 | 11
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
プロフィール

arakurikaesiki

Author:arakurikaesiki
阿良々木(あらくりかえしき)と申します。趣味はらくがき/アクアリウム、好きな小説は物語シリーズです。あと、仕事で楽したいためにExcelのVBAをちょくちょくいじってます。
なお、当ブログはリンクフリーです、よろしければリンク貼ってください。
また、ブロともさまも募集中です。コメントとかもらえるとすごく喜びます。

ブロとも様募集中ですm(_)m

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
参照不可? Oct 20, 2020
基幹システムの入れ替えと使えなくなるファイルメーカー Sep 30, 2020
季節の変わり目 Sep 01, 2020
ロード長くね? Aug 19, 2020
ルフィを描いてみた Aug 17, 2020
囲んで塗る? Aug 14, 2020
100.00cm Aug 12, 2020
サメ Aug 08, 2020
チョット多すぎる Aug 08, 2020
・・・・・・ Aug 06, 2020
カテゴリ
アクセスランキング
[ジャンルランキング]
ブログ
3191位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
115位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
更新通知登録ボタン

更新通知で新しい記事をいち早くお届けします

検索フォーム