| 
    
     |  | ありがとうございました。 "!"以下を切り取る方法は考えたのですが、スマートな方法が思いつきませんでした。
 悩ましかったので、非常に助かりました。
 
 ▼角田 さん:
 >こんにちは。
 >>RefEditを使って、セル範囲を指定したいのですが、
 >>デフォルトでは、取得した値が、Sheets1!$A$1:$D$3のような形になると思います。
 >>この値を、A1:D3のような形で取得するようなプロパティとかってあるのでしょうか?
 >ありません。
 >
 >ただ、いずれにしてもValue内容(String型)をRangeオブジェクトに変換して
 >おかなければセル参照には使えませんから、その後でAddressプロパティを
 >使って編集すれば良いです。
 >
 >Dim MyRng As Range
 >Set MyRng = Nothing
 >On Error Resume Next
 >Set MyRng = Application.Evaluate(RefEdit1.Value)
 >On Error GoTo 0
 >If (MyRng Is Nothing) Then
 > MsgBox "セル範囲を選択して下さい"
 >Else
 > MsgBox "選択セル= " & MyRng.Address(False,False,xlA1)
 >End if
 
 |  |