Ongelma olisi seuraava:
Pitäisi saada (tietyllä rajatulla alueella) merkattua solu hiirtä kerran klikkaamalla halutun -etukäteen määritellyn väriseksi, esim. vihreäksi. Toinen vaihtoehto, että ko. soluun tai soluihin saisi kerran klikkaamalla ennalta määrätty kirjain, esim. "X" tarkoittamaan jotain asiaa.
Kyllähän nuo voi tietty tehdä manuaalisestikin kirjainta painamalla tai väriä kopioimalla, mutta em tavalla se palvelisi minua ja käyttötarkoitusta.
Onnistuuko?
solun merkkaus
*klik..*
17
363
Vastaukset
- cliggaaja
Eipä taida olla mahdollista. Jos on enkunkieli hallussa niin katso tuota allaolevaa linkkiä. Siellä joku toinenkin pohtii samaa. Jotain makroa siellä kyllä tarjotaan, mutta mitä lienee.
http://community.spiceworks.com/topic/356119-excel-cell-changes-background-colour-clicking - *klik..*
Tänx. yritän tutustua linkkiin paremmin.. Nyt pikaisesti näytti mahdottomalta tehtävältä.
Mutta kiitos linkistä. - Kundepuu
ko. taulukon moduuliin...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Target.Interior.Color = vbGreen Then
Target.Interior.Pattern = xlNone
Else
Target.Interior.Color = vbGreen
End If
End If
End Sub
Keep EXCELing
@Kunde - *klik..*
No ihan mahtavaa.. @Kunde on kyllä ilmiömäinen! :)
Nyt kun sain tuon Vb:n tehtyä ja toimimaan yhdellä solulla, tein kokeiluja vaakariville: (Target, Range("E5:JX5")) -tämä toimii.
Ruokahalu kasvoi, mutta taidot ei riitä tekemään jatkoa.
Toiveena olisi saada alla olevat rivit toimimaan samoin kuin yllä, eli näille solurivialueille:
- "E7:JX7"
- "E9:JX9"
- "E11:JX11"
-jne..
-jne..
-jne..
-
-"E33:JX33"- Kundepuu
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Solualue As Range
Set Solualue = Range("E5:JX5")
For i = 7 To 33 Step 2
Set Solualue = Union(Solualue, Range("E" & i & ":JX" & i))
Next
If Not Intersect(Target, Range(Solualue.Address)) Is Nothing Then
If Target.Interior.Color = vbGreen Then
Target.Interior.Pattern = xlNone
Else
Target.Interior.Color = vbGreen
End If
End If
End Sub
Keep EXCELing
@Kunde
- *klik..*
Ei juma.. taas yllätit.. tai oikeastaan et yllättänyt! :D
Ihan huippua Kunde, Suurkiitos! Toimii JUST, niin kuin sen halusin.
Tämä toiminto tulee tosikäyttöön, eli tällä on helppoa merkitä "duunareiden" vapaat- ja lomallaolot "vilkaisutataulukkoon". Värikentät auttaa hahmottamaa pikavilkaisulla ao. hkln poissaolot.
Kiitos paljon vielä kerran! - *klik..*
Yksi pikku juttu, jonka huomasin
Sarakealueena on kyllä "E5:JX5", mutta jos esim vahingossa klikkaan E-saraketta ylhältä, värjäytyy se koko taulukon korkeudelta. Pystyykö tuollaisen omituisuuden rajaamaan pois?mä arvasin tän sun tulevan kyssärin ;-)
tottahan toki se onnistuu helposti...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Solualue As Range
If Target.Count = 1 Then
Set Solualue = Range("E5:JX5")
For i = 7 To 33 Step 2
Set Solualue = Union(Solualue, Range("E" & i & ":JX" & i))
Next
If Not Intersect(Target, Range(Solualue.Address)) Is Nothing Then
If Target.Interior.Color = vbGreen Then
Target.Interior.Pattern = xlNone
Else
Target.Interior.Color = vbGreen
End If
End If
End If
End Sub
Keep EXCELing
@Kunde
- *klik..*
..huomasit siis itsekin tuon taulukon väärinvärjäytymisen. ;D
Ihan mahtia taas Kunde!
Nyt alkaa olla taulukko siinä kunnossa, että sitä voi ruveta käyttämään.
Kiitos paljon vielä kerran!
...köhh.. vielä kun saisi "X" kirjaimen tulemaan vihreäksi värjäytyneeseen soluun automaattisesti, niin tää rupeis olemaan täydellinen!
Se on tämä ruokahalu, joka näköjään aina kasvaa.. :)Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Solualue As Range
If Target.Count = 1 Then
Set Solualue = Range("E5:JX5")
For i = 7 To 33 Step 2
Set Solualue = Union(Solualue, Range("E" & i & ":JX" & i))
Next
If Not Intersect(Target, Range(Solualue.Address)) Is Nothing Then
If Target.Interior.Color = vbGreen Then
Target = ""
Target.Interior.Pattern = xlNone
Else
Target.Interior.Color = vbGreen
Target = "X"
Target.HorizontalAlignment = xlCenter
End If
End If
End If
End Sub
Keep EXCELing
@Kunde
- *klik..*
Nyt menee kyllä elämä jo helpoksi.. Kiitos taas Kunde! :]]
En silti voi olla vielä kysymättä tähän saumattomasti liittyvästä onkelmasta..
Tämä kaikki tulee siis mainitsemaani loma/vapaa -vilkaisulistaan. (oma nimitys listalle) Exceltaulukon näkymässä on aina 4 vk kerrallaan esillä, josta olen tehnyt PDF-makron, jonka tulostan A4 kokoisena. Tähän asti kaikki ok.
Ongelma on se, että kun liu´utan seuraavat 4 viikkoa näkymään -jossa siis uudet lomat ja vapaat on merkittynä -makro tekeekin vain ensimmäisistä 4:stä viikosta PDF:n, eli alueen jonka maalasin makroon.
Toiveena olisi saada tulostusmakrolla tulostettua aina sama alue, eli tässä tapauksessa: B40 - X40 alue, oli alueella mitkä sarakkeet hyvänsä näkymässä.
Onkoha siis kyseessä absoluuttisen vai suhteellisen alueen tulostus?
Tässä tekemäni PDF-makro, jonka sitten tulostan
Sub luo_tallenna_pdf()
'
' luo_tallenna_pdf Makro
'
'
Range("B2:X40").Select
ActiveWindow.SmallScroll Down:=-15
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"E:\Xxxxxx2014.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Range("E1").Select
End Sub
Selkisköhän tämä. ;]]- *klik..*
Siis alue on: B2 - X40, kuten makrossakin on.
siis solualue lomille on B2:X40 ja sen toi sun makrosi tekee PDF:ksi.
Mitä sitten haluat tallentaa seuraavaksi esim B41:X78- ehkä?
Aktiivisesta näytöstä tietyt solut alas ja oikealle (vasen yläkulma solusta tietyt kpl määrät) suuntaansa -ehkä?
EXCEL taipuu kyllä lähes mihin vaan kun tiedetään tarpeet...
- *klik..*
Excel taitaa taipua aika hyvin juu.. tarkennan hieman ideaa.
Taulukosta olen lukinnut paikalleen rivit: 1-4, sekä sarakkeet: A-D.
Yläreunassa ja vasemmassa reunassa kiertää tyhjä reuna. (rivi 1 ja sarake A)
Koko työalueen kattavuus on: B2 - JX40, jonka sisällä liukuvat 20 saraketta (lomatiedot) -näkyy alueella: E5 - X40. Tälle alueelle liu´utetaan aina seuraavat 20 saraketta.. jne.
PDF-makron olen kuitenkin tehnyt alueesta: B2 - X40, jonka haluan aina tulostaa A4:lle.
Tarkennan kyllä lisää. - excelpdfprobleem
mullakin on samanlainen brobleem. en saa tehtyä pdf:ää pysyvän alueen ja vaihtuvan aluveen näkymästä, pomppaa aina alkuun tai sit se maalaa kaikki alusta haluttuun kohtaan asti.. pitäs siis saada pdf:ään pysyvä kenttä ja uusi alue pdfään ja tulostettua
- Kundepuu
vaikke hahmotella mitään ongelmaa...
laittakaa tiedostot emaillin [email protected] niin katellaan
- *klik..*
Laitan pian yv:tä tulemaan!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Joensuun kaupunki levittelee tonttitietoja Keskisuomalaiselle
Sähköposteja ja tonttitietoja levitellään mm. Pasi Koivumaalle152182Oletko nainen alkanut kammoamaan minua
Sinua ei näy eikä kuulu, ja ilmeisesti kiertelet tilanteita. Oletko huomannut, että olet vieläkin ajatuksissani luvattom661486Saako 60 v vielä töitä? Arto Nyberg puhuu suoraan elämästä ilman töitä
Arto Nyberg täyttää tänään 60 v. Onnea! Nyberg totuttiin näkemään suoran haastatteluohjelman kapteenina vuodesta toise1061439Tiesitkö tätä ex-miehistä? Noriko Salo jysäytti yllätyspaljastuksen
Noriko Salo ja ex-F1 kuski Mika Salo olivat naimisissa v. 1999-2022. Kirsi Salon ex-mies puolestaan on muusikko Sammy A61322Toivoisitko Rakas vielä?
Haluaisitko vielä? Uskoisin osaavani näyttää sinulle, kuinka ainutlaatuinen nainen olet.681285Keskustelua kasteesta
You tubessa kaksi pappia keskustelivat kasteesta ja kritisoivat raamatullista uskovien kastetta. Toinen heistä yritti4001194Huh, huh! Sofia Belorf ei ole itse pessyt hiuksiaan kolmeen vuoteen
Sofia Belorf elää ökyelämää Dubaissa. Sofian arjessa kulta, raha ja luksus ovat vahvasti läsnä. Luksuselämään tottuneell731144Kuka? Riehui valtuuston kokouksessa tänään ?
Onko puolangan puolesta porukkaa. Vaikuttaa siltä. Sairasta.321100Ihan pieni näkeminen vaan
👋 ja minä olisin valmis jo vaikka mihin sun kanssa. Nämä on näitä.. 🤫🫣😘💥311067En haluaisi kaiken kuihtuvan pois
ilman, että olemme voineet jutella rauhassa kasvotusten... Mutta mistä ihmeestä löydän sinut?521046