Új hozzászólás Aktív témák

• #23667 Delila_1 veterán atesss #23665

  Új Válasz 2014-10-12 20:48:46 #23667

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  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.

• #8710 Fire/SOUL/CD félisten atesss #8704

  Új Válasz 2010-11-23 21:34:50 #8710

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz atesss #8704 üzenetére

  Régebben már írtam ilyen HSZ-t: [link]
  Ennyi a max, amit ki tudok hozni a dologból: [link]

• #8705 Fire/SOUL/CD félisten atesss #8704

  Új Válasz 2010-11-23 20:10:23 #8705

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz atesss #8704 üzenetére

  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 Function

  De 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]

• #8694 Cuci3 tag atesss #8692

  Új Válasz 2010-11-22 21:44:37 #8694

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Cuci3

  tag

  válasz atesss #8692 üzenetére

  Ö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

• #8693 Fire/SOUL/CD félisten atesss #8692

  Új Válasz 2010-11-22 21:36:04 #8693

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz atesss #8692 üzenetére

  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 Function

  Ráá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

Új hozzászólás Aktív témák