- Honor 200 Pro - mobilportré
- Fotók, videók mobillal
- iPhone topik
- 45 wattos vezeték nélküli töltés jön az új iPhone-ba
- VoLTE/VoWiFi
- Bemutatkozott a Poco X7 és X7 Pro
- Milyen okostelefont vegyek?
- Xiaomi 14T Pro - teljes a család?
- Honor Magic6 Pro - kör közepén számok
- Android alkalmazások - szoftver kibeszélő topik
-
Mobilarena
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
-
Delila_1
veterán
-
Delila_1
veterán
Más módszerrel:
Sub Keres_1()
v% = InputBox("Kérem a keresendő értéket", "Keresés")
On Error GoTo Hiba
Cells.Find(What:=v%, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
sor = Selection.Row
Rows(sor).Select
Exit Sub
Hiba:
MsgBox "Nincs ilyen érték"
End Sub -
Delila_1
veterán
Tegyél ki egy gombot az Űrlap eszköztárról, és rendeld hozzá a lenti makrót. Az A oszlopban keresi a bekért értéket, és kijelöli a sort, ahol megtalálta.
Sub keres()
f = 0
v% = InputBox("Kérem a keresendő értéket", "Keresés")
sor = Cells(Rows.Count, "A").End(xlUp).Row
Do Until sor = 2
If Cells(sor, 1) = v% Then
Rows(sor).Select
f = 1
Exit Sub
Else
sor = sor - 1
End If
Loop
If f = 0 Then MsgBox "Nincs ilyen érték"
End Sub
Új hozzászólás Aktív témák
Hirdetés
- Honor 200 Pro - mobilportré
- Milyen belső merevlemezt vegyek?
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Intel Core i3 / i5 / i7 / i9 10xxx "Comet Lake" és i3 / i5 / i7 / i9 11xxx "Rocket Lake" (LGA1200)
- Kerékpárosok, bringások ide!
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Fotók, videók mobillal
- Le Mans Ultimate
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Xbox Series X|S
- További aktív témák...
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest