*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Macro voor karakters in te geven.  (gelezen 4272 keer)

0 leden en 1 gast bekijken dit topic.

Offline serge007

  • Lid
  • *
  • Berichten: 14
  • Oplossing.be
Macro voor karakters in te geven.
« Gepost op: 21 februari 2005, 23:27:57 »
Hoi,

Weet er iemand hoe ik bv "-->" dit in een tekstbox kan ingeven doormiddel van een knop? Bv als ik op die knop druk dat hij naar een nieuwe regel springt en dan het "-->" zet.

Greatz
P.S. net zoals hier met die smilies
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.178
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re:Macro voor karakter in t geven.
« Reactie #1 Gepost op: 22 februari 2005, 10:06:54 »
Hallo Serge,

de code voor de macro is eenvoudig:

Sub Macro1()

        ActiveCell.FormulaR1C1 = "'--->"
           
Private Sub TextBox1_Change()
Dim tekst As String
tekst = TextBox1
        ActiveCell.FormulaR1C1 = tekst
End SubEnd Sub

(Let op: in de formule zie je "'--->" staan. Dus " en dan nog één ' en dan ---> gevolgd door "  Dat éne haakje zorgt er voor dat je minteken niet aanzien word als een minteken, maar als een streepje.)
Deze macro activeer je door een knop, en hoe je die maakt en koppelt aan de macro staat in de vorige nieuwsbrief.

Groeten,

SoftAid
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline serge007

  • Lid
  • *
  • Berichten: 14
  • Oplossing.be
Re:Macro voor karakters in te geven.
« Reactie #2 Gepost op: 22 februari 2005, 10:31:47 »
Hoi,
Ja die code klopt voor dit in te geven in een cel, maar ik wil dat ingeven in een tekstbox op een form!
Wie kan er me daar bij helpen?
Greatz
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.178
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re:Macro voor karakters in te geven.
« Reactie #3 Gepost op: 22 februari 2005, 10:39:18 »
Private Sub TextBox1_Change()
Dim tekst As String
tekst = TextBox1
        ActiveCell.FormulaR1C1 = tekst
End Sub
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline serge007

  • Lid
  • *
  • Berichten: 14
  • Oplossing.be
Re:Macro voor karakters in te geven.
« Reactie #4 Gepost op: 22 februari 2005, 10:49:01 »
Werkt blijkbaar niet bij me, krijg wel geen foutmeldingen, maar er gebeurt ook niets.
Dit is de code van mijn knop(dan komt de "-->" het in een cel
Private Sub CommandButton1_Click()

        ActiveCell.FormulaR1C1 = "'--->"
        Application.MoveAfterReturn = True
        Application.MoveAfterReturnDirection = xlDown

End Sub

Private Sub TextBox1_Change()
Dim tekst As String

    tekst = TextBox1
    ActiveCell.FormulaR1C1 = tekst
   
End Sub

voor de rest krijg ik niets in mijn tekstbox hoor

Ik wil dus op een knop drukken en dan springt mijn cursor in de tekstbox naar een nieuwe regel met dit"-->"en de cursor erna zodanig dat men gewoon verder kan tikken. Wie helpt me?
Thanks
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.178
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re:Macro voor karakters in te geven.
« Reactie #5 Gepost op: 22 februari 2005, 10:58:29 »
Hola Hola Serge,

nu ben je er een salaadje van aan het maken.

Ik ken niet veel van VBA, maar dat je in een textbox zelf iets moet intypen dat weet ik wel.

Eerst vraag je om een macro die een --> zet in een cel als je op een zelf aan te maken klop drukt. (en dan eventueel het focus naar een andere cel zet)

Dan zeg je :
Citaat
maar ik wil dat ingeven in een tekstbox op een form!

Dat zijn heel verschillende zaken.

Probeer hier eens verder op te borduren:

Private Sub TextBox1_Change()
Dim tekst As String

    tekst = TextBox1
    ActiveCell.FormulaR1C1 = "'--->"& tekst

End Sub

SoftAid, die off-line gaat  :)
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline serge007

  • Lid
  • *
  • Berichten: 14
  • Oplossing.be
Re:Macro voor karakters in te geven.
« Reactie #6 Gepost op: 23 februari 2005, 09:31:18 »
Hoi,
Hij blijft het "-->" in een cel plaatsen,  plaats van in de teksbox.
Ik leg even mijn probleem opnieuw uit.
Ik heb dus een form, op die form staat een Knop en een teksvak.
Als ik op die knop druk wil ik de de cursor naar een nieuwe lijn springt waar hij "-->" plaatst en erna dan cursor.
Greatz
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline john1959

  • Lid
  • *
  • Berichten: 21
  • Oplossing.be
Re:Macro voor karakters in te geven.
« Reactie #7 Gepost op: 02 juni 2005, 14:48:21 »
Ha serge, bedoel je dit?
Private Sub CommandButton1_Click()
Dim tekstoud As String
tekstoud = Me.TextBox1.Text
Me.TextBox1.Text = tekstoud + " -->" + Chr(13) & Chr(10)

End Sub

(uiteraard de Textbox1 op multiline=true zetten)
Groet, John
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline john1959

  • Lid
  • *
  • Berichten: 21
  • Oplossing.be
Re:Macro voor karakters in te geven.
« Reactie #8 Gepost op: 04 juni 2005, 14:25:46 »
Oei,ik moet mezelf even corrigeren (je wilt lees ik de tekst die er al staat behouden, dan een nieuwe regel, en dan --> en dan met de cursor klaar voor nieuwe invoer. Dat wordt dan:

Private Sub CommandButton1_Click()
Dim tekstoud As String
tekstoud = Me.TextBox1.Text
Me.TextBox1.Text = tekstoud + Chr(13) & Chr(10) + " -->"
Me.TextBox1.SetFocus

End Sub
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.
Pagina's: [1]   Omhoog
 


www.combell.com