solun merkkaus

*klik..*

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?

17

374

Äänestä

    Vastaukset 17

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • cliggaaja
    • *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?

      • kunde

        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.. :)

      • kunde

        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.

      • kunde

        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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Tässä ovat Elämäni biisi vieraat lauantai 19.9. - Yksi vieras on kohuttu TTK-juontajaehdokas

      Elämäni biisi vieraslista on harvinaisen mielenkiintoinen lauantaina. Mukana myös kohuttu TTK-juontajaehdokas, josta ei
      Tv-sarjat
      8
      1010

    2. Mies joka on oikeasti kiinnostunut

      Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää
      Ikävä
      125
      956

    3. Onko nyt kaikki asiat käyty läpi?

      Mun mielestä on👍
      Ikävä
      109
      939

    4. Ikävä niitä hetkiä,kun katselin sua suoraan silmiin...

      😊
      Ikävä
      53
      882

    5. Rauha, sopiiko

      Ei häiritä enää toisiamme. Annetaan molemmille rauha unohtaa, pyydän tätä todella. Kiitos. Miehelle.
      Ikävä
      85
      802

    6. Kunnanhallitus

      Miten käy täällä vuosia tuomioita jakaneelle valittajalle, hovioikeus hylännyt kaikki syytteet.
      Puolanka
      42
      756

    7. Ei siitä pääse yli, eikä ympäri!

      Pakko se on myöntää ja tunnustaa. Olisin halunnut p*nna sinua sydämeni kyllyydestä. Itseäni vanhemmalle naiselle
      Ikävä
      66
      701

    8. Miesten (epä)viehättävyydestä kysymys

      Mieltä askarruttava asia, liki dilemma. Palstallahan jotkut miesoletetut usein toteavat, että kaikki naiset tavoittelev
      Sinkut
      151
      692

    9. Minkä kappaleen

      haluaisit soivan, kun astellaan alttarille?
      Ikävä
      55
      635

    10. Mitä meidän välillämme

      On käynyt näiden vuosien aikana?
      Ikävä
      70
      576

    11. Olit hyödytön.

      Mulle hyödytön..
      Ikävä
      95
      551

    12. Kumpi tästä nyt

      Teki niin vaikeaa?
      Ikävä
      60
      524

    13. Tykkäätkö minusta

      Mies vai et? -nainen
      Ikävä
      52
      521

    14. Vieläkö tykkäät

      Minusta niin paljon että olisit valmis?
      Ikävä
      35
      487

    15. Mikä sun salaisuus on,kun näytät niin nuorelta..

      Vaikka oot jo noin vanha!?
      Ikävä
      35
      484

    16. Teini kuolema

      Jatketaan uudestaan kun poistettu eka aloitus.
      Kajaani
      22
      476

    17. Humppila korvasi johtajia tekoälyllä

      https://yle.fi/a/74-20215155 Humppilassa on lakkautettu teknisen ja hallintojohtajan virat. Säästöä tuli hetkessä 150
      Maailman menoa
      52
      449

    18. Myönnetään, tunnen lämpimiä tunteita kohtaasi

      Vaikutat tosin liian hyvältä ollaksesi totta. Komeita miehiä on maailma pullollaan mutta sinussa on jotain.....
      Ikävä
      31
      433

    19. MiltäKaivattusi

      Näyttää? !
      Ikävä
      24
      430

    20. Mnot, miksi sinulle on tärkeää solvata uskovia?

      Onko sinulla joku katkeruus tai peräti viha heitä kohtaan? Kirjoituksesi nimittäin tihkuvat katkeruutta ja vihaa uskovi
      Luterilaisuus
      246
      408
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt