Excel macro's

[Jasper]

Beste forumleden,

 

Ik ben en beetje aan het werken met macro's in excel en wil graag teskt boxen gebruiken.

 

nou heb ik als voorbeeld gemaakt:

 

Sub sd()
Answer = MsgBox("Tekst", vbOKOnly)

End Sub

 

Deze heb ik dan aan blad 1 gehangen

 

zo wil ik op elk blad en melding weergeven

 

Maar hoe zorg ik er voor dat als het document geopend wordt er automatisch op elke pagina en eigen msgbox verschijnt die je moet lezen en op OK moet klikken.

 

Hoor graag van jullie

[Jasper]

1 minuut geleden, Jasper zei:

Beste forumleden,

 

Ik ben en beetje aan het werken met macro's in excel en wil graag teskt boxen gebruiken.

 

nou heb ik als voorbeeld gemaakt:

 

Sub sd()
Answer = MsgBox("Tekst", vbOKOnly)

End Sub

 

Deze heb ik dan aan blad 1 gehangen

 

zo wil ik op elk blad en melding weergeven

 

Maar hoe zorg ik er voor dat als het document geopend wordt er automatisch op elke pagina en eigen msgbox verschijnt die je moet lezen en op OK moet klikken.

 

Hoor graag van jullie

 

Eigenlijk dan wel graag dat mocht de gebruiker van blad 1 naar 2 gaan en besluit weer terug te gaan naar 1 dat dan de melding niet nogmaals verschijnt

 

[alpha]

Stel dat je een werkmap met 3 bladen hebt.

Plaats dan in het codeblad behorend bij ThisWorkbook:

Private Sub Workbook_Open()
macro1
Sheets(1).Activate
MsgBox ("Bericht behorend bij Blad1.")
End Sub

Het codeblad behorend bij blad1 laat je leeg.

Plaats in het codeblad behorend bij blad2:

Private Sub Worksheet_Activate()
Aantalblad2 = Aantalblad2 + 1
If Aantalblad2 = 1 Then
MsgBox ("Bericht behorend bij Blad2.")
End If
End Sub

Plaats in het codeblad behorend bij blad3:

Private Sub Worksheet_Activate()
Aantalblad3 = Aantalblad3 + 1
If Aantalblad3 = 1 Then
MsgBox ("Bericht behorend bij Blad3.")
End If
End Sub

Plaats in een module:

Public Aantalblad2 As Integer, Aantalblad3 As Integer
Sub macro1()
Aantalblad2 = 0: Aantalblad3 = 0
End Sub

[Jasper]

Super bedankt!

 

Ik heb 5 pagina's 

en is gelukt om er 2 bij te plaatsen!

 

Nou heb ik wel nog en kleine vraag. ik gebruik & vbCrLf & om een enter in een messagebox te krijgen

 

Answer = MsgBox("tekst1" & vbCrLf & "tekst2")

 

Maar hoe kan ik er voor zorgen dat ik er een regel tussen krijg? twee keer & vbCrLf & werkt helaas niet

 

[alpha]

8 minuten geleden, Jasper zei:

Maar hoe kan ik er voor zorgen dat ik er een regel tussen krijg? twee keer & vbCrLf & werkt helaas niet

Toch wel, waarschijnlijk ben je 1 keer het paragraafteken vergeten te plaatsen. Probeer dit maar eens:

Answer = MsgBox("tekst1" & vbCrLf & vbCrLf & "tekst2")

[Jasper]

Super ik had een & te veel.

 

ik moet best lange zinnen maken maar als ik in visual een enter gebruik krijg je en foutmelding. Neem aan dat dat toch wel kan?

 

[alpha]

Hoe bedoel je dat ("Als ik in Visual een Enter geef..."  (in VBA neem ik aan) ?

[Jasper]

nou nu staat Answer = MsgBox("tekst1" & vbCrLf & "tekst2")  in een regel in visual basic for applications

 

maar het liefst zou ik bijvoorbeeld hebben staan

 

Answer = MsgBox("tekst1" & vbCrLf & vbCrLf &

Tekst 2

tekst 3

 

enz

 

mar als ik en enter geef  dan krijg je de foutmelding compileerfout

 

28 september 2016 aangepast door Jasper

[alpha]

Dan moet je er dit van maken (evt. in elke regel een vbCrlf minder):

Answer = MsgBox("tekst 1" & vbCrLf & vbCrLf & _
"tekst 2" & vbCrLf & vbCrLf & _
"tekst 3")

 

[Jasper]

Nog en vraag over de tekstblokken. Je krijgt nu mooi als je en pagina opent en info venster.

 

Nou vul ik daarna handmatig bij en checklist alle benodigd heden in. Zowel met cijfers het aantal.

met 1 en 0 of iets wel of niet nodig is

en met selectiemenu's waar keuze gemaakt kunnen worden uit opties.

 

Is het nou mogelijk dat als ik het bewuste blad open er eerst het msgbox met de info die ik nu heb verschijnt. zodra dit gelezen is klik je op ok.

dan komt er en nieuw msgbox met de vraag hoeveel zijn er nodig? en dat daar dan en waarde ingevuld kan worden. Als er dan op OK geklikt wordt wordt die waarde aan Cel A1 gehangen

En de vraag erna bijvoorbeeld heb je hulp nodig? hier met en knop Ja en Nee. Klikt me ja wordt er en 1 in vak A2 gevuld en bij Nee en 0 in vak A2

en dat er dan bij de vragen met meerdere keuzes verschillende knoppen zijn die de opties aangeven.