-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
félisten
válasz basaharc502 #7248 üzenetére
Hali!
Nem lehet, hogy esetleg speckó betűkészletet használsz?
A nyomtatási képen is helyesen jelenik meg, csak a kinyomtatott papíron nem?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)
-
Delila_1
Topikgazda
válasz basaharc502 #7248 üzenetére
Szerintem a nyomtató telepítésénél, beállításánál kell kapisgálni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
Sziasztok!!
Csak egy megjegyzés!!!
A hónapokat sem kell külön bevinni csak elég az a kis képlet amit én írtam!!
Pl: A4= február
=VÁLASZT(HOL.VAN(A4;{"január"."február"."március"."április"."május"."június"."július"."augus
ztus"."szeptember"."október"."november"."december"};0);1;2;3;4;5;6;7;8;9;10;11;12)
A válasz: 2[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
WildBoarTeam
aktív tag
válasz basaharc502 #7248 üzenetére
Szia!
Próbáltad máshol is kinyomtatni? Másik gépről, másik nyomtatval (és ezek kombinációja: ugyanaz a gép másik nyomtató, másik gép ugyanaz a nyomtató....).
Esetleg nézzél szét a vezérlőpult->Területi és nyelvi beállításokban.
Vagy a nyomtató beállításainál lesz a gond (valamelyiknél be lehet lőni azt, hogy a nyomtató betűtípusát használja, ez is okozhat ilyet).Szerintem első körben próbálj meg telepíteni egy "virtuális" pdf nyomtatót, amivel az excel fájlodat pdf-be ki tudod "nyomtatni" (készít belőle egy pdf fájlt, nem papírra nyomja). Ha ennél is jelentkezik a probléma, akkor az excelben van a hiba, ha nem, akkor valami a win-ben van elállítva.
Amúgy wordben csinálja?blabla
-
ALbeeeee
csendes tag
Sziasztok,
lenne egy-két makrós kérdésem, gondolom ti tapasztalt VB mesterek könnyedén tudtok nekem segíteni!
1. Beviteli mező feltételhez kötött megjelenítése
> Ha F11=2 akkor TextBox1 Visible=True / Ha viszont más érték szerepel ott akkor ne jelenjen meg.2. Beviteli mező tartalmának cellába másolása gombnyomásra (szöveg - név)
> Textbox1 tartalmának 'Munka2' Sheet D oszlop első üres cellába történő másolása (ha nincs már ilyen az oszlopban) + Textbox ürítéseElőre is köszönöm a segítséget...még biztosan lesz kérdésem, mivel most próbálom bővíteni az ilyen irányú ismereteimet!
Üdv,
ALbee:)
-
WildBoarTeam
aktív tag
válasz pigiboy #7240 üzenetére
Szia pigiboy!
Amúgy 2003-ban most találtam meg, hogy az Eszközök->Beállítások->Általános fülön van egy "Nagyítás az IntelliMouse kerekével" jelölőnégyzetes rész. Vedd ki előle a pipát és helyreáll. Kipróbáltam, és bekapcsolva előjött a leírt jelenséged, szóval ez okozza.
Üdv,
WildBoarblabla
-
Delila_1
Topikgazda
válasz ALbeeeee #7255 üzenetére
A 2. kérdésre:
Private Sub CommandButton1_Click()
Dim usor
usor = Range("D65536").End(xlUp).Row + 1
If usor >= 65536 Then
TextBox1.Value = ""
Else
Sheets("Munka2").Cells(usor, 4) = TextBox1.Value
End If
End Sub2007-es verziónál a 65536 helyett add meg a helyes értéket.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz ALbeeeee #7255 üzenetére
Hali!
1. kérdésre
If Range("F12") = 2 Then
TextBox1.Visible = True
Else
TextBox1.Visible = False
End IfDelila_1
1. A kódod hol keresi meg, hogy már szerepelt-e a D oszlopban Textbox1 tartalma?
2. Az első üres cella az kétértelmű, mert értelmezhető úgy is, hogy nem feltétlenül az utolsó cella+1 (pl D1 : D10 tartományban csak a D3 üres, ez esetben a D3-ba kell az adatot beírni, nem pedig a D11-be) De erről majd ALbeeeee nyilatkozik...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)
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #7258 üzenetére
Úgy gondolom, ha a TextBox1-gyel íratja folyamatosan az adatokat a D oszlopba, akkor ott nem lehet folytonossági hiány.
Persze lehet, hogy "gyalog" is ír az oszlopba.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #7258 üzenetére
Milyen eseményhez rendeled?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz Delila_1 #7259 üzenetére
Hali!
Persze lehet, hogy "gyalog" is ír az oszlopba.
Igen, erre gondoltam, de majd kiderülMilyen eseményhez rendeled?
Mivel textbox1-et írt, így én egyből Userform-ra asszociáltam, így az UserForm_Activate() eseményhez rendelhető...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)
-
ALbeeeee
csendes tag
válasz Fire/SOUL/CD #7258 üzenetére
Hello Fire,
köszi a gyors választ. Hozzárendelem a kódot a sheet kódjához, de mégse működik. Mindig rejtett marad, csak tervező nézetben látom a Textboxot.
>> Most nézem a másodikat!
>> Egyébként űrlap szerkesztésen fáradozom! (Excel 2007)
[ Szerkesztve ]
:)
-
Delila_1
Topikgazda
válasz ALbeeeee #7262 üzenetére
A VBE-ben duplaklikk a formra. Előjön a szerkesztő felület, oda vidd be Fire makróját.
Lehet az a baj, hogy F11 helyett Fire véletlenül F12-t írt.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
ALbeeeee
csendes tag
válasz Delila_1 #7257 üzenetére
Szia Delila_1,
Nálam ez valahogy, így néz ki és nem mukodik: (Excel 2007, magyar)
Private Sub Lekerekítetttéglalap9_Kattintás()
Dim usor
usor = Range("D1048576").End(xlUp).Row + 1
If usor >= 1048576 Then
TextBox1.Value = ""
Else
Sheets("Munka2").Cells(usor, 4) = TextBox1.Value
End If
End Sub____________________________
Kérdés: Probléma ez az angol magyar keverés?Egyébként jó így, hogy az utolsó helyre pakol elvileg nem lesz közben üres cella.
Köszönöm a segítséget...
:)
-
ALbeeeee
csendes tag
válasz Delila_1 #7266 üzenetére
Nos átírtam és teszteltem magyar / angol 2007-es excelben és egyelőre semmi:
Private Sub Lekerekítetttéglalap9_Click()
Dim usor
usor = Range("D1048576").End(xlUp).Row + 1
If usor >= 1048576 Then
TextBox1.Value = ""
Else
Sheets("Munka2").Cells(usor, 4) = TextBox1.Value
End If
End SubHiba üzenet: Cannot run the macro .... The macro may not be available in this workbook or all macros may be disabled.
?
:)
-
félisten
válasz ALbeeeee #7267 üzenetére
Hali!
Csináld meg a Formot, amit Delila_1 itt feljebb bemutatott, aztán illeszd be ezt a kódot.
Private Sub CommandButton1_Click()
myCol = "D"
myColasInt = Asc(myCol) - Asc("@")
Sheets("Munka2").Activate
Cells(Sheets("Munka2").Rows.Count, myCol).End(xlUp).Offset(1, 0).Select
If TextBox1.Text <> "" Then
j = WorksheetFunction.CountIf(Range(myCol & "1:" & myCol & ActiveCell.Row), TextBox1.Text)
If j = 0 Then
'Ezt akkor, ha az adott oszlop végére kell beírni a Textbox1 tartalmát
'ActiveCell = TextBox1.Text
'Ezt meg akkor, ha nem a végére
j = ActiveCell.Row
Range(myCol & "1").Select
For i = 1 To j
If Cells(i, myColasInt) = "" Then
Cells(i, myColasInt) = TextBox1.Text
Exit For
End If
Next i
Else
MsgBox ("A Texbox1 tartalma már szerepel a " & myCol & " oszlopban")
End If
Else
MsgBox ("A Texbox1 üres!")
End If
Sheets("Munka1").Activate
End Sub
Private Sub UserForm_Activate()
If Sheets("Munka1").Range("F11") = 2 Then
TextBox1.Visible = True
Else
TextBox1.Visible = False
End If
End SubFire.
UI: Igen, valóban F11, nem F12...
[ 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)
-
ALbeeeee
csendes tag
-
Delila_1
Topikgazda
válasz ALbeeeee #7271 üzenetére
Szúrj be egy modult is. Oda:
Sub auto_open()
UserForm1.Show False
End SubEzellen Fire ágálni fog, de kiválóan működik, bármit is mond.
A fájl megnyitásakor indítja a formot.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #7270 üzenetére
#7264: "jó így, hogy az utolsó helyre pakol elvileg nem lesz közben üres cella."
Akkor minek ez az összetett kód?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz Delila_1 #7273 üzenetére
Hali!
Már mire érted, hogy összetett kód?
Beletettem mindkét lehetőséget (oda is írtam), ha a végére kell beleírni akkor egyik változat, ha nem a végére, akkor meg a másik...
A többi meg szükséges, ha üres, akkor nem kell, vagy ha már szerepel a D oszlopban a textbox1-be beírt érték, akkor azt is meg kell vizsgálni, vagy nem?#7255 "> Textbox1 tartalmának 'Munka2' Sheet D oszlop első üres cellába történő másolása (ha nincs már ilyen az oszlopban) + Textbox ürítése"
Fire.
UI: Na jó, a textbox ürítése lemaradt...
[ 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)
-
Delila_1
Topikgazda
Ma a saját hozzászólásaimról is kapok üzenetet. Igaz, feledékeny vagyok, de nem ennyire!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #7274 üzenetére
Igaz, a "ha nincs már ilyen az oszlopban" leírásra nem figyeltem.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz Delila_1 #7277 üzenetére
Hali!
Pedig már kérdeztem is korábban, de sebaj, ez egy ilyen nap...
Na "leegyszerűsítettem" a kódot valamelyest...Remélem ALbeeeee-nek is sikerül létrehozni a Form-ot...Private Sub CommandButton1_Click()
myCol = "D"
Sheets("Munka2").Activate
Cells(Sheets("Munka2").Rows.Count, myCol).End(xlUp).Offset(1, 0).Select
If TextBox1.Text <> "" Then
j = WorksheetFunction.CountIf(Range(myCol & "1:" & myCol & ActiveCell.Row), TextBox1.Text)
If j = 0 Then
ActiveCell = TextBox1.Text
Else
MsgBox ("A TextBox1 tartalma már szerepel a " & myCol & " oszlopban")
End If
Else
MsgBox ("A TextBox1 üres!")
End If
With TextBox1
.Text = ""
.SetFocus
End With
'Sheets("Munka1").Activate
End Sub
Private Sub UserForm_Activate()
If Sheets("Munka1").Range("F11") = 2 Then
TextBox1.Visible = True
Else
TextBox1.Visible = False
End If
End SubFire.
[ 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)
-
ALbeeeee
csendes tag
Na szép kis küzdelmeken vagyok túl
Automatikusan nem jelenik meg indításkor, de ha futtatom a makrók közül elindul és át is rakja az adatokat. Arra viszont megint nem reagál, hogy mi van az F11-ben.
Ha tudnátok segíteni abban amerre elindultam, (apránként) akkor talán könnyebb lenne megértenem.
Van a Munka1 sheet:
( Fejlesztőeszközök > Beszúrás > ActiveX vezérlők > Szövegmező )
Ez lesz a TextBox1 (a szerkesztőlécben ezt írja: =BEÁGYAZ("Forms.TextBox.1",""))Azt szeretném, hogy ez a motyó, akkor jelenjen meg, ha F11=2 (egyéb esetben ne legyen látható.)
Ha megjelenik, írok bele és rákattintok a gombra ( ez egy alakzat lenne - Lekerekített téglalap 9 - ) akkor beviszi a Munka2 sheet első üres cellájába(ahogyan azt már beszéltük).
Nagyon szépen köszönöm az eddigi segítséget, remélem nem akasztalak ki benneteket ezekkel a feladatokkal, de szeretném megismerni és használni is ezeket a dolgokat.
KÖSZÖNÖM!:)
-
Delila_1
Topikgazda
válasz ALbeeeee #7279 üzenetére
A Munka1 laphoz két makrót kell illesztened – a VBE-ben bal oldalon a Munka1-en dupla klikk-re kapott üres lapra:
Private Sub Worksheet_Activate()
If Cells(11, 6) = 2 Then
TextBox1.Visible = True
Else
TextBox1.Visible = False
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$11" Then
If Target.Value = 2 Then
TextBox1.Visible = True
Else
TextBox1.Visible = False
End If
End If
End SubA Module1 laphoz:
Sub Lekerekítetttéglalap_9_Kattintáskor()
myCol = "D"
Sheets("Munka2").Activate
Cells(Sheets("Munka2").Rows.Count, myCol).End(xlUp).Offset(1, 0).Select
If Munka1.TextBox1.Text <> "" Then
j = WorksheetFunction.CountIf(Range(myCol & "1:" & myCol & ActiveCell.Row), Munka1.TextBox1.Text)
If j = 0 Then
ActiveCell = Munka1.TextBox1.Text
Else
MsgBox ("A TextBox1 tartalma már szerepel a " & myCol & " oszlopban")
End If
Else
MsgBox ("A TextBox1 üres!")
End If
Munka1.TextBox1.Text = ""
Sheets("Munka1").Select
End SubEzt a makrót kell hozzárendelned az alakzatodhoz.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
ALbeeeee
csendes tag
válasz Fire/SOUL/CD #7280 üzenetére
Hello,
szuper ez a része TÖKÉLETESEN működik! Köszönöm!
Egy kérdés:Private Sub Worksheet_Change(ByVal Target As Range)
Ez arra vonatkozik, ha változás történik az adott sheeten és olyankor fut le? Csak, hogy kicsit a dolgok mögé lássak.
Üdv,
ALbee:)
-
Delila_1
Topikgazda
válasz ALbeeeee #7282 üzenetére
Igen.
Kimerítő válasz
Egy picit szépítettem a hosszabb makrón (Fire, utólagos engedelmeddel)
Sub Téglalap()
Sheets("Munka2").Activate
Cells(Sheets("Munka2").Rows.Count, "D").End(xlUp).Offset(1, 0).Select
If Munka1.TextBox1.Text <> "" Then
j = WorksheetFunction.CountIf(Range("D1:" & "D" & _
ActiveCell.Row), Munka1.TextBox1.Text)
If j = 0 Then
ActiveCell = Munka1.TextBox1.Text
Else
MsgBox ("A TextBox1 tartalma (" & Munka1.TextBox1.Text & _
") már szerepel a D" & " oszlopban")
End If
Else
MsgBox ("A TextBox1 üres!")
End If
Munka1.TextBox1.Text = ""
Sheets("Munka1").Select
End Sub[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
A j = WorksheetFunction.CountIf(Range("D1:" & "D" & _
(fél) sor normálisabban
j = WorksheetFunction.CountIf(Range("D1:D" & _A másik:
MsgBox ("A TextBox1 tartalma (" & Munka1.TextBox1.Text & _
") már szerepel a D oszlopban")[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
ALbeeeee
csendes tag
A ma tanultak alapján csináltam egy ilyet is:
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Munka1").Range("F11") = 1 Then
Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = True
Else
Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = False
End If
End Sub--------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Munka1").Range("F11") = 1 Then
Munka1.TextBox1.Visible = True
Else
Munka1.TextBox1.Visible = False
End If
End Sub
--------------------------------A lényeg, amikor a TextBox1 látható ez az alakzat nem és fordítva. A gond az, hogy külön-külön működnek. Miként tudom egyesíteni a két feltételt?
Egy másik szép dolog, hogy az F11-ben szereplő szám egy legördülő menü adataiból érkezik. (Ez a Lenyíló 1) Valamiért ezt nem kezeli le automatikusan változásnak, mert ha változik is a szám nem tűnik elő vagy el, csak ha én írom át a számot. Ezzel mit tudok kezdeni?
:)
-
Delila_1
Topikgazda
válasz ALbeeeee #7285 üzenetére
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Munka1").Range("F11") = 1 Then
Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = True
Munka1.TextBox1.Visible = True
Else
Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = False
Munka1.TextBox1.Visible = False
End If
End SubHonnan veszed a lenyílót, amivel az F11-be viszed be az értéket? A LinkedCell-be add meg az F11-et.
Nálam egyszerű adatérvényesítéssel működik.[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
ALbeeeee
csendes tag
válasz Delila_1 #7286 üzenetére
Szia,
pont most sikerült így megoldanom:
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Munka1").Range("F11") = 1 Then
Munka1.TextBox1.Visible = True
Else
Munka1.TextBox1.Visible = False
End IfIf Sheets("Munka1").Range("F11") = 1 Then
Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = False
Else
Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = True
End IfEnd Sub
Amit írtál azt is próbáltam, de valamiért nem csinálta meg...de még próbálkozom azzal a verzióval is!
Lenyíló: Fejlesztőeszközök > Beszúrás > Beviteli lista (űrlap vezérlőelem)
Ismerem az adatérvényesítést is, csak ott az nem tetszik a listánál, hogy egyszer rá kell kattintani és csak utána látható a lista(fül).
:)
-
Delila_1
Topikgazda
válasz ALbeeeee #7287 üzenetére
Tedd a 2-2 dolgot egy then, és egy else ágba. Egy ilyen nyúlfakrnyi programnál nem lehet észrevenni, de az IF-es sorok növelik a futási időt.
A kombipanelhez rendeld a makrót, ami egy közönséges Sub-bal kezdődik, és tartalmazza a két objektumod láthatóságát.
Hogy akarod átmásoltatni a textbox értékét, ha egyszerre sosem nem látható a textbox és a téglalap?
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
ALbeeeee
csendes tag
válasz Delila_1 #7288 üzenetére
Hello,
Gyakorolgattam, módosítottam a kódokat, hogy jobban megértsem miről is van szó...
Elküldtem a végeredményt e-mailben, hogy megmutassam ma meddig jutottam vele... így te is jobban látod mit - miért kérdeztem
Próbáld ki, a gombokat .. stb. Az opció választás (F11) egyelőre még manuálisan megy, nem működik legördülő menüvel!
Köszi! Van mit tanulni tőletek...
[ Szerkesztve ]
:)
-
Zenebohoc
tag
Sziasztok!
Függvényillesztéssel kapcsolatos a kérdésem.
A 2003-as Excelben lineáris, exponenciális és logaritmikus illsztőfüggvényeket találtam beépítve. Polinomiálisat nem. Ugyanakkor grafikonnál a trendvonalak esetében max. 6.-fokú polinom illsztésére van lehetőség. Annak együtthatói ki is írathatóak a grafikonra.Van-e valami lehetőség ezen polinom együtthatóit cellába is kiíratni, hogy később számolni lehessen vele?
Van-e vaalmi polinom illesztési makró?
Mennyi az a maximális fokszám amit az excel még kezelni tud?
(60-70 pontcsoportra kellene illesztenem 10-12. fokú polinommal is jó lenne számolni. Bírja-e ezt az Excel memóriája?Köszi előre is.
Nincs szebb, mint mikor az alázat csendje zenére lázad....(LGT)
-
pigiboy
csendes tag
válasz WildBoarTeam #7256 üzenetére
Köszi, de már késő
Nem Excel téma, de leírom, hogy jártam.
Olyan jól sikerült az egér driver frissítés - saját hülyeség, hogy attól kezdve az XP nem látta se az egeret, se a billentyűzetet.
Telelpítőlemezzel se sikerült javítani. Amíg lemezről elindult a rendszer látta a billentyűzetet, de amint elkezdte az XP részeit másolgatni újra nem volt egér/billentyűzet. Ez valyon miért lehet?egy ideig küzdöttem, ötletem nem volt, netem sem, fogy kérdezzek :-), úgyhogy XP föl egy régi vinyóra, C-ről adatok át, XP vissza erre, C adatok vissza.
Most már megy a gép, annyi szépséghibával, hogy az alaplapi LAN driver nem megy (persze mi más hiányozna a lementett driverek közül).
Most ép egy net kávézóban ülök, nézem a mailjeimet, meg töltöm le a lapom LAN driverét.További szép napot
Imre
-
perfag
aktív tag
válasz Zenebohoc #7290 üzenetére
John Walkenbach-nál nézd meg ezt: Chart Trendline Formulas Kipróbáltam műxik. Ha gond az angol (erre figyelmeztettek, hogy többeknek az) akkor jelentkezz priviben, lefordítom neked.
"10-12. fokú polinommal is jó lenne számolni." - szerintem ezt már ne Excellel akard megcsinálni. Vannak erre specializálódott progtamok.
-
Delila_1
Topikgazda
válasz Zenebohoc #7290 üzenetére
Ha gondolod, elküldhetem Kovalcsikné P.O. "Az Excel függvényei" című könyvét pdf-ben (nemrég kaptam egy fórumtárstól), abban olvashatsz erről. Addig is nézd meg az ELŐREJELZÉS függvényt.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Cuci3
tag
válasz Zenebohoc #7290 üzenetére
6. fokú polinomra is már azt mondom, hogy értelmetlen és statisztikailag nem használható! A polinomiális regresszióknál a 2 vagy 3 fokút szokta megtűrni a statisztika (addig kb még a trendet modellezed le), a felett már a véleten tag sztochasztikája kerül bele a modellbe, aztán előrejelzésre alkalmatlan az egész.
Modellezéshez én se az Excel ajánlanám. Mondjuk SPSS, Eviews, Statistica, stb.
-
Delila_1
Topikgazda
Tévedés, törölni nem tudom.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Szabee87
tag
Hi mindenki! Excel-hez szeretnék segítséget kérni .
Kerekíteni kellene 2 tizedesjegyre, viszont a számot amit kerekítenék függvényből kaptam meg. (Pl: F2-C2) erre kellene egyet kerekíteni, csak nem tudom h. lehetne összekapcsolni. Zárójelezést is próbáltam, de nem jó a dolog.
Aki tud az kérem segítsen plz!
♠+♠ A hardver az, amivel ha elég sokáig játszol, eltörik. A szoftver az, amivel ha elég sokáig játszol, működni kezd.. ♠+♠
-
félisten
válasz Szabee87 #7298 üzenetére
Hali!
lehet, hogy félreértem, de egyszerűen csak kijelölöd pl az oszlopot (ahol ez a képlet van), jobb egér, cellaformázás, bal oldalt szám, jobb oldalt meg beállítod hány tizedesjegy szerepelje(így felfelé kerekít persze)
Fire.
UI: De jó, hogy pont olyan számokat adtam meg, amiknek a különbsége pont A1...
[ 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)
-
Szabee87
tag
válasz Fire/SOUL/CD #7299 üzenetére
Hi! nem értetted félre, csak az a baj h. ezt képlettel kellene megoldani, nem cellaformázással.
A feladat igy kötötte ki. Mindenesetre köszönöm az infót!♠+♠ A hardver az, amivel ha elég sokáig játszol, eltörik. A szoftver az, amivel ha elég sokáig játszol, működni kezd.. ♠+♠
Új hozzászólás Aktív témák
- A régi node-okra koncentrál a szankciók miatt Kína
- TCL LCD és LED TV-k
- Filmvilág
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Sweet.tv - internetes TV
- Yettel topik
- Aliexpress tapasztalatok
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Androidos fejegységek
- További aktív témák...
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Microsoft licencek a KIVÉTELES ÁRAK - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Steames kulcsok jó áron eladóak!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24