Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Msgbox  (gelezen 3542 keer)

0 leden en 1 gast bekijken dit topic.

Offline YvC

  • Lid
  • *
  • Berichten: 37
  • Alle begin is moeilijk
Msgbox
« Gepost op: 26 april 2005, 20:54:37 »
 ???
Hoi excelcracks,
waarschijnlijk reeds gevraagd, maar ik kan het niet direct vinden.....
Is het mogelijk om een msgbox te koppelen aan een cel?
Wanneer een getal in een bepaalde cel komt, moet de vraag komen "waarvoor dient dit getal?" en dan 2 knoppen "voor serie 1" en "voor serie 2".
Indien serie 1 moet dit in serie 1 weggeschreven worden enz.
Het lukt me om een box te verkrijgen met een bevestiging "ja" "nee", maar niet een box zoals ik zou willen.

Bedankt voor de mogelijke reacties
Yvan  :-\
XP /SP2  Familiale (franse versie) -AMD Athlon 2400+  -  512 MB  -  NVDIA Gefo Ti 4200  -  Mathisa DVD + CD rw  -  80GB

Offline powerkite

  • Volledig lid
  • **
  • Berichten: 207
  • Oplossing.be
Re:Msgbox
« Reactie #1 Gepost op: 26 april 2005, 21:24:51 »
je kan aan de messagebox enkel een aantal voorgedefineerde knoppen toevoegen. Als je zelf een tekst op knoppen wil tonen zal je een userform (formulier) moeten aanmaken. Je zou dan bv 1 userform voor meerdere onderdelen kunnen gebruiken door via VBA de tekst van de knoppen op het zelfgemaakte formulier te wijzigen.

Of je zou eventueel via een inputbox kunnen werken, hierbij kan je dan een soort msgbox laten tonen met een zelfopgegeven tekst, op dit soort msgbox is een tekstvak voorzien zodat de gebruiker een parameter kan ingeven.
vb:

waarde = Inputbox("waarvoor dient dit getal?" & vbcrld & "1) serie 1" & vbcrlf & "2) serie 2")

een nadeel is wel dat de gebruiker exact moet weten wat hij moet ingeven, bij knoppen heeft hij vaste mogelijkheden waarvan hij niet kan afwijken.

(zie help voor meer info over de inputbox)

Ik hoop dat het een klein beetje duidelijk is
Win XP (pro) - Pentium - 2400Mhz - 512Mb - Hercules 9200se - ADSL - Office 2003 Pro

Offline buks

  • Ervaren lid
  • ***
  • Berichten: 313
  • Oplossing.be
Re:Msgbox
« Reactie #2 Gepost op: 30 april 2005, 16:44:51 »
Hallo,

Ik zou volgende doen :

Klik in de projectverkenner dubbel op blad1, kies Worksheet en SelectionChange. Vul nu de volgende If structuur in (met "$B$2" als de cel die jij wenst).

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell.Address = "$B$2" Then
    UserForm1.Show
End If
End Sub

Hierdoor zal op het ogenblik dat cel B2 (in dit voorbeeld) geactiveerd worden UserForm1 getoond worden.

Nu moet je nog Userform1 aanmaken :

Kies Invoegen en UserForm. Hier voeg je een label toe met bv "Maak uw Keuze".
Voeg eveneens twee OptionButtons (keuzerondjes) toe.
Voeg dan ook nog een CommandButton (opdrachtknop) toe.

Dubbelklik op de CommandButton en voeg hier de code toe voor wat er precies moet gebeuren indien selectie 1 werd aangevinkt en wat indien selectie 2 werd aangevinkt.

Persoonlijk verkies ik keuzerondjes (indien slechts 1 mogelijk antwoord) of selectievakjes (indien meerdere antwoorden mogelijk) boven de inputbox als je de mogelijke antwoorden weet, want dit maakt het een stuk eenvoudiger voor het verloop van de procedure. Want wat sommige gebruikers allemaal niet invullen in een inputbox, kan je nooit voorzien.  ;D

Hopelijk ben je hier al mee op weg geholpen (indien er nog vraagjes zijn, stel ze gerust).

Groetjes
Win 7 Home - Intel Core i3 CPU 550 @ 3.20GHz - Basicnet XL - IE 9 - MS Office 2010 - Norton Internet Security 2012

Offline YvC

  • Lid
  • *
  • Berichten: 37
  • Alle begin is moeilijk
Re:Msgbox
« Reactie #3 Gepost op: 01 mei 2005, 23:06:04 »
Is inderdaad mogelijk met een userform,
bedankt voor deze nuttige tip

Yvan
XP /SP2  Familiale (franse versie) -AMD Athlon 2400+  -  512 MB  -  NVDIA Gefo Ti 4200  -  Mathisa DVD + CD rw  -  80GB

 


www.combell.com