- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Vodafone-ra áttért Digi Mobilosok
- Huawei Mate 10 Pro - mestersége az intelligencia
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Samsung Galaxy A54 - türelemjáték
- Redmi Note 13 Pro+ - a fejlődés íve
- Samsung Galaxy S21 FE 5G - utóirat
- Készülőben a Xiaomi 2021-es csúcsmodelljeinek HyperOS frissítése
- Milyen okostelefont vegyek?
- Yettel topik
Hirdetés
-
Az USA vizsgálja a RISC-V kínai terjedésének kockázatát
ph A Kereskedelmi Minisztérium egyelőre csak felméri a helyzetet, egyelőre nem látni, hogy tudnak-e bármit is tenni.
-
Toyota Corolla Touring Sport 2.0 teszt és az autóipar
lo Némi autóipari kitekintés után egy középkategóriás autót mutatok be, ami az észszerűség műhelyében készül.
-
Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
it Egyre nagyobb probléma az AI hallucinálása – most az osztrák adatvédelmi hatóság veheti elő a ChatGPT miatt az OpenAI-t, alapvetően a GDPR megsértése miatt.
-
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
-
-
félisten
Próbálhatod, de, nem lesz OK...
Osztott (shared) munkafüzettel megoldható, de ha a Delila_1 által adott megoldás is problémás számodra, akkor neki sem fogok kezdeni ennek... Bocsi...[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
psg5
veterán
válasz Fire/SOUL/CD #49404 üzenetére
Vagyis akik hasznaljak azok hasznaljak a legujabb excelt es akkor megokdva?
F.K.T.
-
psg5
veterán
válasz Fire/SOUL/CD #49404 üzenetére
Osztott munkafuzetes megoldást használtunk de ott fulek helyett munkafuzetekbol hivja be az adatokat es mi egy munkafuzettel szerettuk volna megoldani. Már ha ilyenre gondoltal. S nem haragszom nem tagadom magas egy két dolog.
F.K.T.
-
psg5
veterán
Bocsánat! Probaltam mindig tomiren egyszeruen leirni.
Tényleg koszonom mert ha a legujabb officet hasznalja mindenki akkor teljesen jol mukodik a fülek rejtese jelszoval.
Sajnos tobb regebbi excel is használatban van igy siman egy mappábavtesszuk a különböző munkafuzeteket (amelyek eddig fulek voltak) es egy = fuggvennyel mjndegyikbol behuvjuk az adatot egy torzs munkafuzetbe. Igag azt nem talaltuk hogy milyen modon lehet megoldani hogy ne kelljen minden cellába végig = fuggvenyt kézzel irigatni mert ilyenkor nem engedi sima huzassal ervenyesiteni a következő cellára.F.K.T.
-
Met
nagyúr
Az megoldható hogy ha beírok egy cellába egy számot, akkor a mellette lévő cellába automatikusan beírja az aznapi dátumot?
MS drive-os excel vagy gmail-es táblázat.
Telefonon nehézkes a dátum irkálás, azt mindig pc-n szoktam utólag beírni."If in doubt, flat out!" Colin McRae
-
ficere
aktív tag
Sziasztok!
Olyan problémám lenne, hogy kellene egy excel táblázat fuvarozással kapcsolatban amely tartalmazná a gépjármű fogyasztását,megadott bázis árat/illetve ezt 30 ft-os lépcsőként tételezve Ft/km lenne a végeredmény.
A segítségeteket előre is köszönöm.Machete nem ír sms-t
-
-
Delila_1
Topikgazda
A Worksheet_Change esemény a lapra írt adat hatására indul, amint a neve is mutatja.
Ebben a makróban az elején egy feltételben megadom, hogy akkor tegyen valamit, ha az adatbevitel az 1. oszlopban történik.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
A feladattól függ, mit akarsz elérni több cella együttes kitöltésével.
Ha csak egyet akarsz módosítani, és csak véletlen a több cellába történő bevitel, a feltételben ennek az ellenőrzését is megadhatod.If Target.Count > 1 Then MsgBox "hiba"
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
sztanozs
veterán
Ha garantált a felhasználónevek egyedisége, akkor lehet azzal is játszani. Látrehozol mindenkinek egy sheet-et, ahol a sheet neve a felhasználónév, és beállítod az alábbi makrót a ThisWorkbook alá:
Private Sub Workbook_Open()
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim WSHnet As Object, ws As Worksheet, UserID As String
Set WSHnet = CreateObject("WScript.Network")
UserID = WSHnet.UserName
Set WSHnet = Nothing
For Each ws In Worksheets
If ws.Name = "Unauthorized" Then
ws.Visible = xlSheetVisible
ElseIf ws.Name = UserName Then
ws.Visible = xlSheetVisible
Worksheets("Unauthorized").Visible = xlSheetVeryHidden
Else
ws.Visible = xlSheetVeryHidden
End If
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Workbook_Open
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
For Each ws In Worksheets
If ws.Name = "Unauthorized" Then
ws.Visible = xlSheetVisible
Else
ws.Visible = xlSheetVeryHidden
End If
Next
End Sub[ Szerkesztve ]
JOGI 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...
-
-
huan
őstag
válasz Delila_1 #49421 üzenetére
"A"-oszlopba szeretném a kép-fálj neveket beilleszteni és mellé közvetlenül a "B"-oszlopban megjeleníteni képpel (ugyan úgy méretezve, ahogyan előzőleg írtad). Ezen kívül csak annyit még, hogy bármi hiba esetén ne álljon meg, hanem hagyja figyelmen kívül, maradjon üres a kép cella.
A képek mondjuk itt vannak: D:\képek -
Delila_1
Topikgazda
Private Sub Worksheet_Change(ByVal Target As Range)
Dim FN As Picture, CV As Range, ter As Range
Dim KepHelye As String
If Target.Column = 1 Then
Application.EnableEvents = False
If Target.Count > 1 Then
Set ter = Range(Target.Address)
For Each CV In ter
KepHelye = "D:\kepek\" & CV.Value & ".jpg"
With Cells(CV.Row, 2)
Set FN = ActiveSheet.Pictures.Insert(KepHelye)
.RowHeight = Rows(Target.Row).Height
FN.Top = .Top + 1
FN.Left = Columns(2).Left + 1
FN.Height = Rows(Target.Row).Height - 5
FN.Height = .Height
FN.Placement = xlMoveAndSize
End With
Next
End If
Application.EnableEvents = True
End If
End Sub
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 Delila_1 #49423 üzenetére
Hopsz, kimaradt az az eset, mikor mégis csak 1 kép nevét viszed be egyszerre.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim FN As Picture, CV As Range, ter As Range
Dim KepHelye As String
If Target.Column = 1 Then
Application.EnableEvents = False
If Target.Count > 1 Then
Set ter = Range(Target.Address)
For Each CV In ter
KepHelye = "D:\kepek\" & CV.Value & ".jpg"
With Cells(CV.Row, 2)
Set FN = ActiveSheet.Pictures.Insert(KepHelye)
.RowHeight = Rows(Target.Row).Height
FN.Top = .Top + 1
FN.Left = Columns(2).Left + 1
FN.Height = Rows(Target.Row).Height - 5
FN.Height = .Height
FN.Placement = xlMoveAndSize
End With
Next
Else
KepHelye = "D:\kepek\" & Target.Value & ".jpg"
With Cells(Target.Row, 2)
Set FN = ActiveSheet.Pictures.Insert(KepHelye)
.RowHeight = Rows(Target.Row).Height
FN.Top = .Top + 1
FN.Left = Columns(2).Left + 1
FN.Height = Rows(Target.Row).Height - 5
FN.Height = .Height
FN.Placement = xlMoveAndSize
End With
End If
Application.EnableEvents = True
End If
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.
-
BalanceR
addikt
Nincs véletlenül valakinek egy kész VBA scriptje erre:
Adott egy xlsx adatokkal [adat.xlsx]
Azt szereném, hogy ha egy másik XLSX-ben futtatom a VBA scriptet az alábbi valósuljon meg:
felugrik egy ablak, ahol be tudok tallózni egy cella-range-et, és egy checkboxban ki tudom választani, melyik oszloba pakolja majd az eredményt. OK gomb nyomásra megynitja az [adat.xlsx]-et, végez egy fkerest az előbb kijelölt cellákkal (mint keresendő, a tábla amiben keres pedig a [adat.xlsx]-tábla a1:Z200) és beilleszti a checkboxban kiválasztott oszlopokba, hiperhivatkozásként. bezárja mentés nélkül az [adat.xlsx]-et.
[ Szerkesztve ]
#Raspberry #Orangepi #HassOS #Esp32
-
Agent T
tag
Sziasztok!
Excelben megvalósítható-e, hogy a táblázat szűrésénél, csak egy adott tartományon belül rejtsen el / jelenítsen meg sorokat az excel?
[Kiinduló táblázat] [Táblázat szűrés után]Igazi profi. Úgy csinálja, mintha könnyű lenne....
-
Sziasztok!
Nem teljesen jó helyre írok, mivel amit szeretnék megvalósítani, az inkább a Google Sheetsel lehetne megoldani, de nem találtam más topicot.Egy egyszerű dokumentum nyomonkövető táblát szeretnénk létrehozni, amin látszik, hogy éppen kinél van az adott irat, és arról esetleg e-mailes értesítőt is küld, vagy automatikusan megjeleníti, hogy ki mikor módosította az irat helyét a táblába stb.
Erre van külön kiegészítő Google Sheetsben, vagy hogyan lehetne a legegyszerűbben megoldani?
Ha esetleg ezt meg lehet könnyen oldani Office 2019-el, akkor azt is szívesen hallgatom.
Nagyon szépen köszönöm!
-
MegaNorby
tag
Sziasztok! Szeretnék egy gombot csinálni ami kiváltja az F9 billentyű nyomogatását, megoldható? Hogyan lehet ezt megcsinálni?
Northlight music
-
sztanozs
veterán
válasz MegaNorby #49431 üzenetére
Formulas szekció, Calculate Now - illetve ki tudod tenni a fejlécbe is (jobb gomb a fejlécre, Customize ... > All vagy Formulas Tab és onnan kiválasztod a Calculate now vagy calculate sheet gombot és hozzáadod a Quick access toolbarhoz)
JOGI 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...
-
Delila_1
Topikgazda
-
bozsozso
őstag
Sziasztok,
Az feltételes formázással megoldható, hogy az A1 cellát jelölje meg ha F1 cellában van X. Sorban így van párban A2-F2, A3-F3 stb.
-
Rhair
csendes tag
Sziasztok
Amatőr kérdés
Hogy lehet leggyorsabb módon összeszorozni oszlopban lévő számokat?
páldának 10 cellát kéne összezoroznom, (de sokkal több kéne) és ne egyesével kelljen kijelölgetnem (A1*A2*A3... )
Köszi -
bteebi
veterán
Sziasztok!
Van két event makróm:
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.WindowState = xlMaximized
End Sub
Private Sub Workbook_Close()
Application.DisplayFullScreen = False
End SubAz első azt csinálná, hogy kiteszi teljes képernyőre és teljes képernyős nézetre az Excelt a file megnyitásakor, a második pedig kilépéskor visszaállítaná az eredeti (nem teljes képernyős) nézetet.
De valamiért nem mennek... Ha külön elindítom a makrót, akkor működik, de magától nem. Pedig pont ez lenne a lényege. Makrók futása engedélyezve van. Vajon mi lehet a gond?
Közben kipróbáltam úgy, hogy az adott munkalap helyett a ThisWorkbook lapba másoltam a makrókat. Ekkor már az első működik, de a második, a Workbook_Close nem.
Cancel all my meetings. Someone is wrong on the Internet.
-
bteebi
veterán
Egy kis félreértés van, valamelyest becsapós a megfogalmazás.
Van a "teljes képernyő"-nek nevezett nézet, ami annyit csinál, hogy elrejti a menüket, és csak a cellák látszanak (vagyis nagyobb a látható "hasznos" munkaterület). Ezt csinálja az
Application.DisplayFullScreen
. Ez működik akkor is, ha az Excelt csak egy ablakban futtatod, vagy ha az ablakméretet maximalizálod ("teljes képernyős ablak"). A lényeg pedig annyi lenne, hogy a makrót tartalmazó file, ablakban vagy nem ablakban ("teljes képernyőn") futtatva is teljes képernyős nézetben, vagyis menük nélkül induljon.Azt viszont nem szeretném, hogy a teljes képernyős nézet (=rejtett menük) más file-ok megnyitásakor is megmaradjon, ezért kapcsolnám ezt ki a Workbook_Close makróval. De ez utóbbi sehogy se működik...
Remélem most már érthetőbben fogalmaztam; nem vagyok teljesen biztos benne.
Cancel all my meetings. Someone is wrong on the Internet.
-
bteebi
veterán
Így vagy úgy, de fura. Ha munkalapba van téve a kód, akkor nem működik. (Ezt a részét egyelőre nem értem.) ThisWorkbook-ban viszont igen. Egy dolgon kellett módosítani, mert talán nincs simán olyan, hogy Workbook_Close (tulajdonképp logikus), csak olyan, hogy Workbook_BeforeClose:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.WindowState = xlMaximized
End SubHa csak a
DisplayFullScreen
van a kódban, akkor ugyan újra megjeleníti a ribbont, viszont ablak méretűvé változtatja a file-t, ezért kell bele aWindowState
is. De akármilyen módban is hagyom ekkor (ribbon mutatás/rejtés, vagy épp ablak/teljes képernyő), a következő file-t annak megfelelően nyitja meg ribonnal vagy anélkül, ablakban vagy teljes képernyőn.Cancel all my meetings. Someone is wrong on the Internet.
-
Fferi50
őstag
válasz bteebi #49447 üzenetére
Szia!
"Ha munkalapba van téve a kód, akkor nem működik. (Ezt a részét egyelőre nem értem.) ThisWorkbook-ban viszont igen."
Miután esemény vezérlést szeretnél, az csak annak az objektumnak a moduljában szerepelhet, amelynek van olyan eseménye.
Munkalapnak nincs sem open sem close/beforeclose eseménye. Ilyen esemény csak a munkafüzetnél van.
A VBA nézetben ha kiválasztod a munkafüzet(Thisworkbook) illetve bármelyik munkalap kódlapját, a bal oldalon találsz egy legördülőt, amiben General illetve Workbook/Worksheet választható ki. Ha ez utóbbit választod ki akkor a jobb oldali lenyílóban a füzethez, laphoz tartozó eseményeket láthatod és választhatod ki. Ezekhez írhatsz vezérlő kódokat. General kiválasztásakor a jobb oldalon az adott modulban levő - nem eseményvezérelt - eljárások (Sub, Function) listája látható-
Üdv. -
underdark
aktív tag
Üdv,
Eddigi legördülő listát használtam indirekt függvénnyel, de ezt szeretém leváltani combox-ra, főleg a legördülő lista hossza miatt
Kérdés makró nélkül meg lehet-e csinálni, hogy úgy működjön mint a sima érvényesítési lista?"akinek minden a vállán nyugszik, nem nyugszik senki vállán"
Új hozzászólás Aktív témák
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24