|
こんにちは。
>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
*********************************************************************
的はずれでしたらすいません。
|
|