Cum se utilizează obiectivul de căutare în Visual Basic

Pasul 1

Deschideți documentul Excel în care doriți să executați macrocomanda dvs. de căutare a obiectivelor.

Pasul 2

Găsiți două celule în care doriți să utilizați obiectivul de căutare. Primul trebuie să fie celula în care aveți un obiectiv fix. Al doilea ar trebui să fie locul unde permiteți Excel să se schimbe pentru a-și atinge scopul. Valoarea primei celule trebuie să fie o formulă bazată pe a doua formulă (altfel modificările efectuate de Excel în a doua celulă nu contează, deoarece nu vor apărea în prima).

Pasul 3

Deschide fereastra Macro. În Excel 2007 sau mai târziu, o puteți face făcând clic pe fila "Vizualizare" a listei și apoi făcând clic pe "Macrocomenzi". În versiunile anterioare ale Excel, faceți clic pe meniul "Instrumente", alegeți "Macrocomenzi" și apoi "Macrocomenzi".

Pasul 4

Introduceți numele macrocomenzii de căutare a obiectivului în fereastra Macro și apoi faceți clic pe "Creați". Aceasta va porni programul Visual Basic pentru aplicațiile editorului și vă va arăta textul noului Macro, care va apărea ca o subrutină goală ca aceasta:

Sub MyMacroName () End Sub

Pasul 5

Creați o gamă de obiecte reprezentând celula pentru care aveți un obiectiv cunoscut (prima celulă din Pasul 2). De exemplu, dacă doriți un obiectiv de căutare pentru celula A1, scrieți:

Dim golCel ca gamă de țintăCell = ThisWorkbook.Worksheet (1) .Range ("A1")

Pasul 6

Creați o gamă de obiecte care reprezintă celula pe care doriți să o schimbați Excel pentru a face prima celulă să atingă noua țintă. De exemplu, dacă doriți ca Excel să manipuleze celula A2, scrieți:

Dim variabilCel ca interval variabilCell = ThisWorkbook.Worksheet (1) .Range ("A2")

Pasul 7

Găsiți metoda GoalSeek în intervalul celulei țintă. Ca primul argument, acesta oferă valoarea pe care doriți să aplicați obiectivul obiectivului; ca argument, oferă gama celulei variabile. De exemplu, dacă doriți să aplicați obiectivul dorit la 0, scrieți:

goalCell.GoalSeek (0, variabilCell)