[Bogyosz]

Idézet: Delila - Dátum: 2009. jan. 4., vasárnap - 6:33

We3Rw3
Másik megoldás az ÉRTÉK függvény alkalmazása.

=ÉRTÉK(szöveg)

Ezt a képletet végig másolod, azután az új oszlopod kijelölöd, másolod, a szöveg formátumú oszlopot a Szerkesztés/Irányított beillesztés/Érték segítségével felülírod a számmá alakított értékekkel.

Ez nekem anno nem jutott eszembe...  Mondjuk ha eszembe is jut, 56ezer soron keresztül tuti kiakadt volna (adatbáziseredmény-buhera)  :Ð

[pihe75]

Idézet: Bogyosz - Dátum: 2009. jan. 4., vasárnap - 13:23

Ha jól tudom, akkor mentéskor törli az elõzõ lépéseket, azaz nincs tovább "undo" funkció. Esetleg ha mail-ben kaptad csatolmányként, vagy msn-en, akkor onnan vissza tudod nyerni az eredetit, de nem tudok róla, hogy excel-bõl vissza lehetne varázsolni korábbi, mentés elõtti verziót...

Sejtettem.

Köszi!!

[Ako5]

Idézet: pihe75 - Dátum: 2009. jan. 4., vasárnap - 13:15

Sziasztok!
Hát én sajna nem vagyok egy exel guru. Ha tudtok és lehet még segíteni, légyszi segítsetek!
Van egy listám exel formátumban. Egy teljesen egyszerû lista. Csináltam rajta egy két változtatást. Sajna a végén vettem észre, hogy elszúrtam egy két dolgot. A lényeg az, hogy nem tudok már visszalépni annyit, hogy vissza kapjam az eredeti táblázatot. Közben már mentettem a változtatásokat. Meg lehet azt oldani, hogy vissza álítsam valahogy az eredeti táblázatomat? Nagyon jó lenne!!

Elõre is köszi a segítséget!

Azt buktad

[FragMaster]

Van itt excel VBA guru ?
Kéne õvele egy kis segítség, mert már kiakadok :

Idézet

Készítsen olyan függvény makrót, amely egy beadott idõérték alapján
köszönti a felhasználót.
Ha például az idõérték:
reggel 6 óra és 10 közötti, akkor Jó reggelt, ha
10 és 18 óra közötti, akkorJó napot, ha
18 és 22 óra közötti, akkor Jó estét,
amennyiben 22 óra és reggel 6 közötti az idõ, akkor
Jó éjszakát legyen az eredmény.
Használja az idõ bekérésére a TIME függvényt, míg számmá konvertálásra a Cdbl függvényt.
A függvénymakró ellenõrizze le, hogy a bevitt adat szám-e, ha nem akkor a függvény eredmény a Hiba szó legyen.

[Bogyosz]

Idézet: FragMaster - Dátum: 2009. jan. 5., hétfõ - 0:06

Van itt excel VBA guru ?
Kéne õvele egy kis segítség, mert már kiakadok :

Mingyárt megvan... de azért fogadjunk, hogy vmi beadandó, vagy isk. jellegû feladat, a felhasználandó függvények alapján...  :Ð

Szerk. nah megvan, hogy tudom becsatolni?  :confused:
Szerk. megvan, csak látni is kéne, nem csak nézni...

Csatolt fájl:

•  ido.zip (0byte)
  Letöltések:: 27

Szerkesztette: Bogyosz 2009. 01. 05. 10:14 -kor

[FragMaster]

Idézet: Bogyosz - Dátum: 2009. jan. 5., hétfõ - 9:36

Mingyárt megvan... de azért fogadjunk, hogy vmi beadandó, vagy isk. jellegû feladat, a felhasználandó függvények alapján...  :Ð

Szerk. nah megvan, hogy tudom becsatolni?  :confused:
Szerk. megvan, csak látni is kéne, nem csak nézni...

Ó örök hálám érjen utól amikor épp nincs nála vasvilla   :Ð
Az hát iskolai, szenvedek vele kiskredites vacak tantárgy csak tologattam mert volt fontosabb is és most is van csak jó lenne letudni. Csak azt nem tudom miért bénázok ennyit mivel VBA-ból meglett az 5-ös...mondjuk az amilyen szintû volt...

Nah találtam még egyet, azt hiszem ezzel meg is vagyok, már csak be kell gyakorolni Még egy virtuális KCS jár annak aki segít benne :

Idézet

Készítsen egy Celsius fokból Fahrenheit-be konvertáló függvényt, CFtoC néven.
A képlet:
Tf=(9/5)*Tc+32
ahol
Tc=hõmérséklet Celsius-ban,  Tf=hõmérséklet Fahrenheit -ben.
Amennyiben a felhasználó válasza szöveg, akkor az eredmény legyen a Hiba szó.
Készítsen egy parancs makrót is, ebbõl hívja meg a függvényt oly módon, hogy adjon át  neki két különbözõ értéket.  A két eredményt fûzze össze, és üzenje meg egy MsgBox függvény párbeszédablakában, két egymás alatti sorban.
Az MsgBox párbeszédablakban legyen két nyomógomb, a második legyen a default gomb.

Szerkesztette: FragMaster 2009. 01. 05. 10:43 -kor

[Delila]

Idézet: Bogyosz - Dátum: 2009. jan. 3., szombat - 23:20

Sub F2_Enter()
Dim i, j As Integer
Dim ertek As Long
    
    i = ActiveCell.Row
    j = ActiveCell.Column
    While Cells(i, j).Value <> ""
        ertek = Cells(i, j).Value
        Cells(i, j).Formula = ertek
        i = i + 1
    Wend

End Sub

Fontos, hogy csak addig fut, amíg van érték az oszlopban, azaz ha van egy üres sor, akkor ott kilép, értelemszerûen indítsd újra. Ha olyan szöveget talál, ami nem konvertálható számmá, akkor hibaüzenettel megáll... (jó régi, kicsit fejlesztésre szorul)...  :Ð

A makród egy kicsit "fejlesztve" akkor is lefut, mikor az aktuális oszlopban üres cellák is vannak.
Az üres cellákba 0 értéket ad.

Sub F2_Enter()
    Dim i, j As Integer
    Dim ertek As Long
   
    i = ActiveCell.Row
    j = ActiveCell.Column
    Cells(65536, j).Select
    vege = Selection.End(xlUp).Row
    For sor = i To vege
        ertek = Cells(sor, j).Value
        Cells(sor, j).Formula = ertek
    Next
    Cells(i, j).Select
End Sub

[Bogyosz]

Idézet: Delila - Dátum: 2009. jan. 5., hétfõ - 10:28

A makród egy kicsit "fejlesztve" akkor is lefut, mikor az aktuális oszlopban üres cellák is vannak.
Az üres cellákba 0 értéket ad.

Sub F2_Enter()
    Dim i, j As Integer
    Dim ertek As Long
   
    i = ActiveCell.Row
    j = ActiveCell.Column
    Cells(65536, j).Select
    vege = Selection.End(xlUp).Row
    For sor = i To vege
        ertek = Cells(sor, j).Value
        Cells(sor, j).Formula = ertek
    Next
    Cells(i, j).Select
End Sub

Köszi
Ezt anno kiskezõ koromban írtam, vagy 10 éve, elsõ poróbálkozásaim egyike volt, csak használatban maradt...
mingyárt frissítem...
KCS-t oda!

Szerk. 2007-es excel esetén kicsit több a sor...

Szerkesztette: Bogyosz 2009. 01. 05. 11:07 -kor

[Bogyosz]

Idézet: FragMaster - Dátum: 2009. jan. 5., hétfõ - 10:26

Nah találtam még egyet, azt hiszem ezzel meg is vagyok, már csak be kell gyakorolni Még egy virtuális KCS jár annak aki segít benne :

Voilá!

Szerk. pont mint az email-ben, elfelejtettem csatolni 

Szerk. csatolmány hibás, az új két hsz-szel késõbb.

Szerkesztette: Bogyosz 2009. 01. 05. 11:44 -kor

[FragMaster]

Idézet: Bogyosz - Dátum: 2009. jan. 5., hétfõ - 11:05

Voilá!

Szerk. pont mint az email-ben, elfelejtettem csatolni 

Thx, csak nem jó a csatolmány.

[Bogyosz]

Idézet: FragMaster - Dátum: 2009. jan. 5., hétfõ - 11:24

Thx, csak nem jó a csatolmány.

Hopp, retry

Csatolt fájl:

•  celsius_farenheit.zip (0byte)
  Letöltések:: 16

[Bogyosz]

Idézet: Bogyosz - Dátum: 2009. jan. 5., hétfõ - 11:43

Hopp, retry

Delila felhívta a figyelmemet, hgoy átsiklottam azon, hgoy függvényt kell írni... Mingyárt átírom, csak meg kell etetnem az apróságaimat.

Szerk. Szóval akkor még 1 próbálkozás. Hiába, nem mindig sikerül koncentrálni, amikor itthon koncert van...  :Ð

Csatolt fájl:

•  celsius_farenheit2.zip (0byte)
  Letöltések:: 17

Szerkesztette: Bogyosz 2009. 01. 05. 12:34 -kor

[Delila]

Idézet: FragMaster - Dátum: 2009. jan. 5., hétfõ - 10:26

Nah találtam még egyet, azt hiszem ezzel meg is vagyok, már csak be kell gyakorolni Még egy virtuális KCS jár annak aki segít benne :

Function CFtoC(Tc)
        If Not IsNumeric(Tc) Then
            CFtoC = "Hiba": Exit Function
        End If
        Tf = (9 / 5) * Tc + 32
        CFtoC = Tf
        MsgBox "Az átváltás eredménye:" & Chr(13) & Chr(13) & Tc & "°C= " & Tf & "°F", vbOKCancel, "Eredmény"

End Function

Sub Start_CFtoC()
    Tc = ActiveCell.Value
    CFtoC Tc
    ActiveCell.Offset(, 2).Value = CFtoC(Tc)
End Sub

Hiba: az üzenetdoboz csak a második kattintásra tûnik el. Mindent kétszer mond, mindent kétszer mond.

Szerkesztette: Delila 2009. 01. 05. 12:49 -kor

[FragMaster]

Idézet: Delila - Dátum: 2009. jan. 5., hétfõ - 12:35

Hiba: az üzenetdoboz csak a második kattintásra tûnik el. Mindent kétszer mond, mindent kétszer mond.

Köszönöm neked is

Esetleg az elõzõ, idõs feladat "függvényesen" hogy nézne ki?

[Delila]

A PH!-n írtam, hogy nincs meg az a függvényem, amire a feladat hivatkozik. És hogy minden határértékre két jó, vagy két rossz válasz van a megfogalmazás pontatlansága miatt.
(Be van kapcsolva a Bõvítménykezelõben az Analysis ToolPack és ugyanez VBA-ra.)

Szerkesztette: Delila 2009. 01. 05. 12:57 -kor

[FragMaster]

Idézet: Delila - Dátum: 2009. jan. 5., hétfõ - 12:56

A PH!-n írtam, hogy nincs meg az a függvényem, amire a feladat hivatkozik. És hogy minden határértékre két jó, vagy két rossz válasz van a megfogalmazás pontatlansága miatt.
(Be van kapcsolva a Bõvítménykezelõben az Analysis ToolPack és ugyanez VBA-ra.)

Értem, akkor marad

[Delila]

Idézet: Bogyosz - Dátum: 2009. jan. 3., szombat - 23:20

Ha olyan szöveget talál, ami nem konvertálható számmá, akkor hibaüzenettel megáll... (jó régi, kicsit fejlesztésre szorul)...  :Ð

Kicsit tovább fejlesztve a makród, hogy ne álljon meg a nem konvertálható adatoknál:

Sub F2_Enter()
   Dim i, j As Integer
   Dim ertek As Long
  
   i = ActiveCell.Row
   j = ActiveCell.Column
   Cells(65536, j).Select
   vege = Selection.End(xlUp).Row
   Cells(i, j).Select
   
    For sor = i To vege
        On Error GoTo Hiba
        If Cells(sor, j).Value <> "" Then
            ertek = Cells(sor, j).Value
            bal = Asc(Left(ertek, 1))
            If bal > 47 And bal < 59 Then
                Cells(sor, j).Formula = ertek
            End If
        End If
    Next
    
Hiba:
ertek = Cells(sor + 1, j).Value: sor = sor + 1: Resume Next
    
End Sub

[FragMaster]

Találtam még :Ð

Idézet

Készítsen egy olyan Páros nevû felhasználói függvényt, amely megadja, hogy egy szám páros vagy páratlan. Amennyiben a felhasználó válasza szöveg, akkor az eredmény legyen a Hiba szó.
Készítsen egy parancs makrót is, ebbõl hívja meg a függvényt oly módon, hogy adjon át  neki három különbözõ értéket.  A három eredményt fûzze össze, és üzenje meg egy MsgBox függvény párbeszédablakában, három egymás alatti sorban.
Az MsgBox párbeszédablakban legyen három nyomógomb, a második legyen a default gomb.

Eddig jutottam, de ebben nincs function, meg hiányos is...kiegészítés valakitõl? :

Sub párospáratlan()
Dim szám As Double
szám = CDbl(InputBox("Kérek egy számot!", "Számvizsgáló"))
If szám Mod 2 = 0 Then
  MsgBox ("Ez a szám páros!")
Else
  MsgBox ("Ez a szám a páratlan")
End If
End Sub

[Bogyosz]

Idézet: FragMaster - Dátum: 2009. jan. 6., kedd - 12:32

Találtam még :Ð


Eddig jutottam, de ebben nincs function, meg hiányos is...kiegészítés valakitõl? :

Sub párospáratlan()
Dim szám As Double
szám = CDbl(InputBox("Kérek egy számot!", "Számvizsgáló"))
If szám Mod 2 = 0 Then
  MsgBox ("Ez a szám páros!")
Else
  MsgBox ("Ez a szám a páratlan")
End If
End Sub

Íme. Ez cellákból szedi be az adatot. Nem mondta, hogy be kell kérni (bonyolultabb picit).
Viszont van benne function.

Csatolt fájl:

•  parosparatlan.zip (0byte)
  Letöltések:: 18

[FragMaster]

Idézet: Bogyosz - Dátum: 2009. jan. 6., kedd - 13:20

Íme. Ez cellákból szedi be az adatot. Nem mondta, hogy be kell kérni (bonyolultabb picit).
Viszont van benne function.

Zsírosbödön, bõven jó így. Kicsit módosítottam rajta, hogy az aktív cellába írt adatokkal dolgozzon