Kuinka Vba:n kautta saadaan soluille väri esim. soluihin D6:L6
Ajatellaanpa vaikka että solujen väri olisi tummanharmaa.
Solujen väri
18
415
Vastaukset
Ookos koskaan kokeillut makronauhoitinta?
Tommosta se aikaan...
Sub Macro1()
'
' Macro2 Macro
' Macro recorded 2.3.2011 by kunre
'
'
Range("D6:L6").Select
Selection.Interior.ColorIndex = 56
End Sub
toki sitä voi kaunistella ja poistella yleensä 80-90% turhaa skeidaa ja saada se helpommin luettavaksi ja paremmin toimivaksi...
Sub Macro1()
Range("D6:L6").Interior.ColorIndex = 56
End Sub
Keep EXCELing
@Kunde- Black&White
hmmm. Tarkoitin että väri olisi vakiona pohjassa valmiina noissa soluissa eli ei tarvitsisi painaa nappia.
Makron osaan kyllä nauhoittaa.- ghjgfjghk
Siis tarkoitat että ne solut olisi aina sen värisiä kun avaat uuden taulukon. Silloin kannattaa tehdä template missä ne solut värjätty ja avata aina se.
- Black&White
Tarkoitan että kun avaan juurikin tämän ks. exel tiedoston niin Taul.1:sen solut D6:L6 olisivat harmaita.
Mielellään niin että niiden väriä ei käyttäjä pystyisi muuttamaan excel puolelta. Toki samaisiin soluihin tulee pystyä syöttämään numeroarvoja.
Tiedä sitten onko tämä edes mahdollista.tarpeet vaihtui toiseksi alkuperäisestä, mutta eipä murehdita sitä...
moduuliin...
Sub Auto_Open()
Worksheets("Sheet1").Range("D6:L6").Interior.ColorIndex = 56
End Sub
ja kyseessäolevan TAULUKON MODUULIIN...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("D6:L6").Interior.ColorIndex = 56
End Sub
Keep EXCELing
@Kunde
- Black&White
Works like a Charm
TänX ! - solujen värit
Kysytäämpäs täältä jos joku osais auttaa.
Eli saako tuota automaattista solujen värjäytymistä jotenkin pois? Eli jos esim. solu H29 on vihreä, tulee sen alapuolella olevastakin H30 solusta vihreä mikäli lisään rivejä. Tämähän ei suuri vaiva olisi käsin vaihtaa tyhjäksi, mutta kun noita rivejä tulee aika paljon lisää automaattisesti välisummia laskettaessa, ja näin ollen noita värejä on soluissa joissa niitä ei kuuluisi olla. Muistelin että jossain olisi ollut asetus automaattisesta muotoilusta, jossa uusiin soluihin ei mitään muotoiluja kopioituisi, mutta enpäs tällaista löydä mistään valikoista enkä excelin ohjeista.
Suuret kiitokset jos joku ratkaisun keksii.Private Sub Worksheet_Change(ByVal Target As Range)
Range("H:H").Interior.ColorIndex = xlNone
Range("H9").Interior.ColorIndex = 56
End Sub
- Väreistä vielä
En tiedä oliko tuo vastaus edes minulle, mutta tavoite olisi siis, että jos solu on muuten tyhjä, mutta väri on joku muu kuin valkoinen, muuttuisi se itsestään valkoiseksi, eli tyhjäksi. Kun noita tyhjiä värillisiä soluja tulee siis ympäri taulukkoa kolmeen eri sarakkeeseen (H, L, M) ja lukemattomille eri riveille, aina kun joutuu laskemaan välisummat.
Koska jos rekisteriin lisää uusia henkilöitä, tulee välisummat poistaa aakkostamisen ajaksi. Käsittääkseni. Kun rekisteri on taas järjestetty aakkosten ja muiden perusteella, välisummat lisätään uudelleen ja tulee noita tyhjiä rivejä välisummien kohdille. Niissä on vaan sitten noita värejä miten sattuu ylläolevien solujen mukaisesti.
Nauhoitin makron tuohon operaatioon, mutta haluaisin lisätä siihen sen että se poistaisi nuo värilliset tyhjät solut.
Toinen makroon lisättävä juttu olisi se, että välisummien jälkeinen loppusumma tulisi heti viimeisen henkilön perään, eikä kymmeniä rivejä alapuolelle. Jos taas alueen valitsee käsin, tulee loppusumma tietysti haluttuun kohtaan, mutta koska rekisteriin on lisätty henkilöitä, ei tämä käsin merkitty alue enää päde kun makroa käytetään seuraavan kerran.
Hienoa jos joku edelleen jaksaisi vaivautua auttamaan! "Eli saako tuota automaattista solujen värjäytymistä jotenkin pois? Eli jos esim. solu H29 on vihreä, tulee sen alapuolella olevastakin H30 solusta vihreä mikäli lisään rivejä"
Joopa joo
ihan eri juttu...
no katellaan kun keritään- Väreistä vielä
Joo selitin tuon ekalla kerralla vähän eri tavalla, sama tavoite kuitenkin edelleen. Meinaan vaan että tulos on sama lisääpä rivin itse vai tuleeko se automaattisesti välisummien mukana, värit siihen kuitenkin kopioituu haluamattani. Itse en tuota omin neuvoin saa kyllä ratkaistua eikä netistä neuvoja ole löytynyt joten kiitokset jo tässä vaiheessa kun asiaan jaksat paneutua!
taulukon moduuliin...
Private Sub Worksheet_Change(ByVal Target As Range)
Range("H:H, L:L, M:M").SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = xlNone
End Sub
toinen kyssäri:
missä loppusumma?
- loppusumma
Loistavaa! Aloin jo olla siinä uskossa että ei edes ole mahdollista, mutta olihan se näköjään. Kiitos paljon! :)
Loppusumman pitäis tulla siis aina eri kohtaan kun uusia henkilöitä on lisätty. Esim. tällä hetkellä loppusumma on solussa F371, mutta jos rekisteriin lisätään vaikka 2 henkilöä, tulisi loppusumman olla solussa F373 jne. Eli en voi aluetta käsin valita, koska alareunasta jää aina puuttumaan lisättyjen henkilöiden verran soluja. Vaikea selittää. Jos taas valitsen koko F-sarakkeen klikkaamalla F:ää, loppusumma tulee kymmeniä soluja liian alas, eli "paperin alareunaan". Tämä taas tuntuu tulevan ihan sattuman varaiseen paikkaan, mutta kuitenkin aivan liian alas, josta se pitää aina käsin nostaa oikeaan kohtaan. Pieniä mutta kovasti helpottavia asioita, jos toimisi oikein.
Eli lähinnä hakisin sitä, että kun välisummat lisätään, osais se automaattisesti päätellä missä on ensimmäinen kokonaan tyhjä rivi ja laittaisi siihen loppusumman. Makro tavallaan itsestään valitsisi F-sarakkeesta pelkästään siihen asti, mihin henkilöt loppuvat, sitten loppusumma tulisi heti viimeisen henkilön perään. Lieneekö mitenkään tehtävissä.
Jos tuon saisi vielä toimimaan, olisi lopputulos todella hyvä, koska koko operaation saisi kuitattua lisättyjen henkilöiden jälkeen makron avulla sekunnissa, kun ennen puhuttiin minuuteista.Taulukon moduuliin...
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("H:H, L:L, M:M").SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = xlNone
vika = Range("F65536").End(xlUp).Row
If vika = 1 Then
Range("F" & vika 1) = Application.WorksheetFunction.Sum(Range("F1:F1"))
Else
Range("F" & vika) = Application.WorksheetFunction.Sum(Range("F1:F" & vika - 1))
End If
Range("F" & vika) = Application.WorksheetFunction.Sum(Range("F1:F" & vika - 1))
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Sub reset()
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Keep EXCELing
@Kunde
- ....
If vika = 1 Then
Range("F" & vika 1) = Application.WorksheetFunction.Sum(Range("F1:F1"))
Else
Range("F" & vika) = Application.WorksheetFunction.Sum(Range("F1:F" & vika - 1))
End If
Range("F" & vika) = Application.WorksheetFunction.Sum(Range("F1:F" & vika - 1))
Mikä on viimeisen rivin tarkoitus?painovirhepaholainen ;-)
oikea koodi
Dim vika As Long
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("H:H, L:L, M:M").SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = xlNone
vika = Range("F65536").End(xlUp).Row
If vika = 1 Then
Range("F" & vika 1) = Application.WorksheetFunction.Sum(Range("F1:F1"))
Else
Range("F" & vika) = Application.WorksheetFunction.Sum(Range("F1:F" & vika - 1))
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Sub reset()
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
- loppusumma
Kiitokset vaivannäöstä! Valitettavasti tulos ei ollut ihan halutunlainen tällä kertaa mutta en viitsi vaivata enempää. Tuo toi mukanaan enemmän ongelmia kuin helpotusta. :) Ehkä on käyttäjässä vika tällä kertaa mutta en saanut toimimaan niin kuin toivoisi.
Nyt kun lisään välisummat, tulee loppusumma kahteen kertaan ja toiseen loppusummaan on vielä lisätty toinen loppusumma. Jos poistan jotain sarakkeesta F, sen yläpuolella olevaan soluun tulee joskus nolla, en tiedä millä perusteella. Tai jos lisään rivejä, tulee loppuun myöskin nolla jne. Pitäsi tajuta enemmän tuosta koodista että vikaa osaisi etsiä. Toimii jotenkin omituisesti nyt.
Kiitokset kuitenkin tähän astisista avuista. Hienoa kun joku jaksaa auttaa. Joka tapauksessa taulukko toimii nyt jo paljon paremmin kuin alussa ja sai palauteltua muutenkin vähän excelin käyttöä mieleen noita pähkäillessä.Ei siihen mitään loppusummia pidä lisätä, se laskee ne automaattisesti...
testasin tosin sen vain aloittamalla tyhjällä sarakkeella ja lisäämällä uuden rivin/rivejä ja ainakin oletukseni toimii niinkuin halusit....
siis ei mitään omia kaavoja
Keep EXCELing
@Kunde
Ketjusta on poistettu 2 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet281748- 2271160
Koulu kielsi therianit - "tunneilla kontataan ja nau'utaan"
Oululainen koulu on kieltänyt eläin- ja rooliasujen käytön koulussa. Hyvä homma, sillä koulussa keskitytään muihin asioi105799- 180777
Onhan se myönnettävä
Että alkaa jo vähän puuduttamaan tämä. Aion silti ottaa tästä kaiken irti viimeisiä rippeitä myöden. Olenpa sitten suju51760Astuin tuntemattomaan
kun sinut tapasin, sieluni valo. Niin olen paljaaksi riisuttu kuin syksyiset puut.50742Rakastan sinua niin paljon
Kun ollaan tutustuttu lisää niin se rakkaus ei ole vähentynyt vaan muuttunut. Jännitys on vähentynyt ja tilalle on tullu40710Enemmistön diktatuuri Ähtärin valtuustossa
Salo ja Nortunen, ette saa keikuttaa venettä. Olette mätiä omenoita, jotka pitää poimia pois Ähtärin kaupunginhallitukse22710Taisit vähän aliarivoida minua ihmisenä
Et tajunnut että olenkin aika nokkela tyttö 🤭 Jutut ja ulkonäkö varmaan hämäs.35686Mulla on ihan hirveä ikävä sua
Ja sitten kun me taas nähdään, tai jos, niin mua vaan pelottaa että sinä inhoat sitä että mulla on tunteita sinuun.47679