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

• #1357 krealon veterán ggg666 #1356

  Új Válasz 2023-10-01 02:21:57 #1357

  Ú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

  

  krealon

  veterán

  válasz ggg666 #1356 üzenetére

  Feltételes formázással valósítható meg az igényed, ha a dátumokat tartalmazó cellák valóban dátum tipusúak.

  A kapcsolódó dokumentáció
  https://help.libreoffice.org/latest/hu/text/scalc/01/05120000.html

• #1239 Fire/SOUL/CD félisten ggg666 #1238

  Új Válasz 2021-12-07 09:44:47 #1239

  Ú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 ggg666 #1238 üzenetére

  Külön nem lehet futtatni, hisz ez egy függvény(azért dob hibát, mert kell neki egy bemeneti paraméter, nevezetesen egy CELLA)
  Egyszerűen csak írd be a függvényt munkalapod egyik cellájába, meg paraméterként a megfelelő cellát és kész.
  A képedet alapül véve pl. a P2 cellába ez kerüljön: =Fire_MultipleFindAndReplace(A2)

  Aztán végigmásolhatod a P oszlopban. Ha módosítasz a makrón(tehát a függvény kódján), akkor meg megint futtatod (nem érdekes, ha ezt a hibát dobja) és a munkalapot meg újraszámoltatod az F9 gomb megnyomásával.

  UI: Bocs, csak sok dolgom volt/van, van meló bőven, ezért kicsit ritkábban van időm PH!-ra...

• #1237 Fire/SOUL/CD félisten ggg666 #1236

  Új Válasz 2021-12-03 09:01:24 #1237

  Ú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 ggg666 #1236 üzenetére

  Minden megoldható, csak az ún. speciális karakterekre, az ún. karakterkódjukkal (decimális avagy hexadecimális érték, a lenti makróban a decimális lehetőséget használtam) kell hivatkozni, Chr(X) formában, ahol az X az a bizonyos karakterkód.

  Függvény eredménye itt pedig a kód.

  REM ***** BASIC - Fire/SOUL/CD - 2021 *****

Function Fire_MultipleFindAndReplace (ByVal MyStr as String) as String

Dim MyReplaceStrings() As Variant


'itt adhatod meg, hogy MIT és MIRE cseréljen,
'természetesen bővítheted a cserélendő karakterek számát
MyReplaceStrings = Array( _
"/", "[PERJEL]", _
"\", "[VISSZAPERJEL]", _
"?", "[KÉRDŐJEL]", _
"!", "[FELKIÁLTÓJEL]", _
"@", "[KUKAC]", _
" ", "[TRIPLASZÓKÖZ]", _
" ", "[DUPLASZÓKÖZ]", _
Chr(39), "[APOSZTRÓF]", _
Chr(8221), "[FELSŐMACSKAKÖRÖM]", _
Chr(8222), "[ALSÓMACSKAKÖRÖM]" _
)

For i = 0 To UBound(MyReplaceStrings) \ 2

'az adott cserélendő karakter összes előfordulását lecseréli
'pontosabban max. 256-szor fordulhat elő a cserélendő karakter, ami elégnek kell lennie
MyStr = Replace(MyStr, MyReplaceStrings(i*2), MyReplaceStrings(i*2+1), 1, 256, TRUE)

Next i

'szöveg elejéről és végéről is eltávolítjuk a felesleges szóköz(öke)t
Fire_MultipleFindAndReplace = Trim(MyStr)

End Function

• #1235 Fire/SOUL/CD félisten ggg666 #1234

  Új Válasz 2021-12-01 22:56:45 #1235

  Ú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 ggg666 #1234 üzenetére

  OK, így világos. Írtam egy egyszerű makrót, amit függvényként használhatsz ill. a makró-kódban lehetőséged van számodra megfelelő karaktereket megadni. (Mit és mire cseréljen), remélem megfelel.

  Függvény és eredménye | Module1-ben van a kód

  Itt pedig a beilleszthető kód

  REM ***** BASIC - Fire/SOUL/CD - 2021 *****

Function Fire_MultipleFindAndReplace (ByVal MyStr as String) as String

Dim MyReplaceStrings() As Variant


'itt adhatod meg, hogy MIT és MIRE cseréljen,
'természetesen bővítheted a cserélendő karakterek számát
MyReplaceStrings = Array( _
"/","-", _
"?","[KÉRDŐJEL]", _
"!","[FELKIÁLTÓJEL]", _
"@","[KUKAC]" _
)

For i = 0 To UBound(MyReplaceStrings) \ 2

'az adott cserélendő karakter összes előfordulását lecseréli
'pontosabban max. 256-szor fordulhat elő a cserélendő karakter, ami elégnek kell lennie
MyStr = Replace(MyStr, MyReplaceStrings(i*2), MyReplaceStrings(i*2+1), 1, 256, TRUE)

Next i

'szöveg elejéről és végéről is eltávolítjuk a felesleges szóköz(öke)t
Fire_MultipleFindAndReplace = Trim(MyStr)

End Function

• #1233 Fire/SOUL/CD félisten ggg666 #1232

  Új Válasz 2021-11-30 11:32:42 #1233

  Ú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 ggg666 #1232 üzenetére

  Mivel itt MP3-akról (vagy egyéb hangformátumú fájlokról) van szó, miért nem egy Mp3 szoftverrel készítetted el ez a listát? (Mp3 TAG infóból speciális fájlneveket adhatsz meg, Előadó/Szám címe/Album/Év stb stb infót lehet kimenteni)

• #1231 Fire/SOUL/CD félisten ggg666 #1230

  Új Válasz 2021-11-17 11:18:29 #1231

  Ú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 ggg666 #1230 üzenetére

  Ha egy konkrét példát írnál, hogy MIBEN(cella tartalmában, cellában található KÉPLETBEN stb stb) és MIT és MIRE szeretnél cserélni, akkor könnyebb lenne segíteni, lehet, hogy "script" sem kellene hozzá...

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