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

• #2086 matekmatika tag BoGyo[ME] #2085

  Új Válasz 2007-03-13 11:57:28 #2086

  Ú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] #2085 üzenetére

  Grat.
  Azért így első ránézésre két db ''End If'' hiányzik belőle

• #2084 matekmatika tag BoGyo[ME] #2082

  Új Válasz 2007-03-13 10:06:37 #2084

  Ú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] #2082 üzenetére

  [link]
  Hopp, akkor vedd úgy, mintha itt sem lenne ez a hsz.
  
  [Szerkesztve]

• #2083 BoGyo[ME] tag BoGyo[ME] #2082

  Új Válasz 2007-03-13 09:55:23 #2083

  Ú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

  

  BoGyo[ME]

  tag

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

  Sikerült magamtól!
  
  (Gyorsabban ment mint megírni az előző HSZ-t )

• #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]

• #2071 lapa veterán BoGyo[ME] #2070

  Új Válasz 2007-03-05 18:06:00 #2071

  Ú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

  

  lapa

  veterán

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

  én nem értem a feladatot brühü

• #2068 matekmatika tag BoGyo[ME] #2067

  Új Válasz 2007-03-05 10:52:06 #2068

  Ú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] #2067 üzenetére

  1. Kézzel egyesével
  2. Nem tudom
  3. Makróval
  
  De ha már makró akkor nekem praktikusabb lenne a hiperhivatkozások helyett megjegyzésekbe pakolni a leírást.
  Mert így:
  - egy munkalapot megspórolsz
  - a szöveg fölé állva egyből látod a leírást (nem kell kattintani)
  - hiperhivatkozásnál vagy vissza kell hivatkoznod az eredeti munkalapodra vagy kézzel
  visszakattintani, ha elolvastad a leírást.
  

• #2067 BoGyo[ME] tag BoGyo[ME] #2066

  Új Válasz 2007-03-05 10:26:49 #2067

  Ú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

  

  BoGyo[ME]

  tag

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

  Senki???
  
  
  (Up)

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