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

• #2072 matekmatika tag BoGyo[ME] #2070

  Új Válasz 2007-03-05 21:28:47 #2072

  Ú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

  

  matekmatika

  tag

  válasz BoGyo[ME] #2070 üzenetére

  1. Készíts akkor egy makrót, (ESZKÖZÖK -> Makró -> Makrók..., Makrónévhez beírsz egy nevet (pl. hyper, de bármi lehet amit nem foglalt le magának a VB ), majd: Létrehozás.
  2. Másold be ezt a Sub makróneve() és az End Sub közé:
  
  Set leir = Worksheets(''leírás'')
  a = 9 'az ''alap'' munkalapodon az első cellád sora (E9 vagyis 9)
  b = 11 'az ''alap'' munkalapodon az utolsó cellád sora (E11 vagyis 11)
  c = 5 'az ''alap'' munkalapodon a szöveget tartalmazó oszlopod száma (E vagyis 5)
  i = 1 'a ''leírás'' m.lapon az első leírást tartalmazó cellád sora (A1 vagyis 1)
  j = 1 'a ''leírás'' m.lapon a leírásokat tartalmazó celláid oszlopa (A vagyis 1)
  For k = a To b
  Range(Cells(k, c), Cells(k, c)).Select
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:='''', SubAddress:= _
  leir.Cells(i, j).Value, TextToDisplay:=Selection.Value
  i = i + 1
  Next k
  
  3. Majd futtasd le.
  Próbáltam elég állítási lehetőséget beletenni, illetve magyarázatot hozzá.
  
  Ha mégsem menne (de csak akkor ) itt megnézheted mit is csinál, remélem erre gondoltál, bár sok fantáziája nem lehetett annak aki kitalálta. (bocs )
  (katt a command button-ra)
  
  Hopp, a tar.hu -ra a feltöltés nem müxik az uw-t meg nem akaródzik rájönnöm hogy kell belinkelni, ha tudja vki segíthet
  
  [link]
  
  
  [Szerkesztve]

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