ドラッグ

 ★ ドラッグ アンド ドロップ ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 今日も職場でエクセルいじってました。この前はコピペ、エクセルのユーザーフォームで右クリックしたら「貼り付け」のメニューを表示するようしたのですが今日はクリップボードからテキストを取得し、ドラッグ アンド ドロップで編集できるように機能を一部変更してみました。
Private Sub CommandButton1_Click()

Dim ClipBoard As Variant

ClipBoard = Application.ClipboardFormats
'クリップボードが空か調べる。
If ClipBoard(1) = -1 Then
MsgBox "クリップボードは空です。"
Exit Sub
End If
'空じゃなかった場合
With New MSForms.DataObject
.GetFromClipboard
TextBox1.Value = .GetText
End With
Application.CutCopyMode = False

End Sub

 職場では気付かなかったのですが、記事を書くため自宅でコード打ってテストしていたら、下のような実行時エラーがヽ(´Д`;)ノ
ERROR.jpg
 こんな時は慌てずに(^。^)y-.。o○
 構造体が無効、ブログ用に画面コピーとってたらエラーが出たので
 「vba クリップボード 画像」で検索
 たどり着いたのがOfficeTANAKA先生のこのページ
 http://officetanaka.net/excel/vba/tips/tips20.htm
 サンプルコードを参考に下記のコードを追加、取り敢えずエラーはでなくなりました。( ゚д゚)ホッ!
If ClipBoard(1) = xlClipboardFormatBitmap Then
MsgBox "クリップボードの中身は画像です。"
Exit Sub
End If
 明日は職場でこの部分修正しようと思います。
 でも、あんまり時間かからないなぁ、なにしよっかなぁ
 憂鬱だなぁ
 考えても仕方がないですし、明日のことは明日考えようと思います。
 それではまた・・・ 

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



訪問者さま
カレンダー
02 | 2018/03 | 04
- - - - 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

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
季節の変わり目 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
すず Aug 03, 2020
記憶を辿って Aug 03, 2020
カテゴリ
アクセスランキング
[ジャンルランキング]
ブログ
1997位
アクセスランキングを見る>>

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

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

検索フォーム