Eli aktiivisen rivin tyhjien solujen perusteella pitäisi piilottaa sarakkeet määritetyltä sarakealueelta. Ja millä koodilla kaikki sarakkeet taas palautetaan takaisin esille?
Sarakkeiden piilottaminen aktiivisen rivin per
3
120
Vastaukset
- ORCL
Ohessa moduuliin kaksi makroa. Muuta kolmella koodirivillä haluamasi sarakeväli. Mallissa tällä hetkellä välinä A- Z. Ensimmäisellä makrolla saa piiloon tyhjien solujen sarakkeet sarakevälillä ja toisella makrolla saa kaikki sarakkeet taas näkyviin. Onko apua ?
Sub PiilotaSarakkeet()
Dim Alue As Range
Dim Solu As Range
Columns("A:Z").Hidden = False 'haluttu sarakeväli tähän
Set Alue = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row) 'haluttu sarakeväli tähän
For Each Solu In Alue
If IsEmpty(Solu) Then
Columns(Solu.Column).Hidden = True
End If
Next Solu
End Sub
Sub NäytäSarakkeet()
Columns("A:Z").Hidden = False 'haluttu sarakeväli tähän
End Sub- Koodi_hukassa
Just noin! Kiitos ORCL
ei tarvitse määritellä aluetta...
Sub Piilota()
ActiveCell.EntireRow.SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
End Sub
Sub Näytä()
ActiveCell.EntireRow.SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = False
End Sub
Keep EXCELing
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Cynthia Woods
😋😍😋😍😋😍😋😍😋 💋 Nymfomaani -> https://x18.fun/girl04372247#CynthiaWoods 🔞💋❤️💋❤️💋🔞�114836Aimee Dvorak
😍😋😍😋😍😋😍😋😍 💋 Nymfomaani -> https://x18.fun/girl02740429#AimeeDvorak 🔞❤️❤️❤️❤️❤️🔞💋💋03049Molly Graham
😍😋😍😋😍😋😍😋😍 😍 Nymfomaani -> https://x18.fun/girl02277975#MollyGraham 🔞❤️💋❤️💋❤️🔞❤️03045Rachelle Reynolds
😋😍😋😍😋😍😋😍😋 🔞 Nymfomaani -> https://x18.fun/girl03175674#RachelleReynolds 🔞❤️💋❤️💋❤️03045Becky Steele
🍑🍑🍑🍑🍑🍑🍑🍑🍑🍑🍑🍑 💋 Nymfomaani -> https://x18.fun/girl05250014#BeckySteele 🔞❤️💋❤️03045Pamela Orr
😋😋😋😋😋😋😋😋😋😋 🍒 Nymfomaani -> https://x18.fun/girl06055581#PamelaOrr 🔞❤️💋❤️💋❤️🔞03044Lakeisha Coleman
🍑🍒🍑🍒🍑🍒🍑🍒🍑 💋 Nymfomaani -> https://x18.fun/girl08105348#LakeishaColeman 🔞💋❤️💋❤️💋🔞03040Stephanie Love
😋😋😋😋😋😋😋😋😋😋 ❤️ Nymfomaani -> https://x18.fun/girl01692207#StephanieLove 🔞❤️💋❤️💋❤️03036Allison Queen
🍒🍑🍒🍑🍒🍑🍒🍑🍒 ❤️ Nymfomaani -> https://x18.fun/girl07854217#AllisonQueen 🔞❤️❤️❤️❤️❤️🔞03034Nancy Taylor
😍😍😍😋😋😋😋😍😍😍 ❤️ Nymfomaani -> https://x18.fun/girl01560856#NancyTaylor 🔞💋❤️💋❤️💋03034