-
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
-
félisten
Autószűrővel szűkítheted a táblázatod, majd egy makróban írt szubrutin segítségével kinyered a linkek címét.
Makrókód
Function GetLinkAddress(MyCell As Range) As String
GetLinkAddress = MyCell.Hyperlinks(1).Address
End FunctionRáállsz az I2-es cellára és =GetLinkAddress(B665)
(Azért B665 szerepel itt, mert a szűrések következtében a B oszlopban ez az első sor)Aztán hagyományosan, egérrel lemásolod a képletet. Mindez képben
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Cuci3
tag
Összesen 6 találat, miért is írunk erre kódot? Amúgy lentebb a lehetőség, a feltételeket remélem jól adtam meg.
Sub hiperlink_kiszedes()
Application.ScreenUpdating = False
i = 2
For Each h In Worksheets(1).Hyperlinks
If Cells(i, 4) = 300 And Cells(i, 7) > 0.8 And Cells(i, 8) = "Gold" Then
Cells(i, 9) = h.Name
Cells(i, 10) = "[L:" & h.Name & "][link][/L]"
End If
i = i + 1
Next
Application.ScreenUpdating = True
End Sub -
félisten
1. Sub vs. Function
Private Sub CommandButton1_Click()
Call My_SUB_Multiplication(5)
MsgBox (My_FUNC_Multiplication(5))
End Sub
Sub My_SUB_Multiplication(MyNumber As Integer)
Range("A1") = MyNumber * MyNumber
End Sub
Function My_FUNC_Multiplication(MyNumber As Integer) As Integer
My_FUNC_Multiplication = MyNumber * MyNumber
End FunctionDe belinkelve a PH-ra összecsúszott
Azért, mert a PH! törli a felesleges szóközöket(egynél több szóköz szavak közt vagy végén. (Ezen még egy kicsit agyalok, csak megint (még mindig) totálkáros a PH! ebben az időszakban, örülök, ha ez a HSZ elmegy (kb 6-7 perce próbálom küldeni)
márpedig az Excel úgy tűnik még olyat sem tud a cserénél, hogy adott oszlopban lévő elemeken hajtsa csak végre a cserét.
CTRL+H/Listába mind gomb, listából kijelölheted, hogy melyiken legyen a csere végrehajtva. [link]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz atesss #23665 üzenetére
Alakítsd a tartományodat listává (2003-as verzió), ill. tartománnyá (2007-es verziótól). Legegyszerűbben a Ctrl+r bill. kombinációval teheted meg. Ezután a beszúrt sorban is megjelennek a fölötte lévő képletek.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Tenisz topic
- kraftxld: Diáklaptop - Dell Latitude 3140 - Királyunk ajándéka
- Apple iPhone 15 Pro Max - Attack on Titan
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- E-roller topik
- Gaming notebook topik
- Elnéztük a mai dátumot
- Kerékpárosok, bringások ide!
- Diablo IV
- Kávé kezdőknek - amatőr koffeinisták anonim klubja
- További aktív témák...