Új hozzászólás Aktív témák
-
Delila_1
veterán
-
Delila_1
veterán
válasz
daninet
#3092
üzenetére
Excelben 1 sorban megjeleníted a legördülőket, például érvényesítés formában. Fölötte legyen címsor.
Wordben megírod a szöveget úgy, hogy a változó kifejezések helyére Word mezőt állítasz be. Körlevélként mented, ahova mindig az Excelben aktuálisan kiválasztott adatokat töltöd be.
Az Excelben egy HA függvénnyel beírathatod a választást (A vagy B) is.
-
Delila_1
veterán
Az x-eket a darabteli függvénnyel meg tudnád számoltatni, de a kék színhez már makró kell.
Ha már úgyis szükséges a makró, belevettem az x-ek megszámlálását is.
Sub Valami()
Dim sor As Integer, kek As Integer, x As Integer, oszlop As Integer
For sor = 3 To 7
kek = 0: x = 0
For oszlop = 3 To 11
If Cells(sor, oszlop) = "x" Then x = x + 1
If Cells(sor, oszlop).Interior.ColorIndex = 33 Then kek = kek + 1
Next
Cells(sor, "L") = x
If kek = 0 Then Cells(sor, "M") = "HIBA" Else Cells(sor, "M") = "RENDBEN"
Next
End SubEz a makró a mostani területre érvényes. A sorokat 3-tól 7-ig figyeli, az oszlopokat pedig 3-tól (C) 11-ig (K).
Az x-ek számát soronként az L oszlopba írja, a kékekre vonatkozó megállapítást az M-be. -
Delila_1
veterán
Alapállásban minden cella zárolt.
Jelöld ki a cellákat, ahova engeded a beírást. A Cellaformázás Védelem fülén vedd ki a pipát a Zárolt négyzetből. Ezután védd le a lapot (lapfülön jobb klikk, lapvédelem). A Minden felhasználónak engedélyezve felsorolásnál vedd ki a pipát a Zárolt cellák kijelölése elől. Adhatsz jelszót a lapvédelemhez, de nem kötelező.
Csak a lapvédelem beállítása után lép érvénybe a zárolt cellák kijelölésének, felülírásának a tiltása.
-
#2601
Delila_1
veterán
zsoltzsolt
#2600
Delila_1
veterán
válasz
zsoltzsolt
#2600
üzenetére
Az A1 cella értékének 86%-át kerekíti 5 Ft-os pontossággal a lenti képlet.
=MROUND(A1*86%;5) -
Delila_1
veterán
válasz
Károly 99
#2592
üzenetére
Az első oszlopban vannak a nevek (városok, közterületek, vagy bármi). A B1-be írod a véletlenszám generálást, =VÉL().
Az F1 képlete:
=INDEX($A$1:$B$20;HOL.VAN(NAGY($B$1:$B$20;E1);$B$1:$B$20;0);1)ahol a NAGY($B$1:$B$20;E1) megkeresi a B oszlop E1-edik (első) legnagyobb számának a sorát.
Az INDEX függvény első paramétere a teljes tartomány, ahol keresel. Második ebben a tartományban az a sor, amiből az értéked veszed. Ezt adja a HOL.VAN függvény, ami most a NAGY(...) értéket keresi. Végül az utolsó paraméter az oszlop, ami azt adja meg, hogy a tartomány hányadik oszlopának az értékét adja vissza a képlet.Bármit módosítasz a füzetedben, a véletlenszámok újra generálódnak. Ezt leállíthatod, ha az Excel beállításainál a Képletek menüben a Számítási beállításokat átállítod automatikusról Csak kérésre. Ekkor az F9-re végzi el a számításokat.
-
Delila_1
veterán
Eltévesztetted. Előbb a magasabb, majd az alacsonyabb verziójút kell telepíteni, másképp az újabb itt-ott felülírja a régit.
Nálam is 3 verzió van, nem ütköznek. A közösen használt personal.xls-t a 2003 megszokott könyvtárába tettem, xls kiterjesztéssel, így semmi gond nincs vele.
Ha intézőből, vagy commanderből indítok egy fájlt, akkor a legmagasabb verziót hívja be. Többnyire az éppen szükséges Excelt indítom, utána már indíthatom intézőből is a fájlt, elfogadja az általam kiválasztott verziót. -
#998
Delila_1
veterán
World-Soft
#997
Delila_1
veterán
válasz
World-Soft
#997
üzenetére
Ha nem kapsz használható választ, nézz el ide. Kovalcsik Géza fóruma, nem rég nyitotta.
-
Delila_1
veterán
A ThisWorkbook laphoz rendeld a makrót. A fájl bezárásakor menti az eredeti, valamint az utvonalBackup változóban megadott mappába.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim FN As String, utvonalBackup As String
Application.DisplayAlerts = False
FN = ActiveWorkbook.Name
utvonalBackup = "C:\Temp\" 'a saját útvonaladat írd be ehelyett
ActiveWorkbook.Save
ActiveWorkbook.SaveAs utvonalBackup & FN
Application.DisplayAlerts = True
End Sub -
Delila_1
veterán
Régi kérdésedre, hátha nem írtad még át "gyalogosan":
Az első lapon a cellába, ahol a hónapot akarod kiíratni, írj be 1.1-et. Ez átvált 01.jan-ra.
Jelöld ki az összes lapot együttesen, és a cellaformátumot az egyéni kategóriában írd át hhhh-ra. Lépj vissza az első lapra, látod, hogy most január látszik az adott cellában.
Vegyük, hogy a hónapnevek az A1-ben vannak a lapjaidon. Most a 2. laptól jelölöd ki az utolsóig a lapokat. Az A1-be beírod =EOMONTH(Munka1!A1;1), Enter. Persze a Munka1 helyett az első lap valóságos nevét írd be. Az összes kijelölt lapodon megjelenik a képlet.
Most egyenként a lapokon a lapnév helyére mindenhova írd be az előző lap nevét.
Ezt egyszer kell lejátszani, utána az elsőben megadod a kezdő dátumot, a többi lapon rendre a következő hónap neve lesz látható.
-
#592
Delila_1
veterán
antikomcsi
#591
Delila_1
veterán
válasz
antikomcsi
#591
üzenetére
Nem vagyok biztos benne, hogy jól értem a feladatot.
Nyitottam egy új lapot Adatok névvel, ahova felírhatóak az F8:F21 tartományba beírt adatok a kiválasztott dátummal együtt.
Úgy állítottam össze, hogy a dátum kiválasztása után a makró megnézi, hogy arra a dátumra van-e már rögzítve adatsor. Ha igen, akkor megjeleníti az F8:F21-ben, egyébként pedig kiüríti ezt a tartományt.
Kitettem egy gombot, ami a beírt adatokat rögzíti az Adatok lap egy új sorába.
Ha behívtad egy régebbi dátum adatait, módosítasz bennük, az Archiválás gombbal az Adatok lapon az új értékek jelennek meg.
Új hozzászólás Aktív témák
Microsoft Office szaktopicok:
● Microsoft Word topic
● Microsoft Excel topic
● Microsoft Powerpoint topic
● Microsoft Access topic
● Microsoft Outlook topic
● Microsoft Outlook Express topic
Archívumok:
● Microsoft Office 2010
● Microsoft Office 2007
● Microsoft Office 2003
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- 18. helyet ért a Samsung Galaxy S26 Ultra kamerarendszere a DxOMarknál
- Annyira drága a DRAM, hogy bukta a legjobb konfigurációját a Mac Studio
- OLED monitor topic
- MWC 2026: Kezünkben a Vivo V70, megvan a magyar ára is
- iPhone topik
- Genshin Impact (PC, PS4, Android, iOS)
- A fociról könnyedén, egy baráti társaságban
- Xbox tulajok OFF topicja
- Kerti grill és bográcsozó házilag (BBQ, tervek, ötletek, receptek)
- További aktív témák...
- The Elder Scrolls Online Imperial Collector s Edition
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Microsoft és egyéb dobozos retro szoftverek
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- GYÖNYÖRŰ iPhone 14 Pro Max 256GB Deep Purple - 1 ÉV GARANCIA -Kártyafüggetlen, MS4279
- TP-LINK RE705X AX3000 WiFi 6 Extender
- 263 - Lenovo ThinkBook 16p (G6 IAX) - Intel Core U9 275HX, RTX 5060
- Thermalright Aqua Elite 360 V3
- LG 45GX950A-B - 45" Ívelt OLED evo / 5K WUHD / 165Hz-330Hz / NVIDIA G-Sync / FreeSync / DP 2.1
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest