| |
▼ichinose さん：
>▼多摩川 さん：
>こんばんは。
>
>>InputBoxのようなウィンドウから直接セルを選択して、
>>そのアドレスを取得したいのですが、
>>どのようなコードにすればよいのでしょうか？
>そのInputboxメソッドを使ってみては？
>
>
>>
>>イメージとしては組み込み関数のSUMのように、
>>対象のセルを直接選択することで、アドレスを取得。
>>のようなことがしたいと思っています。
>>
>>Sub ListCreate()
>> Dim Rng As Range
>> Dim MyRg As Range
>
> On Error Resume Next
> Set MyRg = _
> Application.InputBox("セル範囲を選択して！！", , , , , , , 8)
> If Err.Number = 0 Then
>> For Each Rng In MyRg
>> '〜処理(中略)〜
>> Next Rng
> end if
>>End Sub
今更なのですが、再質問があります。
InputBoxメソッドをType:=8にすることで、Rangeオブジェクトを受け取ることができたのですが、
この方法だと、同一ブック内しかできないようです。
他のブックから範囲を指定したいのですが、どのようにしたら良いのでしょうか？
|
|
多摩川
- 07/9/27(木) 8:36 -
