-
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
- Politika
- Projektor topic
- Microsoft Edge (a Windows Internet Explorer utódja)
- Fotók, videók mobillal
- Milyen autót vegyek?
- Óra topik
- sziku69: Fűzzük össze a szavakat :)
- Computex 2024: dedikált NPU-val menedzselné a VGA-t a PowerColor
- Aliexpress tapasztalatok
- Skoda, VW, Audi, Seat topik
- További aktív témák...
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen