| |
▼UO3 さん：
>▼亜矢 さん：
>
>こんにちは
>【ドラッグ＆ドロップ】ですね。
>
>基本的には、この機能はないと思われます。
>フォームへのコピー以前に、シート上のあるセルを選択してマウスを押したまま移動させると
>選択領域がマウスの移動にしたがって拡大していきますよね。
>通所はつまんだもの【のみ】をマウスでひっぱるという動作なんですけどね。
>
>で、この選択領域が拡大するということには目をつぶり、また実際にはドラッグ＆ドロップ機能では
>ないのですが、ほっと、ごまかしのコードです。
>
>任意のセルを選び、ドラッグしてユーザーフォームのテキストボックスの上でマウスを
>離してみてください。
>
>（標準モジュール）変数宣言のみ。
>
>Public myStr As String
>Public DragFlag As Boolean
>
>（シートモジュール）
>
>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> myStr = Target(1).Value
> DragFlag = True
>End Sub
>
>（フォームモジュール）
>
>Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
> If DragFlag Then TextBox1.Value = myStr
> DragFlag = False
>End Sub
>
>★実はインチキです。ドラッグ＆ドロップをしなくても以下で、値がコピーされます。
> で、ドラッグ＆ドロップ【しても】同じことになるということです。
>
> ・セルを選択する。
> ・ここでマウスを離してもいい。（はなさなくてもいい）
> ・テキストボックスの上にマウスを持っていく。（マウスをおさなくてもいい。おしてもいい）
早速のご指導ありがとうございました。同じブックのシートではできました。
説明が不足していましたが、セルは他のブックのものです。
他のブックのシートから同じ様にするにはどのようにしたらよいか
教えていただきたいと思います。
|
|
亜矢
- 11/5/5(木) 16:27 -
