Kuinka kirjoitetaan VBA:lla
jos solu A1 on pariton, niin kopioidaan soluihin A2-A10 solujen B2-B10 arvo.
Jos ei kopioidaan soluihin A2-A10 solujen C2-C10 arvo?
Olen etsinyt netistä ties kuinka kauan VBA koodia jaollinen kaavalle, mutta tietoa olen löytänyt vain muille ohjelmointiohjelmille.
Jos jollakulla olisi hyvä sivu tiedossa, voisitteko laittaa linkkejä?
parillinen/
pariton?
8
1247
Vastaukset
- Piru
Jos A1 jakojäännös 2 = 0
niin A1 on parillinen
Visual Basicissä jakojäännös saadaan
jaannos = jaettava Mod jakaja- pariton?
Kiitos, mutta en kyllä käsitä kuinka se toimii.
Excelin kaavalla osaan tuon tehdä, mutta pitäisi tehdä VBA:lla ettei asetuksia muutettaisi vahingossa.
Excelin soluja kun ei voi lukita kun silloin kaava ei toimi. - Kunde
pariton? kirjoitti:
Kiitos, mutta en kyllä käsitä kuinka se toimii.
Excelin kaavalla osaan tuon tehdä, mutta pitäisi tehdä VBA:lla ettei asetuksia muutettaisi vahingossa.
Excelin soluja kun ei voi lukita kun silloin kaava ei toimi.Public Luku As Boolean
Function Parillinen(Numero As Double) As Boolean
If (Numero And 1) Then
Parillinen = False
Else
Parillinen = True
End If
End Function
Sub Testi()
If Not Parillinen(Range("A1")) Then
Range("B2:B10").Copy Destination:=Range("A2")
Else
Range("C2:C10").Copy Destination:=Range("A2")
End If
End Sub - tuollakaan
Kunde kirjoitti:
Public Luku As Boolean
Function Parillinen(Numero As Double) As Boolean
If (Numero And 1) Then
Parillinen = False
Else
Parillinen = True
End If
End Function
Sub Testi()
If Not Parillinen(Range("A1")) Then
Range("B2:B10").Copy Destination:=Range("A2")
Else
Range("C2:C10").Copy Destination:=Range("A2")
End If
End Subkoodilla,kiitos kuitenkin. Katselin VBA:n omia ohjeita, mutta ei niistäkään mitään apuja ollut.
Voi itku, taitaa taulukko jäädä kaava-asteelle ilman suojausta... - VBA
tuollakaan kirjoitti:
koodilla,kiitos kuitenkin. Katselin VBA:n omia ohjeita, mutta ei niistäkään mitään apuja ollut.
Voi itku, taitaa taulukko jäädä kaava-asteelle ilman suojausta...kyllä taatusti toimii. Mitäs se ei tehnyt?
Pyysit koodia jolla kopioidaan solut riipuuen A1 arvon parillisuudesta.
Olikos syynä taulukon suojaus vai? jos niin korvaa koodi seuraavalla.
Taulukko suojattu salasanalla 'kunde' ja solusta A1 poistettu lukitus.
Public Luku As Boolean
Function Parillinen(Numero As Double) As Boolean
If (Numero And 1) Then
Parillinen = False
Else
Parillinen = True
End If
End Function
Sub Testi()
ActiveSheet.Unprotect Password:="kunde"
If Not Parillinen(Range("A1")) Then
Range("B2:B10").Copy Destination:=Range("A2")
Else
Range("C2:C10").Copy Destination:=Range("A2")
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="kunde"
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub - pariton?
VBA kirjoitti:
kyllä taatusti toimii. Mitäs se ei tehnyt?
Pyysit koodia jolla kopioidaan solut riipuuen A1 arvon parillisuudesta.
Olikos syynä taulukon suojaus vai? jos niin korvaa koodi seuraavalla.
Taulukko suojattu salasanalla 'kunde' ja solusta A1 poistettu lukitus.
Public Luku As Boolean
Function Parillinen(Numero As Double) As Boolean
If (Numero And 1) Then
Parillinen = False
Else
Parillinen = True
End If
End Function
Sub Testi()
ActiveSheet.Unprotect Password:="kunde"
If Not Parillinen(Range("A1")) Then
Range("B2:B10").Copy Destination:=Range("A2")
Else
Range("C2:C10").Copy Destination:=Range("A2")
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="kunde"
ActiveSheet.EnableSelection = xlUnlockedCells
End Subsain toimimaan kun laitoin painikkeen sille. Saiskos tuota toimimaan automaattisesti, että kun luku vaihtuu kopioituis solut?
Kun kokeili ilman painiketta ei tehnyt mitään. - Kunde
pariton? kirjoitti:
sain toimimaan kun laitoin painikkeen sille. Saiskos tuota toimimaan automaattisesti, että kun luku vaihtuu kopioituis solut?
Kun kokeili ilman painiketta ei tehnyt mitään.Ei koodi voi tietenkään toimia ilman tapahtumaa mikä sen käynnistäisi. No nyt koodi haluamasi taulukon moduuliin esim. taul1
Public Luku As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Testi
End Sub
Function Parillinen(Numero As Double) As Boolean
If (Numero And 1) Then
Parillinen = False
Else
Parillinen = True
End If
End Function
Sub Testi()
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.Unprotect Password:="kunde"
If Not Parillinen(Range("A1")) Then
Range("B2:B10").Copy Destination:=Range("A2")
Else
Range("C2:C10").Copy Destination:=Range("A2")
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="kunde"
ActiveSheet.EnableSelection = xlUnlockedCells
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub - pariton?
Kunde kirjoitti:
Ei koodi voi tietenkään toimia ilman tapahtumaa mikä sen käynnistäisi. No nyt koodi haluamasi taulukon moduuliin esim. taul1
Public Luku As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Testi
End Sub
Function Parillinen(Numero As Double) As Boolean
If (Numero And 1) Then
Parillinen = False
Else
Parillinen = True
End If
End Function
Sub Testi()
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.Unprotect Password:="kunde"
If Not Parillinen(Range("A1")) Then
Range("B2:B10").Copy Destination:=Range("A2")
Else
Range("C2:C10").Copy Destination:=Range("A2")
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="kunde"
ActiveSheet.EnableSelection = xlUnlockedCells
Application.EnableEvents = True
Application.ScreenUpdating = True
End SubTosi suuret kiitokset, nyt alkoi toimimaan haluamallani tavalla!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Lindtman I vasemmistohallitus aloittaa viimein Suomen kuntoon laittamisen
Tässä nyt on 3 vuotta seurattu irvokasta kärsimysnäytelmää nimeltään "valtion budjetin tasapainotus by äärioikeisto", ja2162886Missä viipyy persujen lupaama euron bensa?
En edes muista milloin bensapumpussa olisi ollut ykkösellä alkava litrahinta. Missä siis viipyy persujen lupaama euron b1702539Kirje, PellePelottomalle.
Tärkeää olisi luoda ystävyys, että se, jota rakastaa, on samalla paras ystävä ja luotettavin, jolle voi ja uskaltaa luot1061182Voi teitä naisia
Suudeltiin ja nukuttiin toisissamme kiinni mutta pillua ei tullu, ei edes aamulla. t.38vmies1321072Lapsien pakko kasteesta on luovuttava.
Eikö olisi parempi siirtää kaste rituaali rippikouluun,kun 15v.tietävät jo itse haluaavatko tulla kastetuksi juutalais-k5831035- 681028
Martinan hevoset.
Tämä todella kaunis ja ketterä harmaa hevonen jolla monet kilpailut voitetaan ei ole Martinan.Tytär ratsastaa sillä tait274978Persut jakavat tekoälyllä tehtyjä kuvia maahanmuuttajista somessa
Eivät mainitse, että ovat tekoälyllä tehtyjä. Eivät näe asiassa mitään ongelmaa. Valehtelijapuolue taas vauhdissa. Unka323946Mistä löytyy naisseuraa sinkkumiehelle?
Kertokaapas kokeneemmat mistä löytyis naisseuraa sinkulle. Ihan ois eukko nyt tosissaan hakusessa. Tanssipaikat kun on a20919Hyvä meininki
TTP:ssa väkeä tosi runsaasti paikalla. Hyvää ruokaa jälleen ja munkit ja sima erinomaista. Kiitos yrittäjälle! Hieno Vap22778