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

• #30619 Delila_1 veterán opzozi #30617

  Új Válasz 2016-02-17 10:20:48 #30619

  Ú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 opzozi #30617 üzenetére

  Azt egy kis makróval, amit modulban helyezel el.

  Sub Csere()
  Dim CV As Object
  
  For Each CV In Selection
  If CV > 5 Then Range(CV.Address) = 10
  Next
  End Sub

  Kijelölöd a területet, ahol cserélni akarsz, és indítod a makrót.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #30615 Delila_1 veterán opzozi #30613

  Új Válasz 2016-02-17 09:50:59 #30615

  Ú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 opzozi #30613 üzenetére

  A Csere (Ctrl+h) funkcióval cserélheted. Fontos, hogy az Egyebeknél jelöld be a Ha ez a teljes cella tartalma négyzetet.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #23682 m.zmrzlina senior tag opzozi #23681

  Új Válasz 2014-10-13 11:02:36 #23682

  Ú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

  

  m.zmrzlina

  senior tag

  válasz opzozi #23681 üzenetére

  És sokszor végigvisz egy bonyolultabb megoldást mert nem ugrik be elsőre az egyszerűbb.

  Könyvet tudnék írni róla.

  [ Szerkesztve ]

• #23680 m.zmrzlina senior tag opzozi #23676

  Új Válasz 2014-10-13 10:35:56 #23680

  Ú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

  

  m.zmrzlina

  senior tag

  válasz opzozi #23676 üzenetére

  C1-ben van a felső küszöb, B1-ben az alsó:

  =DARABHATÖBB(A1:A13;">" & B1;A1:A13;"<" & C1)

  ugyanez számokkal megadva:

  =DARABHATÖBB(A1:A13;>2;A1:A13;<5)

  C1-D1-ben van a két küszöb, E1 az igen/nem B oszlopban az igen/nemek
  (ha nagyobb C1-nél és kisebb D1-nél és )

  =DARABHATÖBB(A1:A13;">" & C1;A1:A13;"<" & D1;B1:B13;E1)

  [ Szerkesztve ]

• #23678 Mittu88 senior tag opzozi #23676

  Új Válasz 2014-10-13 10:20:39 #23678

  Ú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

  

  Mittu88

  senior tag

  válasz opzozi #23676 üzenetére

  =darabhatöbb(argumentumok)

• #23675 m.zmrzlina senior tag opzozi #23674

  Új Válasz 2014-10-13 09:47:01 #23675

  Ú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

  

  m.zmrzlina

  senior tag

  válasz opzozi #23674 üzenetére

  Nincs mit.

• #23673 m.zmrzlina senior tag opzozi #23672

  Új Válasz 2014-10-13 09:41:01 #23673

  Ú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

  

  m.zmrzlina

  senior tag

  válasz opzozi #23672 üzenetére

  B2 képlete:

  =DARABTELI(A1:A5;">" & B1)

• #9609 Cuci3 tag opzozi #9608

  Új Válasz 2011-03-03 20:43:20 #9609

  Ú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 opzozi #9608 üzenetére

  Életemben először hallok erről a progiról. Némi google után itten ezt írják: "A LibreOffice legújabb verziói képesek bizonyos Excel Visual Basic makrók futtatására, ha engedélyezi ezt a szolgáltatást az LibreOffice - BeállításokEszközök - Beállítások - Megnyitás és mentés - VBA tulajdonságai alatt."
  Ha már a Help is csak bizonyos makrók futtatásáról ír, akkor eléggé kérdőjeles nálam. Amúgy ebben is lehet simán makrót felvenni / rögzíteni? És én a szintaktika megnézésével kezdeném.

  [ Szerkesztve ]

• #8286 Fire/SOUL/CD félisten opzozi #8285

  Új Válasz 2010-09-27 09:28:44 #8286

  Ú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 opzozi #8285 üzenetére

  Hali!

  A példa kedvéért A1 : A100 tartományban vannak a linkek. Készítünk egy GetURL függvényt (ALT+F11/Insert menu/Module) a megjelenő ablakba illeszd be ez a kódot

  Function GetURL(My_Range As Range) As String
  
  If My_Range.Hyperlinks.Count > 0 Then
  GetURL = My_Range.Hyperlinks(1).Address
  Else: GetURL = My_Range
  End If
  
  End Function

  Ezt követően B1 cellába meg írd be =GetURL(A1) , majd másold le ameddig szükséges.

  Fire.

  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)

• #8284 Fire/SOUL/CD félisten opzozi #8283

  Új Válasz 2010-09-26 13:24:59 #8284

  Ú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 opzozi #8283 üzenetére

  Hali!

  Hát ebből a megfogalmazásból megint 2 dologra tudok gondolni

  1. "A Link szó valóban egy link, és amire mutat, azt szeretném megjeleníteni."
  Tehát ha a link egy pl képre mutat, akkor a képet akarod beillszteni a cellába?

  2. "Tehát a tényleges linket egyik cella sem tartalmazza csak maga a "Link" hivatkozása."
  Ezek szerint meg az a cél, hogy a korábbi Link feliratú hiperhivatkozás megszűnjön létezni és helyette(ugyanabban a cellában) csak sima szövegként jelenjen meg a hiperhivatkozás címe?
  (pl egy kép hiperhivatkozása van ott és csak a LINK felirat látszik, ezt kell lecserélni egy sima szöveggé, amire a hiperhivatkozás hivatkozott korábban pl http://www.valami.hu/kep1.jpg)

  Fire.

  [ 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)

• #8283 opzozi tag opzozi #8282

  Új Válasz 2010-09-26 13:00:32 #8283

  Ú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

  

  opzozi

  tag

  válasz opzozi #8282 üzenetére

  Annyi a bibi, hogy ez nem teljesen olyan.

  A Link szó valóban egy link, és amire mutat, azt szeretném megjeleníteni. Tehát a tényleges linket egyik cella sem tartalmazza csak maga a "Link" hivatkozása.

  Xiaomi Poco X3 Pro

• #8281 Fire/SOUL/CD félisten opzozi #8280

  Új Válasz 2010-09-26 12:47:43 #8281

  Ú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 opzozi #8280 üzenetére

  Hali!

  Akkor szerintem átsiklottál a válaszomon, mert az pont ezt csinálja

  Fire.

  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)

• #8274 Fire/SOUL/CD félisten opzozi #8273

  Új Válasz 2010-09-25 15:51:37 #8274

  Ú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 opzozi #8273 üzenetére

  Hali!

  Ma nehéz a felfogásom...
  Dobj be 2 képet a cellákról, az elsőt hogy most milyen, a másodikat meg hogy ilyenre, akkor meg fogom érteni és módosítom a makrót...

  Fire.

  UI: Most is sejtem, mit szeretnél, csak a megerősítés jó lenne, mert nem akarom 5x átírni a makrót...

  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)

• #8267 Fire/SOUL/CD félisten opzozi #8262

  Új Válasz 2010-09-24 17:37:44 #8267

  Ú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 opzozi #8262 üzenetére

  Hali!

  Ezt nem teljesen értem "cellában "Link" névvel szerepel és ugye ott van alatta a hivatkozás."
  Arra gondolsz hogy pl A1-ben van a (I)LINK (/I)felirat, A2-ben meg pl (I)http://www.mypage.hu/index.html(/I) ?

  Fire.

  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)

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