Excel総合相談所 134 - 暇つぶし2ch

Excel総合相談所 134 ..

731:名無しさん＠そうだ選挙にいこう
19/04/13 19:55:22.02 .net
【1 OSの種類　　　　 .】 Windows7・10
【2 Excelのバージョン　】 Excel2016
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【質問内容】フォームコントロールで作ったマクロを登録したボタンをキーボードで押したい
A列、B列、C列にそれぞれ必要事項を入力するとE列に文章が合成される数式を入れました。
その文章は最終的にブラウザ上で入力作業をするのですが、そのままE列の該当セルを
コピーすると改行が含まれてしまうため、D列に以下のマクロを登録したボタンを設置し、
それをクリックすれば改行なしのテキストがクリップボードにコピーされるようにしてあります。
----------------------------------------------------------------------
Sub 右のセルをコピー()
　　Dim xClip
　　Set xClip = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
　　With xClip
　　　　.SetText ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(0, 1).Value
　　　　.PutInClipboard
　　End With
　　ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(0, 1).Select
End Sub
----------------------------------------------------------------------
このボタンをキーボードで押すことはできるでしょうか？D列には同じボタンが並んでいるため、
クイックアクセスバーにマクロを登録ではできないと思いますが、ほかになにか方法はあるでしょうか？

次ページ

続きを表示

1を表示