|
こちらは97ですが、下記コードで、できるときとできない時がありました。
できない時にRefEditに書きこんだ「a1:a10」の文字を選択してやると、クリップボードにコピーされた状態になってしまいました。(a1:a10が点線の選択状態)
この状態でコマンドボタン2をクリックしてやると、E1にペーストされました。
RefEditはやっぱり不安定ですね。97だけかもしれませんがバグがあると聞いた事があります。
Private Sub CommandButton1_Click()
'MsgBox RefEdit1
Range(RefEdit1).Activate
End Sub
Private Sub CommandButton2_Click()
Selection.Copy Range("E1")
End Sub
インプットボックスでは、ダメなのでしょうか?
Sub kkk()
Dim 位置set As Range
On Error Resume Next
Set 位置set = Application.InputBox(Prompt:="セルをクリックして下さい。", _
Title:="セルの選択", Default:=ActiveCell.Address, Type:=8)
On Error GoTo 0
If 位置set Is Nothing Then
End
Else
位置set.Select
MsgBox 位置set.Address(0, 0)
End If
End Sub
|
|