- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- GoodSpeed: Bye PET Palack, hello SodaStream
- eBay-es kütyük kis pénzért
- sh4d0w: Netflix? Ugyan, VW előfizetés!
- Elektromos rásegítésű kerékpárok
- Brogyi: CTEK akkumulátor töltő és másolatai
- Gurulunk, WAZE?!
-
LOGOUT
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
-
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! -
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...
-
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!
-
Delila_1
veterán
Tévedés, törölni nem tudom.
-
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.
-
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.
-
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
-
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.
-
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...
-
Delila_1
veterán
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?
-
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
veterán
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. -
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
veterán
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") -
Delila_1
veterán
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 -
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
veterán
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.
-
-
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! -
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.
-
Delila_1
veterán
válasz
Fire/SOUL/CD #7274 üzenetére
Igaz, a "ha nincs már ilyen az oszlopban" leírásra nem figyeltem.
-
Delila_1
veterán
Ma a saját hozzászólásaimról is kapok üzenetet. Igaz, feledékeny vagyok, de nem ennyire!
-
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...
-
Delila_1
veterán
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?
-
ALbeeeee
csendes tag
-
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...
-
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.
?
-
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
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)
-
-
Delila_1
veterán
válasz
Fire/SOUL/CD #7258 üzenetére
Milyen eseményhez rendeled?
-
Delila_1
veterán
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. -
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.
-
Delila_1
veterán
-
WildBoarTeam
senior 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,
WildBoar -
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
senior 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? -
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 -
Delila_1
veterán
válasz
basaharc502 #7248 üzenetére
Szerintem a nyomtató telepítésénél, beállításánál kell kapisgálni.
-
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.
-
-
szjoci
őstag
válasz
Delila_1 #7243 üzenetére
Mindenkinek köszönöm a segítséget, de a te variációdat volt a legegyszerübb kiviteleznem mivel van egy olyan oszlopom amikbe szerepelnek a hónapok, így csak mellé kellett raknom a számokat.
Egyébként az ÖSSZEFÜZ majd DÁTUMÉRTÉK függvényekkel miért nem hozta azt amit szerettem volna? Elméletileg jónak kellett volna lennie mert kaptam egy pl 2010. jún. 16. értéket, de a dátumérték függvény #érték-et vágott az arcomba... -
basaharc502
aktív tag
Hali!
Szeretnék segítséget kérni. Egy egyszerű problémáról lehet szó...excelben (2004) van sok-sok táblazatom, amiket ki kell nyomtatni...a képernyőn minden OKés, azonban ha kinyomtatom az ékezetes betűk helyén valami krixkrax van...fogalmam sincs hogy miért...valaki eetleg tudatja hogy mi leheta gnd? Életemben nem találkoztam még ilyenel...
-
perfag
aktív tag
-
szjoci
őstag
Sziasztok!
Ha az egyik cellába pl. április van, abból hogyan tudok számot csinálni? Mármint a cellába lévő hónap számára lenne szükségem (ebben az esetben ugye 4-nek kellene lennie). Próbálkoztam már, de sehogy se jött össze... Az lenne a legjobb ha ebből az egy cellából lehetne, de ha könnyebbség akkor egymás mellett van 3 cella amiből össze lehetne hozni a dátumot, de úgysem tudtam rájönni a megoldásra (pl.: A1: 2010, B1: június, C1: 13). 'Ha' függvénnyel megcsináltam, de így marha hosszú lett a függvény és nem tudtam átkonvertálni 97-es formátumba a táblát (pedig ez fontos lenne). Segítsetek, pls!
-
WildBoarTeam
senior tag
válasz
pigiboy #7240 üzenetére
Szia
Esetleg az egér gyári driver-ét rakd fel. Ha fent van telepítsd újra, lehet csak megbolondult.
Amúgy az IntelliMouse tudtommal egy Microsoftos egérmárka(sorozat), aminek a gyári driver-e is ezt a nevet viseli. Ergo más egérrel nem biztos, hogy használható.
Esetleg egy frissítés az officenak és xpnek sem árt... -
pigiboy
csendes tag
Sziasztok
A gépemen az egér görgetés pont fordítva működik Excel-ben mint az alapbeállítás: ha CTRL lenyomásával használom a kereket, akkor görget, ha CTRL nélkül görgetem akkor zoomol. Word-ben alapbeállítás szerint működik. Ezt szeretném beállítani Excelben is.
Net-en azt találtam, hogy a Microsoft IntelliMouse segítségével tudom ezt a funkciót beállítani, az IntelliMouse-t pedig a Start menü -> Programok -> Microsoft Input Devices paranccsal tudom elérni. Ez szép és jó, de nekem ilyen nincs a start menümben, és nem találtam ilyen programot a C-n sehol.
XP, Office 2003.
Mi lehet a megoldás?Kösz a segítséget.
Imre -
Delila_1
veterán
válasz
kenesei1982 #7238 üzenetére
Még jobb.
-
-
Delila_1
veterán
válasz
kenesei1982 #7236 üzenetére
C1-be beírsz egy 1-est, C2-be 5-öt, vagyis az elsőnél 4-gyel nagyobb számot. Ezt lemásolod, ameddig kell.
B1-ben a függvényed =MID(A1,C1,4). Ezt másold.Jól adtad meg a függvényt? Ha angol az Exceled, és MID függvényed van, akkor nem pontosvessző, hanem vessző az elválasztó jel az argumentumok között, magyar nyelvű Excelnél viszont nem MID, hanem KÖZÉP a függvényed neve.
-
hi,
van egy hosszú számsorom egy cellában. (543678912543679236342654652378...ilyesmi)
Ezt szeretném szétbontani úgy, hogy az egymás után lévő 4-4-4 számot kapjam meg (tehát: 5436, 7891, 2543...)lehetőleg egymás alatt.
Az már megvan h a MID fgv-nyel tudok mozgó ablakot csinálni a kereséshez. Úgy gondoltam, h a hosszú számsort sokszor egymás alá bemásolom (A1-A223-ig). B1-re írok egy fgv-t =MID(A1;1;4). Na ezt a fgv-t szeretném úgy, h ha lehúzom B223-ig, akkor ne csak az A1 nőljön 1-esével, hanem a középső 1-es argumentum is nőljön, de az 4-esével (az se baj ha egyesével nő, max kitörlöm a fölös sorokat).(vmi rémlik még régről, h vannak ilyen karakterek, amiket ha elé írunk akkor lehet vele fixálni az argumentumot, talán a dollár jel, gondolom akkor ennek az ellenkezőjét is lehet)
vki?
-
TLaci
csendes tag
Sziasztok!
Segítséget szeretnék kérni.
Egy Excel makróval kellene megoldanom egy kresés, csere folyamatot.
Amit cserélnék egy vagy több szám és utánna egy jel ( egy képletnek a része). A szám lehet egy vagy többjegyű is, de mindig pozitív egész, a jel meg egy kötőjel, pl: "344-" vagy "12-" . A munkalapon több helyen is előfordul ez a szám és mindenhol ugyan annyi, de előre nem tudni, hogy pontosan melyik az a szám,.Addig sikerült eljutnom, hogy ha egy konkrét számot kötőjellel megadok, akkor azt sikerült egy általam megírt makróval lecserélni
(pl. Cells.Replace What:="344-", Replacement:="71-"),
de azt nem tudtam megoldani, hogy keressen meg minden, olyan számot, ami után közvetlenül van egy kötőjel és azt cserélje le egy általam megadottra (amit bekér a makró, de a "bekérés" részt sikerült létrehoznom).
Mint például a MS Wordben a keresés és cserénél a "^#" -jel, ami a bármely számjegyet jelölné.Azt már sejtem, hogy a "Cells.Replace What:=" után csak konkrét értéket vagy változót írhatok (ha jól gondolom), de hogy a változót hól, hogyan fogalmazom meg, azt már nem sikerült megoldanom.
Kőszi a segítséget! Laci.
-
-
szjoci
őstag
válasz
Fire/SOUL/CD #7228 üzenetére
ehh, közben rájöttem bár nehéz ügy volt...
=SZUM(HA((SZÖVEG(A4:A34;"nnn")="V")*((B4:B34="de")+(B4:B34="du"));1;0))
mindenesetre köszönöm a segítséget!
-
-
szjoci
őstag
válasz
Fire/SOUL/CD #7226 üzenetére
Köszönöm!
Ettől bonyolultabban sikerült megcsinálnom, de az elv ugyanaz mint amit te alkottál. Egy cellába nem lehetne belesűríteni valahogyan az egészet?
-
Hali!
A napokat dátumra kell formázni. Azt hogy hogy jelenjen meg, azt rád bízom(lehet, hogy csak a napot jelenítse meg, évszám/hónap nélkül)
C4 cellába ezt beírni majd lemásolni(képed alapján)
=HA(ÉS(B4<>"";KISBETŰ(SZÖVEG(A4;"nnnn"))="vasárnap");1;"")
Ezután már egy szimpla SZUM függvény, pl a C35-be...
Fire.
UI: Lehet, hogy bele lehet "zsúfolni" egy SZUMHA vagy DARABHATÖBB stb stb függvénybe is, de ezen nem agyaltam...
-
Azura
csendes tag
válasz
Fire/SOUL/CD #7223 üzenetére
jogos
most még kicsit hülyültem az AB.MEZŐ függvénnyel, életemben nem használtam még, de jópofa
Köszi mégegyszer a segítséget mindenkinek!
-
Hali!
"...igazából csak azért akartam így, mert ebbe egy leltárazás eredménye fog kerülni és az ellenőrzéskor lett volna egyszerűbb...
Bocs, lehet hogy írtad korábban, csak átsiklottam felette, de ez esetben én is csak azt tudom mondani, amit Delila_1 is. KIMUTATÁSFire.
UI: Ezért fontos, hogy amikor segítséget kértek, akkor ne csak az legyen leírva, hogy hát konkrétan ez meg az nem megy, hogy kellene, hanem az is, hogy mit szeretnétek megvalósítani, mert mint eseted is jó példa rá, sok esetben vannak nagyon egyszerű módszerek a megoldásra és nem kell makró, meg képlet, érvényesítés, meg stb...
-
Azura
csendes tag
válasz
Fire/SOUL/CD #7220 üzenetére
azzal én is próbálkoztam, amit Delila_1 írt, de ugyan arra jutottam, amit írtál
akkor ahogy nézem, legegyszerűbb az autoszűrős megoldás.
igazából csak azért akartam így, mert ebbe egy leltárazás eredménye fog kerülni és az ellenőrzéskor lett volna egyszerűbb, hogy ne kelljen egyesével autoszűrőzgetni, mert az elég nagy meló lesz. esetleg még a makro jöhet akkor szóba, azzal fogok próbálkozni.Köszi a segítséget
-
Delila_1
veterán
válasz
Fire/SOUL/CD #7218 üzenetére
Igaz.
-
válasz
Delila_1 #7216 üzenetére
Hali!
Ez nem jó...Nem a képlet hibás, azzal nincs gond, csak ezzel a módszerrel olyan hardverelemeket is össze lehet válogatni, ami nem létezik. PL
Kategória -> Netbook
Gyártó -> Kingmax
Típus -> AR-121-eNa ilyen hardver nincs...
(Külön-külön létezik mind, de a Kingmax nem gyárt notit, a típus az meg egy Sharp lézerprinteré...)
Ezért "gondoltam", hogy makró nélkül esélytelen a dolog...
Fire.
-
Hali!
Akkor pár dolog...
1. Az miért nem jó megoldás, hogy egy lenyílóból választhatna a user és ott csak azok vannak amik léteznek is? (Miért van arra szükséged, hogy megnézd, hogy benne van-e a listában a beírt adat? Vagy csak a korábbi képen nem látszik a lenyíló, azért nem látom?
)
2. Makró nélkül nem megoldható, hogy tudd, hogy melyik tartományba kell dolgozni(melyik listában kellene szerepelnie az adatnak)
3. Ha csak az a cél, hogy a user kiválasszon egy listából egy adott kategóriában szereplő adott gyártó, adott termékét, akkor miért nem felel meg erre a célra az Autoszűrő?
Persze szívesen segítek/segítünk, csak valahogy nem értem a lényegét, hogy miért így akarod megvalósítani...
Fire.
-
-
Azura
csendes tag
válasz
Fire/SOUL/CD #7208 üzenetére
Ez OK
eddig megvagyok vele én is.
Ami nem megy, hogy a Gyártónál/Típusnál is megnézzem azt, hogy benne vannak-e a listában - ezt már csak makróval lehet megoldani?
A lista bővítésével egyelőre nem bajlódtam, azt úgy gondoltam, hogy manuálisan is meg tudom csinálni, csak azért akartam ezt a függvényezést, mert jó lenne látni, hogy milyen elemekkel kéne bővíteni a listákat. -
Muton
addikt
válasz
Fire/SOUL/CD #7213 üzenetére
köszönöm Neked is!
közben telefonos segítség alapján sikerült megoldanom. csak az eső sort kellett kitölteni, és 'lehúzni' az egészet egy kis fekete + alakú kurzorral és megcsinálta az összes sort -
Hali!
CTRL+H aztán példul: [link]
Persze odafigyelni, hogy valóban csak az cserélődjön aminek kell...
Pl a fenti képen látható csere a SZUM(A1:A2)-ből csinál SZUM(A1:$A2)-őt...
Ha a képletek egyike sem tartalmaz más "A" betűt, csak mint oszlopazonosítót, akkor lehet egyből a CTRL+H után az A-kat $A-kra cserélni.Fire.
-
Muton
addikt
válasz
Delila_1 #7211 üzenetére
köszi! ezt lehet valahogy automatizálni?, mert sok sorról van szó
azért kell, mert ki kell számolni a sorok összegét százalékos alakban is. gondoltam, h átmásolom, aztán csinálok vele valamit
de ha van ötlet arra, hogy egy oszlopban lévő sorösszegeket hogyan lehet mellé rakni százalékos alakban, nekem az is jó -
Muton
addikt
hello!
van egy oszlopom, aminek minden eleme az előtte lévők összege. szeretnék csinálni mellé még egy ilyen oszlopot, viszont ha átmásolom, akkor nem pont az eredeti összegző cellák értékét kapom, hanem az egyel elcsúsztatottat.
kérdés: hogyan lehet egy oszlopot (kijelölt részt) úgy másolni, hogy a cellák értéke(függvénye?) pont az eredetiével egyezzen meg? -
válasz
Fire/SOUL/CD #7208 üzenetére
Szóval helyesen "A képen látható képlet a B2 cellában van"...De nyilván erre magadtól is rájöttél...
-
Hali!
Hát ha csak azt nézem, hogy kiderítsd, hogy a beírt elem szerepel-e a tartományban, akkor a korábbi Delila_1 által javasolt képlet megfelel erre a célra.
Itt a D2:D5 tartományt neveztem el KATEGORIA-nak
A képen látható képlet az A2 cellában van...A feladat csak részmegoldás, mert arról is gondoskodni kell, hogy ha az elem nem szerepelt a listában, akkor a KATEGORIA tartományhoz, hozzá legyen adva(meg persze a Gyártó/Típus-nál is ezt el kell "játszani"). Ehhez makrót kell használni, még akkor is, ha saját függvényt készítesz.
Fire.
-
Azura
csendes tag
válasz
Fire/SOUL/CD #7206 üzenetére
-
Azura
csendes tag
válasz
Fire/SOUL/CD #7204 üzenetére
Igazából egy eszköznyilvántartást szeretnék csinálni, amiben fel van tüntetve az eszköz megnevezése (notebook, PC, fax, Monitor...), majd az eszköz gyártója végül a típus.
Eddig meg is vagyok
Ehhez listákat határoztam meg, amiket össze is fűztem, hogy ne lehessen nem létező dolgokat bevinni, de mivel elképzelhető olyan eset, hogy mondjuk van olyan PC, amit nem vettem bele a listába, ezért megengedtem, hogy a Data validation ne csak a listákból vegyen bele adatot, hanem a feltöltő maga is bevihessen újabbat.
És mivel ez egy több ezres lista lesz, ezért szeretnék egy olyan ellenőrző oszlopot, ami megmondja, hogy a cellában szereplő érték a korábban meghatározott listák része-e?
A Megnevezéssel még nincs is gond, mert ott a Megnevezés listára hivatkozok, de utána már hivatkozni kéne, az összes eszköz listára, illetve ugye arra amit a felhasználó kiválasztott.
Nem tudom, hogy így érthetőbb-e? lehet, hogy kicsit bonyolult a megfogalmazás -
Hali!
Nézd, nem tudom pontosan mit szeretnél megvalósítani, de azért sejtem.
(Számítógépboltok nagyker/alkatrész árlistájukra emlékeztet)
Ha megengeded, hogy elemeket lehessen hozzáadni egy listához(pl ahogy írtad LENOVO), akkor nyilván ehhez még a pontos típus és akár azon belül a hardverkiépítés is társulhat. Ha ez így van, akkor az Excel már nem a megfelelő választás.Az is kérdés, hogy mit kezdesz azzal, ha valaki kiválasztotta a megfelelő kategóriát/gyártót/típust/hardverkiépítést...stb. Pusztán csak az a lényeg, hogy lássa, hogy létezik olyan, vagy a kiválasztott elemmel még műveleteket akarsz véghezvinni. Előbbi esetben sokkal egyszerűbb megoldás lenne egy sima Autoszűrő, utóbbi esetben meg majd kiderül a válaszodból...
Fire.
-
-
Azura
csendes tag
válasz
Delila_1 #7198 üzenetére
Eddig okés, csak mi van ha, nem Notebookot választ, hanem mondjuk PC-t, vagy Monitort és van még 20 másik eszköz?
tehát valahogy az kéne nekem, hogy a képletben a Notebook-ot egy cella alapján (H3) válassza a függvény
=HA(HIBÁS(FKERES(J3;Notebook;1;0));"Új gyártó";"Régi gyártó")
=HA(HIBÁS(FKERES(J3;H3;1;0));"Új gyártó";"Régi gyártó")
Ezzel ugye meg az a baj, hogy ekkor a H3 cella értékét keresi és nem az azzal egyező listában keres.
Új hozzászólás Aktív témák
Hirdetés
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- 27%-OS ÁFÁS SZÁMLA I Jogtiszta Microsoft digitális és fizikai termékek I DIGITALKEYZ.COM
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Assassin's Creed Shadows Collector's Edition PC
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- GYÖNYÖRŰ iPhone 13 Pro 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3074, 100% Akkumulátor
- GYÖNYÖRŰ iPhone 13 256GB Midnight - 1 ÉV GARANCIA - Kártyafüggetlen, MS2227
- Csere-Beszámítás! Asus Rog Strix Thor Platinum II 1200W 80+Platinum Prémium tápegység!
- GYÖNYÖRŰ iPhone 12 64GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3052, 96% Akkumulátor
- LG 83C3 - 83" OLED evo - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox!
Állásajánlatok
Cég: FOTC
Város: Budapest