Olen tehnyt erääseen tehtävään liittyen makron joka muuttaa koko taulukon tekstin kursivoiduksi, asettaa fonttikooksi 12
ja tasaa sen oikealle. Homma toimii muuten hyvin mutta kohditimen pitäisi palautua samaan soluun jossa se oli ennen makron suorittamista. Solu ei luonnollisesti ole määriteltävissä etukäteen.
Löytyisikö keneltäkään gurulta tietoa miten tuollaisen pystyy tekemään?
Kohdistin palaamaan makron suorittamista edeltävään soluun
Aloittelija...
2
383
Vastaukset
- paavali50
Laita makron alkuun: Set p = ActiveCell
Ja loppuun: p.Activate jos oikein tekee eli ...
Sub Koe1()
With Cells
.Font.Size = 12
.Font.Italic = True
End With
End Sub
mutta makronauhottimella tehdessä olet siirtänyt kohdistuksen alkuperäisestä solusta pois, joten vaatii palautuksen esim. noin
Sub Koe2()
Dim Vanha As String
Vanha = ActiveCell.Address
'koodia...
Range(Vanha).Select
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kuka oli töllöntyön tekijä?
Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt424682Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja
Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.532544Jenkkilahkojen kastekaava
Jenkkilahkojen yhteinen kastekaava on kirjoitettuna Mormonin Kirjaan, Moroni, luku-8 Pienten lapsien vanhempia uhataan1391034Pasi Turunen: Ensimmäisenä Helluntaina ei kastettu sylivauvoja!
Tänään 31.5.2026 Pasi Turunen noin vastasi soittajan kysymykseen! Raamattu EI KERRO ketä kastettiin1611005Odotan sitä hetkeä
kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh70926- 118891
Olen melko vakuuttunut
etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok70864- 137815
- 48800
Taas mietin että
mitä ihmettä sanoisin, jos laittaisin viestiä. Aina voi toivottaa jotain, vaikka hyvää kesää, ja jos ei tule vastausta,48756