Excel-ben meg lehet azt csinálni hogy minél nagyobb szám van a mezőben annál magasabb a cella és ha meglehet akkor hogyan?

+macro

Amit a cellaváltozás eseményere raksz rá és egy képlettel kiszámolod a sorok magasságát az adott cella értéke alapján.

Sok sikert.

üdv.

Ha jól értelmeztem a feladatot akkor : [link]

A fenti excel fájl az "A" oszlop adott cellájának értéke alapján állitja be az adott sor magásságát.

(Excel verziójától függően a macrókat engedélyezni kell - egyébb esetben nem fog dolgozni). Illetve Biztonsági Figyelmeztetés esetén pediglen a "Tartalom engedélyezése" gombot meg kell nyomni.

Kiindulóméret sor méret : 15

A legkisebb sor méret : 5

A legnagyobb sor méret : 250

Sor méretek változtatása 500-ként +/-1 méret változtatás

Itt a macró :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

_ _ Cim1 = Target.Address

_ _ Cim2 = Mid(Cim1, 1, 3)

_ _ If Cim2 = "$A$" Then 'Csak "A" oszlop esetén müködik

_ _ _ _ Meret1 = 15 'Kiindulási méret

_ _ _ _ Cim1 = Mid(Cim1, 2, Len(Cim1) - 1)

_ _ _ _ Poz1 = InStr(1, Cim1, "$", vbBinaryCompare)

_ _ _ _ Sor1 = Mid(Cim1, Poz1 + 1, Len(Cim1) - Poz1 + 1)

_ _ _ _ Sor1 = Sor1 + ":" + Sor1 'Meghatározzuk a sort

_ _ _ _ Meret1 = 15 + Int(Target / 500) ' Kiszámoljuk az új sor magasságot

_ _ _ _ If Meret1 <= 5 Then ' Nem lehet kisebb 5-nél

_ _ _ _ _ _ Meret1 = 5

_ _ _ _ End If

_ _ _ _ If Meret1 >= 250 Then 'Nem lehet nagyobb 250-nél

_ _ _ _ _ _ Meret1 = 250

_ _ _ _ End If

_ _ _ _ Rows(Sor1).RowHeight = Meret1 ' Alkalmazzk az új magasságot

_ _ End If

End Sub

Az újabb excelekben ALT+F11-gyel lehet elinditani a Microsoft Visual Basic Applications-t és a ThisWorkbook-ra kattintva nézhető meg a macró (és módositható is)

Sok sikert.

Üdv.