Yritin kokeilla tuollaista koodia millä solun arvon muuttuminen toiseksi käynnistää eri makrot.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("A1")) Is Nothing) Then
If Range("A1") = 1 Then
Application.Run "makri1"
Else
Application.Run "makro2"
End If
End If
End Sub
Periaatteessa toimii, mutta ei ihan niin kuin odotin. Toimii silloin kun käsin syöttää lukeman A1 soluun ja painaa enteriä.
Pitäisi saada toimimaan siten että kun solussa olevan kaavan tuottama lukuarvo muuttuu. Nyt se ei kaavan tuottamiin lukuarvoihin reagoi mitenkään.
Millaiset loitsut vaatisi ettei tarvitsi enterin painallusta siinä solussa?
VBA apuja kaivataan
11
519
Vastaukset
- Anonyymi
Kokeile näitä , jos olisi apua
Worksheet object events
Events on sheets are enabled by default. To view the event procedures for a sheet, right-click the sheet tab and click View Code on the shortcut menu. Select one of the following events from the Procedure list box.
esim.
Private Sub Worksheet_Calculate()
Columns("A:F").AutoFit
End Sub- Anonyymi
Kiitos, olen autettu. En osaa kieliä, mutta ohjelmasi toimii hienosti.
- Anonyymi
Anonyymi kirjoitti:
Kiitos, olen autettu. En osaa kieliä, mutta ohjelmasi toimii hienosti.
Oleppa hyvä.
- Anonyymi
Anonyymi kirjoitti:
Kiitos, olen autettu. En osaa kieliä, mutta ohjelmasi toimii hienosti.
Hienoa jos muut sai apuja.
Kuinka sinulla sattuikin olemaan sama pulma kuin minulla aloittajana. 😲 - Anonyymi
Vapunen tauolle ;D
Mielestäni tämä vapunen pitäisi sulkea toistaiseksi ! - Anonyymi
Anonyymi kirjoitti:
Hienoa jos muut sai apuja.
Kuinka sinulla sattuikin olemaan sama pulma kuin minulla aloittajana. 😲Pulma on päässäsi kun vastaat itsellesi!
- Anonyymi
Anonyymi kirjoitti:
Vapunen tauolle ;D
Mielestäni tämä vapunen pitäisi sulkea toistaiseksi !Kirjautuminen pakolliseksi, ei täältä häiriköt muuten häviä!
- Anonyymi
Anonyymi kirjoitti:
Kirjautuminen pakolliseksi, ei täältä häiriköt muuten häviä!
Minä ajattelin ettet sinä kuitenkaan kiitä saamastasi avusta, niinpä annoin aiheellista kiitosta taitajalle, että olisi apu lähellä seuraavalla kerrallakin.
- Anonyymi
Hienoa, meillä on osaaviakin mukana.
- Anonyymi
VBA (Visual Basic for Applications) -ohjelmoinnin avulla voi luoda makroja myös LibreOffice Calc taulukkolaskentaa käytettäessä.
- Anonyymi
LibreOffice on paras.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Persujen mukaan rasismi on huumoria
Vaan kun koomikko kutsui Halla-ahoa fasistiksi, niin piti haastaa oikeuteen. Mihin se huumorinitaju yhtäkkiä hävisi? ⠀2546490Rasismia kaikkialla näkevät ovat Suomen tyhmimpiä ihmisiä
ja monillahan kuluu myös mielialalääkkeitä, eli päässä on ongelmia. Mutta he eivät tajua kuinka paljon ja ihan todellis1986034Ei kahta sanaa etteikö Petteri Orpo hyväksy rasismia
Koska jatkaa hallituksessa rasistisen perussuomalaisiksi itseään kutsuvan puolueen kanssa. Se on Petteri Orpon arvomaai275579Mitkäs nuorisoporukat ovat toisia nuoria ryöstelleet (selvää rassismia)
No poliisi kertoo, että maahanmuuttajataustaisia ovat, ja isot porukat sillä yhden suomalaisen uhrin kimpussa on ollut j1254348Hallitus on kaadettava ja Orpon on erottava
Mikään muu hallitus ei ole oman elämäni aikana tuhonnut näin paljon tämän maan taloutta ja työllisyyttä sekä suomen main1723608Lasse Lehtonen vaatii persuja pyytämään anteeksi aasialaisilta
Persut ova romahduttaneet Suomen maakuvan parissa päivässä negatiiviseksi rasismillaan ja se alkaa vaikuttamaan jo Suome1313395HS 12/25 kysely: persut romahti, demarit raketoi
Kyyti on kylmää persuleirissä, saattaa vetää siellä silmätkin viirulleen. Sen sijaan SDP:n puoluetoimistolla voidaan pok313094Rasismi rapauttaa Suomen mainetta ja hallituksen hiljaisuus pahentaa vahinkoa
Finnairin viesti Japanista on pysäyttävä: suomalaisen politiikan rasismikohut heijastuvat suoraan matkustuspäätöksiin ja2852579Töppö-persut ovat todella tyhmiä
sen kertoo tämäkin avaus: "Persujen suosio vain laskee" Töppö-persu vaan unohtaa, että ennen tätä galluppia persujen kan172540- 1412412