Kysymykseni on varsin yksinkertainen niille jotka osaavat ohjelmoida Visual Basicia, itse kun en osaa...
Eli excel-työkirjaan pitää luoda makro joka tekee valittuun soluun tietyn arvon, vaikka 6:00. Sitten kaksi pykälää sen solun alle kirjain A. Kolmanneksi arvon 6:00 oikealle puolelle arvon 14:00. Lopuksi siirrytään yksi solu oikealle.
6:00 14:00 (Lopuksi kursori tähän)
A
Eli peruskaava jolla voi liikkua solujen välillä kirjoittaen niihin jonkun arvon ja lopettaen johonkin toiseen soluun.
Toinen kysymys koskee funktionäppäimiä F1 - F12. Saako niitä miten otettua käyttöön omia makroja ohjailtaessa? Eli saako oman makron toimimaan F1 -näppäimellä?
Kiitos!
Eli excel-työkirjaan pitää luoda makro joka tekee valittuun soluun tietyn arvon, vaikka 6:00. Sitten kaksi pykälää sen solun alle kirjain A. Kolmanneksi arvon 6:00 oikealle puolelle arvon 14:00. Lopuksi siirrytään yksi solu oikealle.
6:00 14:00 (Lopuksi kursori tähän)
A
Eli peruskaava jolla voi liikkua solujen välillä kirjoittaen niihin jonkun arvon ja lopettaen johonkin toiseen soluun.
Toinen kysymys koskee funktionäppäimiä F1 - F12. Saako niitä miten otettua käyttöön omia makroja ohjailtaessa? Eli saako oman makron toimimaan F1 -näppäimellä?
Kiitos!
Vastaukset 3
Vanhimmat
Arvojen luominen työkirjaan:
----------------------------
Sub LuoArvot()
'
' LuoArvot Macro
' Macro recorded 6.8.2004 by Excelit.fi
'
ActiveCell.FormulaR1C1 = "6:00"
ActiveCell.Offset(2, 0).Select
ActiveCell.FormulaR1C1 = "A"
ActiveCell.Offset(-2, 1).Select
ActiveCell.FormulaR1C1 = "14:00"
ActiveCell.Offset(0, 1).Select
End Sub
----------------------------
Funktionäppäin F1 käyttöön:
(Oheinen koodi laitetaan tiedoston ThisWorkbook-objektiin valitsemalla objekti Visual Basic Editorissa oikealla hiiren napilla ja painamalla valintaa "View Code")
----------------------------
Private Sub Workbook_Open()
Application.OnKey "{F1}", "LuoArvot"
End Sub
----------------------------
Kiitos paljon, toimii hienosti.
Miten jos halutaan tyhjentää solu eikä kirjoiteta siihen mitään?
Eli vaikka edellisen esimerkin lopuksi halutaan poistaa oikean puoleisen solun arvo ja palata sen jälkeen takaisin?
ActiveCell.Offset(0, -1) = ""
tai
ActiveCell.Offset(0, -1).ClearContents