- Samsung Galaxy S24 - nos, Exynos
- Poco X6 Pro - ötös alá
- Alkalmazásbemutató: Keep
- Futott egy Geekbench kört egy új HTC készülék
- Azonnali mobilos kérdések órája
- Apple AirPods Pro (2. generáció) - csiszolt almaságok
- Huawei Mate 10 Pro - mestersége az intelligencia
- Vodafone-ra áttért Digi Mobilosok
- Xiaomi Mi 11 Ultra - Circus Maximus
- iOS alkalmazások
Hirdetés
-
Samsung Univerzum: Így ismerhető meg a Galaxy AI bármilyen telefonon
ma A Try Galaxy webalkalmazás kontrollált környezetben mutatja meg, mit tud a One UI 6.1-es rendszer és a mesterséges intelligencia.
-
Dragon Ball: Sparking! Zero - Mester és tanítvány
gp Egyelőre még mindig nem kaptunk megjelenési dátumot a játékhoz.
-
Agyi chipes gyártóba fektetett a kriptocég
it A Tether 200 millió dollárt fektet a Blackrock Neurotech agyi chipes vállalatba.
-
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
-
detroitrw
addikt
Sziasztok!
Egy olyan kérdésem lenne hogy miként lehet egy bizonyos cellába iratni a fájl mentési idejét?
Élőlábnak már megcsináltam, de fogalmam sincs hogy kéne konkrét cellába (L5) rakatniez az élőláb tartalma:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Calculate the date and time stamp string
Dim TS As Date
TS = Now
Dim TSS As String
TSS = FormatDateTime(TS, 1) & " "
'Place time stamp into the cell labeled SaveTimestamp
'Range("SaveTimestamp").Value = TSS
'Place time stamp into the header or footer for printing
Dim WS As Worksheet
For Each WS In Worksheets
WS.PageSetup.LeftFooter = " City," & TSS
'WS.PageSetup.LeftFooter = ThisWorkbook.FullName
Next WS
End Submiként kéne átírni hogy az L5-ös cellába legyen a tartalom?
Előre is köszönöm a segítséget
-
detroitrw
addikt
Ezt lehetne szerintetek valahogy automatizálni?
- a zöld a fix
- a sárgába kéne az adatokat automatikusan bevinni amíg a kék el nem éri a 0 (nulla) értéket
majd sort vált s folytatja tovább ...
- remélem érthető -
detroitrw
addikt
válasz #90999040 #14027 üzenetére
ennél már akkor egyszerűbb ha egy táblakiosztó progiba beadom a tábla szélességű hosszakat s így úgy működne mintha szálkiosztana ...
de ott is ismételten kézzel kéne bevinni az adatokat ami további hibalehetőséget generál
mert az a kis egyszerű excel amit csináltam legalább képes arra hogy a végösszegeket ellenőrizze hogy biztos minden elemből a megfelelő darabszám szerepel e
a táblakiosztási módszerbe meg az lenne a jobb hogy ott tudok a vágóréssel is kalkulálni
mod: s merre lehetne elindulni amúgy?
[ Szerkesztve ]
-
detroitrw
addikt
válasz #90999040 #14031 üzenetére
nem a legjobb megoldás lenne a lényeg, mivel kézzel se arra törekszek!
prioritás alapján megyek végig szal előre kerülnek a legmagasabb értékek ... mert fölösleges először a kisebbeket kiosztaniill. ott van az is amit említettem hogy egy bizonyos cella értékétől függően új sort válthatna
pl. ha az érték ~200 -ra csökken (ill. min. db x 5 meglegyen)[ Szerkesztve ]
-
detroitrw
addikt
válasz cousin333 #14033 üzenetére
Szia!
köszi hogy foglalkoztál vele
bár azt nem tudom miként lehet automatizálásra bírni
meg ezt még át kéne írni hogy másnak is érthető legyeneddig ezt találtam [link]
elég komoly cucc s 1-2 esetbe kihozta kevesebb szálból
s nincs szükség gépelésre, copy&paste módszerrel fel lehet tölteni az adatot, ill az eredményt könnyen vissza lehet másolni
és még vágórést is meglehet adni
annyi hogy 60 napig ingyenes (na de akkor mire lenne jó a virtualpc? )van egy másik is [link]
ezt viszont nem tudom beüzemelni[ Szerkesztve ]
-
detroitrw
addikt
sziasztok!
adott egy cella ahol pl. ezek az értékek vannak:
580 559 559 450 265 265ezt hogy lehet így átalakítanitni? :
580 559 x 2 450 265 x 2
ill. minden érték külön cellába legyen -
detroitrw
addikt
Sziasztok!
olyat lehet csinálni hogy egy kijelölt területen a színes (pl. piros) cellák értékeit összeadja?
-
detroitrw
addikt
válasz Delila_1 #14330 üzenetére
Szia!
2010-el próbálkozok
a különböző kategóriák külön táblázatot alkotnak szal egyénileg szűrve vannak
és duplán nem lehet szűrni (legalábbis nem jöttem rá hogyan lehet)kipróbáltam hogy csak ez a szín szűrés legyen, ki is listázta azokat a cellákat viszont ha kijelölöm őket egybe ("E1116:E1308") akkor ha megszüntetem a szűrést a többi számot is hozzáadja
ha meg egyessével csinálom akkor egyszerübb ha manuálisan végzem az összegzést mint eddig is tettem
a másik az hogy két oszlopba lennének ezek az értékek persze más más sorba ...[ Szerkesztve ]
-
detroitrw
addikt
Sziasztok
azt hogy lehet megoldani hogy az:
A1=0x00/1y11s ez így jelenjen meg:
B1=0x00
C1=1y11a karakterek alfanumerikusak és különböző hosszúságúak
szal csak az a biztos hogy van benne /előre is köszi
-
detroitrw
addikt
válasz atillaahun #16882 üzenetére
ennyi idő alatt nem ér megmondanide az ilyennek mi a parancssora?
mert automatikus kellene ami csak arra vár legyen a cellákba adat legyen (az nem számít hogyha nincs adat hibát ír) -
detroitrw
addikt
válasz atillaahun #16882 üzenetére
ja s most látom hogy ez egyik fülből a másikba nem tud tagolni?
mert fülön belül megcsinálja, de ha a végeredményt másik fülre akarom kiíratni hibát ír[ Szerkesztve ]
-
detroitrw
addikt
köszi mindkettőtöknek
működiks olyat lehet hogy ez a parancssor ha nem talál / -t akkor csak simán beírja az értéket az adott cellába
[ Szerkesztve ]
-
detroitrw
addikt
ha már így belejöttetek ...
még egy uccsó kérdés
adott:
A1=1603+1603+640+640+640+388+388
(nem képlet hanem szöveg!)s pl. ilyen kellene belőle:
B1=2db - 1603
C1=3db - 640
D1=2db - 388csak számokat tartalmaz, a + mindig adott, a számok mennyisége változó
[ Szerkesztve ]
-
detroitrw
addikt
Szia!
kipróbáltam, de hibát lök a futtatáskor
egy ilyennel oldottam meg:
A = ActiveCell.Row
B = ActiveCell.Column
ActiveSheet.Cells(A + 1, B + 0).Selectmivel ez csak 1 ciklus így adtam neki egy ciklus mennyiséget:
Private Sub xxxxx
For x = 1 To 1000
......
Next x
End Subnem olyan elegáns de megoldja a gondom
Köszi
[ Szerkesztve ]
-
detroitrw
addikt
Sziasztok!
lenne egy furi kérdésem
parancsgombot hogy lehet egy másik gombbal "megnyomni"? (különböző fülön vannak)
-
detroitrw
addikt
válasz Excelbarat #16945 üzenetére
Szia!
ezt írtam be:
Sub CommandButton1_Click()
Call CommandButton2
End Subde nem jó, not defined
-
detroitrw
addikt
válasz Excelbarat #16947 üzenetére
Szia!
sajnos így se működik
kipróbáltam egy teljesen üres lapon de ugyan úgy nem működikazt is kipróbáltam hogy lépjen át arra a fülre s ott ugyan azt a parancssort futtassa, de akkor is hibát dob
nem értem mi lehet a problem
-
detroitrw
addikt
válasz Fire/SOUL/CD #16982 üzenetére
Szia!
nem igaz hogy nekem nem megy
hogy a vba rossz lenne nem hiszem mert egymástól független gépeken se működik (office 2010-2013)arra megkérhetnélek hogy egy ilyen kis szövegdobozos megjelenítős félét megtudnál osztani ami Nálad működik?
Lehet én vagyok az atom láma
pedig a több száz soros cuccok meg gond nélkül lefutnak -
detroitrw
addikt
válasz Fire/SOUL/CD #17006 üzenetére
tudom s láttam
csak munkahelyen nem működött ez, üresbe se (valszeg valamit elszúrtam)
itthon üresbe működik, de módosítottba már nemez nektek működik? klikk
-
detroitrw
addikt
válasz Fire/SOUL/CD #17014 üzenetére
sikerült rosszat küldeni
valszeg küldés előtt felülírtam a fájltaz a lényeg hogy a szövegdoboz téma megjelenik, de utána jön a hiba
[ Szerkesztve ]
-
detroitrw
addikt
válasz Fire/SOUL/CD #17031 üzenetére
a debug funkcióval végigléptettem s az derült ki hogy a "CommandButton1"-es a saját helyén ("Munka1") akarja végrehajtani a műveletet, így raktam a "CommandButton2"-be egy "Munka2" fülre (önmagára) való lépést
szal e szerint le tudom futtatni a "CommandButton1"-el a "CommandButton2"-be lévő utasításokatPrivate Sub CommandButton1_Click()
Munka2.CommandButton2_Click
End Sub
Public Sub CommandButton2_Click()
Sheets("Munka2").Select
.... utasítások ....
End Subja s mindent köszi
[ Szerkesztve ]
-
detroitrw
addikt
válasz kőbaltazár #18779 üzenetére
pl.
D22 tartalma:
=HA(B22="O";"T.F";HA(B22="F";"T.F";HA(B22="MR";"U K";HA(B22="E T";"SZ P"))))D41 tartalma:
=DARAB2(D22:D37)-DARABTELI(D22:D37;"T.F")[ Szerkesztve ]
-
detroitrw
addikt
válasz kőbaltazár #18792 üzenetére
ez esetbe ezeket javasolnám:
D22 tartalma:
=FKERES(B22;$I$41:$J$45;2;0)emiatt
I41-J45 tartalma:C22 tartalma:
=HA(B22="É";"-----";HA(B22="E T";"-----";""))itt érdemes feltételes formázást használni hogyha nincs "-----" akkor pl. a cella legyen piros színű
amint beírod a helyes értéket akkor el fog tűnni a kijelölésfeltételes formázás:
jelöld ki a C22-C37 cellákat
feltételes formázás/új szabályok/csak az adott tartalmú cellák formázása
lent kiválasztod a legördülőbe hogy üres cellák
majd a formátum... gomb segítségével pl. megadod a kitöltés fülnél hogy milyen színű legyen a cella[ Szerkesztve ]
-
detroitrw
addikt
válasz kőbaltazár #18794 üzenetére
I41-J45 hogy láthatalan legyen állisd át a szöveg színét fehérre (vagy amilyen a háttér)
de ha nem akarod ezeket beírni akkor így is megoldható a
D22 tartalma:
=HA(B22="É";"T, F";HA(B22="F";"T, F";HA(B22="MR";"Ú K";HA(B22="E T";"SZ P";HA(B22="J F";"T, F";"")))))az hogy a C22 : C27 -be megmaradjon a lista arra passzolok
max olyat lehet hogy E22:
megcsinálod a listátés a C22:
=HA(B22="É";"-----";HA(B22="E T";"-----";E22))[ Szerkesztve ]
-
detroitrw
addikt
válasz kőbaltazár #18796 üzenetére
Ha az adott cellára kattintva fent ahol látod a parancssort közvetlen mellette van egy fx
arra rákattintva mindent megtudhatsz az adott utasításokról2: azt jelenti, hogy a kijelölt oszlopok közül hányadikból várod a végeredményt
0: az csak egy logikai kapcsoló, itt akár el is lehet hagyni mert ez számokra vonatkozik
0= hamis (azaz pontos egyezés szükséges)
0-tól különböző szám vagy üres = igaz ("az első oszlopban lévő legjobb közelítést adja meg, növekvő rendezés esetén") -
detroitrw
addikt
válasz kőbaltazár #18802 üzenetére
a függvényeket össze lehet vonni
F46 tartalma:
=DARAB2(E4:E33)-DARABTELI(E4:E33;"E")+DARAB2(E38:E44)-DARABTELI(E38:E44;"E")szal itt a két függvény egy sima összeadással van összekötve
[ Szerkesztve ]
-
detroitrw
addikt
válasz kőbaltazár #18804 üzenetére
persze lehet olyat is csinálni
a hivatkozás lehet külső fájlba megadott, csak arra kell figyelni hogy ezek a fájlok egymáshoz képest mindig azonos helyen legyenek (pl. egy mappába) -
detroitrw
addikt
válasz kőbaltazár #18811 üzenetére
ezt esetleg megnézheted hogy megfelel e a követelményeidnek
B5 tartalma:
=HA(1900<A5;"20 db";"-----")azt nézi, hogy 1900-tól nagyobb érték van e az A5 cellába
ha igen akkor: 20db
ha nem akkor: -----szal ha 1900-tól nagyobb számot írsz ami nem dátum akart lenni akkor is 20db lesz az eredmény
-
detroitrw
addikt
válasz ADAM1337 #18834 üzenetére
kijelölöd az aktuális oszlopot s a csere funkcióval (ctrl+h):
Keresett szöveg: (ide nyomsz egy space [szóköz] gombot)
csere erre: (ide ne nyomj semmit)majd az összes cseréje gomb
(#18836) ADAM1337
akkor jelöld ki azt a speckó szóközt s azt másold a keresett szöveg-hezha nem megy akkor az egész oszlop tartalmát másold át egy szöveges dokumentum-ba s ott végezd el a cserét
majd a végeredményt másold vissza az excelbe[ Szerkesztve ]
-
detroitrw
addikt
válasz superecneB #18949 üzenetére
irányított beillesztés az üresek átugrása funkcióval
-
detroitrw
addikt
válasz Térközjelző #20121 üzenetére
én egy ilyennel oldanám meg: klikk
ha ez megfelel akkor a táblázat cellái így néznek ki pl.
H2: =ÉS(H$1<=$G2;I$1>=$G2)
A2: =DARABTELI(H:H;IGAZ)[ Szerkesztve ]
-
detroitrw
addikt
válasz the radish #20133 üzenetére
adatok/adateszközök/ismétlődések eltávolítása?
-
detroitrw
addikt
válasz God Vazzeg #20633 üzenetére
egy ilyen nem jó?
lenne 3 cellád (A1-C1) amibe év, hónap, nap
és ez alapján rakná neked össze a dátumot
A3-> =DÁTUM(A1;B1;C1)
B3-> =DÁTUM(A1;B1+1;C1) -
detroitrw
addikt
válasz God Vazzeg #20633 üzenetére
megvan a barátod
=KALK.DÁTUM(#20634) fuli07
konkrétan mire gondolsz?
egy példát tudsz mutatni?[ Szerkesztve ]
-
detroitrw
addikt
válasz fuli07 #20637 üzenetére
én is sokmindent a HA függvénnyel oldok meg
össze is lehet őket vonni így:
=HA(SZÁM(A1);HA(A1>C1;3;HA(A1<C1;0;HA(A1=C1;1;"")));"")
Új hozzászólás Aktív témák
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- World of Warcraft Shadowlands Collectors edition EU EN
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)