- Sony Xperia 1 V - kizárólag igényeseknek
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Xiaomi Redmi Note 4 - B20
- Motorola Edge 30 Ultra - a 200 megapixeles kérdés
- Android szakmai topik
- Yettel topik
- Remekül néz ki a szögletes Z Fold6
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- iPhone topik
- Netfone
Hirdetés
-
Ismét mozgásban a Where Winds Meet
gp A kínai történelem és mitológia ihlette nyílt világú akció-RPG alkotás még mindig nem kapott megjelenési dátumot.
-
Nyárköszöntő hardverszemle
ph A desktop gép, notebook és ház nyomába sokféle periféria szegődik, sőt, még egy VR headset is tiszteletét teszi heti rovatunkban.
-
Összemoshatja a Google és a Magic Leap a valódi és a digitális világokat
it Együttműködésbe kezdett a Google és a Magic Leap nevű AR-startup.
-
Mobilarena
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
-
Delila_1
Topikgazda
válasz gabor222 #20450 üzenetére
Megszokásból adtam a ciklusváltozónak sor nevet, mert az Excelben legtöbbször 1-1 oszlop sorain lépkedünk végig. Ehhez a feladathoz mást kellett volna.
Azért keress még más megoldást is, biztosan sikerül.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
gabor222
tag
válasz Delila_1 #20451 üzenetére
Ez a 2. hét, hogy tanulom. Mi általában egy betűből álló neveket szoktunk adni.
Amit írtál abban ez a rész fontos? & "", Mert anélkül is működik.
Kicsit átfogalmazva a feladat:
1. A százas helyi értéken nem 8 áll.
2. Az egyes helyi értéken nem a 7 áll.Sub nyolcszac()
Dim i As Integer, db As Integer
For i = 100 To 999
If Right(i, 1) <> "7" And Left(i, 1) <> "8" Then db = db + 1
Next
MsgBox db
End SubElvileg jó, igaz? Utánaszámolva igen
-
csongi
veterán
Sziasztok!
2007-es excel.Ilyen függvényt szeretnék.
PL
A1 cella értéke 0-600 között van, akkor a B2cella = F2 cella értékével. -
Delila_1
Topikgazda
válasz csongi #20454 üzenetére
B2-be
=HA(ÉS(A1>=0;A1<=600);F2;"?")A kérdőjel helyére írd be, mi legyen, ha a megadott értéktartományon kívülre esik az A1. Ha ebben az esetben üresnek kell látszania a B2-nek, akkor dupla idézőjel kell a "?" helyett.
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 gabor222 #20452 üzenetére
Igen, működik az & "" nélkül is. A változó egész szám típusú, az üres string hozzáfűzésével alakítottam stringgé, hogy a right-ot érvényesíteni tudjam. Nem jutott eszembe, hogy a VBA enélkül is tudja értelmezni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
csongi
veterán
válasz Delila_1 #20455 üzenetére
Ez jóó
Tovább bonyolítom.
Ha olyat szeretnék, hogy az A1 értékétől függően kerüljön be a c3 cellába az előre kijelölt adatok közül a megfelelő.
Vagyis
A1=0-500között van , akkor a c3 értéke f6
A1=501-1000 között van, akkor a c3 értéke F7
A1=1001-1200 között van, akkor a c3 értéke F8
stb. -
Delila_1
Topikgazda
válasz csongi #20457 üzenetére
Ha több értékhatártól függ a C3 eredménye, érdemes egy kis segédtáblát bevinni. A képen ez a tartomány a H1:I5, amit bővíthetsz.
Az I1 cellába írt hivatkozás =F6, ezt lemásoltam I5-ig.
A C3 cella képletét láthatod a szerkesztőlécen.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Salex1
senior tag
Lehet egy makró futtatást időhöz kötni? Pl. minden reggel 8-kor szeretném, hogy lefusson.
-
Salex1
senior tag
válasz Salex1 #20459 üzenetére
Rátaláltam, de ha kellene másnak is az adott időpontban való makró futtatás:
Bele kell írni egy bármilyen makróba (pl. auto_open), amit lefuttatva már a memóriába kerül és ez után már végre fogja hajtani az adott időpontban.Application.OnTime TimeValue("8:00:00"), "Makró név"
-
Delila_1
Topikgazda
válasz Salex1 #20462 üzenetére
Jó lett volna, ha látszanak a sor- és oszlopazonosítók. Úgy tippelem, hogy a jan.1. a B2 cellában van, a febr.1. pedif az F2-ben.
A laphoz kell rendelned a makrót.
Private Sub Worksheet_Activate()
Dim nap As Integer, honap As Integer
nap = Day(Date) + 1
Select Case Month(Date)
Case 1
honap = 2 'B oszlop
Case 2
honap = 6 'F oszlop
End Select
Cells(nap, honap).Select
End SubFolytatsd a Case utasítást 12-ig. A hónap mindig annak az oszlopnak a száma legyen, ahova az ahavi adatok kerülnek.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
csongi
veterán
válasz Delila_1 #20458 üzenetére
Nem értem. Szerintem nekem ez nem jó.
Tehát nekem nem számolt hanem meghatározott érték kell.Pl
A1 értéke 475 vagyis kisebb mint 501 akkor a F6 értéke egyenlő Cukor
Ha A1 beírt értéke 598 vagyis kisebb mint 601 de nagyobb mint 501 akkor az F6 cella egyenlő búza.
A cukor és búza.. egy másik cellákban vannak elnevezve. -
bteebi
veterán
Sziasztok!
Az élőlábba beletettem a filenevet (&[Fájl]), ami Excel 2003-ban jól jelenik meg, 2007/2010-ben viszont lehagyja a kiterjesztést. Van arra valakinek ötlete, hogy hogy lehetne azt megcsinálni, hogy a régebbi és az újabb Excel verziókban is látható legyen a kiterjesztés? Lehet vizsgálni makróval az Excel verzióját?
Ha igen, akkor lehetne egy olyan makrót készíteni, ami a file megnyitáskor megvizsgálja az Excel verzióját, és annak megfelelően választ az elnevezések közül (az egyik esetben az &[Fájl], a másik esetben pedig az &[Fájl].xls lenne beleírva) - ezzel mondjuk annyi probléma lenne, hogyha (többek között) mondjuk .xlsx lenne a kiterjesztés, akkor nem a valós kiterjesztést írná ki.
Előre is köszönöm a segítségeteket!
Cancel all my meetings. Someone is wrong on the Internet.
-
csongi
veterán
válasz Delila_1 #20465 üzenetére
Én voltam a béna Működik.
Tovább bonyolítom , Ha meg van hogy cukor a cella tartalma , akkor kellene további két cella tartalmát meghatároznom, amik kapcsolódnak a cukorral. Pl a mellette lévő cellába az összetevők, mellette az ára.
Ami így nézne ki:
Termék azonosító termék neve termék ára -
Delila_1
Topikgazda
-
-
-
Delila_1
Topikgazda
válasz antikomcsi #20470 üzenetére
Hogyne mennék sokra vele?!
A különböző kérdések egy halom olyan problémát vetnek fel, amikre magamtól nem is gondoltam. Ezekből, miután elgondolkozom a megoldáson, rengeteget tanulok.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Mutt
aktív tag
válasz Salex1 #20462 üzenetére
Hello,
...valahogy az aktuális nap ki legyen emelve...
Feltételes formázással meg tudod tenni, ha az év az A1-es cellában van, a hónapok A, E, I stb. oszlopoktól kezdődnek és a napok a 2. sortól indulnak:
=DÁTUM($A$1;INT((OSZLOP()-1)/4)+1;SOR()-1)=MA()
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz bteebi #20466 üzenetére
Hello,
Az élőlábba beletettem a filenevet (&[Fájl]), ami Excel 2003-ban jól jelenik meg, 2007/2010-ben viszont lehagyja a kiterjesztést.
Windows mappa beállításoknál az "Ismert filetípusok kiterjesztésénel elrejtése" opcióból vedd ki a pipát.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz csferke #20436 üzenetére
Hello,
Lehetséges-e PivotTábla adataiból diagramot készíteni?
PivotChart-nak hívják, Youtube-on jópár videó van róla.Alternatív megoldás lehet sima diagram használata, amely dinamikus tartományokból dolgozik.
Ilyet a fórumon már mutattunk be jó 1 éve. Az én példám itt van, de Delila_1 is osztott meg ilyeneket.üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
bteebi
veterán
Szia!
Bennem is felmerült ez a gondolat, de nem tudom, hogy vajon tényleg ez lehet-e a megoldás. Ha ez, akkor az elég gáz, pláne azt is figyelembe véve, hogy a céges gépeket nem igazán lehet testreszabni, bár azt hiszem ezt még pont be lehet állítani nekünk is . Kipróbálom itthon, mert itt van 2010-es Excel is.
Szerk.: És tényleg a kiterjesztés elrejtése miatt . Meglepő, de nem mulatságos. Elég hülye hiba. Mondjuk így kicsit tanácstalan vagyok, hogy hogy lehetne univerzálisan megcsinálni, hogy minden gépen jól működjön, akárhogy is legyen beállítva.
[ Szerkesztve ]
Cancel all my meetings. Someone is wrong on the Internet.
-
the radish
senior tag
Sziasztok!
Macros_ExpirationExceeded = Date >= Sheets("data").Range("IV65536").Value
'// Place at top of procedures that are directly fired by user or event.//
If Macros_ExpirationExceeded Then Exit SubFenti makrót szeretném úgy átalakítani, hogy:
- dátum helyett időkorlátot határozzon meg, azaz ha a IV65536 cella értéke egyenlő, vagy nagyobb a tényleges időpontnál, a makró ne fusson le,
- akadály esetén ne csak megszakadjon a makró futása, hanem felugró ablak figyelmeztessen pl. "A következő futtatás lehetséges időpontja: 20:14" szöveggel, de az "OK" gomb 12 mp-ig inaktív maradjon.Előre is köszönöm.
[ Szerkesztve ]
-
the radish
senior tag
válasz the radish #20478 üzenetére
Elnézést, a szerkesztési idő lejárt.
Az idő formátum megoldva, figyelmetlen voltam. (
Date, Time)Már csak a 2. részben kérem a segítségeteket.
Köszönöm.
[ Szerkesztve ]
-
misa479
csendes tag
Segítséget szeretnék kérni.
Lenne egy adatbázisból lekérdezett megyénkénti adathalmazom. Az első sorban van a fejléc, és utána megyénként vannak a különböző mutatók.
Az a gondom, hogy a megyék közé be lett szúrva egy üres sor. Ezt az üres sort szeretném egy makróval kivenni, mégpedig úgy, hogy ha a B oszlop üres, akkor törölje azt a sort de csak kb a 10 sortól kezdődően, mivel az elejét szeretném meghagyni érintetlenül.
Előre is köszönöm a segítségeteket! -
Lackó86
tag
Sziasztok!
Az hogyan tudom megcsinálni, hogy ..
Egy mezőbe beírom,h M10
(Az érték a fontos nekem,az M csak a típusát határozza meg. (Menetekről van szó)nekem egy másik mezőbe csak a szám értéke szükséges.
A1=M10B1 mezőben csak a 10 es szerepeljen. B1(=A1) - az M betű
Köszi!
jambi
-
Delila_1
Topikgazda
válasz misa479 #20480 üzenetére
Ez a makró elintézi:
Sub sortorol()
Dim sor As Long, usor As Long
usor = Range("B" & Rows.Count).End(xlUp).Row
Range("B10:B" & usor).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
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.
-
Delila_1
Topikgazda
válasz Lackó86 #20481 üzenetére
Ha csak metrikus csavaráruid vannak, a cellák formáját az egyéni kategóriában "M"## módon add meg, akkor a cellába csak a számot kell megadnod ezután.
Most a szám kinyeréséhez a
=JOBB(A1;HOSSZ(A1)-1)
képleted vidd be.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
orkester
senior tag
Sziasztok!
Nem jövök rá a problémám megoldására.Bemásolok egy több soros szöveget 1 cellába. Eddig nincs is gond.
Viszont ha után a cellából át szeretném másolni a szöveget pl. egy txt-be, akkor az egészet idézőjelek közé teszi.
Van megoldás, hogy ez ne így legyen?
[ Szerkesztve ]
PSN: orkester ** Aki tud olyan nemzetközi hírről, ami a Ft-ot nem gyengíti dobjon egy privátot - 2012.05.24. óta 0db üzenet ** Ha nem válaszolok valószínűleg le vagy tiltva és nem véletlenül. ** Ha valami karcos, kopott, megrágta a kutya, kérlek ne hirdesd újszerűnek, köszi!
-
-
Delila_1
Topikgazda
válasz antikomcsi #20489 üzenetére
Kijelölöd a beírt képletet, a Konvertálatlan gomb kiküszöböli a kacsintókat.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Lackó86
tag
Be kell írni, h M10 egy cellába, de nekem ebből kell kinyerni azt h:10
igazából ennyi volna.Bármilyen szöveg és szám kombinációból csak a számot akarom kinyerni.
Ez annyiban egyszerűsödik h nekem csak M5...M100, De lehet Tr42,
M5---> nekem csak az 5 kell.M100---> 100
Tr42--->42
jambi
-
Delila_1
Topikgazda
válasz Lackó86 #20494 üzenetére
A jelenlegi feladathoz ez a képlet kell. Nálam az adat az A1 cellában van.
=JOBB(A1;HOSSZ(A1)-1)Írtam egy függvényt, ami bármilyen összetételű adatból kiírja a számokat.
Function CsakSzám(szoveg)
Dim kar As Integer, uj
For kar = 1 To Len(szoveg)
If IsNumeric(Mid(szoveg, kar, 1)) Then
uj = uj & Mid(szoveg, kar, 1)
End If
Next
CsakSzám = uj * 1
End FunctionHa a vegyes adatod az A1-ben van, az =csakszám(a1) függvény a vegyes felvágottból a számo(ka)t adja vissza.
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 Lackó86 #20498 üzenetére
A füzetedben, ahol majd esetleg alkalmazod, Alt+F11-re bejön a VBA szerkesztője. Bal oldalon kiválasztod a füzeted nevét. Insert menü, Module. Bal oldalon látod, hogy kaptál egy Modules mappát, abban a Module1 nevűre állsz. Jobb oldalon a nagy üres területre bemásolod a makrót. Ezután már használhatod a füzetedben úgy, mint bármelyik másik függvényt, =csakszám(a1) formában.
Keress rá itt a fórumon a personal szóra. Találsz több hsz-t, ami erről szól. Ha ebbe a personal-ba viszed be a makrót, akkor bármelyik füzetedben alkalmazhatod az új, saját függvényedet.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
the radish
senior tag
Sziasztok!
Délelőtti kérdésemen kívül az alábbiakban kérnék segítséget.
1. A maró futását vetően x ideig ne lehessen újra futtatni, akkor sem, ha újraindítjuk az excelt.
2. Különböző hosszúságú szövegből szeretnék "kivágni", melyek a cellán belül vesszővel vannak elválasztva.
A1= Kovács János, Bicske
A2= Szabó Aladár, Jánoshalma
A3= Horváth Szilárda, KaposvárEzekből az első vesszőig lévő tartalomra, azaz a nevekre lenne szükségem.
Megoldható?
Köszönöm
(Office 2003)
[ Szerkesztve ]
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen