-
GAMEPOD.hu
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
-
thomas50.000
csendes tag
Sziasztok!
Van egy ilyen makróm!
ActiveSheet.DrawingObjects.Delete
Dim Kepneve As String, utvonal As String, sor As Longutvonal = "d:\valaki\valami\" '***
For sor = 2 To 65
Kepneve = Cells(sor, "A") & ".png" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Top = Rows(sor).Top
.Height = Rows(sor).Height
.Left = Columns(1).Left + Columns(1).Width - .Width
End With
Next
End SubMinden jól is működik a képek magassága megegyezik a sor magasságával, viszont a szélességük eltér.
Én 0,8 cm-re szeretném az összesnek a szélességét.Erre valaki tudna megoldást?
Előre is köszönöm!
-
s7evcsenko
addikt
Lenne egy ilyen kis táblázatom...
Ahogy látszik a 7-esnél zöld a két cella.
Azt szeretném elérni egyszerűen, hogy mindenhol, ahol van "x", az zöldüljön be ugyan így.
Úgy meg tudom csinálni, hogy 120x beírom a szabályt, de ezt szeretném megúszni.Ha meg kijelölöm az egész oszlopot, akkor meg csak az első sort figyeli, és vagy mind zöld lesz, vagy egyik sem, attól függően, hogy van-e ott x vagy nincs.
Van erre egyszerű megoldás?
"Az őszinteség a bátrak erénye, és mint ilyen, kevesek kiváltsága."
-
lappy
őstag
válasz s7evcsenko #32903 üzenetére
Feltételes formázás használatával megoldható
Bámulatos hol tart már a tudomány!
-
lappy
őstag
-
s7evcsenko
addikt
Nekem pont, hogy a mellette lévő cella lenne a lényeg, hogy zöld legyen, vagy mindkettő.
Nem az x-en van a hangsúly, hanem a számokon.
Gyűjtöm a sorszámozott kártyákat, és szeretném egyértelműen látni, hogy melyik van meg melyik nincs.Mondjuk ha úgy nem lehet, akkor ez is jó lesz így, csak erősebben kell figyelnem, hogy melyik mellett van a zöld
"Az őszinteség a bátrak erénye, és mint ilyen, kevesek kiváltsága."
-
Delila_1
Topikgazda
válasz thomas50.000 #32902 üzenetére
Az End With sor fölé vidd be:
.Width = 22.67717
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 s7evcsenko #32905 üzenetére
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
válasz s7evcsenko #32910 üzenetére
Ez azt csinálja hogy soronként megnézi hogy a B cellákban van e "xX. Ha van akkor abban a sorban az A cellákat színezi.
Nincs olyan link ami ezt elmagyarázza max a feltételes formázás használatát.Bámulatos hol tart már a tudomány!
-
Delila_1
Topikgazda
válasz s7evcsenko #32910 üzenetére
A képletben a $ jellel rögzítettem a B oszlopot. Ez azt jelenti, hogy minden sorban a B oszlop értékét veszi feltételként alapul, mégpedig az érvényességi területként meghatározott (A:B) oszlopokban.
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 thomas50.000 #32913 üzenetére
Nincs mit.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
HREH
senior tag
Olyat hogyan lehet csinálni, hogy ha egy cellába beírok egy adott szót, akkor az alatta lévő cellákba automatikusan írjon be előre megadott szavakat?
Gondolok itt arra, hogy az A1 cellába beírom például, hogy virágok, erre az A2 cellába írja be, hogy "rózsa", A3-ba hogy "ibolya" és így tovább.
Hogyan kellene ezt megoldani? Több kulcsszavam lenne, minden kulcsszó alá menne 10-12 szó.Előre is köszönöm!
"Fun isn't something one considers when balancing the universe. But this... does put a smile on my face."
-
Delila_1
Topikgazda
válasz s7evcsenko #32916 üzenetére
Szívesen.
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 Pikkolo^^ #32918 üzenetére
Megnéztem, mindkét lapon emelkedő sorrendben vannak az adatok a feltöltött fájlban.
Ha a saját fájlodra vonatkozik az össze-vissza, akkor 1 kattintással rendezheted.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Jampec82
csendes újonc
Sziasztok,
következő lenne a problémám:
az alábbi képletet szeteném használni:
=INDEX((TruDisk5001!B342;TruDisk3001!B342);D2;E2;F2)
ahol ugye adott a 2 tartomány, és a D2/E2/F2 mezőkben megadott értékekkel szeretném megadni, hogy melyik tartomány melyik sorában, illetve oszlopában keressen.Az a problémám, hogy mivel 2 különböző, a képletet tartalmazó munkafüzettől eltérő munkafüzetre hivatkozok, így nem működik, viszont, ha a képletben csak 1 munkafüzetre hivatkozok, akkor remekül keres.
Próbáltam már elnevezni is a tartományt, de úgy sem megy, csak ha 1et használok az Index-ben.
Hol lehet a probléma?
Előre is köszi!
Jani -
Chosen
addikt
Sziasztok!
Excelben hogy tudom a diagram szövegét a chartra helyezni mint ahogy itt van a képen?
-
tzimash
őstag
válasz Fferi50 #32892 üzenetére
Hali,
Rábeszéltél, maradtam az állapotsornál
A makróban van egy fkeres függvény is, ami egy külső fájlból dolgozik, előfordulhat hogy nem fog ott adatot találni. Ilyenkor teljesen fölösleges tovább futnia a makrónak, mert nem fog jó eredmény születni.
Most úgy néz ki, hogy E2 cellában van az fkeres, majd autokitöltéssel kitölti az E oszlopot (előzőleg megszámoltattam a sorokat) ameddig kell, majd az egész E oszlopra egy Copy-Paste csak értékkel.Ezután kellene átnézni az E oszlopot, hogy van-e benne #HIÁNYZIK érték, ha igen dobjon egy üzit, hogy pl: "az értékek hiányosak" és álljon meg a makró. Ha nincs #HIÁNYZIK akkor fusson tovább jelzés nélkül.
Gondoltam még arra, hogy esetleg manuálisan beírni a hiányzó adatot, de az macerás lehet sok hiányzónál, egyszerűbb a külső fájlt frissíteni. Kb negyedévente fordulhat elő változás a fájlban.
-
Fferi50
őstag
válasz tzimash #32925 üzenetére
Szia!
Többféle út is járható
Dim hiba As Range
Set hiba = Range("E:E").Find(what:="#", LookIn:=xlValues, lookat:=xlPart)
If Not hiba Is Nothing Then MsgBox "Hiányosak az adatok, a program befejeződik!": Exit Sub
vagydim hibas as integer
hibas = Application.CountIf(E:E, CVErr(2042))
if hibas>0 then stb.A kilépést magad is el tudod intézni, csak 1 mintát írtam.
Üdv.
-
STib
újonc
Sziasztok,
Egy olyan ötletünk támadt, hogy excelben valósítjuk meg a kiadott feladatok és az időráfordítás nyomon követését. Ehhez készítettünk is egy alapexcelt a megfelelő oszlopokkal (Feladat, Tevékenység, ...). Az elképzelésünk az, hogy mindenkinek van saját timesheet munkalapja / excel táblája, amelybe a nap végén beírja, hogy milyen feladattal és mennyit foglalkozott. Ez lehet egy sor, vagy éppen több feladat esetén több sor is egy nap.
Ezeken felül, a vezetőnek pedig olyan munkalapja / excel táblája lenne, amelybe az egyes kollégák által beírt sor megjelenik, persze automatikusan. (Ez a munkalap / excel csak nyomon követésre szolgálna, ebbe manuális nem írnánk bele.)
A kérdésem az, hogyan lehet megoldani azt, hogy az a sor, amit az egyes kollégák beírnak a saját timesheetjükbe az automatikusan átmásolódjon a vezető nyomon követő exceljének következő üres sorába.
Alap excelfelhasználó vagyok, makrót még készítettem, de sejtem, hogy ezt abban kellene megoldani, így aki tud segíteni, kérem vegye ezt is figyelembe és amennyiben lehetséges, a kezdeti lépéseket is írja meg.
Mivel az is cél, hogy az egyes munkatársak ne láthassák egymást timesheetjét, ezért billegek az egy közös munkafüzetnél, mert ott csak a szerkesztést tudnám levédeni, a tartalom láthatóságát nem. Ezért most egyszerűbbnek tűnnek az egyéni munkafüzetek, amelyekből egy közös munkafüzetbe másolódnak az adatok.
Előre is köszönöm a segítséget, ha valamiben nem voltam egyértelmű, kérdezzetek kérlek.
-
Delila_1
Topikgazda
Meg lehet oldani egyetlen füzetben is. Az egyes lapok annak függvényében válnak láthatóvá, hogy ki nyitotta meg a füzetet.
Ha gondolod, privátban megbeszélhetjük. A privát nem díjazást jelent.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 tzimash #32929 üzenetére
Dim hiba
On Error Resume Next
hiba = Range("E:E").Find(what:="#", LookIn:=xlValues, lookat:=xlPart).Row
If hiba Then
MsgBox "Az első hibás cella " & Range("E" & hiba).Address
Exit Sub
End If[ 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.
-
Fferi50
őstag
válasz tzimash #32929 üzenetére
Szia!
Én maradnék a saját javaslatomnál:
Dim hiba As Range
Set hiba = Range("E:E").Find(what:="#", LookIn:=xlValues, lookat:=xlPart)
If Not hiba Is Nothing Then MsgBox "Az első hibás adat az " & hiba.Row & ". sorban van" & vbLf & "az A" & hiba.Row & " cella értéke: " & hiba.Offset(0, -4).Value: Exit SubÜdv.
-
tzimash
őstag
(#32930) Delila_1 és (#32932) Fferi50
Köszi mindkettőtöknek! -
lenkei83
tag
Sziasztok!
Visual studiohoz és azon belül VBA + hozzá kapcsolódó adatbázishoz ért valaki?
Üdv.:
P. -
tzimash
őstag
Már megint itt vagyok...
A kiindulási állapot balra, el kellene valahogy jutni a jobb oldali formáig...
Ami gondot okoz:
A C oszlopban tulajdonképpen dátumok vannak növekvő sorrendben, e szerint kellene beszúrnom sorokat (nagyjából) 3-10-30-60 "naponként".Tudtok segíteni?
szerk: a képen elírtam "
21 hónapnál régebbi termékek"[ Szerkesztve ]
-
retesz147
addikt
Sziasztok!
Régebben már kértem Tőletek segítséget, most ismét megtenném.
Van egy elég nagy excel (naponta több sorral bővül, szolgálati naplónak használjuk), amiben az első "tulajdonos" (aki ezt megalkotta) makróval oldott meg pár funkciót, amit sajnos jelszóval levédett és magával vitte távozáskor.
Namost én megörököltem és nem engednek új excelt létrehozni (15-en használják, én tartom karban).Olyan kérdésem lenne, hogy 1000000+ sorig engedi a függőleges csúszka az egér/csúszka lehúzását, viszont ugye onnan tudok még görgetni, de csúszkával már nem tudok tovább menni.
Viszont a táblázat jelenleg 5000+ sorig van kitöltve. A csúszka nagyon pici,így elég kényelmetlen vele mozogni.Ha a táblázat valahogy érzékelné az aktuális utolsó sort és csak addig engedné le a csúszkát, majd onnantól a görgő lépne működésbe, annak nagyon örülnék.
Megoldható ez valahogy?
Köszönöm szépen!
nagyon pongyola a megfogalmazásom, de remélem érthető voltam
[ Szerkesztve ]
Xiaomi 13 eu dev...
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz retesz147 #32939 üzenetére
A csúszkán nem tudsz változtatni, de egy oszlopban állva a Ctrl+le nyíllal azonnal az alsó adatodhoz érsz. Olyan oszlopban tedd ezt, ahol nincsenek üres cellák.
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 tzimash #32942 üzenetére
A feltételes formázással mindig naprakészek a színek.
Lehetne még pontosítani azon, hogy hány napos egy hónap, de nem hiszem, hogy ebben a feladatban sokat nyomna a latban.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Agostino
addikt
sziasztok
adott egy excel file, benne kettő sheet. mind a kettő sheet kapott /kapna egy-egy gombot, ami meghívja ezt a rövid vba-t:
Sub export()
ActiveWorkbook.SaveAs Filename:=oktober, FileFormat:=xlCSV, Local:=True
Application.GetSaveAsFilename
End SubA szintaxis a súgó szerint jó, mégis 400-as hibát dob. Ha a fenti helyett ezt használom:
Sub export()
ActiveWorkbook.SaveAs "C:\...\teszt.csv", FileFormat:=xlCSV, Local:=True
End SubEz lefut, viszont a helyet én adom meg ami nem szerencsés, azt szeretném, hogy a user tenné, illetve ideális lenne ha a háttérben lefutna és nem e mentett file nyílna vissza.
[ Szerkesztve ]
hey friend listen, i know the world is scary right now but its gonna get way worse
-
Agostino
addikt
válasz Agostino #32946 üzenetére
no, csak sikerült egyet működésre bírnom
Sub export()
strFileSaveName = Application.GetSaveAsFilename(Range("X6") & " " & Range("X9") & "01 munkalap feltoltesre" & Range("X10"), _
fileFilter:="Pontosvesszővel tagolt CSV file (*.csv), *.csv")
ActiveWorkbook.SaveAs Filename:=strFileSaveName, FileFormat:=xlCSV, Local:=True
End SubEz tök jó és a jelek szerint a kívánalmak szerint működik is, ami nekem nem tiszta - nem annyira asztalom a makrózás - az a range beállítás fent. ez biztos láma kérdés...
[ Szerkesztve ]
hey friend listen, i know the world is scary right now but its gonna get way worse
-
olloczky
senior tag
Sziasztok
Alap kérdésem lenne: van két oszlopom névvel és azonosítoval. Hogy tudnám úgy a neveket ABC sorrendbe szedni, hogy az azonosító a tulajdonosánál maradjon?
név azonosít
jancsi 10
géza 20
albert 30
.
.
.üdv olloczky
Úgy még sosem volt, hogy valahogy ne lett volna!
-
s7evcsenko
addikt
Új hozzászólás Aktív témák
- Anglia - élmények, tapasztalatok
- Konzolokról KULTURÁLT módon
- BestBuy ruhás topik
- Milyen billentyűzetet vegyek?
- 3D nyomtatás
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Microsoft Excel topic
- Fujifilm X
- További aktív témák...
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eladó Steam kulcsok kedvező áron!
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!