Copy Paste om de "zoveel" keer

[Chris15]

Copy Paste om de "zoveel" keer

Bij het invoeren van getallen in cel A7 komt de modus te staan in M3
Op het ogenblik copy paste de code elke keer M2 naar A2 na een invoer.

Kan dit ipv elke keer om de zoveel keer?
Bijvoorbeeld om de 30 keer.
In N5 zou dat aantal ingevoerd kunnen worden, of in de code zelf natuurlijk!

Een teller van de ingevoerde getallen staat in cel E1

Ik hoop dat dit mogelijk is.

Zie bijlage.

 

[emields]

bedoel je zoiets?

 

[Chris15]

Ja, precies Emields, dank je!

Is dit de complete code daarvoor?

[n6] = [n6] - 1
    If [n6] = o Then
        Range("M2").Copy
        Range("A2").PasteSpecial Paste:=xlPasteValues
        [n6] = [n5]

 

[Chris15]

Emields, kan ik ook een geluidje erbij afspelen als N6 op 0 staat? (BeepMe?)

 

[emields]

plaats na

[n6] = [n5]
Beep
end if

 

[Chris15]

Ja, het werkt!
Zijn er nog andere geluiden, of alleen de Beep?

 

[alphamax]

Ja, maar de codes zijn niet voor beginners.

Met Beep-api kan je beep met een andere frequentie,
Met de MessageBeep-api kan je windows standaard geluidjes afspelen,
en met de PlaySound-api kan je .wav-bestanden afspelen.

Zie
http://allapi.mentalis.org/apilist/Beep.shtml
http://allapi.mentalis.org/apilist/MessageBeep.shtml
http://allapi.mentalis.org/apilist/PlaySound.shtml

 

[Chris15]

Hi Alphamax, kan je een voorbeeld geven in mijn code voor de Beep-api?

[n6] = [n6] - 1
    If [n6] = o Then
        Range("M2").Copy
        Range("A2").PasteSpecial Paste:=xlPasteValues
        [n6] = [n5]
        Beep

 

[alphamax]

Ja, maar de codes zijn niet voor beginners.

Codes moeten op meerdere specifieke plekken/modules in het bestand staan.
Maak een testbestandje voor de geluidjes en bestudeer de voorbeelden in de links.

 

[edmoor]

Code voor beginners.
Zet een getal in A1 en voer dan in VBA dit uit:

Application.Speech.Speak "The cell contains " & Range("A1")

Lees ook:
https://wellsr.com/vba/2016/excel/make-excel-talk-with-application-speech-speak-vba/

 

[alphamax]

Zie bijlage voor een voorbeeldje met beep frequency duration.

 

[Chris15]

Dank je! Maar helaas werkt dit niet bij mij. Ik draai Excel op mijn Macbook.

Maar toch bedankt!

 

[alphamax]

Bericht#10 voor de mac

Sub Pronounce_active_cell()
    MacScript ("say " & """" & ActiveCell.Value & """")
End Sub

Bron: https://apple.stackexchange.com/que...-2011-play-sound-file-based-on-name-in-a-cell

 

[Chris15]

Ik heb de code precies overgenomen, en in A1 een 2 ingevoerd. Maar er gebeurd niets. Moet in de code ook ergens A1 staan?

 

[emields]

ik denk dat alphamax zoiets bedoeld, maar kan het zelf niet testen.

 

[Chris15]

Ja, dit werkt Emields! Is het ook mogelijk om een vrouwenstem in te voeren?

 

[alphamax]

MacScript ("say " & Chr(34) & [a2].Value & Chr(34) & " using " & Chr(34) & "Victoria" & Chr(34))

Bron en lijst van mogelijke stemmen, zie https://alvinalexander.com/blog/pos...ext-speech-voices-speaking-using-applescript/
En ik kan ook niet testen, want ik heb ook geen mac.

 

[Chris15]

Wat leuk! Ik zie dat Victoria is ingevuld, zijn er nog andere dames?

 

[alphamax]

Wat leuk! Ik zie dat Victoria is ingevuld, zijn er nog andere dames?

Zie de link in bericht#17

 

[alphamax]

@ allen
Hier een youtube filmpje met alle stemmen, zie https://www.youtube.com/watch?v=Z4hqUxb9MmY