Tietääkö kukaan, miten saa makrossa toimimaan välisumman laskemisen, kun rivien lukumäärä ei ole tiedossa, vaan makron alussa se lasketaan ja saatu lukumäärä on d? (Tässä esimerkkitapauksessa d=31).
Nauhoittamalla (kiinteän solualueen perusteella) koodirivistä tulee tällainen:
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-21]C:R[-1]C)"
Muuten toimii, mutta solualue on kiinteä, rivimäärä d ei siis tule huomioiduksi. Sama lopputulos on koodirivillä:
ActiveCell.Formula = "=SUBTOTAL(9,f10:f30)"
Miten siis saisin kiinteän viittauksen R[-21] tai F30 "liukuvaksi"? Olen kokeillut "tämän tyyppisiä" ratkaisuja, mutta huonolla menestyksellä:
Range("F10:F30").Select
vertaa:
Range(Cells(d-21, 6), Cells(d-1, 6)).Select
-Pasi-
Nauhoittamalla (kiinteän solualueen perusteella) koodirivistä tulee tällainen:
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-21]C:R[-1]C)"
Muuten toimii, mutta solualue on kiinteä, rivimäärä d ei siis tule huomioiduksi. Sama lopputulos on koodirivillä:
ActiveCell.Formula = "=SUBTOTAL(9,f10:f30)"
Miten siis saisin kiinteän viittauksen R[-21] tai F30 "liukuvaksi"? Olen kokeillut "tämän tyyppisiä" ratkaisuja, mutta huonolla menestyksellä:
Range("F10:F30").Select
vertaa:
Range(Cells(d-21, 6), Cells(d-1, 6)).Select
-Pasi-
Vastaukset 6
Vanhimmat
Toinen kysymys oli vielä:
Voinko tehdä makron, joka poistaa makrot käytöstä tai ottaa ne käyttöön. Joko kaikki- tai vain tietyt makrot?
Tai voiko tehdä makron, jolla makron käynnistävän painikkeen voi aktivoida tai deaktivoida samaan tapaan kuin Windowsissa yleisesti tehdään (painikkeen teksti musta tai vaalean harmaa)?
Kiitoksia jo etukäteen
-Pasi-
tehdä, toki tapojahan on useita.
Itse suosittelisin että laittaisit joko makropainikkeiden viereen tai omaan listaan checkbox-komponentteja. Sitten tekisit jokaisen makron alkuun oman if-lausekkeen joka tutkisi onko kyseisen makron checkbox valittu vai ei.
Tällöin tietysti checkbox eli "ruksi" pitää olla liitetty johonkin soluun johon checkbox antaa true/false -arvoja. Jos checkbox on valittu (True) niin makro ajetaan loppuun, jos ei (False) niin ajo lopetetaan.
Edellämainitulla tavalla voi toki tehdä samalla myös painikkeen "deaktivoimisen" eli painikkeen tekstivärin vaihtamisen harmaaksi tai mustaksi tilanteen mukaan.
on laittaa makroon pari riviä Excel VBA-koodia:
------------------------------------
Dim Rivi As String
Dim FormulaNumero As String
Rivi = d
FormulaNumero = Rivi - 10
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-" & FormulaNumero & "]C:R[-1]C)"
------------------------------------
kokeilen noita konsteja. Mietin jo vaihtoehtoa jossa käydään tutkimassa jokaisesta rivistä onko se suodatettu, ja suodattamattomien rivien arvot lasketaan yhteen... Aika kaukaa haettua, eikö..?
Asiasta vielä kahvipannuun, eli osaatko sanoa onko olemassa keinoa suojata makrot ja VBA-koodi? Kaavat ja solut voin kyllä suojata salasanalla, mutta onko mitään keinoa suojata moduuleissa oleva VBA-koodi?
Onko esimerkiksi sellainen mahdollista, että moduulissa on vain lyhyt koodi joka käskee: käypä lukemassa koodi taulukon solusta R3, joka on sitten piilotettu ja suojattu..?
-Pasi-
Tools - Macro - Visual Basic Editor - Tools - VBAProject Properties - Protection, ruksi kohtaan "Lock project for viewing".
Kiitos taas vastauksestasi, löysinkin saman kohdan hieman kysymyksen lähettämisen jälkeen...
-Pasi-