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 Atât timp Dim strSuchen Ca variantă privată Sub ComboBox1_Change () Dacă ComboBox1.Value <> "" Atunci strSuchen = ComboBox1.Value AAAC = CDbl (Range ( "A2: A10") Find (Ce :. = StrSuchen, lookat: = xlWhole) .Row) TextBox1.Text = celule (AAAC, 2) TextBox2.Text = celulele (AAAC, 4) TextBox3.Text = celule (AAAC, 5) Else TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" End If End Sub Private Sub ComboBox2_Change () În cazul în care ComboBox2.Value <> "" Atunci strSuchen = ComboBox2.Value AAAC = CDbl (Range ( "A2: A40") Find (Ce :. = StrSuchen, lookat: = xlWhole) .Row) TextBox4.Text = celule (AAAC, 2) TextBox5.Text = celulele (AAAC, 4) TextBox6.Text = celule (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 ") Valoare ComboBox2.List = wc.Worksheets (" A "). Range (" A2 :. A40 „) Valoarea objXL.Quit End SubPodskazhite te rog, ce sa întâmplat? De ce eroare gama metoda de _global obiect nu a reușit?
Există tabele arbitrare cu antete listobject pe foaie. Cum pot determina dacă celula curentă face parte din oricare dintre aceste tabele? Dacă da, cum să verificați: - dacă este în ultimul rând (sau de la linia), - fie că este titlul acestui tabel?
Când încercați să executați într-un rând TextBox10.Text = Val (TextBox1) * 1.26 * 1.5 * Val (TextBox5) (și, se pare, și toate celelalte) probleme „variabilă obiect sau cu variabila bloc nu este setată“. Am încercat să utilizez căutarea, dar nimeni nu a încercat soluția nu a ajutat
Bună ziua, vă rugăm să ajutați la corectarea erorii în macro. Iată codul:
Run-time eroare '424': obiect necesar Buna ziua, oamenii ajuta bug fix eroare de run-time '424': Obiectul necesar Private Sub makeElementNode (nume, nod ByRef Ca IXMLDOMElement, ByRef appendNode Ca IXMLDOMElement) Set nod = dom.createElement ( nume) appendNod.appendChild nod distinge această Straka la depana End SubDobavleno după nodul 29 minute appendNod.appendChild
Orei bune a zilei! Macrocomanda în Excel produce o eroare: Eroare de execuție "424: Obiect Necesar
următorul cod din rândul 4 (deschiderea unui fișier cu extensia doc) afișează o eroare "run-time error" 424 "obiect necesar"
Băieți! Buna ziua tuturor! Întrebarea este: în celula de exemplu celule (1,1) date servaka vin imediat ce procedura necesară folosește celula ei devine gol (nul). Dar, după un timp, există o eroare de aplicație-definite sau obiect Definit de eroare și scoate în evidență galben această celulă! Promiți în ce problemă?
Articole similare
Trimiteți-le prietenilor: