|
▼Cuore=Tane さん:
>>Dim Nam(43) As Name
>>
>> For a = 0 To 43
>> With ActiveWorkbook
>> On Error Resume Next
>> Set Nam(a) = .Names(Range("E4").Offset(a, 0))
>> If Not Nam(a) Is Nothing Then
>> ActiveSheet.Controls("cob" & a).Enabled = True
>> Else
>> ActiveSheet.Controls("cob" & a).Enabled = False
>> End If
>> End With
>> Next a
>>
Activesheet→Userform1(または自分がつけたユーザーフォーム名)に修正し、
With文を無くし、Sheets("Sheet1").Selectへと変え
On Error〜とSet Nam(a)〜も無くしました。
その代わり、IF文の論理文をRange("H4").Offset(a, 0)) <> "" Then へと変更したところ、きちんとなりました。
自己解決いたしました。
ありがとうございました。
|
|