-
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
-
félisten
válasz DopeBob #9249 üzenetére
Osztom perfag válaszát, azzal kiegészítve, ha már makróban kezeled a cellák zárolását(és a lapvédelemhez mondjuk jelszó is van beállítva), akkor arrról nem szabad megfeledkezni, hogy magát a makrót is levédd jelszóval, hisz ha valaki belenézhet, akkor onnan kiszedheti a jelszót és ez esetben adtunk a guanónak egy nagy pofont...
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)
-
DopeBob
addikt
válasz Fire/SOUL/CD #9251 üzenetére
Le van jelszavazva a makró is ofc. De ezt előbb írtam is
Arról van csak szó, hogy elég sok helyen fel vannak használva az itt megadott adatok, és próbálok kizárni annyi hibalehetőséget amennyit csak lehet.
Aztán lehet előjön belőlem a rendszergazda ilyenkor, minél kevesebb joguk van a felhasználóknak, annál jobb nekem
[ Szerkesztve ]
MZ/X
-
félisten
válasz DopeBob #9252 üzenetére
Ha nem magadnak készíted a munkafüzetet, akkor ugyanazon "szabályok" érvényesek a userekre, mint bármilyen más területen, azaz: Minden tiltott, kivétel, ami tényleg kell.
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)
-
Delila_1
Topikgazda
válasz DopeBob #9252 üzenetére
Nincs szükség a folytonos zárolásra, felszabadításra, ha a lap védelmének beállításakor nem engeded meg a zárolt cellák kijelölését, ami alapérték szerint engedélyezve van.
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 DopeBob #9255 üzenetére
A makró elejére beírt
ActiveSheet.Protect UserInterfaceOnly:=True
sor csak a makróból engedélyezi a zárolt cellák módosítását.
Amúgy nincs baj a csiki-csukival sem.
[ 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.
-
-
DopeBob
addikt
Van valami szabványos form mappa választásra? Olyami mint a File Dialog Box, de csak mappát szeretnék választani. Nem igazán találok ilyet
MZ/X
-
perfag
aktív tag
válasz DopeBob #9263 üzenetére
Nézd meg Chip Pearson-nál és John Walkenbach-nál. Esetleg az ozgrid-on.
-
Cuci3
tag
Excel 2003:
Van egy alap makróm, mely nagyon sok csomag esetében összeszed bizonyos adatokat havi szinten (minden csomagnál 60 hónapot). Ha nincs meg a 60 hónap, akkor üres (Empty) értékkel tölti fel. Az Excel sima kimutatásdiagramja ezt szépen megeszi, minden ábra 60 hónapig tart, és amely hónapnál Empty a cella, ott nem lesz érték - vezetők előtt nem ugrál el a diagram hossza, tudnak hasonlítani.Excel 2010 + PowerPivot (továbbiakban PP):
Próba cseresznye ezt az Excelemet a PP-be belöktem, kreáltam 2010 alatt szép 4 diagramos kimutatásdiagramot. Csak sajnos a PP (vagy a 2010) az Empty celláimat megzabálja, nem akarja a vízszintes tengelyt minden esetben 60 hónapig kihúzni.5letek? Lehet valahol állítgatni a PP-ben, hogy az üres cellákat is vegye figyelembe, de 0 értékként?
-
Delila_1
Topikgazda
Mit szólsz ahhoz, hogy dinamikus legyen a diagramod?
MintaA 4 féle megoldás mindegyike az ábrázolandó területek névadásával, az ofszet függvény felhasználásával készült.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Miv
tag
Egy kis segítségre lenne szükségem: hogyan tudom megszámolni VB-ben, hogy egy munkafüzetben hány olyan sor van, amiben szerepel adat?
az intI = Range ("A1:A9999").Rows.Count 9999-et ad vissza.
Köszönöm! -
bugizozi
őstag
Count Rows with Data in a Macro
rowCount = Application.WorksheetFunction.CountA(Range("A1:A9999"))
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
Cuci3
tag
válasz Delila_1 #9267 üzenetére
Köszi, de dinamikus diagram: no way! Egyrészt egy ténylegesen meghatározott időszak kell (első 60 hónap), másrészt felsővezetők használják, akiknek a kezébe nem adnék ilyet (nem "hülyebiztos").
Harmadrészt havonta megvett csomagok adatai vannak, jelenleg 20e sorban. Engedményező, tipus, vétel éve, devizanem szerint kell kiköpnie a diagramnak 4-5 vonalat. Hát igen, BI-ra használjuk az Excelt. De közben meglett: Kimutatás beállításainál be kell pipálni, hogy jelenítse meg az üres értékű sorokat is. -
Delila_1
Topikgazda
A felsővezetők kezébe kerülő diagramok értelmezéséről nekem is van egy kedvenc történetem.
Kollégám készített nekik egy hasábdiagramot a tényleges energia költségekről. A vezér visszadobta azzal, hogy túl magasak az értékek. Igen, de ezek már megtörténtek. A kolléga magasabbra állította az Y tengely maximumát, így a hasábok ehhez képest alacsonyabbak lettek.
Az új diagramot elfogadták...[ 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.
-
M4xi3s
csendes tag
Sziasztok!
Én is a segítségre szorulók táborát gyarapítom. Makróznom kell Excelben.
Problémát kellene megoldanom.1. probléma
Aktív lapon meghatározott tartományban (A1:A9) lévő cellaértékre szeretnék új lapokat gyártani. (Cellaértékek: Adat1, Adat2, stb)2. probléma
Aktív lap nevét egy cellaértékre (B1) kellene módosítani.És egy kérdés. Lehet-e makrót futtatni csoportosan kijelölt lapokon egyszerre?
Mivel annyira ma kezdtem, hogy tegnap, ezért kérem, hogy akinek van megoldása az a Sub..End közötti részt egészben adja meg.
Köszönöm.
-
Delila_1
Topikgazda
A sub és end sub közé:
lapnev = Sheets(1).Name
For lap = 1 To 9
Sheets.Add
Sheets(1).Name = Sheets(lapnev).Cells(lap, 1)
NextHa nem a füzetben lévő első lapon vannak az adatok az új lapok nevéhez, akkor a lapnev=sheets(1).name sorban írd át az (1)-et.
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
Az aktuális lap adatait használja. Ha nem az aktuális lapról akarod a nev(ek)et venni, a
Sheets("Munka2").Name = Cells(1, 1)sor így nézne ki:
Sheets("Munka2").Name = Sheets("Másik lap").Cells(1, 1)Ha az aktív lapot akarod átnevezni,
ActiveSheet.Name = "mmm"[ 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.
-
m.zmrzlina
senior tag
Sziasztok!
Az a kérdésem, hogy van-e Excel97-ben egyszerűbb lehetőség speciális karakterek beszúrására azon kívül hogy a Karaktertáblán (Start>Programok>Kellékek>Rendszereszközök>Karaktertábla) vágólapra teszem majd Ctrl+V ?
-
Delila_1
Topikgazda
válasz m.zmrzlina #9282 üzenetére
Tudni kell hozzá a karakter ASCII kódját. Pl. a 0128 az € karakter kódja, a 128 pedig Ç-é.
Bal Alt billentyűt nyomva tartva a számbillentyűzeten beviszed a a kódot, utána felereszted az Alt-ot.
A gugliban számos találat jön fel az ASCII kereső szóra, karaktertáblákkal.Magad is készíthetsz karaktertáblát, akár Excelben. Egy oszlopba felviszed a számokat, egy másikban a KARAKTER függvénnyel hivatkozol rá. A nullával kezdődő kódokhoz a cellát szöveg formátumúra kell állítani.
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 m.zmrzlina #9284 üzenetére
Arról nem tudok, de egy apró segítség, hogy a karaktertáblából át is húzhatod a kiválasztott karaktert a fogd és vidd módszerrel.
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 m.zmrzlina #9286 üzenetére
Eddig nem néztem bele a karaktertábla súgójába.
Most kiderült, hogy nem kell kivaksizni pl. a felső indexes karaktereket. A speciális nézet csoportosításánál az 'Unicode alosztály' kiválasztása után kapsz egy választási lehetőséget, ahol bejelölheted a 'Felső és alsó indexek' menüpontot, és máris csak a keresett karakterek jelennek meg. A 'Számformák' kiválasztásával a törteket kapod meg, de kérheted a nyilak-, vagy a matematikai műveleti jelek-, valutaszimbólumok megjelenítését is.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 m.zmrzlina #9282 üzenetére
CSAK a lényegre nem figyeltem.
A Beszúrás/Szimbólum menüpont közvetlenül adja a karaktertáblát.
Ki is teheted az ikonját, ha sűrűn használod. A Testreszabás menüben a Parancsok fülön a Beszúrás kategóriát választod, a Parancsok között megtalálod a Szimbólumot, azt felhúzod az Eszköztárra az ikonjaid közé.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
mr.nagy
tag
Sziasztok!
Van egy ilyen makróm:
Set myPic = Sheets("tábla").Pictures.Insert(Sheets("adatok").Range("A8"))
myPic.Left = Sheets("tábla").Range("H12").Left + ((Sheets("tábla").Range("H12").Width - myPic.Width) / 2)
myPic.Top = Sheets("tábla").Range("H12").Top + ((Sheets("tábla").Range("H12").Height - myPic.Height) / 2)
myPic.Name = ("kép")Egy adott cellában található URL alapján egy másik megadott cellába be teszi az ott található képet. Szépen működik is, most azonban ezt úgy kellen módosítani, hogy az URL-en található képet miközben beteszi az adott cellába, módosítsa is a méretét egy adott szélességre és magasságra.
A Google-val próbálkoztam, de nem sok sikerrel! Tudna valaki segíteni?
HMNote10Pro
-
Jóqtya
csendes tag
Sziasztok
Problémánk a következő: egy xls fájlban van több lap, az egyik lapon pl a dolgozók névsora és besorolási bére.
Egy másik lapon a havi jelenlét, amibe a név beírása közben szeretnénk, ha feldobná az excel, hogy ki szerepel olyan névvel.
Tehát a Szabó István beírása közben a sza...-ra már felajánlaná a nevet.
Erre azért lenne szükség, mert ha a név nem helyesen kerül be, akkor besorolási bért már nem veszi át a táblázat.
Van erre valami lehetőség, mert ha képletet írunk, akkor az a név beírásakor törlődik.
köszönöm -
Delila_1
Topikgazda
A lapon, ahol a nevek szerepelnek, jelöld ki az oszlopot, és nevezd el úgy, hogy szerkesztőléc bal oldalán lévő cellába beírod a Dolgozók nevet és leenterezed.
A másik lapon jelöld ki a területet, ahova majd be akarod vinni a neveket. Adatok/Érvényesítés. A Beállítások fülön a Megengedve kategóriában a Listát jelöld be, a Forráshoz írd be: =Dolgozók.
Ezután ennek az oszlopnak bármelyik cellájára állva egy legördülő listából választhatod ki a megfelelő nevet.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
-
mr.nagy
tag
válasz Fire/SOUL/CD #9294 üzenetére
Azt én is tudom, hogy a Height a magasság és a Width a szélesség. De a kódot hogyan kell módosítani ha az akarom, hogy pl. a szélesség 140 pixel, a magasság 200pixel legyen?
HMNote10Pro
-
félisten
válasz mr.nagy #9295 üzenetére
Kérdésedből nem derült ki korábban, hogy pixelben szeretnéd megadni a szélességet...
Nem igazán értem mi a gond, mivel ha megadod, hogy a Width és Height is pl 50, akkor egy 50x50 pixeles méretben illeszti be a képet. Nálad nem?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)
-
mr.nagy
tag
válasz Fire/SOUL/CD #9296 üzenetére
Bocsánat ha nem jól fogalmazok! A kérdés pont az, hogyan adjam meg a képletben?
Próbáltam így, de nem módosított a méreten:
myPic.Left = Sheets("tábla").Range("H12").Left + ((Sheets("tábla").Range("H12").Width - myPic.Width="140px") / 2)
myPic.Top = Sheets("tábla").Range("H12").Top + ((Sheets("tábla").Range("H12").Height - myPic.Height="140px") / 2)
myPic.Name = ("kép")[ Szerkesztve ]
HMNote10Pro
-
félisten
válasz mr.nagy #9297 üzenetére
Itt egy egyszerű kód, ami az A1 "cellába" beilleszt bármilyen képet, 40x40 pixel méretben
Sub Insert_Pic()
Application.ScreenUpdating = False
SelectedPic = Application.GetOpenFilename _
("Képformátumok (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", , "Jelöljön ki egy képet")
If SelectedPic <> False Then
Range("A1").Select
With ActiveSheet
.Pictures.Insert (MyPicture)
.Shapes(.Shapes.Count).Select
End With
With Selection
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Top = ActiveCell.Top
.ShapeRange.Left = ActiveCell.Left
.ShapeRange.Height = 40
.ShapeRange.Width = 40
End With
End If
Application.ScreenUpdating = True
End SubNem láttam a teljes kódod, de feltételezem ez a sor hiányzik belőle (ami a fenti kódban is megtalálható)
.ShapeRange.LockAspectRatio = msoFalseHa ennek az értéke msoTrue, akkor mindegy milyen értéket adsz meg a Width/Height esetén, az eredeti méretben fog bekerülni a kép.
[ 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)
-
m.zmrzlina
senior tag
válasz Delila_1 #9288 üzenetére
A Beszúrás/Szimbólum menüpont közvetlenül adja a karaktertáblát.
A 2007-ben igen, de a 97-ben semmi ilyesmi nincs. Én is ott kerestem először, megnéztem vagy ötször de nem találtam.
Hál' istennek nem kell nagyon gyakran használni és a drag'n drop módszer egy kicsit gördülékenyebb mint a copypaste.
Köszi.
-
mr.nagy
tag
válasz Fire/SOUL/CD #9298 üzenetére
Köszönöm! De valamiért nem akar működni. A hiba üzenet:
Run-time error '1004':
Appliction-defined or object-defined errorHMNote10Pro