-
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
-
takyka77
tag
Sziasztok!
Azt szeretném megkérdezni, hogy egy Textbox-nál be lehet-e állítani, hogy csak számokat fogadjon el? -
Delila_1
Topikgazda
válasz takyka77 #3703 üzenetére
Bevitelkor ellenőrizheted.
Private Sub TextBox1_Change()
nev = TextBox1.Text
For i = 1 To Len(nev)
If Mid(nev, i, 1) < "0" Or Mid(nev, i, 1) > "9" Then
TextBox1.Text = Left(nev, Len(nev) - 1)
MsgBox "Csak számjegyeket adhatsz!"
Exit For
End If
Next
nev = Val(nev)
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Csontikka
aktív tag
Sziasztok!
Van egy problémám, remélem segítetek megoldani:
itt egy pár adatasorom:! 12. AKARMI VALAMI !
! 1. HELLO BELLO !
! 32. SZIA MIAU !Tehát kezdődik a szöveg "!"-el, majd valahány szóközzel, a végén pedig véletlenszerű szóköz, a legvégén egy záró "!" karakterrel.
A szövegből a
"12. AKARMI VALAMI"
"1. HELLO BELLO"
"32. SZIA MIAU"szövegeket kellene kivennem, méghozzá segédoszlopok nélkül, egy függvénnyel, vagy saját magam kreált makróval.
Fontos azonban, hogy a szóközök száma a két szó között megmaradjon és CSAK az elejéről és a végéről vegye le a szóközöket. (ezért ugye TRIM-elés kizárva)Nekem az is megfelelne, ha meg tudnám írni a következőt VB Scriptben:
HELYETTE(" !";A1;0)
HELYETTE(" !";A1;0)
HELYETTE(" !";A1;0)
HELYETTE(" !";A1;0)...stb, egészen nulláig, az elejére pedig:
HELYETTE("! ";A1;0)
HELYETTE("! ";A1;0)
HELYETTE("! ";A1;0)
HELYETTE("!";A1;0)Csak nem tudom, hogyan is szólna ez VB nyelven, ha valaki tudna adni támpontokat nagyon megköszönném. Igazából nem akarok belebonyolódni annyira, hogy számoljuk meg hány üres van a végén elején és annyit vegyünk le, mert ez így egyszerűbb lenne, és 1x-i alkalomra kell.
Vagy, van valami mód arra, hogy az Excel saját makróinak VB Scriptjeit megnézzük? Az nekem tökéletesen elég lenne!
Előre is köszi a segítséget!
Üdv
Csontikka[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Csontikka #3708 üzenetére
Nem írtad, melyik oszlopban vannak az adataid.
A makró az A oszlopban lévő adatokat tisztítja meg a feleslegtől, és a B oszlopba írja az eredményt.Sub Tisztítás()
usor = Range("A65536").End(xlUp).Row 'Itt írd át az A-t, ha nem az A oszlop adatait ellenőrzöd
For sor = 1 To usor
név = Cells(sor, 1) 'Itt az 1-et az oszlopod sorszámára
név = Right(név, Len(név) - 1)
név = Left(név, Len(név) - 1)
Cells(sor, 2) = név 'Itt azt az oszlop sorszámot a 2 helyett, ahova a tisztított adat kell
k = 1
Do While Mid(név, k, 1) = " "
név = Right(név, Len(név) - 1)
Cells(sor, 2) = név 'Itt is azt az oszlop sorszámot a 2 helyett, ahova a tisztított adat kell
Loop
k = Len(név)
Do While Mid(név, k, 1) = " "
név = Left(név, Len(név) - 1)
Cells(sor, 2) = név 'Itt azt az oszlop sorszámot, ahova a tisztított adat kell
k = k - 1
Loop
Next
End SubA tisztított adatot oda is írathatod, ahol jelenleg a !-es adataid vannak, de jobb máshova, és az eredetit utólag törlö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.
-
Delila_1
Topikgazda
válasz Csontikka #3708 üzenetére
Ugyanazt csinálja mint az előbb, csak kicsit kevesebb sorban leírva:
Sub Tisztítás()
usor = Range("A65536").End(xlUp).Row 'változtatás, ha nem A oszlopban van az adat
For sor = 1 To usor
név = Cells(sor, 1) 'változtatás, ha nem A oszlopban van az adat
Do While Mid(név, 1, 1) = " " Or Mid(név, 1, 1) = "!"
név = Right(név, Len(név) - 1)
Loop
k = Len(név)
Do While Mid(név, k, 1) = " " Or Mid(név, k, 1) = "!"
név = Left(név, Len(név) - 1)
k = k - 1
Loop
Cells(sor, 2) = név 'változtatás, ha nem B oszlopba kell írni a kigyomlált adatot
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bulanjoe
tag
hali....
még régebben jártam erre ugyanezzel a problémával, de akkor egy kis trükk megoldotta a bajom, viszont most nem tudom mitévő legyek.
Adott egy rakat log fájl, amiből ki kellene szednem excel táblázatba az ott található infókat, külön oszlopba, és ez még nem lenne elég, de ki kell szedni az oda nem illő sorokat, amelyek nem zenei számok ugy mint mint jingle-k, reklámok, satöbbi.[link]
Ez egy rádió háromhavi termése zenei téren, szóval nem kicsi meló, hogyha az ember egyenként akarna belevágni.
A kérdésem a következő: létezik e valamiféle skript, program, bűbáj, vagy bármi ami az alábbi táblázatot tudná kihozni a logokból. (persze minden nap külön lementve)
[link]
valami ötlet???
tudom, miért nem fogadunk programozót, vagy valakit, de hát ezt most a nyakamba varták megint, és a főnöknek ugyebár visszapofázni nem lehet.
előre is kössz a segítséget. -
chop
őstag
Hali!
Van egy pontdiagramom, es azt szeretnem elerni, hogy a pontokhoz oda legyen irva, hogy pl. A, B, C es igy tovabb, de amikor megadom az Excelnek az adatsor nevet, akkor nemcsak az aktualis betut irja az adott koordinatahoz (ponthoz a diagramon), hanem az osszeset. Hogy lehet ezt osszehozni?
Igy kell elkepzelni a dolgot:
A 1 4
B 4 3
C 3 3
D 5 2Tehat az 1;4-hez rakja oda, hogy A es igy tovabb.
-
Delila_1
Topikgazda
válasz Csontikka #3714 üzenetére
Örülök neki, szívesen.
Küldd el nekem is azt az emailt. Most néztem a txt-s feladatot, és azt láttam, hogy AS rendszerben (ahogy sikerül) vannak az adatok, ha a szóközt veszem elválasztónak.[ 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.
-
chop
őstag
válasz Delila_1 #3716 üzenetére
Sajnos nem ilyen egyszeru. Ahogy latszik, egy adatsorom van (X es Y koordinatakkal), es ezekhez szeretnem hozzailleszteni a betuket, hogy latszodjon, melyik adatpontrol is van szo.
A 1 3
B 2 4
C 5 9
D 5 7Tehat a koordinata rendszerben felveszem az adatpontokat es azt szeretnem, hogy az pl. az 1;3-as adatponthoz odairja, hogy A. A tobbihez hasonloan.
A feliratok fulon nekem sajnos nincs olyan, hogy "Felirat latszik", csak olyan kozul tudok valasztani, hogy:
- adatsor neve (ezzel nem vagyok elorebb, mert nem az osszese kell, csak aze az egy bizonyos ponte)
- x ertek
- y ertekA tobbi meg szurke.
-
Delila_1
Topikgazda
Akkor az adatsor neve lesz a jó. Egy kattintással kiválasztod az adatsort, pici szünet után(hogy ne dupla klikknek vegye) újabb jobb katt, és az adatpontot ki tudod választani.
Most azt írod, hogy az érték kell, biztosan van olyan is a választhatók között.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 Csontikka #3719 üzenetére
Úgy nézem, már a txt-ben érdemes a (+szóközt (-re cserélni, és a szóköz+)-t )-re, mégpedig többször - amíg elfogy a cserélni való -, mert változó számú mindenhol a space. Azután elválasztónak a :-ot írni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Pá
addikt
Van egy nagy, nagy excel táblám telis tele mindenféle bonyolult képlettel.
A gond az, hogy ki van töltve. Nekem kéne egy üres tábla, persze a képletekkel együtt csak ne legyen kitöltve. Hogy a legegyszerűbb megoldani ezt?
szerk: nem csak képeltek vannak benne, hanem ilyen legördülő választó menük(drop list) meg hasonló finomságok.
[ Szerkesztve ]
''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
Delila_1
Topikgazda
Szerkesztés/Ugrás/Irányított. Itt kiválasztod az Állandókat, mire felajánlja a számokat, szövegeket, logikai értékeket és a hibákat. Azokat hagyd kijelölve, amiket ki akarsz törölni. Az OK-ra a kiválasztott cellák lesznek jelöltek, és akkor a DEL billentyűvel egyszerre kitörölheted mindet.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#00809728
törölt tag
Szasztok!
Kérdésem lenne.
Cégnél rengeteg adatot kéne mindig kimásolnunk ezek szám adatok.Sajna 65000 sornál tőbbet nem hajlandó feldolgozni a szgép ill az excel.Mit tegyek,hogy az adat kimentése egyszerübb legyen?Tanácsokat elfogadom
kb 800.000sort szoktunk kiszedni ez olyan 73mb adat ezt sajnos tőbb részben tudjuk csak feldogozni.
[ Szerkesztve ]
-
#00809728
törölt tag
Hy!
Kicsit elhamarkodtam akérdést igy leírom + 1*.
Nos Microsoft access-be menti az adatokat.Kb 850.000 sor szokot lenni ugy 70mb körüli ez néha lehet tőbb is.
Ezt az adat halmazt nekünk át kell másolnunk az excel táblázatba.
Hiába jelőlőm ki sok-sok adatot ha csak az excel 65.000sor enged berakni.
Szgépünk 2*1gb memó ill dual magos proci de sajon igy is amire kimentegeti kb 40-50perc.Mit lehet tenni?
-
#00809728
törölt tag
Hát igazából egy táblázat kéne és nem több sheet azaz 1 lap.
Nos ha kijelőlsz tőbbet accesben akkor csak 65.000 sort tud fogadni a excel .Itt a probléma mert nekem az lenne a legjobb ha az ősszes adatot be tudnám rakni vagy lenne egy olyan lehetőség mint a nyomtatoknál,hogy sok-sok lapra ő kirakná automatán.Remélem érthetően írtam...
[ Szerkesztve ]
-
Oly
senior tag
Nah guruk...
Adott egy excel doksi.
Le van védve jelszóval a szerkeszthetőség.Hogy tudnám ezt visszafejteni?
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
VladimirR
nagyúr
leteznek ra programok, viszont azok - amennyire tudom - mind brute force modszerrel probaljak megtorni az allomanyt, ami meglehetosen lassu
ilyeneket millioszam talalhatsz google segitsegevel, de tapasztalatom sajnos nincs, hogy melyik milyen eredmennyel/sebesseggel dolgozik, igy ajanlani kozuluk nem tudok
a masik gond e programokkal, hogy tobbnyire fizetosek, s a probaverzio csak pl 3 karakter hosszu jelszavakat tud kitalalnimasik lehetoseg lehet, hogy mondjuk exportalod a doksit valami mas formatumba, s aztan visszakonvertalok xsl-be, bar nem tudom, milyen dokumentumrol van szo, s hogy ez eyaltalan megoldhato-e
-
Oly
senior tag
válasz VladimirR #3735 üzenetére
A fizetősöket én is megtaláltam.
Egy ingyenest is találtam, ami azt mondta nekem, hogy nem védett a doksi.Máris feltöltöm a doksit és küldöm priviben a linket. Export-import lesz akkor ebből.
Azt mivel érdemes megoldanom?SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
accesid
csendes tag
Sziasztok, segitseget szeretnek kerni
a mellekelt kepen a kek zonaban levo adatokat kellene atformazni a zold zonaban levokre[ Szerkesztve ]
-
accesid
csendes tag
vagy az is megoldas lenne ha en elore torlom a "B" oszlopbol az adarok elejerol az elso szot
es akkor csak annyi kellene hogy a ","-vel vagy mas karakterrel elvalasztott szavakat szetszedni
-
Csontikka
aktív tag
-
accesid
csendes tag
csontika
ez a megoldas a szovegbol oszlopokat darabolas tokeletes lenne csak nekem fuggolegesen kene elhelyezni
kezzel nem lehet megoldani mert van hogy 1000-2000 sor van mire szetszedem 10.000 is lehet
-
ssrobi
csendes tag
Sziasztok!
Segítséget szeretnék kérni makróban (nem értek hozzá, csak makrorögzítővel csinálgatom
Azt szeretném elérni, hogy van egy mindig változó sorú (hol 4 sor hol 25) adathalmazom és azt szeretném, hogy egy gomb megnyomására kijelölje a legalsó sorig. hmm nem tudom mennyire lett érthetőItt a fórumban olyanra találtam már példát hogy menjen el az utolsó sorig, de hogy addig kijelölje sajna nem találtam meg...
előre is köszi
üdv -
-
ssrobi
csendes tag
válasz Delila_1 #3748 üzenetére
Azért persze csak lenne még egy kérdésem Mi kell ahoz, hogy az utolsó celle alá lépjen, mert én oda ismét beillesztenék valamit Illetve az alábbival mi a gond:
Range("A16:j" & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Copy
Worksheets("nyilvántartás").Activate
Cells(1,1).Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=Falseés a Cells(1,1).Select-re mindíg valami hibát ír ki, azért mert magát a makrót induláskor egy másik lapról indítom, vagy leglábbis gondolom hogy azért mit kéne tegyek, tudnátok segíteni?
köszike