Visual Basic1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 Dim AAAC As Long Dim strSuchen As Variant Private Sub ComboBox1_Change () If ComboBox1.Value <> "" Then strSuchen = ComboBox1.Value AAAC = CDbl (Range ( "A2: A10"). Find (What: = strSuchen, lookat: = xlWhole) .Row) TextBox1.Text = Cells (AAAC, 2) TextBox2.Text = Cells (AAAC, 4) TextBox3.Text = Cells (AAAC, 5) Else TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" End If End Sub Private Sub ComboBox2_Change () If ComboBox2.Value <> "" Then strSuchen = ComboBox2.Value AAAC = CDbl (Range ( "A2: A40"). Find (What: = strSuchen, lookat: = xlWhole) .Row) TextBox4.Text = Cells (AAAC, 2) TextBox5.Text = Cells (AAAC, 4) TextBox6.Text = Cells (AAAC, 5) Else TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" End If End Sub Private Sub CommandButton2_Click () UserForm1.Hide End Sub Private Sub UserForm_Initialize () Dim sFilePath, objXL, Secur sFilePath = ActiveDocument.Path "\ Qw.xlsx" Set objXL = CreateObject ( "Excel.Application") 'objXL.Visible = True Set wc = objXL.Workbooks.Open (sFilePath) ComboBox1.List = wc.Worksheets ( "A"). Range ( " A2: A10 "). Value ComboBox2.List = wc.Worksheets (" A "). Range (" A2: A40 "). Value objXL.Quit End SubПодскажіте ласка, що не так? Чому помилка method range of object _global failed?
На аркуші є довільні таблиці з заголовками listobject. Як можна визначити, чи є поточна комірка частиною будь-якої з цих таблиць? Якщо так, то як перевірити: - чи знаходиться вона в останньому рядку (або в рядку підсумків), - чи є вона заголовком цієї таблиці?
При спробі запуску в рядку TextBox10.Text = Val (TextBox1) * 1.26 * 1.5 * Val (TextBox5) (І, судячи з усього, і на всі інші) видає "object variable or with block variable not set". Намагався скористатися пошуком, але жодне випробуване рішення не допомогло
Привіт, допоможіть будь ласка виправити помилку в макросі. Ось код:
Run-time error '424': Object required Всім привіт, народ допоможіть баг виправити Run-time error '424': Object required Private Sub makeElementNode (name, ByRef node As IXMLDOMElement, ByRef appendNode As IXMLDOMElement) Set node = dom.createElement ( name) appendNod.appendChild nod виділяє цю Страки при дебаге End SubДобавлено через 29 хвилин appendNod.appendChild node
Добрий час доби! Макрос в Excel видає помилку: Run-time error '424: Object Required
в наступному коді в рядку 4 (відкриття файлу з розширенням doc) вискакує помилка "run-time error '424' object required"
Хлопці! Всім привіт! Питання таке: в осередок скажімо Cells (1,1) приходять дані з сервака, як тільки потрібна процедура використовує її, осередок стає порожній (null). Але через деякій час виникає помилка Application-Defined or Object-Defined Error і жовтим підкреслюється ця комірка! Підкажіть в чому проблема?