< návrat zpět
MS Excel
Téma: Skrytí sloupců, rozšíření několika ostatních 
Zaslal/a nosekpav 8.8.2019 7:21
Dobrý den lámu si hlavu jak skrýt některé sloupce poté rozšířit některé ostatní najednou
např.
skrýt C,E,G,I,K,M,O,Q,S,U,W,Y
zozšířit B,D,F,H,J,K,N,P,R,T,V,X (ze 136px stávajících na 150px)
s možností vrácení sloupců zpět do původního stavu
asi je to na makro děkuji za pomoc
Jiří497(8.8.2019 15:37)#043907 
Pokud chcete jenom toto a nebude na tento první krok navazovat x dalších, tak nejjednodušší je spustit "záznam makra", udělat požadované kroky a toto makro používat.
Nebo spustit záznam makra
skrýt sloupec C
rozšířit sloupec B
ukončit záznam makra
Potom spustit editor makra a tyto dva příkazy zkopírovat a jen přepsat jednotlivé názvy sloupců.
Není to sice moc elegantní, ale jste si to schopen udělat sám.
Pokud chcete něco víc a neumíte to, tak by bylo dobré napsat jak to chcete spouštět, jestli tam není potřeba zahrnout nějaké podmínky, jestli se vždy bude jednat o stejné sloupce apod.
Sub Makro1()
Columns("C:C").Hidden = True 'skryje sloupec C
Columns("B:B").ColumnWidth = 20.71 'rozšíří sloupec B
End Sub
citovatJiří497(8.8.2019 16:07)#043909 Nebo pro všechny:
Sub Makro1()
For i = 2 To 24 Step 2
Columns(i + 1).Hidden = True
Columns(i).ColumnWidth = 20.71
Next i
End Sub
citovatnosekpav(8.8.2019 17:00)#043910 Zdravím Jiří497, vyzkoušeno funguje a zlepšila se přehlednost
Děkuji moc
citovatStalker(8.8.2019 20:58)#043912 
Přikládám svůj pokus, řeší požadavek vrácení sloupců do původního stavu (opětovným spuštěním makra).
Sub UpravSloupce()
Dim SloupceH As String
Dim SloupceW As String
SloupceH = "C1, E1, G1, I1, K1, M1, O1, Q1, S1, U1, W1, Y1"
SloupceW = "B1, D1, F1, H1, J1, K1, N1, P1, R1, T1, V1, X1"
Range(SloupceH).EntireColumn.Hidden = True = Not Range(SloupceH).EntireColumn.Hidden = True
With Range(SloupceW)
If .ColumnWidth = 20.71 Then
.ColumnWidth = 18.71
Else
.ColumnWidth = 20.71
End If
End With
End Sub
citovatnosekpav(8.8.2019 23:01)#043914 Zdravím Stalkere,
použil jsem váš příspěvek pro úsporu místa v listu a pro širší použití a přiznávám že jsem velmi vděčen a rád za pomoc
citovat
Vaše makro by sa dalo skrátiť napr. na:
Sub UpravSloupce()
With Range("C1, E1, G1, I1, K1, M1, O1, Q1, S1, U1, W1, Y1").EntireColumn
.Hidden = Not .Hidden
End With
With Range("B1, D1, F1, H1, J1, K1, N1, P1, R1, T1, V1, X1")
.ColumnWidth = IIf(.ColumnWidth = 20.71, 18.71, 20.71)
End With
End Sub
Vaše je zase pekne čitateľné, ale vadí mi na ňom to 2x zbytočné True v riadku
Range(SloupceH).EntireColumn.Hidden = True = Not Range(SloupceH).EntireColumn.Hidden = True
stačí iba negácia
Range(SloupceH).EntireColumn.Hidden = Not Range(SloupceH).EntireColumn.Hiddencitovat
RSS nejnovější články