|
▼Jカーター さん:
>こんにちは。
>>1
>Sub test()
> Dim R As Range
> On Error Resume Next
> Set R = Application.InputBox("クリック", Type:=8)
> On Error GoTo 0
> If Not R Is Nothing Then
> MsgBox R.Parent.Name
> End If
>End Sub
>でしょうか?(キャンセルに対応してます)
>
>>2はパスです。
>>3
>あまり的確な例ではないかもしれませんが
>
>Sub testF()
> Dim A() As Variant
> A = Array("1A", "1B", "AA", "39A", "VV")
> MsgBox vTest(A)
>End Sub
>Function vTest(v() As Variant) As Long
> Dim c As Variant
> For Each c In v
> If c Like "*A" Then
> vTest = vTest + 1
> End If
> Next c
>End Function
>*********************************************************************
>的はずれでしたらすいません。
うまくできました。感謝いたします。
長きにわたり悩んでいました。
3.につきましても、
丁寧な例をありがとうございます。
使用方法が分かりました。コーディングが整理できます。
本当にありがとうございました。
|
|