Munus inveni in VBA: Quomodo ea uti?

vis discere quomodo uti Munus invenire in VBATunc es in loco!

Quis non scit optionem SEARCH in Excel? Si cum Excel aliquandiu laborasti, probabiliter functionis quaerendi usus es vel popularis Ctrl + L brevis clavis ad verbum vel particulam contenti collocandi vis in tota officina tua quaerere. ut totius operis.

Etiam, in VBA habemus functionem vocatam FIND qui nos adiuvat invenire valorem quem quaerimus.

Sequere singula infra ut plura de hoc pluma per exempla practica discas.

Quomodo munus invenit in VBA opus?

Praecedo VBA FIND munus requirit valorem specificum intra ambitum specificum. Primam eventum illius pretii quaerit et si inventus est, munus reddit cellam quae continet. Sed si nullus par inventus fuerit, munus nihil reddit. Munus VBA FIND redire potest par exacta vel partialis.

Exempli gratia, in sequenti codice textum perquirit "San Pablo»in tempore A1 A10 in "Worksheet1????????

Cum schedae ("Sheet1"). Range("A1:A10")
Pone Rng = .Find(What:="São Paulo")

Propositum functionis FIND in VBA utendi est valorem optatum in data certa invenire. Cum codice VBA, munus automate ad valores inveniendi in Excel.

VBA Find Function Syntaxis

Munus VBA FIND syntaxis declaratur sic:

expression.Find (Quid, Post, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

donde:

expression; objectum range est, quod praecedit functionem FIND in VBA codice. Inquisitionis ambitus unus vel plures esse possunt ordines, columnae vel totum expansionem. Munus VBA FIND accipit sequentes rationes:

  • Nequaquam: Hoc pretium est quaerere. Possunt esse numerorum, textualium, vel quaevis alia ratio Excell notitiarum. Hoc argumentum idem est ac optio Reperio "invenire ac reponere" ab Excel.
  • deinde: Cellam indicat a qua initium quaerere incipiet. Intratur ut una cellula referat. Hoc argumento omisso, investigatio incipit post cellam in angulo sinistro superiore rhoncus investigationis specificatae.
  • Inspicere: Hic est locus (vel notitia) ubi aestimari debet. Potest esse commentarium (xlComments), formula (xlFormulas) vel valorem (xlValues). Valor defectus huius argumenti est xlFormulas. Etiam hoc argumentum idem est ac optio Find.invenire ac reponere" ab Excel.
  • vide: Haec argumentatio decernit utrum ad totam cellam contentam (aequalem prorsus) vel partem contenti cellae (partialis compositus) respondeat. Constantes sunt xl Whole et xlPart pro paribus exactis et partialibus, respectively. Valor defectus huius argumenti est xlPart.
  • Quaerere ordinem: Haec ratio inquisitionis ordinem suggerit. Investigatio in versibus (xlByRows) vel in columnis (xlByColumns). Valor defectus huius argumenti est xlByRows. Etiam hoc argumentum idem est ac optio Find.invenire ac reponere" ab Excel.
  • Quaere inscriptio: Oratio indicat in qua quaestio fietur. Investigare potes vel ad cellam proximam cum xlNext assidue. Vel, retrorsum quaerere potes vel in cellula priore cum xlPrevious constante. Valor defectus huius argumenti est xlNext.
  • Congruit causa: Haec argumentatio iudicat, an quaesitio sit causa sensitiva vel non. Si quaesitio est casus sensitivus, haec ratio certa est ut verum (VERA), alias falsum est (FALSUM). Defalta valor huius argumenti falsum est.
  • MatchByte: Hoc argumentum utendum est si quis subsidium linguae duplices inauguratus vel electus est. Certum esse debet ut verum si characteribus duplices-byte duplices byte ingenia congruunt. Falsum esse debet si notae duplices bytetae componantur cum eorum adaequationibus simplicibus.
  • forma quaerere: Indicat num valor quaerendi debet esse in forma certa (ut audax an italice) necne. Si aspectus pretii sequi debet ars formativa, haec ratio specificatur sicut verum, alioquin falsum. Defalta aestimatio huius argumenti falsum est (FALSUM SIT).

sicut argumentum quod necesse est. Ceterae rationes ad libitum sunt.

Munus FIND redit unum e sequentibus eventibus:

  • Si par inveniatur, munus redit ad primam cellam ubi valor invenitur.
  • Si nullus par inventus est, munus nihil reddit. Ratio huius est, quia ad nihilum pertinet obiectum.

Vel, si nullus par invenitur, nuntius consuetudinis per modum definiti munus nuntius arca reddi potest (vide exempla infra codicem).

Nota 1: Inquisitio incipit post cellam in argumento definito. después et pergit ad cellulam ultimam in investigationis range. Si pretium non invenitur usque ad hanc ultimam cellam, quaestio iterum incipit a cellula prima in investigationis range usque ad cellam in argumento determinatam. después????????

Ergo cellula determinata in argumento después quaesitum est in fine processus inquisitionis. Plura de usu argumenti despuésvide alterum exemplum in hoc articulo.

Nota 2: Quotienscumque munus VBA FIND adhibetur, inspicere???????? respicite???????? quaerere ordinem y MatchByte Ergo, si hae valores proximo tempore omittuntur munus adhibitum, Excel utetur valoribus antea servatis. Ideo suadetur ut argumenta provisa explicite declarent quoties quaesitio exercetur utens munere VBA FIND.

Quomodo munus invenire in Excel VBA?

Ut intelligas usum functionis FIND in VBA, exempla quaedam practica infra separavimus.

Exemplum 1: Cellam eligentes cum primo eventu inquisitionis pretii

In hoc primo exemplo, fac tibi elenchum, qui aliqua nomina continet, ut infra imaginem monstratur, et vis percurrere et cellam quae nomen continet. pedro????????

Inde sequimini hos gradus;

1. Accedere dux elit ???????? visual basic🇧🇷 (Si non habes enabled Developer tab in Excel, reprehendo hic pedetentim).

dux elit

duos. In VBA screen, officinam desideratam e menu in sinistra elige. In hoc exemplo the nos elige Worksheet1 quae est officina quae indicem nominum continet.

3. Optatam officinam seligendi, in area ad dextram, codicem infra intrant:

Cellam cum primo eventu quaesiti pretii

Sub LocateName ()
Range("A1:A10"). Find(What:="Peter").Select
Sub finem
  • Animadverte in codice supra quem memoravimus facultatem petimus (A1: A10????????
  • Post teli mentionem, spatium pone (.) et typus FIND????????
  • Prima ratio est quae quaerimus. Ad argumentum illustrandum, argumentum transire possumus quid:=hoc utile erit ad cognoscendum quem modulum agimus.
  • Postrema pars est post inveniendam verbum quod facere volumus. Verbum eligere necesse est, sic argumentationem transeo .Select????????
  • Tum currunt hoc codice utens clavem F5 vel manually ut infra in imagine monstratur eligere primam cellam in qua nomen est pedro????????

locate in VBA

Exemplum 2: Cellam cum secundo eventu inquisitionis pretii elige

In hoc secundo exemplo nota quod haec imago nonnulla nomina continet in ambitu A1:A10. quod nomen nota”pedro"Videtur bis in columna A.

Eligere cellam cum secundo eventu

Hoc in casu, quaerere et eligere volumus secundo eventu nomen Petri in columna A (id est cellula A7). Ad hoc utemur codice sequenti:

Secundum eventum VBA

Sub LocateName ()
Range("A1:A10").Select.
Sub finem

Animadverto in codice superius quod inquisitionem incipit post cellam A2 et pergit ad cellam ultimam in columna A. Hoc est, quia investigationis ambitus designatus est ut columna A (A1:A10).

Cum ergo quaestio incipit in cellula A3, valor "pedro"Est in cellula A7 dat "spreadsheet2Ergo cellula A7 eligetur a functione FIND cum codice exequente.

si nomen «pedro" in cellula A3 inventa non fuerat usque ad ultimam cellam in columna A, quaesitio rursus in cellam A1 inciperet et in cellula A2 hoc tempore finiret. Ergo cellula in argumento definita ".después" Rectum in fine processus investigationis inquiritur.

Exemplum III: Reperio textum quibusdam characteribus suis

Ad textum quaerendum solum partem eius denotans, argumentationem inspice respicite quod xlPart vel hanc rationem omitte. Defalta, munus FIND characteres in quaestionis valore contra totum chordum aequet. Redit ergo cellam quae totam hanc chordam continet.

Exemplum vide infra:

Sub LocateName ()
Range("A1:A10"). Find(What:="Ped", LookAt:=xlPart).Select
Sub finem

Hoc signum characteribus spectat "quaesivitin latitudine A1:A25 of "Sheet3". Cellula in qua valor redditur, qui nominatur partialis correspondentia🇧🇷 Itaque, quantumvis valoris inquisitionis notae ponuntur in principio, medio vel in fine chordae, Excel VBA parem reddit.

observationis; constantem xlPart e codice omitti potest quia valor functionis FIND est defectus. Sed si haec ratio certa sit, fac ut non sit duplicibus virgulis inclusum.

Exemplum 4: textum invenire intra commentarium

Munus VBA FIND uti potes ut textum intra cellam commentarium in Excel.

Ad meliorem intelligentiam vide exemplum infra ubi habemus officinam quae tres cellulas cum commentis (per triangulis rubris indicata) continet. Hinc textum invenire volumus "mandatum solvit"Intra unum commentaria. In hoc codice sequenti utemur;

Sub LocateComment ()
Range("A1:B10"). Find(What:="Commissio dat", LookIn:=xlComments).Select
Sub finem

Invenire textum inter comment

Quam ob rem Praecedo cellam tantum eliget quae commentarium continet cuius textus in nostro codice designatus est.

Exemplum V: Error in VBA tractatio munus in FIND

In casu textus quem quaerimus intra teli datum non est, VBA errorem reddet ut infra:

errorem 91

Ad hunc errorem evitandum, codice uti possumus, ut infra ostendetur:

Sub LocateName ()
Dim resultat variante

De Error Proin Next
Range("A1:A10"). Find(What:="Cristina").Select
De Error GoTo 0

Effectus = ActiveCell.Value

Si Proventus = " "Tunc
MsgBox "Valorem quam quaeris praesto non est in range proviso!"
Sub exitus
Si end

Sub finem

Animadverte in codice superiore quod si valorem VBA invenerit, valorem inventum ostendet vel nuntium tamquam "pronuntiabit"Valorem quaeris in datis range non praesto est????????

Plures apicibus in quam errores VBA figere, articulum reprehendo: Excel VBA errores: omnia scire debes!

Details meminisse

  • Munus inveniendum est pars proprietatis teli et debes uti FIND postquam seligendis solum distributio.
  • Munus in FIND, argumentum primum.quod), plus omnia alia libitum est.
  • Si valorem post cellam specificam inveneris, cellam in parametro nominare potes después de syntaxi inquisitionis.

Download in spreadsheet hic continens exempla in hoc doceo.

Etiam reprehendo sicco sequentibus tips Praecedo:

Quid igitur munus in VBA censes FIND? Si quaestiones habes, commentarium tuum infra relinque. Etiam reprehendo sicco plus Excel et VBA tips in nostro loco!

Tommy Banks
Nos beati erimus audire quod cogitas

relinquere responsum

TechnoBreak | Offers et Recensiones
Logo
In adnotatione enable occasus - general
shopping cart