ITLearning/Dr.Excel

caz rezolvat din doua bucle folosind codul descris mai sus: For j = 0 To ListBox1.ListCount - 1 For i = 0 To ListBox1.ListCount - 1 If ListBox1.List(i) = "Marie" Or _ ListBox1.List(i) = "Klaus" Or _ ListBox1.List(i) = "Manni" Then ListBox1.RemoveItem (i) Exit For End If Next i Next j Multumesc.

Ma gandesc la folosirea: ListBox1.SetFocus si apoi selectarea primei inregistrari din lista (folosind o comanda vba) dupa care va functiona foarte bine cu codul mentionat mai sus. Asa este, partea cea mai grea este ca selectia sa inceapa dintr-un punct. Incerc ca selectarea sa o fac folosind codul v...

se poate sterge cu comanda
ListBox1.RemoveItem (3)
dar eu nu vreau sa folosesc indexul ci vreau sa caute in lista cuvantul pe care doresc sa-l sterg iar daca il gaseste sa-l stearga daca nu sa imi dea mesaj ca nu a fost gasit cuvantul cautat.

WORD 2003
Am un control ListBox1 ce contine urmatoarele inregistrari:
Herbert
Marie
Klaus
Roger
Manni
cum sterg un anumit text de exemplu Roger din ListBox1 printr-o apasare de buton?
Fara sa-l selectez cu mouse-ul.

am gasit urmatoarea varianta: Private Sub CommandButton3_Click() Dim lZeile As Long ' For/Next Zeilen-Index Dim lIndxA As Long ' For/Next Index - außen Dim lIndxI As Long ' For/next Index - innen Dim sTemp As String ' temporärer Zwischenspeicher For lIndxA = 0 To Me.ListBox1.ListCount - 1 For lIndxI...

Word 2003 Cum ordonez alfabetic printr-o apasare de buton CommandButton1_Click() ? Private Sub UserForm_Initialize() 'Creates and assigns the Array to the ListBox when the form loads. Dim mylist As Variant mylist = Array("Sunday", "Monday", "Tuesday", "Wednesday", _ "Thursday", "Friday", "Saturday")...

Subiect rezolvat, se poate inchide.
Multumesc frumos.

Buna ziua,
Word 2010.
Am un text selectat si nu reusesc sa gasesc o comanda vba care sa analizeze textul si sa-mi afiseze un mesaj ca textul selectat este scris cu Caps Lock.
Am gasit doar ceva care imi spune daca am activata tasta Caps Lock dar asta nu ma ajuta cu nimic.
Are cineva vreo idee?

Am rezolvat. Trebuia declarat niste variabile ca integer Codul complet este afisat mai jos: Option Explicit Dim iCount As Long Dim strSearch As String Dim denTmp0, denTmp1, denTmp2, denTmp3, denTmp4, denTmp5, denTmp6 As String Dim denTot0, denTot1, denTot2, denTot3, denTot4, denTot5, denTot6 As Inte...

Buna ziua, Am cautat si am gasit ceva dar esste in excel si nu stiu cum sa transpun in VBA Word 2010(adunare conditionata) Am un fisier cu un text(este atasat) Caut in el textele cu urmatorul cod: Sub SedintaTotala() Dim iCount As Long Dim strSearch As String Dim denTmp0 As String Dim denTmp1 As Str...