MS Excel - Kérdések és válaszok

[arpsoft 12]

Ha mondod, hogy angol az exceled, akkor elsõre is jó lett volna:

=left(a1,search(" ",a1))
=mid(a1,search("<",a1)+1,search(">",a1)-search("<",a1)-1)

[Crazy Frog 0]

Excelben szükségem lenne egy olyanra, hogy én csak beírok egy számot, és kiírja betűkkel.

Megoldható lenne ez?

[@Berecz Dénes@ 0]

Ez megfelel:itt

[arpsoft 12]

Private Function SzamToString(lszam As Double) As String

Dim iDigitCount, iDigit, iNum As Integer
Dim szReturn As String
szReturn = ""
If (lszam < 0) Then szReturn = "minusz "
If lszam < 0 Then lszam = -1 * lszam
If lszam >= 0 Then
  iDigitCount = Fix(Log(lszam) / Log(10#))
  For iDigit = iDigitCount To 0 Step -1
     iNum = Fix(lszam / (10 ^ iDigit))
     lszam = lszam - iNum * (10 ^ iDigit)
     If ((iDigit = 2) Or (iDigit = 5)) And (iDigitCount > iDigit) Then
       Select Case iDigit
         Case 2: szReturn = szReturn & "ezer-"
         Case 5: szReturn = szReturn & "millió-"
       End Select
     End If
     If (iDigit = 2) Or (iDigit = 5) Or (iDigit = 8) Then
       Select Case iNum
         Case 1: szReturn = szReturn & "száz"
         Case 2: szReturn = szReturn & "kettõszáz"
         Case 3: szReturn = szReturn & "háromszáz"
         Case 4: szReturn = szReturn & "négyszáz"
         Case 5: szReturn = szReturn & "ötszáz"
         Case 6: szReturn = szReturn & "hatszáz"
         Case 7: szReturn = szReturn & "hétszáz"
         Case 8: szReturn = szReturn & "nyolcszáz"
         Case 9: szReturn = szReturn & "kilencszáz"
       End Select
     End If
     If (iDigit = 1) Or (iDigit = 4) Or (iDigit = 7) Then
       Select Case iNum
         Case 1:
           If Fix(lszam / 10 ^ (iDigit - 1)) = 0 Then
             szReturn = szReturn & "tíz"
           Else
             szReturn = szReturn & "tizen"
           End If
         Case 2:
           If Fix(lszam / 10 ^ (iDigit - 1)) = 0 Then
             szReturn = szReturn & "húsz"
           Else
             szReturn = szReturn & "huszon"
           End If
         Case 3: szReturn = szReturn & "harminc"
         Case 4: szReturn = szReturn & "nagyven"
         Case 5: szReturn = szReturn & "ötven"
         Case 6: szReturn = szReturn & "hatvan"
         Case 7: szReturn = szReturn & "hetven"
         Case 8: szReturn = szReturn & "nyolcvan"
         Case 9: szReturn = szReturn & "kilencven"
       End Select
     End If
     If (iDigit = 0) Or (iDigit = 3) Or (iDigit = 6) Then
       Select Case iNum
         Case 1: szReturn = szReturn & "egy"
         Case 2: szReturn = szReturn & "kettõ"
         Case 3: szReturn = szReturn & "három"
         Case 4: szReturn = szReturn & "négy"
         Case 5: szReturn = szReturn & "öt"
         Case 6: szReturn = szReturn & "hat"
         Case 7: szReturn = szReturn & "hét"
         Case 8: szReturn = szReturn & "nyolc"
         Case 9: szReturn = szReturn & "kilenc"
       End Select
     End If
   Next
 Else
   szReturn = "nulla"
 End If
 SzamToString = szReturn
End Function

 

Majd még finomítok rajta, mert nem hajlandó megfejteni a kerek 10 hatványokat.

[Shia-ko 0]

@Shia-ko:

Gondolom a text fájlt be tudod emelni egy táblázat egyik oszlopába.

Ha megvan, akkor utána a következõ képleteket kell használni:

 

Nevek oszlopa:

=bal(a1;szöveg.keres(" ";a1))

Email címek oszlopa:

=közép(a1;szöveg.keres("<";a1)+1;szöveg.keres(">";a1)-szöveg.keres("<";a1)-1)

Ahol a1 a szétbontandó szöveget tartalmazó cella.

Magyarban mûködik, de csak a vezetéknevet találja meg, mert a vezeték, és keresztnév között space van.

Az angol megfelelõjét még nem találtam.

[arpsoft 12]

Ha magyarban megy, akkor :

=bal(a1;szöveg.keres("<";a1)-1)

[Shia-ko 0]

Köszi, este tesztelem, mert az angolban nem találtam meg a megfelelõjét. Ugya a left funkció másodiknak számot kér, és a keresés részét nem találtam az angolban. Köszi

[arpsoft 12]

bal = left

szöveg.keres = search

; = ,

 

De ha megírod a magyarban és átviszed az angolra, akkor a képletek is átfordulnak angolra.

[Shia-ko 0]

Megvan minden, tökéletes.

[Drexler 0]

Sziasztok!

 

Az én problémám az, hogy van egy egész nagy, több (sok) Sheet-bõl álló táblázatom. Az oldalakon több diagram is található. Nemrég volt egy fél perces áramszünet, amikor elszállt. Nagynehezen visszahoztam az élõk sorába, de azóta amikor valamelyik diagramban meg szeretném változtatni akár az X akár az Y tengelyen lévõ értékeket kinézetét (úgymint betûméret stb) akkor egy hibaüzenetet kapok, miszerint a dokumentumban több féle betûtípus nem használható.

Le lenne korlátozva a használt betûtípusok száma? ezt nem hinném...Vagy az áramszünet miatt megsérülhetetta fájl? Van erre valami megoldás?

Ha valaki tud valamit, legyenszíves segítsen.

Elõre is Köszönöm!

[arpsoft 12]

Próbáld meg elmenteni más néven a doksit, hátha megjavul.

Egyébként elõfordulhat, hogy elérted az Excel képességeinek a határát.

[Drexler 0]

Szia. A mentés más néven-el sikerült "felélesztenem".

Létezne olyan hogy ennyi, és többet nem enged?

Elhsizem neked, de ez furcsán hangzik, fõleg hogy igazából nem is új betûtípus lenne, hanem egy olyan ami már van benne....

Szóval ez elég érdekes, még nem találkozatm ilyennel.

Azért köszönöm a tippet!!!

[arpsoft 12]

Mennyi az a sok diagram?

[Drexler 0]

azon az oldalon ahol ezt kiírja ott 18, és összesen olyan 70-80 db

[arpsoft 12]

Lehet, hogy sok. Nem tudod szétszedni több munkafüzetre?

[Drexler 0]

Hát ha nagyon muszáj, lehet meg tudom csinálni. Kipróbálom és utána majd írok, de erre lehet csak holnap kerül sor.

Köszönöm a Tippet, és hogy "foglalkozol" velem!

Minden jót!

[Giraffe1 0]

Ennyi biztosan nem lehet sok. Nálam járt már olyan munkafüzet, amiben kb. 80 munkalap volt sok-sok adattal, és laponkét legalább két grafikonnal.

A grafikont az Excel természetesen nem képként tárolja, hanem csak a beállításait. Így pedig csak akkor nõhet meg a mérete jelentõsen, ha szinte minden paramétert egyesével átállítasz.

[Drexler 0]

Sziasztok. "pár" lapot átmásoltam egy másik munkafüzetbe, és így megoldódott a probléma! Köszönöm a tanácsokat!

 

Minden jót!

[_Menyus_ 0]

Szervusztok,

 

Excel 2000-ben szövegrészeket szeretnék összefûzni, de sajnos az a probléma, hogy az összefûzött szövegrészek elvesztik a formázásukat. Mind az ÖSSZEFÛZ függvénnyel, mind a & operátorral próbáltam. Pedig nagyon egyszerûen csak néhány szót vastagítani kéne (félkövér pontosabban).

 

Gondoltam arra is, hogy a formázott szövegrészeket függvénnyel vastagítom, de nem találtam ilyen függvényt.

 

Szerintetek mi a megoldás?

 

Köszönöm a válaszokat,

Benya Sándor

[Athos 0]

Lehet rosszul értelmezem. Írd be a képletet, majd azt a cellát formázd meg. Ennek így mûködnie kell.

[_Menyus_ 0]

Hatástalan.

 

És nekem az összefûzött szövegrészekben egy-egy szót kéne vastagítottá tennem.

Nincs megoldás, de köszönöm.

Sajnos mindenképpen Excelnél kell maradnom. Wordben egyszerû ûrlapmezõkkel meg lehetne oldani. ír:

 

Benya

[arpsoft 12]

Az excel csak a cella egészét lehet formázni. Ez nem Word!

[_Menyus_ 0]

A világért nem kívánlak megbántani kedves Arpsoft, de ez nem igaz.

Lehet cella egy adott részét formázni Excelben.

 

Benya Sándor

[Athos 0]

Igen lehet, de akkor nem alkalmazhatsz függvényt. Vagyis a kettõ vegyítésérõl nem tudok. Honnan tudná az Excel változó szövegek összefûzésénél, hogy mit, mire szeretnél formázni. Makróval lehet hogy meg tudod csinálni.

[arpsoft 12]

Jé, tényleg.

 

Ilyet még nem csináltam. Csak makróval lehet megoldani.

Egy cellának pl a betûtípusát így tudod állítani:

    With ActiveCell.Characters(Start:=1, Length:=3).Font
       .Name = "Arial"
       .FontStyle = "Félkövér"
       .Size = 10
   End With
   With ActiveCell.Characters(Start:=4, Length:=3).Font
       .Name = "Arial"
       .FontStyle = "Normál"
       .Size = 10
   End With