Kunde ja Rautalanka

Kiitoks

Moi,

Näyttäisikö tällaisen toimivan Macron, mikä lukee talukon läpi:

Jos nimitän A,B,C,D vaikkapa sarakkeiksi.
A sarake sisältää kolmepitkiä numeerisia lukua (233, 772, 124, jne)
ja
B sarake sisältää myös kolmepitkiä numeerisia lukua (233, 772, 124, jne)

C sarakkeeseen tulostetaan aina A ja B rivien summa yhteensä.
Jos A B rivin summa on isompi kuin 1001, tulostetaan D sarakkeeseen se summa ja messutaan ruudulle ”Luku ylittyi ” ylittynyt summa.

3

78

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ylittäjä

      Ihan "kotikonstein".
      Kirjoita jonnekkin soluun "Luku ylittyi" (esimerkissä G1:seen)
      D1=JOS(C1

      • ดอกเบี้ย

        Juu kiitos. Yritin saada apua Macron tekoon samalla, vähän niinkuin alkeista lähtien, samalla oikeaa asiaa mukaillen.

        Joten odotan jospa Kunde valmiin koodinsa kanssa avustaisi.


    • Option Explicit
      Sub HarjoitusMakro()
      'määitellään rivimuuttuja, parempi käyttää long muotoa kun muuttaa kuitenkin integer --->long
      Dim vika As Long
      'vika rivi sarakkeesta A
      vika = Range("A65536").End(xlUp).Row
      'kaava soluun C1 =A1 B1
      Range("C1").FormulaR1C1 = "=RC[-2] RC[-1]"
      'käytetään automaattitäyttöä... vastaa raahaamista fiksumpi tapa kuin loopata ;-)
      Range("C1").AutoFill Destination:=Range("C1:C" & vika), Type:=xlFillDefault
      'samat jutut D sarakkeeseen...
      Range("D1").FormulaR1C1 = "=IF(RC[-3] RC[-2]

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Anna minulle anteeksi

      Anna minulle anteeksi. Minä pyydän.
      Ikävä
      161
      2831
    2. Kun viimeksi kohtasitte/näitte

      Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...
      Ikävä
      135
      1996
    3. Olet kyllä vaarallisen himokas

      Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.
      Ikävä
      109
      1946
    4. Mikä on hän on ammatiltaan?

      Vai tiedätkö mitä kaivattusi tekee työkseen?
      Ikävä
      84
      1644
    5. Mitä ajattelit silloin kun

      Löysit hänet?
      Ikävä
      81
      1521
    6. 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 tunnet
      Ikävä
      24
      1512
    7. Syksyinen aamuketju suden

      Hyvää huomenta ja kaunista syyspäivää. 🌞🍁🍂☕
      Ikävä
      227
      1110
    8. Uskotko että kohdataan vielä?

      Kysymys otsikossa, aloitukseen ei muuta lisättävää.
      Ikävä
      68
      1042
    9. Miksi homous puhuttaa konservatiiveja vuodesta toiseen?

      Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv
      Luterilaisuus
      264
      1040
    10. Oletko tutustunut muihin

      Samalla tavalla kuin häneen?
      Ikävä
      73
      930
    Aihe