Saisinko apua

aivot jumissa

Yritän jonkinlaisella pseudokoodilla kuvata sen mitä haluaisin tehdä.

Laita rivillä yksi useaan eri soluun numero yksi:
Se kohta mistä numero ykköstä aletaan laittaa(siis rivillä 1), riippuu solun B2 arvosta.
Nyt solun B2 arvo on 2. Silloin rivi ykkösen täyttäminen alkaa kolmannesta sarakkeesta (0=A,1=B,2=C) C(rivillä 1). Se, kuinka pitkälle rivi ykköstä täytetään riippuu taas solun B3 arvosta. Nyt B3 arvo on 4. Siis täytetään rivin 1 kolmannesta sarakkeesta (C)alkaen eteenpäin neljä saraketta numerolla 1. Eli tuloksena on C1 D1 E1 ja F1=1.

3

55

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kundepuu

      Sub Täytä()
      'tyhjennetään rivi
      Range("1:1") = ""
      Range("A1").Offset(, Range("B2")).Resize(, Range("B3")) = 1
      End Sub

      Keep EXCELing
      @Kunde

      • Kundepuu

        ilman VBA:ta

        solu A1 =IF(($B$2=COLUMN()-1)*($B$3>0);1;"")

        solut B1,C1,D1 jne. oikealle niin pitkälle kun tarttet

        B1=IF(AND(($B$20);(COLUMN()


      • aivot jumissa
        Kundepuu kirjoitti:

        ilman VBA:ta

        solu A1 =IF(($B$2=COLUMN()-1)*($B$3>0);1;"")

        solut B1,C1,D1 jne. oikealle niin pitkälle kun tarttet

        B1=IF(AND(($B$20);(COLUMN()

        Kiitos! Kokeilen illalla.


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

    Luetuimmat keskustelut

    1. 143
      4048
    2. Katso: Ohhoh! Miina Äkkijyrkkä sai käskyn lähteä pois Farmi-kuvauksista -Kommentoi asiaa: "En ole.."

      Tämä oli shokkiyllätys. Oliko tässä kyse tosiaan siitä, että Äkkijyrkkä sanoi asioita suoraan vai mistä.... Tsemppiä, Mi
      Tv-sarjat
      111
      3662
    3. Voi kun mies rapsuttaisit mua sieltä

      Saisit myös sormiisi ihanan tuoksukasta rakkauden mahlaa.👄
      Ikävä
      20
      2565
    4. Kyllä poisto toimii

      Esitin illan suussa kysymyksen, joka koska palstalla riehuvaa häirikköä ja tiedustelin, eikö sitä saa julistettua pannaa
      80 plus
      28
      1861
    5. "Joka miekkaan tarttuu, se siihen hukkuu"..

      "Joka miekkaan tarttuu, se siihen hukkuu".. Näin puhui jo aikoinaan Jeesus, kun yksi hänen opetuslapsistaan löi miekalla
      Yhteiskunta
      22
      1727
    6. Haluan jutella kanssasi Nainen

      Olisiko jo aika tavata ja avata tunteemme...On niin paljon asioita joihin molemmat ehkä haluaisimme saada vastaukset...O
      Ikävä
      15
      1619
    7. Poliisiauto Omasp:n edessä parkissa

      Poliisiauto oli parkissa monta tuntia Seinäjoen konttorin edessä tänään. Haettiinko joku tai jotain pankista tutkittavak
      Seinäjoki
      19
      1585
    8. Haluan tavata Sinut Rakkaani.

      Olen valmis Kaikkeen kanssasi...Tulisitko vastaa Rakkaani...Olen todella valmistautunut tulevaan ja miettinyt tulevaisuu
      Ikävä
      30
      1523
    9. Onko mies niin,

      että sinulle ei riitä yksi nainen? Minulle suhde tarkoittaa sitoutumista, tosin eihän se vankila saa olla kummallekaan.
      Tunteet
      18
      1491
    10. Hermo mennyt sotealueeseen?

      Nyt hammaslääkäriaika peruttiin neljännen kerran. Perumiset alkoi tammikuussa. Nyt uusi aika elokuulle!????
      70 plus
      89
      1483
    Aihe