skip to Main Content

În acest articol vom crea un formular de introducere a datelor, date ce vor fi apoi inserate într-un tabel din foaia de calcul.

Cum procedăm ?
– accesăm editorul VBA;
– din meniul Insert, vom insera un nou modul: modMain;
– din meniul Insert, vom insera un userform nou: frmMain;

Codul din spatele modulului este:

Acest cod va fi atribuit unui buton şi va lansa formularul de introducere a datelor.

Formularul va conţine:

  • 4 controale de tip Label ce vor afişa numele celor 4 câmpuri de interes;
  • 4 controale de tip Text Box;
    • txtNume;
    • txtOras
    • txtAdresa;
    • txtTel.
  • două butoane:
    • cmdAdd;
    • cmdCancel.

If... Or… Then… Else

Pentru butonul cmdCancel, codul este:

Folosind operatorii IF şi OR vom obliga utilizatorul să completeze toate câmpurile, înainte de a salva înregistrările.
Mai departe, codul va identifica ultima linie liberă din domeniul specificat şi în momentul salvării, datele din formular vor fi scrise în tabel.

Codul de mai sus identifică tabelul situat în domeniul de celule B2:E2 şi în funcţie de înregistrările adăugate, acesta se va extinde în jos.
Dacă doriţi ca tabelul să înceapă din altă zonă, modificaţi codul aici:

            .Cells(Row, 2) = Me.txtNume.Value
            .Cells(Row, 3) = Me.txtOras.Value
            .Cells(Row, 4) = Me.txtAdresa.Value
            .Cells(Row, 5) = Me.txtTel.Value

Sintaxa este: Cells(linie, coloană) şi drept urmare, modificaţi doar numărul coloanei, astfel încât să corespundă cu zona în care aveţi tabelul.

If... Or… Then… Else

Resurse de lucru | If… Or… Then… Else.xlsm

Cosmin Tătaru

Pasionat de blogging și tehnologie încă din 2009, Cosmin este aici să vă ajute să vă creșteți vânzările și productivitatea punând tehnologia la treabă pentru dumneavoastră.

Mergeți sus

Dacă derulezi pagina sau dacă navighezi pe acest site, îți dai acordul să folosim cookies. Cookie consent --> vezi detalii

The cookie settings on this website are set to "allow cookies" to give you the best browsing experience possible. If you continue to use this website without changing your cookie settings or you click "Accept" below then you are consenting to this.

Close