-
GAMEPOD.hu
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
bsh
őstag
válasz Terra86 #29812 üzenetére
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(Target.Row, Me.Columns.Count).End(xlToLeft).Column > 1 Then
Call ExtendSelection(Target)
End If
End Sub
Private Sub ExtendSelection(ByVal Target As Range)
Me.Range(Cells(Target.Row, Target.Column), Cells(Target.Row, Cells(Target.Row, Me.Columns.Count).End(xlToLeft).Column)).Select
End Sub[ Szerkesztve ]
-
bteebi
veterán
válasz Terra86 #29812 üzenetére
Ez elvileg azt csinálja, amit szeretnél:
Sub kijelol()
Dim lastcolumn As Integer
lastcolumn = Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Column
Range(ActiveCell, Cells(ActiveCell.Row, lastcolumn)).Select
End SubCancel all my meetings. Someone is wrong on the Internet.
Új hozzászólás Aktív témák
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- Milyen légkondit a lakásba?
- Kés topik
- Milyen TV-t vegyek?
- AMD Navi Radeon™ RX 6xxx sorozat
- Mobil flották
- Milyen okostelefont vegyek?
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Canva Pro előfizetés - 1 éves
- 10 Darab PC Játék (Bontatlanul!) Egyben 6990Ft.-ért Foxal!!!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen