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

(Visited 6 times, 1 visits today)

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ă.

Suport-Clienti
Mergeți sus