Excel- balloon

Excel- balloon
2010-03-19T10:24:20+01:00
2010-03-19T11:08:02+01:00
2022-07-25T03:45:27+02:00
xhenrik
Szisztok !

Az alábbi teljesen jó működik első indításnál,
másodiknál már nem teljesen írja ki .Text-ben lévő szöveget, harmadiknál else indul

??

With WaitMsg
.BalloonType = msoBalloonTypeBullets
.Mode = msoModeModeless
.Heading = "Tanuló adatai:"
.Text = kiirtext
.Button = msoButtonSetNone
.Animation = msoAnimationGestureUp
.Show
Mutasd a teljes hozzászólást!

  • Milyen eseményre indul ez a kód?
    Mutasd a teljes hozzászólást!
  • ctrl-t
    Mutasd a teljes hozzászólást!
  • Ilyen eseményről még nem halottam.
    Mutasd a teljes hozzászólást!
  • Sub rovidsor()
    With Assistant
    .On = True
    .Visible = True
    .Sounds = True
    End With
    Dim WaitMsg As Balloon
    Set WaitMsg = Assistant.NewBalloon
    nev = " "
    szulet = " "
    kor = " "
    koteles = " "
    irsz = " "
    varos = " "
    lakcim = " "
    anev = " "
    anev2 = " "
    osztaly = " "
    beid = " "
    sor = ActiveCell.Row
    nev = "B" & sor
    nevtext = Range(nev).Value
    szulet = "F" & sor
    szuletext = CStr(Range(szulet).Value)
    kor = "g" & sor
    kortext = CStr(Range(kor).Value)
    koteles = "h" & sor
    kotelestext = Range(koteles).Value
    irsz = "i" & sor
    irsztext = CStr(Range(irsz).Value)
    varos = "j" & sor
    varostext = Range(varos).Value
    lakcim = "l" & sor
    lakcimtext = Range(lakcim).Value
    anev = "p" & sor
    anevtext = Range(anev).Value
    anev2 = "q" & sor
    anev2text = Range(anev2).Value
    osztaly = "aa5" & sor
    osztalytext = CStr(Range(osztaly).Value)
    beid = "ac5" & sor
    beidtext = CStr(Range(beid).Value)
    kiirtext = nevtext + " " + " Szül.d.: " + szuletext + " Kor: " + kortext + " Tk:" + kotelestext + " Isz: " + irsztext + varostext + lakcimtext + " " + anevtext + " " + anev2text + " Oszt: " + osztalytext + " Beirat.: " + beidtext
    With WaitMsg
    .BalloonType = msoBalloonTypeBullets
    .Mode = msoModeModeless
    .Heading = "Tanuló adatai:"
    .Text = kiirtext
    .Button = msoButtonSetNone
    .Animation = msoAnimationGestureUp
    .Show
    End With
    End Sub
    Mutasd a teljes hozzászólást!
abcd