Excel feladat megoldása Visual Basic segítségével. Hogyan?
A feladat a következő: (segítségül lásd a mellékelt képet)
Tehát van egy legördülő lista, és egy másik táblázat.(ez utóbbi másik munkalapon, most az átláthatóság miatt egy lapra tettem) A feladat az lenne, hogy ha kiválasztok egy kategóriát, akkor a C1, C3, C5...stb mezőkbe írja a fajták neveit. Alapvetően meg lehetne oldani "keres", vagy "index" függvénnyel, de az lenne a lényeg, hogy manuálisan is lehessen beírni értékeket. Vagyis ha kiválasztom a "Macska"-t, dobja be a C1-re a "Safranek"- et, C3-ra beírom mondjuk hogy "Mirr-murr", ezután ha kiválasztom a "Kutya"-t, akkor töltse fel rendesen a neveket.
válasza:Nem teljesen tökéletes, de valami ilyesmire gondoltam. ( a segéd táblázatot áttettem a munka2-re az A1 cellától kezdve)
Function nevek(a As Integer)
For i = 1 To ThisWorkbook.Sheets("Munka2").Cells(a, 100).End(xlToLeft).Column - 1
Sheets("Munka1").Cells(i * 2 - 1, 3) = Sheets("Munka2").Cells(a, 1 + i)
Next i
End Function
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
nevek (WorksheetFunction.Match(Range("A1"), Sheets("munka2").Range("A1:A3"), 0))
End Sub
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!