エクセル VBA ダイアログ 削除
| Message#3 2014年12月19日(金)08時34分 From: tohoshi |
| ユーザーフォームを使って表示させるのはどうでしょうか？ ユーザーフォームにリストボックスとコマンドボタンを置いて下記のコードを記述してみてください。 リストで選択後、コマンドボタン押下でクリップボードにコピーします。 Option Explicit Private Sub CommandButton1_Click() If ListBox1.ListIndex = -1 Then Exit Sub With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText ListBox1.Value .PutInClipboard End With Unload Me End Sub Private Sub UserForm_Initialize() Dim Sh As Worksheet Set Sh = Sheets("Sheet1") '文章のリストがあるシート ListBox1.List = Sh.Range("A1", Sh.Cells(Rows.Count, 1).End(xlUp)).Value End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
