-
Fototrend
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
-
balu999
tag
Sziasztok
Kis segítséget kérnék .
Azt szeretném elérni ,hogy ha egy bizonyos cellára kattintok akkor a táblázatban megjelenjen egy kép .
Pl. ha A1 cellára kattintok megjelenik egy kép ami ugyanabban a mappában van mint az az xls file amit megnyitottam.Köszi
-
Delila_1
Topikgazda
válasz balu999 #11354 üzenetére
Szúrd be a képet, tedd a megfelelő helyre, állítsd be az ideális méretet.
A laphoz kell rendelned az alábbi makrót.
Az A1 cellára duplán klikkelve eltűnik, újabb duplaklikkre láthatóvá válik a kép.Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
If ActiveSheet.Shapes("Picture 1").Visible = True Then
ActiveSheet.Shapes("Picture 1").Visible = False
Else
ActiveSheet.Shapes("Picture 1").Visible = True
End If
End If
End SubErre gondoltál?
[ 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.
-
Delila_1
Topikgazda
válasz balu999 #11356 üzenetére
Több kép esetén beszúrod a több képet, beállítod a méretüket, elhelyezed.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address
Case "$A$1"
If ActiveSheet.Shapes("Picture 1").Visible = True Then
ActiveSheet.Shapes("Picture 1").Visible = False
Else
ActiveSheet.Shapes("Picture 1").Visible = True
End If
Case "$A$2"
If ActiveSheet.Shapes("Picture 2").Visible = True Then
ActiveSheet.Shapes("Picture 2").Visible = False
Else
ActiveSheet.Shapes("Picture 2").Visible = True
End If
Case "$A$3"
If ActiveSheet.Shapes("Picture 3").Visible = True Then
ActiveSheet.Shapes("Picture 3").Visible = False
Else
ActiveSheet.Shapes("Picture 3").Visible = True
End If
End Select
End SubA Case kezdetű sorokban azt adod meg, hogy melyik cellára akarsz duplán kattintani, az alatta lévő sorokban pedig azt, melyik kép jelenjen meg - tűnjön el a duplaklikkre.
A sort folytathatod az End Select sorig.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 balu999 #11359 üzenetére
Lehetne jobb klikk, de az agyonvágná a gyorsmenüket.
Meg lehet még csinálni, hogy beviszel egy érvényesítést, és abból választod ki, amihez képet szeretnél megjeleníteni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
ArchElf
addikt
Az excel file miért nő óriásira, ha telepakolom diagramokkal?
Azt hittem csak a meta-adatokat tárolja a diagram legenerálásához...1 workbook
- 4 pivot (két ~20.000 soros forrásból):
~ 22 MB
beletesztek még 8 diagrammot (aminek az alapja a négy pivot közül az egyikből a forrásadatok)
~ 50 MB
Office 2007/2010AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
perfag
aktív tag
válasz ArchElf #11362 üzenetére
Csak tapogatózom.
Makró van benne? Amikor összeáll egy munkafüzet a fejlesztés végén én az összes munkalapot átmásolom egy új, üres munkafüzetbe + a makró lapokat. A félbemaradt futtatások, próbálgatások valahol az Excel fájl rejtett bugyraiban otthagynak egy rakás adatot, vagy csak nagyra fújnak valami tárhelyet, szóval ez jelentős méretcsökkenést hoz.Közben találtam: ha a fájlt többen használják [itt].
[ Szerkesztve ]
-
m.zmrzlina
senior tag
Első körben próbáld a következő makrót a kérdéses munkalaphoz rendelni:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cella As Range
For Each cella In Range("B3:C18").Cells
If Not cella.Address = Target.Address And Target.Value <> "" Then
If cella.Value = Target.Value Then
MsgBox Target.Value & " erre az időpontra nem osztható be!"
Target.Value = ""
Exit Sub
End If
End If
Next
End Sub -
m.zmrzlina
senior tag
-
m.zmrzlina
senior tag
Javított verzió aminek mindegy, hogy a B3:C18 tartományon kívül mit hová szeretnél beírni:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cella As Range
If Not Application.Intersect(Target, Range("B3:C18")) Is Nothing Then
For Each cella In Range("B3:C18").Cells
If Not cella.Address = Target.Address And Target.Value <> "" Then
If cella.Value = Target.Value Then
MsgBox Target.Value & " erre az időpontra nem osztható be!"
Target.Value = ""
Exit Sub
End If
End If
Next
End If
End Sub -
Pulsar
veterán
Sziasztok!
Szeretnek irni egy olyan markot, ami formaz.
Tehst be vsn egy ossze vissza formazott adat halmazom, amit egy forma vilagra kene hoznom. Eddig nem is olyan nagy gond. A poblemam ott kezdodik, hogy a 600 sorbol van egy csomo, aminel a cellakban a szoveg elott, es / vgy mogott egy vagy tobb space le van utve. Ezeket hogyan tudnam eltavolitani? -
m.zmrzlina
senior tag
válasz Pulsar #11368 üzenetére
Ha makróval szeretnéd megoldani a szóközök eltüntetését akkor próbálkozz ezzel:
Sub trimmel()
Dim cella As Range
For Each cella In Range("A1:D24").Cells 'ide a zárójelbe természetesen a saját tartományodat írod
cella.Value = Application.WorksheetFunction.Trim(cella)
Next
End Sub -
Padam
aktív tag
válasz m.zmrzlina #11366 üzenetére
Szia!
Van rá igény, de lehet a 2-es munkalapon is a dolgozók neve.
Viszont létrehoztam egy makrót és beírtam amit javasoltál, de továbbra is enged két azonost kiválasztani.
Illetve arra van tipped, hogyan lehetne megcsinálni, hogy, ha a következő napoknál is működjön a dolog?
Köszi az eddigi és az elkövetkezendő segítséget is!
-
m.zmrzlina
senior tag
Van rá igény, de lehet a 2-es munkalapon is a dolgozók neve.
Az nem gond, ha másik munkalapon van a név mert az érvényesítésnél úgy láttam nevet adtál a tartománynak és úgy használtad. Használd a #11367-ben lévő változatot az kezeli azt a problémát, hogy csak a B3:C18 tartomány változásainál lép működésbe a makró azon kívül nem ellenőrzi az adatbevitelt.
Viszont létrehoztam egy makrót és beírtam amit javasoltál, de továbbra is enged két azonost kiválasztani.
Szerintem az lehet a gond, hogy nem a munkalaphoz rendelted a makrót. Ne azt csináld, hogy Insert>Module és oda másolod a makrót, hanem jobkatt a munkalapfülön ott Kód megjelenítése opció. Itt van leírva néhány hsz-ban, hogy hogyan kell csinálni. (köszi Delila_1 )
Illetve arra van tipped, hogyan lehetne megcsinálni, hogy, ha a következő napoknál is működjön a dolog?
A következő napok adatai hol vannak elhelyezve?
-
Pulsar
veterán
válasz m.zmrzlina #11371 üzenetére
m.zmrzlina, perfag.
Elosszor is koszonom a valaszotokat.Vegul is nem titok. A police.hu-n fent leveo trafi adatokat akarom exelbe rakni. Ott egy html alapu tablazatba van rakva. Direkt, vagy sem szinte alig van ugyan az ketszer leirva, ha tobb havi eredmenyt nezunk. Vagy az eleen vagy a vegen van tobb szokoz, illetve egy egy betu el van utve.
Azert akarnam makroba, mert tobb muveletet szeretnek egymas utan elvegezni. Tehat csak bemasolom az adatokat, es kapok eredmenykent egy rendes adathalmazt. Jelen formajaban feldolgozhatatlan, ha mondjuk statisztikat szeretnek belolecsinalni. -
Pulsar
veterán
válasz m.zmrzlina #11375 üzenetére
bocs, parancsolj itt van egy példának:
[link]és amit szeretnék belőle:
sallang nem kell, üres sorok sem a dátum egységesen éééé.hh.nn. ha lehet text cella típusba
és a szóközöl eltávolítása.
lehetséges ez?[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz Pulsar #11378 üzenetére
Lehet, hogy engem kiemelt ügyfélként kezel a rendőrség (eleget kerestek már rajtam ) de ha én lementem Excelbe a linken lévő oldalt (nem szövegként beillesztve hanem html-ként) akkor egy fia felesleges szóközt nem találok benne.
Na jó, a táblázaton kívül van egy pár link meg kép egyhalomban de az egyszerűen törölhető. És a dátum sem ugyanúgy van megadva minden kapitányságnál de ennyi.
-
Delila_1
Topikgazda
válasz Pulsar #11378 üzenetére
Mented a fájlt htm formátumban. Behívod az Excelbe, és lefuttatod az alábbi makrót, amit egy másik füzetben tárolsz.
Sub Rend()
Dim usor As Long, sor As Long
Application.ScreenUpdating = False
'Oszlopok törlése
Range("A:A,E:F").Delete Shift:=xlToLeft
'Objektumok törlése
ActiveSheet.DrawingObjects.Delete
'Felső sorok törlése
usor = Range("A1").End(xlDown).Row - 1
Rows("1:" & usor).Delete Shift:=xlUp
'Összevonások megszüntetése
Columns("A:C").UnMerge
'Dátum formátum
usor = Range("A65536").End(xlUp).Row
Range("A1:A" & usor).Select
Selection.NumberFormat = "mmmm dd/"
'Üres cellák kitöltése az A oszlopban képlettel
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
'Érték beillesztése a képletek helyére
Columns("A:A").Select
With Selection
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
'Üres sorok törlése
For sor = usor To 3 Step -1
If Cells(sor, 2) = "" Then Rows(sor).Delete Shift:=xlUp
Next
Range("A1").Select
Application.ScreenUpdating = True
End SubMivel a kapitányságok nem egyformán viszik be a dátumot, az A oszlopban lesz némi változatosság.
[ 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.
-
-
Delila_1
Topikgazda
válasz Pulsar #11378 üzenetére
Kijavítottam a hibát. A htm formátumban mentett, és Excelben megnyitott fájlon futtatsd a makrót.
Sub Rend()
Dim usor%, sor%
Application.ScreenUpdating = False
Range("A:A,E:F").Delete Shift:=xlToLeft 'Oszlopok törlése
ActiveSheet.DrawingObjects.Delete 'Objektumok törlése
usor% = Range("A1").End(xlDown).Row - 1 'Felső sor%ok törlése
Rows("1:" & usor%).Delete Shift:=xlUp
Columns("A:C").UnMerge 'Összevonások megszüntetése
usor% = Range("A65536").End(xlUp).Row 'Dátum formátum
Range("A1:A" & usor%).Select
Selection.NumberFormat = "mmmm dd/"
Selection.SpecialCells(xlCellTypeBlanks).Select 'Üres cellák kitöltése az A oszlopban képlettel
Selection.FormulaR1C1 = "=R[-1]C"
Columns("A:A").Select 'Érték beillesztése a képletek helyére
With Selection
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Range("D1:D" & usor%).FormulaR1C1 = "=SEARCH(""Rendőr"",RC[-3])" 'Képlet a D oszlopba
For sor% = usor% To 3 Step -1 'Üres sorok törlése
If Cells(sor%, 2) = "" And IsError(Cells(sor%, 4)) Then Rows(sor%).Delete Shift:=xlUp
If IsNumeric(Cells(sor%, 4)) Then Range(Cells(sor%, 1), Cells(sor%, 3)).HorizontalAlignment = xlCenterAcrossSelection
Next
Columns(4).Delete Shift:=xlToLeft 'D segédoszlop törlése
Range("A1").Select
Application.ScreenUpdating = True
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.
-
Messss
csendes tag
ÜDV!
Egy (lehet, hogy bugyuta) kérdésem lenne...
Egy access adatbázis lekérdezéseit szeretném egy excel munkafüzet munkalapjaira áthozni külső adatként.
Azonban az access adatbázisnak csak az egyik lekérdezését tudom áthozni, a többit nem látja az excel.Kérlek segítsetek!
Köszi!
-
scr
csendes tag
Sziasztok!
van ötletetek, hogy mitől lehet ez a hiba? ugyanezt eljátszotta az előző gépemen is egyszer, aztán hiphopp magától megjavult. általános formátumban van minden oszlop, nincsenek fölös spacek, tuti hogy benne van az oszlopban a keresett érték. annál az egy cellánál kiírt eredményt sem értem, hogy honnan szedi, az az alatta lévő oszlop.. esetleg az indexmatch magyar nevét megsúghatnátok
köszi előre is -
Padam
aktív tag
válasz m.zmrzlina #11373 üzenetére
Szia!
Szuper, így már működik, köszönöm szépen!
A napok egymás után lesznek, tehát most van a B,C, szeptember 6. az D,E, stb..
Előre is köszi ezt is!
-
félisten
-
scr
csendes tag
oooohh b+.. minek fordítják le ezeket a rohadt függvényneveket ? köszi
-
pityeszka
őstag
Sziasztok.
Kis segítséget szeretnék kérni.
Adott egy táblázat benne a hét napjaival.Minden napnál megvan adva, hogy reggel, délben, este mennyi a hőmérséklet.Ki kell számolni a napi átlaghőmérsékletet.Ezt megoldottam a szum-átlag számítással.
Következő lépés: állapítsd meg, hogy hideg van-e vagy meleg annak függvényében, hogy az átlaghőmérséklet kevesebb mint 16°C vagy sem.Ennek függvényében pedig határozd meg, hogy kell-e kabátot venni vagy sem.Előre is köszönöm.
Egy katona mindig parancsokat követ, de egy harcos csak a szívét követi. >>>Steam ID: p1tyeszka<<<
-
félisten
válasz Messss #11383 üzenetére
1. biztos, hogy több lekérdezés van az access adatbázisban?
2. Azonos verziójú az Excel és az access? (pl ha 2007-es access-al készült az adatbázis, akkor 2003-as excel esetén lehetnek(és vannak) problémák ez esetben)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)
-
félisten
válasz pityeszka #11389 üzenetére
Példa kedvéért A oszlopban a napok, B oszlopban reggeli-, C oszlopban déli-, D oszlopban esti hőmérsékletek vannak, akkor E1-be kerülő képlet a következő.
=HA(ÁTLAG(B1:D1)<16;"Vegyél kabátot";"Ne vegyél kabátot")Ha nem ilyen struktúrájú a táblázat, akkor a fenti képletet már tudod alakítani.
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)
-
pitman
őstag
Meg tudnátok mondani, hogyan lehet publikus konstans értékeket deklarálni?
Cellapozíciókat szeretnék eltárolni, melyek a munkalap több szubrutinjában is felhasználásra kerülnek. Szeretném, ha csak egy helyen lennének megadva, így ha módosítás szükséges csak át kell írni, és minden hol a jó értékkel megy majd a feldolgozás.
Próbálom a helpben levő minta alapján csinálni, de nem engedi, hibaüzenetet ad. -
pityeszka
őstag
válasz Fire/SOUL/CD #11391 üzenetére
Pont ellenkezőleg van a táblázat vízszintesen a napok, függ. pedig regg, dél, este, átl, hideg/meleg, kabát.Még mindig ott vagyok elakadva, hogy hideg van-e vagy meleg.
Egy katona mindig parancsokat követ, de egy harcos csak a szívét követi. >>>Steam ID: p1tyeszka<<<
-
Messss
csendes tag
válasz Fire/SOUL/CD #11390 üzenetére
Biztos, hogy több lekérdezés van az access-ben és azonos verziószámú az excellel.
Kipróbáltam, hogy az egyik lekérdezésből táblát készítettem és azt is sikerült áthoznom excelbe. Viszont lekérdezést nem..... -
félisten
válasz pityeszka #11394 üzenetére
Egy képet, dobjál, hogy lássam mi a szitu, és akkor megadom a megfejtést...
(Bár abból a képletből (HA() függvény) illene rávezetődni a megoldásra)Messss
Megsasolom, bár Nekem Office 2010 x64-em van... Az egyik gyári táblát legenerálom, abban van egy rakás lekérdezés, aztán megnézem...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)
-
pitman
őstag
válasz Fire/SOUL/CD #11393 üzenetére
Köszönöm, kipróbálom.
-
radam
csendes tag
Sziasztok!
Azt megtudom oldani képlettel, hogy ha az egyik cellának az értékét változtatom, akkor ahhoz hozzárendelje a változtatás napját? (Pl.: ma beállítom az értékét, akkor a szomszédos cellába rögzüljön a mai nap, viszont holnap másik értéket állítok be neki, ekkor a szomszédos cella dátuma is változzon a módosítás napjának megfelelően?
Köszönöm.
-
m.zmrzlina
senior tag
Nem mondom, hogy minden tekintetben végleges megoldás de első körben úgy tűnik működik.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cella As Range
Dim datumoszlop As Integer
Dim maradekos As Integer
maradekos = (Target.Column Mod 2)
Select Case maradekos
Case Is <> 0
datumoszlop = Target.Column - 1
Case Is = 0
datumoszlop = Target.Column
End Select
If Not Application.Intersect(Target, Range(Cells(3, datumoszlop), Cells(18, datumoszlop + 1))) Is Nothing Then
For Each cella In Range(Cells(3, datumoszlop), Cells(18, datumoszlop + 1)).Cells
If Not cella.Address = Target.Address And Target.Value <> "" Then
If cella.Value = Target.Value Then
MsgBox Target.Value & " erre az időpontra nem osztható be!"
Target.Value = ""
Exit Sub
End If
End If
Next
End If
End SubÉn a te munkafüzeted B:C oszlopát érvényesítéssel együtt lemásoltam rendre D:E, F:G ...stb-be a dolgozók tartományt pedig áthelyeztem. Teszteld, ha gond van jelezd!
Új hozzászólás Aktív témák
- Szerkesztett és makrofotók mobillal
- A fociról könnyedén, egy baráti társaságban
- MILC felhasználók szakmai topikja
- Eredeti játékok OFF topik
- Szeged és környéke adok-veszek-beszélgetek
- E-roller topik
- Konzolokról KULTURÁLT módon
- Kerékpárosok, bringások ide!
- Motorola Edge 40 neo - színre és formára
- Óvodások homokozója
- További aktív témák...
- Office Professional Plus 2013, 2016, 2019, 2021 RETAIL licenckulcsok - MEGA Akció!
- Battlenet tartalmak
- BIG BOX MechWarrior 2 - Pentium Edition (EN)
- Windows 7 Home Premium, Pro, Ultimate és Windows 8, 8.1 Pro licenckulcsok 64, 32 bit - MEGA Akció!
- GameStar / Gamer Magazin / PC Guru stb papírtokos játékmellékletek 350Ft/db
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest