すれ立てるまでもない質問はここで 第81刷
レス数が900を超えています。1000を超えると表示できなくなるよ。
0902デフォルトの名無しさん
2007/04/04(水) 01:11:08Dim temp As String
Dim lbl As Label
Dim txt As TextBox
Dim obj As Object
For Each obj In Me.Controls
If TypeOf obj Is TextBox Then
Set txt = obj
temp = Right$(txt.Name, 1)
If IsNumeric(temp) = True Then
If Not Me.Controls("Label" & temp) Is Nothing Then
Set lbl = Me.Controls("Label_" & temp)
txt.Top = lbl.Top + 1000
End If
End If
End If
Next
レス数が900を超えています。1000を超えると表示できなくなるよ。