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.
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.
Vastaukset 3
Vanhimmat
Sub Täytä()
'tyhjennetään rivi
Range("1:1") = ""
Range("A1").Offset(, Range("B2")).Resize(, Range("B3")) = 1
End Sub
Keep EXCELing
@Kunde
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.