Ylikerroin.com
Suomen suurin vedonlyöntisivusto
Tänään on 17.12.2017, 20:11

Kaikki ajat ovat UTC + 2 tuntia



Aloita uusi ketju Vastaa viestiin  [ 6 viestiä ] 
Kirjoittaja Viesti
 Viestin otsikko: VisualBasic - ohjelmointi - kurssiII
ViestiLähetetty: 20.10.2014, 07:40 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1104Paikkakunta: Kamppi
Pisteitä: 3267
3. Ohjelmoinnin perusteet

Mallisovellus
- Avaa Excel, siirry VBA:han (Alt-F11) ja lisää moduli (Insert --> Module)
- Siirrä Module1:n koodi-ikkuna tyhjän alueen vasempaan yläkulmaan ja säädä ikkunan koko itsellesi sopivaksi.
- Kopioi Module1:n koodiksi seuraava teksti:

Koodi:
Option Explicit

Sub Esimerkki()

'======== Muuttujamäärittelyt                             

'======== Ohjelmakomennot

'======== Virhekäsittelijä

End Sub


- Talleta työkirja Kurssi -kansioon nimellä Template.xlsm (tai jos haluat Malli.xlsm)
- Mallityökirja on helppo avata Recent -valikosta.

Kuva


3.1 If .. ElseIf .. Else -lause

If -lausetta käytetään valitsemaan suoritettavat komennot. Sen yksinkertaisin muoto on seuraava:

If ehto Then
[komennot]
End If

Koodin tulkinta:
- jos ehto = Tosi, komennot suoritetaan,
- muussa tapauksessa komentoja ei suoriteta vaan siirrytään End If -lauseen jälkeiselle riville.

Laajemmassa muodossa If -lauseen syntaksi kuuluu näin:

If ehto1 Then
[suorita nämä komennot]
ElseIf ehto2 Then
[suorita nämä komennot]
Else
[suorita nämä komennot]
End If

- kun yksi ehdoista toteutuu ja sitä vastaavat komennot on suoritettu, If -lauseen suoritus päättyy.
- ElseIf -lausetta ei aina tarvita, toisinaan niitä tarvitaan useampia,
- Else -lausetta ei aina tarvita, mutta hyvä ohjelmointikäytäntö on ottaa se mukaan yllättävien tapausten varalta.
- Yleisin koodaus -bugi on että End If -lause unohdetaan kirjoittaa...

Harjoitus 3-1-1

Avaa Template ja kirjoita seuraava koodi (rivikommentteja ei tarvitse kirjoittaa):
[myöhemmin kirjoitan koodit kopioitavaan muotoon mutta aluksi kun komentojen muotoja harjoitellaan, ne jäävät helpommin mieleen kun ne kirjoittaa itse.]

Kuva

- 1. ohjelmarivillä kokonl -muuttuja saa arvokseen tämänhetkisen kuukaudenpäivän. Tätä postitettaessa sen arvoksi tuli 20.
- If -lauseella valitaan arvo, joka teksti -muuttujalle annetaan.

kokonl = 20 --> ehto1 ei ole Tosi --> siirrytään ehto2:een --> ehto2 toteutuu --> tekstille annetaan arvo "Olemme kuun keskivaiheilla." --> siirrytään End If -lauseen jälkeiselle riville.

Huom!
Muuttuja teksti sai tässä tietyn arvon mutta koska teksti on lokaali muuttuja sen arvo ei säily.
Sen elinkaari päättyy heti makron suorittamisen jälkeen. Tällöin sen arvo on määrittelemätön (N/A ~Not Accessible ~ei käytettävissä)

Laita koodiin seuraava pieni lisäys, joka hyödyntää sisäistä funktiota nimeltä MsgBox.

Kuva

Näitä ohjelmoinnin perusharjoitksia ei välttämättä tarvitse tallentaa.

Tehtävä 3-1-1

Avaa Template.
Kirjoita yo. harjoituksen mukaisesti koodi, joka tulostaa
- "Elämme vasta alkuviikkoa.."
- "Olemme jo loppuviikolla!"
- "Tänään on Sunnuntai."
Tilanteen mukaan tietysti!

Tehtävä 3-1-2

Avaa Template ja kopioi seuraava taulukko exceliin solusta A2 alkaen.

K. AbbottWeybridge22.03.1975
E. SkinnerLondon15.04.1998
J. DoyleAshford26.12.1997
G. NaylorLondon29.05.1976
M. MellorBrackley03.01.1993
J. GordonLiverpool20.06.1980
C. O'BrienBishop's Cleeve17.09.1968
L. KennedySutton29.07.1986
M. DavisonLondon18.01.1979
L. WarnerCharlbury21.02.1973
F. BellPortslade09.08.1958
J. GilbertLondon07.11.1982
E. EllisLondon04.01.2000
D. BarnesCholsey01.05.1956
C. ChandlerLondon28.06.1982
K. SwiftWarland01.04.1989
B. HarrisonNewton27.01.1966
B. DobsonTitsey15.07.1976
G. PughNettlerbridge17.10.1999
E. GibbonsBuxworth22.06.1955
L. NicholsonFulletby29.10.1960
K. MillSouthampton12.12.1963

Kirjoita koodi, joka
- otsikoi (1. riville) taulukon sarakkeet, D-sarakkeen otsikoksi tulee Viiteryhmä.
- kirjoittaa D-sarakkeeseen jokaisen kansalaisen viiteryhmän
-- "junior", jos hänen ikänsä on alle 18 vuotta,
-- "senior", jos hänen ikänsä on yli 60 vuotta,
-- "medior", jos hänen ikänsä on yo. rajojen välissä.

-
9


Viimeksi muokannut S.Mäenala päivämäärä 12.11.2014, 21:10, muokattu yhteensä 1 kerran
Ylös
  Profiili
 
 Viestin otsikko: Re: VisualBasic - ohjelmointi - kurssiII
ViestiLähetetty: 27.10.2014, 10:33 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1104Paikkakunta: Kamppi
Pisteitä: 3267
Vihje:
Samalle riville voidaan kirjoittaa 2 tai useampia komentoja erottamalla ne kaksoispisteellä.

Kuva

Laaja yksimielisyys vallitsee siitä että koodi on helppolukuisempaa jos kaikki komennot
ovat omilla riveillään.

Koodin optimoinnista suurissa toistorakenteissa:

Koodin suoritusnopeuteen vaikuttavista tekijöistä merkittävimpiä ovat

a) Muuttujien tiukka määrittely (Option Explicit)
- ilman tätä direktiiviä kaikki muuttujat määritellään Variant -tyyppisiksi.
Suurissa rakenteissa tämän on todettu kasvattavan koodin suoritusajan 3 - 4 -kertaisiksi.
Toinen haitta on suuri muistin hukkakulutus.

b) Objektimuuttujien käyttö
- Niitä käytettäessä viittausketjut lyhenevät

c) Viittausketjujen käsittelynopeuteen vaikuttavien tekniikoiden käyttö
- Pitkät useita pisteitä sisältävät viittausketjut kuten
Worksheets("Sheet1").Range("A1").Font.Size=14
on selvitettävä ennenkuin haluttuja objekteja tai niiden ominaisuuksia voidaan käsitellä.
- Viittauksen selvitys hidastaa koodin suoritusta ja tästä syystä tekniikat, joilla ketjuja voidaan lyhentää ja pisteoperaattorien määrää pienentää, ovat merkittäviä.
- eräs näistä tekniikoista on paljon käytetty:

3.2 With ... End With -komento

Seuraavassa on esitelty tyypillinen With ... End With -rakenteen käyttötilanne.
Koodi määrittelee alueen A1:J1 fontin:

Kuva

Ylemmän blokin jokaisella rivillä toistuvat Range("A1:J1").Font -rakenteet on alemmassa vaihtoehdossa poistettu With ... End With -komennolla asettamalla toistuva lauseke kaikille riveille yhteiseksi.

Huomaa pisteoperaattori kunkin rivin ensimmäisenä merkkinä!
Koodi tulee selkeämmäksi ja suurissa toistorakenteissa saavutetaan aikasäästöjä.
Alemmassa koodissa viitataan jokaisella koodirivillä samaan font -objektiin ja viittaus selvitetään koodia suoritettaessa vain 1 kerran.
Sensijaan ylemmässä koodissa objekti-viittaus selvitetään joka rivillä uudestaan!

3.3 For Each ... Next -silmukka

For Each ... Next -silmukkaa käytetään kokoelmien (collections) läpikäyntiin.
Tyypillinen yksinkertainen tilanne löytyy esimerkiksi Worksheets -kokoelman käsittelystä:

Kuva

- Excel antaa jokaiselle työkirjan välilehdelle indeksinumeron 1:stä alkaen.
For Each ... Next -silmukka ottaa indeksinumero-järjestyksessä välilehdet yksi kerrallaan käsiteltäväksi.
- If -lauseessa esiintyvät tähdet ( * ) ovat merkkijonoissa ns. wildcard -merkkejä, jotka vastaavat 0 - n :nää kappaletta välilehtien nimissä sallittuja kirjoitusmerkkejä.
Esim. jos välilehden nimi on 2012-toukokuu, niin välilehti deletoidaan.
Sensijaan jos nimi on huhti-touko2012, niin välilehteä ei deletoida.
- Excel ystävällisesti varoittaa välilehteä deletoitaessa:

Kuva

- DisplayAlerts=False -lauseella Excel'in varoitukset mahdollisista data-menetyksistä kytketään deletoinnin ajaksi pois.

- For Each ... Next -lausetta käytettäessä ohjelmoijan ei tarvitse tietää kuinka monta objektia kokoelmaan kuuluu.
Niiden määrä saattaa myös vaihdella suorituskertojen välillä.

3.4 For ... Next -silmukka

- For ... Next -silmukan yleisin muoto on seuraava

Kuva

- Askellusmuuttujan stp default-arvo = 1. Se voidaan tällöin jättää merkitsemättä.

Esimerkki kuvaa asian parhaiten.
For ... Next -ilmukan toiminta on tässä kuvattu yksityiskohtaisesti.

Kuva

i:n arvo kasvaa jokaisella kierroksella yhdellä, summan arvo kasvaa jokaisella kierroksella i:n arvon verran.
For ... Next -silmukka on ohjelmoinnin kannalta hyvin keskeinen ja sen kirjoittaminen kannattaa opetella huolella. :!:


Seuraavissa tehtävissä voidaan datana käyttää allaolevaa random-materiaalia. Kopioi taulukko Excel'iin: Sheet1 solusta A1 alkaen:

1.0950.648.72.1823.091.1411.852.711.1821.9622.41.14.062.151.0462.32
2.766.52.13.558.7534.21.1613.593.021.8121.61321.252.612.40.4582.66
3.866.51.11.346.753.63.870.2610.962.782.39132.451.52.41.053.812.150.4222.27
4.267.51.255.938.613.24.671.468.243.23.36162.2622.41.052.692.150.9582.21
2.6240.84.429.022.73.91.2510.243.063.31112.792.52.21.11.862.251.8532.43
3.9861.936.669.272.73.540.869.063.060.85141.52.521.33.912.40.9632.89
4.95111.385.955.4144.110.112.113.161.64192.2422.41.11.932.10.4292.4
1.9213.51.349.086.283.43.780.3911.292.541.55291.961.52.21.22.562.31.3742.75
4.1950.97.651.942.24.151.9511.172.662.35122.3322.21.22.72.351.7322.86
4.5850.474.688.72.44.21.8511.872.352.5112.871.52.415.012.151.0752.2
4.4940.46.112.742.42.980.558.752.470.56172.7522.41.052.592.151.5612.44
1.54101.222.857.883.24.661.446.362.391.62101.991.52.21.23.312.250.0992.29
2.2881.421.483.351.73.381.669.162.571.421.982.52.80.94.631.90.5351.84
2.676.51.452.779.441.93.281.439.72.530.69201.922.21.24.272.30.9182.69
1.254.51.514.236.5234.491.5412.662.762.84282.912.52.80.93.871.850.4171.76
3.3850.465.283.232.44.181.7711.662.832.07101.772.52.41.12.222.251.062.31
3.3661.274.447.123.73.750.0912.752.682.57212.791.52.614.592.10.92.27
2.614.50.795.732.93.24.411.1712.12.770.9772.812.52.60.954.2920.41.94
3.39101.324.642.633.24.561.3811.122.540.97141.9422.21.13.822.151.9752.53
4.539.51.757.226.523.24.71.479.842.351.08161.122.521.252.912.351.4542.45
4.8310.51.734.94.274.54.530.0412.012.622.9572.791.52.21.13.732.151.1392.49
3.976.50.892.635.352.94.061.219.022.491.29191.08221.23.372.351.3452.5
3.515.50.874.165.052.23.341.127.062.761.65192.742.530.854.051.951.5172.24
3.967.51.398.934.063.13.550.4512.432.642.09221.4322.41.051.252.150.5342.24
1.9150.763.53.381.73.041.369.472.790.75241.812.521.21.582.351.7712.54

Tehtävä 3-3-1
Kirjoita For Each ... Next -silmukkaa käyttäen makro, joka tulostaa sarakkeen A lukujen summan soluun A26.

Tehtävä 3-3-2
Kirjoita For Each ... Next -silmukkaa käyttäen makro, joka etsii koko taulukon suurimman luvun ja ilmoittaa tuloksen MsgBox -funktiolla muodossa
"Taulukon suurin luku = (suurin luku)".

Tehtävä 3-4-1
Kirjoita For ... Next -silmukkaa käyttäen makro, joka tulostaa kunkin rivin summan sarakkeeseen U.

Tehtävä 3-4-2
Kirjoita For ... Next -silmukkaa käyttäen makro, joka tulostaa kunkin sarakkeen suurimman ja pienimmän arvon rivinumerot sarakkeen alle riveille 26 ja 27.

Tehtävä 3-4-3
Kirjoita For ... Next -silmukkaa käyttäen makro, joka tulostaa sarakkeeseen U sanan ylipelattu jos A-sarakkeen arvo < 2.00 ja B-sarakkeen arvo >= 4.

Tehtävä 3-4-4
Kirjoita For ... Next -silmukkaa käyttäen makro, joka kopioi koko taulukon välilehdelle Sheet2 alkaen sarakkeesta 3 riviltä 10.
14
Ylös
  Profiili
 
27.10.2014 16:15 <HasHasHas> Kiitän. Täytynee näpytellä kotiläksyt tässä viikolla. :)
27.10.2014 18:36 <S.Mäenala> Hyvä päätös 3H! Ei näitä pelkästään katselemalla opi..
 Viestin otsikko: Re: VisualBasic - ohjelmointi - kurssiII
ViestiLähetetty: 30.10.2014, 10:25 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1104Paikkakunta: Kamppi
Pisteitä: 3267
Tehtävien 3-1-1 ja 3-1-2 ratkaisut

Kertaus:

Kuva

Tehtävä 3-1-1

- Avaa Template, siirry VBA-editoriin (Alt-F11)
- Käytetään edeltävän harjoituksen 3-1-1 koodin merkintöjä.
- Palautetaan mieliin harjoituksesta 2-1 (Immediate Window) funktion Weekday käyttö.

Koodataan seuraava:

Kuva

- Lause kokonl = Weekday( Date, vbMonday) palauttaa muuttujan kokonl arvoksi tämän päivän viikonpäivän numeron.
Postituspäivän (torstai) numero on 4.
- Date = nykyinen päiväys, vbMonday = viikon alkamispäivä
- Else -kohta ei tässä tapauksessa ole välttämätön mutta edustaa tervettä koodaustapaa yllätystilanteiden varalta.

- Suorita makro VBA:sta näppäilemällä F5 (kursori jollakin koodirivillä), talleta työkirja jos katsot sen tarpeelliseksi.

Tehtävä 3-1-2
Tämä tehtävä on tarkoitettu
- antamaan edistyneemmille kurssilaisille pientä purtavaa,
- painottamaan sitä että ongelmatilanteissa avuksi voi aina ottaa netin VBA-keskustelut.
Netissä kannattaa kuitenkin (etenkin ohjelmointi-kysymyksissä) muistaa että neuvojia on kahdenlaisia..

Ratkaisumalli 1
- Avaa Template, siirry VBA-editoriin (Alt-F11)
- Käytetään ensimmäisessä ratkaisumallissa hyväksi myös Excel'iä:

Kuva

Kuvan mukaisesti:
- solun G2 kaava: =NOW()
- solun G5 kaava: =DATE(YEAR(G2)-60;MONTH(G2);DAY(G2))
- solu G6 vastaavasti
(suom. ftionimet: NOW = NYT, DATE = PÄIVÄYS, YEAR = VUOSI, MONTH = KUUKAUSI, DAY = PÄIVÄ)

- Tämän jälkeen voidaan kirjoittaa seuraava:

Kuva

- ratkaisussa oletettiin että For ... Next -looppi ei vielä ole käytettävissä..

Ratkaisumalli 2:

Tässä on käytetty g-menetelmää ja löydetty DateAdd -kirjastofunktio.
Ratkaisu hyödyntää myös seuraavan kurssiosion For ... Next -rakenteita, jotta koodia ei tarvitse toistaa 22 kertaa.

Koodataan:

Kuva

- DateAdd -funktion toiminta on seuraava:
- argumentti Date palauttaa nykyisen päiväyksen (päiväm. ja kellonaika)
- Merkkijonolla "yyyy" määritetään mitä päiväyksen osaa lisätään, tässä lisätään siis vuosia, lisäys voi olla myös negatiivinen
- merkkijonoa seuraava lukuarvo ilmoittaa lisäyksen määrän, tässä -18 / -60.
- DateAdd -funktio palauttaa sen päiväyksen, joka on annetun aikaintervallin etäisyydellä ftiolle ilmoitetusta päiväyksestä (Date).

- lause objCell.Range("B1").Value = "senior" saattaa myös kaivata pientä selitystä:
- - esimerkiksi vaikkapa For -loopin 1. kierroksella objCell:illä on arvo C2 (viittaus soluun C2)
- - määritys .Range("B1") on cbjCell:istä katsoen 1 solu siitä oikealle, siis 1 solu C2:sta oikealle (=D2)
- - eli C2:sta katsoen Range("B1") on solu D2
- - lause olisi voitu kirjoittaa myös muotoon objCell.Offset(0,1).Value = "senior", jolloin se varmasti olisi helpommin ymmärrettävissä.
run/save

Tähän asti tehtävät ovat olleet melko epäreiluja aloittelivia ohjelmoijia kohtaan kun useimmiten on tarvittu omia lisäpanoksia tehtävien tekemiseen, joko aikaisempaa kokemusta tai esim. webbi-hakuja.
Jatkon pyrin rakentamaan siten että tehtävät olisivat suoritettavissa pelkästään kurssilla jo läpikäytyjen asioiden pohjalta. Vaikeusasteita saadaan tarvittaessa lisää käyttämällä vaativampaa logiikkaa.
7
Ylös
  Profiili
 
 Viestin otsikko: Re: VisualBasic - ohjelmointi - kurssiII
ViestiLähetetty: 12.11.2014, 22:03 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1104Paikkakunta: Kamppi
Pisteitä: 3267
Operaattorit

Kuva

Huom!
Useissa ohjelmointikielissä sijoitusoperaattori on yhtäsuuruusmerkki (=) ja yhtäsuuruusoperaattori kaksi yhtäsuuruusmerkkiä (==), joissakin jopa kolme.
- lause a = 5 antaa muuttujalle a arvon 5
- lause a == 5 testaa onko muuttujan a arvo 5.
VBA:ssa yhtäsuuruusmerkkiä käytetään molemmissa tapauksissa
- lause a = 5
- - normaalisti sijoittaa arvon 5 muuttujaan a, mutta
- - esim. If lauseessa, testaa onko a:n arvo 5.

Ilmaus (expression)

Ilmaus on kielen kannalta mielekäs symboleista (tokens) koostuva lauseke.
- symbolit voivat olla
- - vakioita, esim. "Pekka on matkoilla", 5.25, vbMonday
- - muuttujia
- - avainsanoja (keywords), esim. IsNumeric
- - operaattoreita
- - Funktio - tai Sub -proseduureja

Esimerkiksi ohjelmointikielen lauseet ('komennot') ovat ilmauksia, samoin niiden kielen kannalta mielekkäät osat.

3.5 Select Case -rakenne

Execution Control (~suorituksen ohjaus, vuonohjaus) -lauseita kutsutaan usein myös Branching (~haarautumis) -lauseiksi.
Näistä ovat käsittelyssä jo olleet:
- If -rakenne (3.1)
- For Each ... Next -silmukat (3.3)
- For start To end ... Next -silmukat (3.4)

Seuraavassa käsitellään muut ohjaus-rakenteet: Select Case, Do While ja Do Until

Select Case -rakenteen syntaksi on seuraava

Kuva

Harjoitus 3-5-1

- Avaa Template. Siirry VBA:han (Alt-F11)
- Tyhjennä koodi-ikkuna ja kopioi siihen seuraava koodi:

Koodi:
Option Explicit

Sub Esimerkki()

'          Esimerkkimakro Select Case -rakenteen käytöstä                   

Dim a As Single
Dim b As Long
Dim testDate As Date
Dim testTime As Date

a = Time
testTime = Time
b = Date
testDate = Date
MsgBox "Kellonaika desimaalilukuna: Single a = " & a
MsgBox "Kellonaika Date-muuttujassa: testTime = " & testTime
MsgBox "Päiväys kokonaislukuna: Long b = " & b
MsgBox "Päiväys Date-muuttujassa: testDate = " & testDate

Select Case a
    Case Is < 0.25
        MsgBox "Hyvää yötä!"
    Case Is < 0.5
        MsgBox "Hyvää aamupäivää!"
    Case Is < 0.75
        MsgBox "Hyvää iltapäivää!"
    Case Else
        MsgBox "Hyvää iltaa!"
End Select

Select Case b Mod 7
    Case 1
        MsgBox "Hyvää Sunnuntaita!"
    Case 2
        MsgBox "Hyvää maanantaita!"
    Case 3
        MsgBox "Hyvää tiistaita!"
    Case 4
        MsgBox "Hyvää keskiviikkoa!"
    Case 5
        MsgBox "Hyvää torstaita!"
    Case 6
        MsgBox "Hyvää perjantaita!"
    Case Else
        MsgBox "Saturday Night Fever!"
End Select

End Sub

- Siirry Excel'iin (Alt-F11)
- Excel'in Developer -valikosta klikkaa Insert (Lisää) ja valitse Button (nappula).
Piirrä nappula sopivaan kohtaan.
- Assign Macro (Aseta makro) -dialogissa klikkaa Esimerkki.
- Suorita makro

Kuva

Harjoitus esittelee myös Time ja Date funktioiden käyttöä.
Samoin kuin If -rakenteessa, myös Select Case -rakenteeseen kannattaa aina lisätä Else -kohta yllätystilanteiden varalta.
Pakollinen se ei tässäkään ole.


Tehtävä 3-5-1

Käytä kohdassa 3.3 olevaa random-taulukkoa:
Kirjoita makro, joka
- tulostaa (sopivaan tyhjään sarakkeeseen) vedon odotusarvon, kun taulukon 10. sarakkeessa on bookkerin tarjoama kerroin ja viimeisessä sarakkeessa laskemasi rajakerroin,
- määrittää odotusarvon perusteella vedolle sopivan panoksen asteikolla 0 - 10. Saat itse asettaa panosrajat. Käytä Select Case -rakennetta.
8
Ylös
  Profiili
 
 Viestin otsikko: Re: VisualBasic - ohjelmointi - kurssiII
ViestiLähetetty: 13.11.2014, 22:18 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1104Paikkakunta: Kamppi
Pisteitä: 3267
3.6 Do While - ja Do Until -silmukat

Näiden kahden rakenteen toiminta on samankaltainen, sillä erolla että
- Do While -looppia kierretään niin kauan kuin annettu ehto on tosi (True)
- Do Until -looppia kierretään niin kauan kuin annettu ehto on epätosi (False)

Kummallakin komennolla on kaksi perussyntaksia. Do While -silmukalla ne ovat:

Kuva

Syntaksimuotojen ero on siinä että muoto 2:ssa koodi suoritetaan aina vähintään yhden kerran, muoto 1:ssä ei välttämättä kertaakaan.

Harjoitus 3-6-1

- Avaa Template. Kopioi 1-suvulle alkaen solusta A1 pätkä tekstiä esim. tältä sivulta.
- Siirry VBA:han (Alt-F11)
- Tyhjennä koodi-ikkuna ja kopioi siihen seuraava koodi:

Koodi:
Option Explicit

Sub Esimerkki()

Dim i As Integer
Dim lastRow As Long

lastRow = ActiveSheet.UsedRange.Rows.Count      'ei laske alussa olevia tyhjiä rivejä
                                                ' => 1. rivi ei saa olla tyhjä
Do
    i = i + 1
    Cells(i, 13).Value = Len(Range("A" & i))
Loop While i < lastRow

End Sub


- Suorita makro

Kuva

- Koodi laskee A-sarakkeeseen kopioitujen tekstirivien pituuden käyttäen kirjastofunktiota Len.
- Tulostus ohjataan lempisarakkeeseeni M (=13.).
- Koodissa on myös esitelty eräs paljon käytetty viimeisen rivin määritys: lastRow = ActiveSheet.UsedRange.Rows.Count
- Liitäntä-operaattori (&) tekee kokonaisluvulle i automaattisen konversion merkkijonoksi.
Periaatteessa olisi tyylikästä käyttää CStr -konversiofunktiota mutta harvoin sitä näkee käytettävän &-operaattorin kanssa...
- Harjoituksen looppi suoritetaan aina vähintään kerran, vaikka välilehti olisi täysin tyhjäkin.

Rangeista

Range (alue) voi olla yksi ainoa solu tai usean solun yhdistelmä.
Esimerkkejä rangeista ja niiden merkintätavoista (käy nämä huolella läpi):

Kuva

- Hankalasti ymmärrettävä asia näyttää olevan se että kun Cells on ominaisuus (property) niin kuinka voidaan kirjoittaa esim. Cells( 2, 2 ) . Value ts. puhua ominaisuuden ominaisuudesta.
- Tälle on yksinkertainen selitys:
- - vaikka Cells on ominaisuus niin se palauttaa objektin (Range -objektin).
Value -ominaisuus on tämän Range -objektin ominaisuus, ei siis Cells -ominaisuuden ominaisuus.

Kirjoitan lisää perustehtäviä jos niitä tarvitaan. Muuten on aika siirtyä eteenpäin..
8
Ylös
  Profiili
 
 Viestin otsikko: Re: VisualBasic - ohjelmointi - kurssiII
ViestiLähetetty: 22.11.2014, 10:56 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1104Paikkakunta: Kamppi
Pisteitä: 3267
3.7 Strukturoitu ohjelmointi. Normaalista ohjelmavuosta poikkeaminen

Strukturoidulla ohjelmarakenteella tarkoitetaan koodaustapoja, joissa
- ohjelmakoodi jakautuu selkeästi hahmottuviin osiin ('blokkeihin')
- koodin suoritus etenee normaalivuossa so. poikkeustilanteita lukuunottamatta ylhäältä alas
- toisto- ja haarautumisrakenteet on suunniteltu niin että ohjelman suoritus etenee loogisessa järjestyksessä ilman että käytetään pakotettuja siirtymisiä (=GoTo komentoja) koodin sisällä.

Strukturoidun ohjelmoinnin irvikuva on että suoritus (useimmiten juuri goto- komennoilla) poukkoilee sinne ja tänne.
Ammattilaiset kurtistelevat kulmakarvojaan heti kun löytävät koodista GoTo -komennon.
Sitä pidetään merkkinä huonosta ohjelmasuunnittelusta ja sen käyttö hyväksytään vain harvoissa poikkeustapauksissa.

Normaalivuosta poiketaan suunnitellusti tietyn ennalta-asetetun ehdon täyttyessä.
Silloin eri ohjelmarakenteista poistuminen noudattaa seuraavia sääntöjä:
- 1. If ... Else -rakenteista poistutaan automaattisesti heti kun ehdon täyttävä vaihtoehto on löydetty ja sitä vastaavat komennot on suoritettu.
- 2. For Each ... Next ja For ... Next loopista poistutaan välittömästi komennolla Exit For.
- esim.

Kuva

- 3. Do While ... Loop ja Do Until ... Loop -silmukoista poistutaan välittömästi komennolla Exit Do.
- 4. Select Case -rakenteesta poistutaan automaattisesti heti kun ehdon täyttävä vaihtoehto on löydetty ja sitä vastaavat komennot on suoritettu.

Useimmiten ei-strukturoitu koodi voidaan helposti korvata strukturoidulla vaihtoehdolla:

Kuva

Huomaa nimikkeen EndLoop: käyttö. Ohjelmariville voidaan antaa nimike (~Label) käyttäen merkintätapaa [Haluttu nimike]: .

Joillekin mahdollisesti muista kielistä tuttuja break- ja continue-lauseita ei VBA:ssa tunneta.
Break on korvattu exit'illä ja continue on korvattavissa strukturoiduilla rakenteilla.

Proseduurien suoritus voidaan keskeyttää lauseilla Exit Sub ja vastaavasti Exit Function.
Tällöin joko kontrolli siirtyy kutsuneelle proseduurille tai ilman sitä (isäntä-proseduuria) makron suoritus päättyy.


3.8 Taulukot (taulukko-muuttujat, ~Arrays)

Taulukko-muuttujia ei pidä sekoittaa normaaleihin Excel -taulukoihin.
Taulukko-muuttuja on fyysisesti olemassa vain tietokoneen muistissa, mutta ei minkään tiedoston osana.
Taulukko-muuttuja on yhteisesti nimetty samaa tyyppiä edustavien arvojen ryhmä.
Taulukkko-muuttujat kannattaa nimetä esim. arr - tai tl -suffiksia käyttäen jotta sekaantuminen proseduurien kanssa voidaan välttää.

Taulukko esitellään seuraavasti:

Kuva

VBA:ssa taulukon alkio-indeksi alkaa defaultina 0:sta. Tämä voidaan muuttaa käyttämällä ilmausta 1 To ... .
Edellisessä alempana esittelty taulukko alustettaisiin esimerkiksi näin:

Kuva

Taulukko voi olla 1-, 2- tai useampi-ulotteinen, 60 ulottuvuuteen asti:

Kuva

Taulukoista käytetään joskus niiden matemaattisten vastineiden nimityksiä:
- matriisi
- 1-ulotteinen matriisi = vektori

3.8.1 Dynaamiset taulukot

Jos taulukon suoritusaikainen koko ei ole tiedossa, taulukko määritellään dynaamisena:

Kuva


Huom!
Tietokannoissa tyypillisten esim. allaolevan kuvan mukaisten tietue-rakenteiden käsittelyyn taulukko-muuttujat eivät sovellu, koska niiden alkioiden on edustettava samaa tietotyyppiä.

Kuva

Rakenteeltaan tietueita vastaavia muuttujia VBA:ssa edustavat class- (luokka-) objektit tai käyttäjän itse määrittelemät tietotyypit.


3.9 Käyttäjän määrittelemät tietotyypit

Omia tietorakenteita VBA:ssa voi luoda Type -määrittelyllä seuraavasti:

Kuva

Custom data-tyypit on määriteltävä moduulien alussa ennen proseduureja!

Edellä määritellyn taulukon 1. alkio voidaan alustaa normaaliin tapaan:

Kuva


3.10 Sisäänrakennetut funktiot (~built-in f's)

VBA:n peruskirjastossa on suuri joukko funktioita keskeisimpiä tehtäviä varten.
Niiden lisäksi käytettävissä on joitakin Excel'in työkirjafunktiota, joita voidaan käyttää kirjoittamalla
- Application.WorksheetFunction. ja tämän jälkeen halutun funktion nimi.

Huom.1
VBA:ssa voidaan käyttää vain niitä Excel-funktioita, joilla ei ole vastinetta VBA:n omissa funktiokirjastoissa.

Esimerkiksi seuraava koodi aiheuttaa virheilmoituksen:
- sngJuuri = Application.WorksheetFunction.Sqrt(24)
VBA:lla on oma neliöjuuri-funktio ja oikea muotoilu on sitä käyttäen:
- sngJuuri = Sqr(24)

Huom.2
Jos haluat kolleegoilta arvostusta ohjelmoijana, opettele koodaamaan VBA:n omia funktiokirjastoja käyttäen.

Excel -funktioista poiketen Excel -kaavojen käyttö sensijaan on joissain tapauksissa hyvin perusteltua.
Esim.:
- Cells(2,3) . Formula = "=A2 * B2"
tai sama R1C1 -notaatiolla:
- Cells(2,3) . FormulaR1C1 = "=RC[-2] * RC[-1]"
8
Ylös
  Profiili
 
Näytä viestit ajalta:  Järjestä  
Aloita uusi ketju Vastaa viestiin  [ 6 viestiä ] 

Kaikki ajat ovat UTC + 2 tuntia


Paikallaolijat

Käyttäjiä lukemassa tätä aluetta: Ei rekisteröityneitä käyttäjiä ja 5 vierailijaa


Et voi kirjoittaa uusia viestejä
Et voi vastata viestiketjuihin
Et voi muokata omia viestejäsi
Et voi poistaa omia viestejäsi
Et voi lähettää liitetiedostoja.

Hyppää:  


Powered by phpBB © 2008 phpBB Group | Käännös, Lurttinen, www.phpbbsuomi.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye