Onkohan olemassa kaavaa, joka lisäisi rivin tai sarakkeen automaattisesti jos määrättyyn soluun tulee tietty arvo?
rivin/sarakkeen lisääminen
kaavalla?
4446
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 4
Vanhimmat
Olisiko tähän kysymykseen kenelläkään vastausta, asia myös minulla ajankohtainen?
Onko liian haasteellinne pähkinä? Minäkin yrittänyt opinnäytetyötni varten
ratkaisua etsiä, mutta ei ole löytynyt! Nimenomaan ko. solun alapuolelle t uo lisärvi pitäisi saada? Voiko kukaan ystävllisesti auttaa?
tosi haasteellinen ;-)
ko taulukon moduuliin...
tsekkaa nyt solua B5 ja sen arvoa 1, muuta solu ja arvot sopivaksi
koodissa hipsattuna myös rivin yläpuolelle lisäys sekä sarakkeiden lisäys vasemmalle ja oikealle.. Hipsuja muuttelemalla toimii siis joka suuntaan
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Virhe
Application.EnableEvents = False
If Not Intersect(Target, Range("B5")) Is Nothing Then
If Target = 1 Then
'lisää rivin yläpuolelle
' Target.EntireRow.Insert
' 'lisää rivin alapuolelle
Target.Offset(1).EntireRow.Insert
'lisää sarakkeen vasemmalle
' Target.EntireColumn.Insert
' 'lisää sarakkeen oikealle
' Target.EntireColumn.Offset(0, 1).Insert
End If
End If
Virhe:
Application.EnableEvents = True
End Sub
Keep EXCELing
@Kunde
Tuolta löytyy koodinpätkiä, jolla lisätä uusi rivi solun arvon perusteella.
http://www.ozgrid.com/forum/showthread.php?t=21558