Welkom op de Nederland Computer Kennisnetwerk!  
 
Zoeken computer kennis
Home Hardware Netwerken Programmering Software Computerstoring Besturingssysteem
Computer Kennis >> Software >> Microsoft Access >> Content
Hoe maak ik een Data Entry Form Met de knop zoeken in Excel ?
U kunt een formulier voor gegevensinvoer met een vind -knop in uw Microsoft Excel-toepassing met behulp van een " UserForm " en Visual Basic for Applications ( VBA ) gemakkelijk tot stand . Een " UserForm " is een user interface waar u besturingselementen zoals tekstvakken en knoppen kunt plaatsen . VBA is de programmeertaal die u kunt gebruiken om de "Find " -methode bevel en zoeken naar tekst in uw Excel-werkblad te voeren. De "Find " -methode zal zoeken naar een term en retourneert de waarde , indien deze wordt gevonden , anders keert het terug niets . Instructies

Lancering Microsoft Excel 1 , type " men " in A1 , " twee " in A2 , " drie " in A3 , " vier " in de A4 , en " vijf " in A5 . Klik op het tabblad " Developer " en klik op " Visual Basic . " Klik op het menu "Invoegen " en klik op " UserForm " om een nieuwe vorm toe te voegen . Klik op " TextBox " op de Toolbox deelvenster en klikt u op het formulier om een nieuw tekstvak toe te voegen . Een nieuwe "Label" gebruikmaking van dezelfde techniek . Voeg een " CommandButton " om uw formulier ook met behulp van dezelfde techniek . Kopen van 2

Dubbelklik op de knop om een ​​gebeurtenis click voor de knop te maken . Voeg de volgende code om een ​​" GoTo " statement om fouten te vangen definiëren :

Private Sub CommandButton1_Click ( ) op On Error GoTo Err_CommandButton1_Click :
3

Definieer de string variabele u gebruiken om de tekst die u wilt zoeken in uw werkblad opslaat :

Dim findstr
Zoals StringfindStr = TextBox1.Text

Kopieer 4 en plak de volgende code op de "Find " -methode uit te voeren en zoek het werkblad voor de waarde in het tekstvak ingevuld :

Me.Label1.Caption = Cells.Find ( Wat : = findstr , Na : = ActiveCell , LookIn : = xlFormulas , LookAt _ : = xlPart , SearchOrder : = xlByRows , SearchDirection : = xlNext , MatchCase : . = _False ) Value & " werd gevonden in het werkblad ! "
5

Voeg de volgende code aan de gebeurtenis click beëindigen en wordt een bericht weergegeven als de string niet werd gevonden :

Exit_CommandButton1_Click
: Exit SubErr_CommandButton1_Click : MsgBox ( " ! de ingevoerde tekenreeks is niet gevonden in het werkblad " ) Resume Exit_CommandButton1_Click : End Sub

Druk op " F5 " 6 om het programma en type " twee " in het tekstvak draaien . Druk op " CommandButton1 " om een ​​bericht weer te geven op het etiket of een bericht als de tekst niet werd gevonden .

Previous: Next:
  Microsoft Access
·MS Excel 2002 Tips & Tricks 
·Hoe kan ik Schakel metagegeven…
·Hoe om te controleren of Dupli…
·Hoe je alle lege rijen in Exce…
·Hoe de Excel 2007 Lijst met dr…
·Hoe maak je een drie - Month C…
·Hoe maak je een quiz Database …
·Hoe maak je een veldnaam in Ex…
·Hoe Anchor in Excel 
  Related Articles
Hoe maak je een Tilde gebruiken in een W…
Hoe kan ik een Umlaut gebruiken in een W…
Hoe maak je een Holiday Nieuwsbrief op u…
Hoe maak je een viervoudige Wenskaart ma…
Hoe maak je een Tent - Fold Wenskaart Ma…
Hoe te Spelling en grammatica fouten te …
Hoe kan ik een document Zoom in Word 200…
Hoe je tekst rond een afbeelding in Word…
Hoe je de uitlijning van de tekst wijzig…
  Software Articles
·Hoe maak je een grafiek in Photoshop Maa…
·Hoe maak je een Media Slideshow maken op…
·Idee Features Vs . ACL 
·Een back-up programma's op mijn computer…
·Hoe permanent verwijderde bestanden voor…
·Hoe te Query gebruik op verschillende we…
·Hoe maak je een Screenshot in Media Play…
·Hoe te vertellen als Office 2007 is Reta…
·Hoe maak je een PowerPoint Web Banner Ma…
Copyright © Computer Kennis http://www.nldit.com