-
IT café
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
-
pube111
senior tag
Nem boldogulok egy feladattal.
Hogy lehet egy egyenletből fügvényt csinálni?
Víz mennyiseg A1=10
Víz hőfok A2=8
Cél hőfok A3=6
Hűtővíz mennyiség A4=?
Hűtővíz hőfok A5=2
Az egyenlet:
A1*A2+A4*A5=(A1+A4)*A3
Az A4 értéke ismeretlen, azt szeretném egy fügvénnyel kiszámolni, amit a fenti egyenletből kellene megírni, de nem megy. -
attila199207
tag
Sziasztok!
Azzal a problémával állok szemben, hogy excel (Office 365), hogy a képteletek képletként jelenití meg, nem pedig értékként, pl ha A1=1 és B1=1, akkor ha beírom, hogy =A1+B1, akkor nem azt írja ki, hogy 2 hanem A1+B1, nincs bekapcsolva a képletvizsgáló, egyes függvények megjelennek, de a legtöbb nem, úgy túnik, mintha a képletet szövegként értelmezné, mert hiába gépelem el direkt a "HA" függönyt engedi beírni a hülyeséget, nem írja ki, hogy képlet hiba.
Tudnátok ebben segíteni? -
lappy
őstag
válasz attila199207 #47405 üzenetére
vagy az Alt+. vagy a képlet előtt van egy '
Bámulatos hol tart már a tudomány!
-
lappy
őstag
válasz attila199207 #47407 üzenetére
a cella formátumát megnézted?
Bámulatos hol tart már a tudomány!
-
Fferi50
őstag
válasz attila199207 #47409 üzenetére
Szia!
Lehetséges, hogy a képletek megjelenítése van beállítva...
Beállítások - Speciális - számított eredmények helyett képletek megjelenítése a cellákban.
Vagy:
Menüszalag - Képletek - képletvizsgálat - Képletek
Üdv. -
Chrisluke
csendes tag
-
Delila_1
Topikgazda
válasz Chrisluke #47411 üzenetére
A HAHIBA függvény utolsó paramétere "" (üres string)? Hiba esetén ez látszik, szóval nem látszik semmi. Probléma akkor van, ha olyan sorban is előfordul, ahol a HAHIBA függvény nem fut hibára.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
[CS]Blade2
addikt
Kollégának kellene egy függvény.
Van egy oszlop, benne angolul, hogy hétfő, kedd, szerda, stb. 1 hónapnyi. Pár oszloppal később ő írja be hozzá, hogy az egyik hétfői sor az 3, két héttel később a szerda 2, stb.
A táblázat végén van pár függvényes mező ami összeszámolná ezeket a számokat, de úgy akarja megcsinálni, hogy
az egyik cellába adja össze magától az összes hétköznapost,
aztán egy másikba az összes szombathoz és vasárnaphoz írt számot,
és végül aszem kellene neki az összes csak vasárnap, de igazából mindegy, elég az hétköznapos verzió első verzió.A Tuesday, Wednesday, stb. van B4-től B33-ig, a hozzá írt számok H4-től H33-ig,
és a függvény kellene a B36-ba.Most SZUM-al van neki összeadva, ami 1 hónapra jó is nem túl elegáns megoldásnak, de amikor csinál egy másik hónapot, akkor az 1. ált másik nap, így kézzel adogatja meg, pl.:
=SZUM(H4;H5;H6;H9;H10;H11;H12;H13;H16;H17;H18;H19;H20;H23;H24;H25;H26;H27;H30;H31;H32;H33)*E39*0,5 -
Fferi50
őstag
válasz [CS]Blade2 #47413 üzenetére
Szia!
Magyarban SZUMHA angolban SUMIF függvény kell neki.
Üdv. -
Sziasztok!
Adott egy Excel tábla, amiben manuálisan változtatott dátumok vannak. Az lenne a feladat, hogy ha egy olyan dátum van benne, ami mondjuk egy héten belül bekövetkezik, akkor az adott cella háttere váltson pirosra. Ez megvalósítható?
Előre is köszönöm a segítő válaszokat (kész megoldást is hálásan fogadok, nem értek az excel-hez)
But who is watching the guardians?
-
Fferi50
őstag
válasz [CS]Blade2 #47418 üzenetére
Szia!
Ha több napot szeretnél összeadni egy eredménybe, akkor a
SZUMHATÖBB függvényt használd.
Itt az összegzendő területet csak 1x kell megadni, az 5 feltételt sajnos külön-külön.
Üdv.[ Szerkesztve ]
-
Fferi50
őstag
válasz [CS]Blade2 #47418 üzenetére
Szia!
Persze azt is lehetne csinálni a hétköznapokra, hogy a teljes SZUM -ból kivonni a SZUMHATÖBB szombat, vasárnapot.
A hétvégére pedig a teljes SZUM-ból kivonni a hétköznapok összegét - az előző cellában levő értéket.
Üdv. -
-
-
spe88
senior tag
Egy makróban szeretnék használni egy változót, ami egy szám, és egy cellában található.
Ez a szám egy adott tartomány sorát adja meg egy másik munkalapon:pl. X munkalap A1 cellájában van egy szám: 25.
Ez azt jelenti, hogy Y munkalap A9:H25 tartományát kelleni kijelölni.
Ezt, hogy tehetem meg? Egyszerű, de nem vágom a VBA-t. :/
Köszi
Spóroljunk! Kerül, amibe kerül!
-
-
andreas49
senior tag
Sziasztok,
Milyen beállítással tudom elérni, hogy munkaterületen kívüli oszlop és sorok rejtve maradjanak, macro nélkül.HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
-
Delila_1
Topikgazda
válasz andreas49 #47425 üzenetére
Lappy válaszán kívül 2 változat:
1. Kijelölöd a módosítható tartományt, és a cellaformázás védelem fülén kiveszed a pipát a zárolás elől, majd lapvédelmet adsz.
2. Alt+F11-gyel belépsz a makró szerkesztőbe. Bal oldalon kiválasztod a lapodat, majd a Properties ablakban (ha nem látszik, F4-gyel láthatóvá teszed) beállítod a ScrollArea (szerkeszthető) területet a kép szerint. Ennél makróbarátként kell mentened a fájlt.A ThisWorkbook laphoz pedig ez a makró kell:
Private Sub Workbook_Open()
Sheets(1).ScrollArea = "$A$1:$H$20"
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.
-
andreas49
senior tag
válasz Delila_1 #47427 üzenetére
Köszönöm a választ. Alighanem nem pontosan fogalmaztam. Azt szeretném elérni, hogy a használt területen (pl. $A$1:$Z$100) kívüli részen ne legyen látható sem az oszlop betűjel, sem a sor száma, sem a mezők, esetleg ez még eltérő színű legyen.
HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
-
sztanozs
veterán
válasz andreas49 #47428 üzenetére
1) AA oszlop kijelöl
2) CTRL+SHIFT+jobbra
3) jobb-gomb > hide
4) 101 sor kijelöl
5) CTRL+SHIFT+lefelé
6) jobb-gomb > hideJOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Lasersailing
senior tag
Sziasztok,
Előre is elnézést, kicsit hosszú lesz a probléma leírás. Ha van ötletetek, akkor kérlek segítsetek megtalálni a hiba okát!Egy üres excel sheetről indultam. A file jelenleg a C: drive-on fut, így is produkálja a hibát, ha hálózaton van, akkor is előjön a hiba. (Hálózati futtatás során az alábbi hiba még read-only státuszt is eredményez, de ezzel ne foglalkozzunk, mert ha az alábbi problémát megoldjuk, akkor a read-only probléma megoldódik.)
A file-t a makró futtatása előtt ötször lementettem, bezártam, megnyitottam, semmi hibát nem tapasztaltam.
Excelben lefuttatva egy makrót, majd a file-t elmentve az alábbi hibaüzenet fogad.
Ha az alábbi makrót lefuttatom, file-t elmentem, majd ismét megnyitom előjön az alábbi hiba:
Yes-re kattintva az alábbi fogad:
A problémát okozó makró:
A makró alábbi része, gyakorlatilag a trial kitting nevű file-ból átmásol egy táblázatot, közé beszúrva az eredeti excel file-ban található sorokat. Utólag belegondolva, lehet egyszerűbb lenne az egész táblát átmásolni, mögéfűzni az új sorokat, majd az egészet dátum szerint lerendezni. (Mentségemre: nem excel vba-ban tanultam programozni, hanem még turbo pascalban, ott meg ilyen lehetőség nem volt)
Sub trial_kitting_kalkulator()
Dim tke_sm As Integer
Dim tk_sm As Integer
Dim tk_smig As Integer
Dim input_sm As Integer
Dim datum As Date
Call rendez
Sheets(TKE).Select
Range("A4").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Delete
Application.ScreenUpdating = False
Workbooks.Open filenev
Windows("Trial kitting.xlsm").Activate
If ActiveSheet.AutoFilterMode Then Selection.AutoFilter
Sheets(SOB).Select
Range("A3:V3").Select
Selection.Copy
Windows("trial kitting kalkulátor.xlsm").Activate
Sheets(TKE).Select
Range("A3").Select
ActiveSheet.Paste
input_sm = 16
tk_sm = 4
tke_sm = 4
Do
datum = Sheets(bemenet).Cells(input_sm, 9)
'Trial kittingből kimásolja azokat a sorokat, melyek korábbiak, vagy aznapiak
Windows("Trial kitting.xlsm").Activate
tk_smig = tk_sm
While (Sheets(SOB).Cells(tk_smig + 1, 1).Value <= datum)
tk_smig = tk_smig + 1
Wend
'Rows(tk_sm & ":" & tk_smig).Select
If Not (IsEmpty(Sheets(SOB).Cells(tk_smig + 2, 1).Value)) Then
datum = Sheets(SOB).Cells(tk_smig + 1, 1).Value
Else
datum = "2021/01/01"
End If
Range(Cells(tk_sm, 1), Cells(tk_smig, 22)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("trial kitting kalkulátor.xlsm").Activate
Sheets(TKE).Select
Cells(tke_sm, 1).Select
ActiveSheet.Paste
tke_sm = tk_smig + input_sm - 15
tk_sm = tk_smig + 1
'Trial kitting előrejelzésbe beírja a szükséges adatokat
While (Sheets(bemenet).Cells(input_sm, 9).Value < datum) And Not (IsEmpty(Sheets(bemenet).Cells(input_sm, 9)))
Sheets(TKE).Cells(tke_sm, 1) = Sheets(bemenet).Cells(input_sm, 9)
Sheets(TKE).Cells(tke_sm, 2) = "Dummy"
Sheets(TKE).Cells(tke_sm, 3) = "Dummy"
Sheets(TKE).Cells(tke_sm, 4) = "Dummy"
Sheets(TKE).Cells(tke_sm, 5) = Sheets(bemenet).Cells(input_sm, 2)
Sheets(TKE).Cells(tke_sm, 6) = "Dummy"
Sheets(TKE).Cells(tke_sm, 7) = "Dummy"
Sheets(TKE).Cells(tke_sm, 8) = "Dummy"
Sheets(TKE).Cells(tke_sm, 9) = "Dummy"
Sheets(TKE).Cells(tke_sm, 10) = "Dummy"
Sheets(TKE).Cells(tke_sm, 11) = Sheets(bemenet).Cells(input_sm, 9)
Sheets(TKE).Cells(tke_sm, 12) = Sheets(bemenet).Cells(input_sm, 9)
Sheets(TKE).Cells(tke_sm, 13) = Sheets(bemenet).Cells(input_sm, 7)
Sheets(TKE).Cells(tke_sm, 14) = "Dummy"
Sheets(TKE).Cells(tke_sm, 15) = "Dummy"
Sheets(TKE).Cells(tke_sm, 16) = Sheets(bemenet).Cells(input_sm, 5)
Sheets(TKE).Cells(tke_sm, 17) = 0
Sheets(TKE).Cells(tke_sm, 18) = Sheets(bemenet).Cells(input_sm, 5)
Sheets(TKE).Cells(tke_sm, 19) = "Dummy"
tke_sm = tke_sm + 1
input_sm = input_sm + 1
Wend
'Loop Until (IsEmpty(Sheets(bemenet).Cells(input_sm, 1))) Or datum = "01/01/2021"
Loop Until datum = "01/01/2021"
Application.ScreenUpdating = True
Van ötletetek, hogy a fenti sorokból mi okozhatj a a file sérülését?
köszi előre is!
-
Delila_1
Topikgazda
válasz Lasersailing #47432 üzenetére
Lépésenként futtatva (F8) a hibát okozó sort sárgával kijelölve láthatod.
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 Lasersailing #47434 üzenetére
Újra megnyitáskor kell lépésenként futtatnod.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Lasersailing
senior tag
-
Lasersailing
senior tag
-
Lasersailing
senior tag
válasz Lasersailing #47436 üzenetére
Megpróbáltam az eredeti hozzászólásomban kigondolt megoldással, egy lépésben másolni a két adattartományt, majd lerendezni.
A gondom az, hogy a két forrásban nem azonos dátum formátum van használva (mindkettő egy rendszer outputja, tehát nem változtatható).
Az egyik dátumot felismeri, a másikat nem, így nem tudom lerendezni dátum szerinti sorrendbe. Ha a "rossz" dátumba F2-vel bemegyek, majd enter, akkor már rájön, hogy ez egy dátum. Hogyan tudom VBA-ban elmondani, hogy az adott cella egy dátum formátum?Jelenleg ezzel próbálkozom, de nem segít:
Sheets(TKE).Cells(tke_sm, 1).NumberFormat = "yyyy/mm/dd"
-
Lasersailing
senior tag
válasz Lasersailing #47439 üzenetére
Úgy tűnik az alábbi segített:
Sheets(TKE).Cells(tke_sm, 1) = DateValue(Sheets(bemenet).Cells(input_sm, 9))
-
Eagl3
veterán
Sziasztok!
Kis segítséget szeretnék kérni.
Egy cellából leválasztó menüt csináltam (500 mm, 400 mm, 300 mm ...)
Azt szeretném ha a mellette levő cellát kitöltse az alapján, hogy mi van kiválasztva a fülön.Pl.:
Ha 500 mm van a cellában, akkor a mellette lévő cellába írja be, hogy 560H5000B
Ha 400 mm van a cellában, akkor a mellette levő cella 560H4000BRemélem érthető, hogy mit szeretnék, hozzáértőknek ez gondolom marha egyszerű feladat.
-
rvn_10
senior tag
Sziasztok!
Van egy F keres függvényem.
Egy adat sorból dolgozik aminek értéke ürestől a 2000-3000 ig változhat. Egy másik fülre vinném át az adatokat de minden második oszlopban ahol az eredeti adatsor üres a HIÁNYZIK hiba jön fel. érdekes módon minden elősnél az üres mezönél pedig 0 át hoz. Ez lenne a cél, hogy ahol üres a mező itt nullát adjon vissza. Ha szám szerepel a páros oszlopokban ott jó értéket ad vissza mint a képen is látszik.
Más: Hogyan tudok egy képlet után tetszőleges szöveget írni? Pl: (=SZUM(D8:X8)"rendeben"
Köszönöm.
Gigabyte B760M Gaming X, I5 13400, 2x16 DDR4 Corsair Vengeance 3600Mhz, NZTX Kraken X61, Sapphire Pulse RX 5600XT, EVGA Supernova G2 750W, Samsung 850 Evo 128Gb, WD Blue 1TB, Phanteks Enthoo Pro M Acrylic
Új hozzászólás Aktív témák
- Autós topik látogatók beszélgetős, offolós topikja
- Skull and Bones - Egy hétig ingyen játszhatunk vele
- Nem indul és mi a baja a gépemnek topik
- A fociról könnyedén, egy baráti társaságban
- Computex 2024: Itt az új ROG Ally
- Proxmox VE
- Bivalyerős lett a Poco F6 és F6 Pro
- Autós topik
- PlayerUnknown’s Battlegrounds
- Kerékpárosok, bringások ide!
- További aktív témák...
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Steam kulcsok - UTALÁS/REVOLUT
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen