Помогите разобраться в класс модуле выдает ошибку на строке
Похоже VBA непонравился значок "&", почему незнаю в справке ненашел
Вот код Класс Модуля
Вот код Userform
Вот код Модуля
Код |
---|
Set TboxN = "TXTN" & i |
Похоже VBA непонравился значок "&", почему незнаю в справке ненашел
Вот код Класс Модуля
Код |
---|
Option Explicit Public WithEvents oTXTBox As MSForms.TextBox Private Sub oTXTBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim i As Long For i = 1 To 62 Step 1 If i <= 31 Then If oTXTBox.Name = "TXT" & i Then Set Tbox = oTXTBox Set TboxN = "TXTN" & i Set LboxS = "LBLchg" & i Set LboxTotal = "TTLLbl" & (93 + i) Set LboxOrder = "Lbl" & (62 + i) End If Else If oTXTBox.Name = "TXTN" & i - 31 Then Set Tbox = oTXTBox Set TboxN = "TXT" & i Set LboxS = "LBLchg" & i Set LboxTotal = "TTLLbl" & (93 + i - 31) Set LboxOrder = "Lbl" & (62 + i - 31) End If End If Next i Form_Choice.Show End Sub |
Вот код Userform
Код |
---|
Private Sub UserForm_Activate() Dim i As Integer For i = 1 To 62 If i < 31 Or i = 31 Then Set aoTXTBox(i).oTXTBox = Me.Controls("TXT" & i) Else Set aoTXTBox(i).oTXTBox = Me.Controls("TXTN" & i - 31) End If Next i End Sub |
Вот код Модуля
Код |
---|
Public Tbox As Object Public TboxN As Object Public LboxS As Object Public LboxTotal As Object Public LboxOrder As Object Public aoTXTBox(1 To 62) As New clsmFrmTabelTXT Option Private Module |