-
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
-
Delila_1
Topikgazda
válasz Nowitzki #31146 üzenetére
Sub Torles()
Dim sor As Long, usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 1 Step -1
If Application.WorksheetFunction.CountIf(Columns(1), Cells(sor, "A")) > 1 Then
Rows(sor).EntireRow.Delete Shift:=xlUp
End If
Next
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.
-
csaba.cs
újonc
Sziasztok!
Egy kis segítséget szeretnék kérni, nem tudom hogy egyáltalán megoldható-e az elképzelésem.
Van 4db cellám, C,D,E és H. A c,d,e cellákba értékek vannak, H cella üres. Az lenne a kérdés, hogy megoldható-e az hogyha a C,D,E cellák közül valamelyiket kitöltöm egy színnel(legyen ez a szín most sárga) akkor a sárgára színezett cella értéke, és a cella színe is bekerüljön a H cellába. Csatoltam egy képet hátha így érthetőbb. És előre is köszönök bármilyen segítséget/ötletet![ Szerkesztve ]
-
Delila_1
Topikgazda
válasz bteebi #31156 üzenetére
Feltettem ide a fájlt.
Az eredeti lapodat átneveztem, az új neve Eredeti. Készítettem róla egy másolatot, a Sheet1-et, ezen dolgoztam.
Tettem a lapra egy feltételes formázást, majd futtattam a makrót. A makró végén az F oszlopba írtam egy ellenőrző képletet. Ha itt minden sorban IGAZ érték van, akkor rendben van a dolog.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Declare
őstag
Sziasztok!
Egy kis macro s segitseget kernek.
Egy excel sheet -et szeretnek macroval PDF formatumba lementeni. Az lenne a cel, hogy a macrot elinditva, az excellel azonos mappába, mentse le maskent a tablazatot PDF formatumba ugy, hogy a neve az az excel fajl neve + egy szocska legyen ("_Laserteileliste")
Tehat:
"29.03.2016 XY Project.xlsm" (fajl nev) es ebböl a macro "29.03.2016 XY Project_Leserteileliste.PDF" et mentene el.
Van egy macro-m, ami majdnem ugy müködik, ahogy nekem kellene:
Sub Laserteile_PDF()
Dim FSO As Object
Dim s(1) As String
Dim sNewFilePath As String
Set FSO = CreateObject("Scripting.FileSystemObject")
s(0) = ThisWorkbook.FullName
If FSO.FileExists(s(0)) Then
'//Change Excel Extension to PDF extension in FilePath
s(1) = FSO.GetExtensionName(s(0))
If s(1) <> "" Then
s(1) = "." & s(1)
sNewFilePath = Replace(s(0), s(1), ".pdf")
'//Export to PDF with new File Path
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sNewFilePath, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
Else
'//Error: file path not found
MsgBox "Error: this workbook may be unsaved. Please save and try again."
End If
Set FSO = Nothing
End SubEz az adott mappaba elmenteni az excel nevvel megeggyezö néven a pdf et. A baj az, hogy nem tudom, hogy lehet a plussz szócskát betenni a nevébe es ez felülirja, mindig a legutobbit.
Tudtok ebben segiteni? Kicsit autodidacta modon tanulgatom is a macro keszitest, a netröl, ilyen alap szinten, kb ertem miröl van szo ebben a macroban, de azert sokminden nem tiszta
-
Nowitzki
csendes tag
válasz Declare #31160 üzenetére
Szia,
Próbáld meg ezt:
Sub ActiveSheetExportToPdf()
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub -
Nowitzki
csendes tag
válasz Declare #31162 üzenetére
Ez hozzáírja a fájlnévhez a mentés dátumát (év, hó, nap, óra, perc).
Sub ActiveSheetExportToPdf1()
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste_" & Format(Now, "yyyymmdd_hhnn") & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End SubEz pedig hozzáad egy növekményes azonosítót a fájlnévhez ha az már létezik.
Sub ActiveSheetExportToPdf2()
cntr = ""
If Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & cntr & ".pdf") = "" Then GoTo xprt
If Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & cntr & ".pdf") <> "" Then
cntr = 1
Do Until Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & cntr & ".pdf") = ""
cntr = cntr + 1
Loop
End If
xprt:
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & cntr & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub[ Szerkesztve ]
-
PowerBuldog
veterán
Sziasztok!
Van-e olyan guru aki tud egy függvényt nekem erre:
Rendelhető két pizza. 45 féle pizza van. 45*45 variáció. Ezeknek a pizzáknak az árát kéne kiszámolni egy oszlopba az összes lehetséges kombinációban
pl: 1150Ft-os pozzához lehet párosítani 1150Ft/1290Ft/1650Ft/1490Ft-os pizzát stbEladó motyók: https://hardverapro.hu/aprok/hirdeto/powerbuldog/index.html
-
Nowitzki
csendes tag
válasz PowerBuldog #31165 üzenetére
Hol vannak megadva a pizzák árai?
Tegyük fel az "A" oszlopban vannak egymás alatt felsorolva az egyes pizzák árai. Akkor mondjuk ez működhet:Sub pizza()
sor = 1
For pizza1 = 1 To 45
For pizza2 = 1 To 45
Cells(sor, "B") = "pizza" & pizza1 & "+" & "pizza" & pizza2
Cells(sor, "C") = Cells(pizza1, "A") + Cells(pizza2, "A")
sor = sor + 1
Next pizza2
Next pizza1
End Sub[ Szerkesztve ]
-
Nowitzki
csendes tag
válasz PowerBuldog #31167 üzenetére
Ha az "A" oszlopban vannak egymás alatt felsorolva a pizzák árai, akkor működik. Ezért kérdeztem, hogy hol vannak neked megadva az egyes pizzák árai.
-
Nowitzki
csendes tag
válasz PowerBuldog #31169 üzenetére
Vagy ha a részleteket is ki akarod íratni akkor:
Sub pizza()
sor = 1
For pizza1 = 1 To 45
For pizza2 = 1 To 45
Cells(sor, "B") = "pizza" & pizza1 & "+" & "pizza" & pizza2 'pizzák sorszámai
Cells(sor, "C") = Cells(pizza1, "A") & "+" & Cells(pizza2, "A") ' pizzák árai
Cells(sor, "D") = Cells(pizza1, "A") + Cells(pizza2, "A") 'pizzák összege
Cells(sor, "E") = "=" & Cells(pizza1, "A").Address & "+" & Cells(pizza2, "A").Address 'pizzák összege képlettel
sor = sor + 1
Next pizza2
Next pizza1
End Sub -
tombar
senior tag
sziasztok
olyan jellegű problémám van, hogy van egy folyamatosan futó makró, ami adatgyűjtőként funkcionál. megnyomsz egy gombot egy mérőgépen, és az általa mért érték bekerül egy excel tábla egy osrral és oszloppal meghatározott helyére.
2 gondom van vele. egyik, hogy mindig a soron következő cellán kell lennie a kijelölésnek és magának az excel ablaknak kell aktívnak lennie. kód ismeretének hiányában (még nem néztem meg, illetve ehhez a részéhez nem értek) van lehetőség ennek a kiküszöbölésének.előre is köszönöm.
Everybody knows, you dance like you fuck. So let me see you dance!
-
Van egy emailform, ami az egyes adatokat emailben küldi, vesszővel vagy bármilyen karakterrel elválasztva, amit kérek. Van olyan karakter, amit használva ha kimásolom azt az ömlsztett sort, akkor cellántként szétszedi az Excel?
Vessző és pontosvessző nem jó, külön sorokat használva pedig külön sorokba teszi, de egymás mellé kellene sorokba.Tudom, hogy ki lehet másolni, notepadbe be, CSV-be export, de hátha van szimplább megoldás, egy másolás egyszerűbb.
-
föccer
nagyúr
-
-
válasz föccer #31176 üzenetére
Bármi adat jó Csak eg yolyan karakter kell, aminél az Excel automatikusan külön cellába dobálja a folyószöveget:
adat1, adat2, adat3, adat4, adat5
Szóval az a karakter kell a vessző helyett, aminél ezt kimásolva és excelbe téve nem 1 hanem 5 egymás melletti cellába kerül az adat.
Ha van ilyen karakter. -
-
Nowitzki
csendes tag
válasz Kalandor #31179 üzenetére
Importálás nélkül tabulátorral kell elválasztva lenniük az értékeknek hogy másolás-beillesztéskor külön cellába kerüljenek az értékek. Minden más esetben csak importálással működik, vagy beillesztés után "text to columns", mindkettőre lehet makrót írni. Például ha ezzel "¿" legyen elálasztva akkor csak bemásolod az "A1" cellába a "¿"-vel elválasztott értékeket (pl.: adat1¿adat2¿adat3¿adat4¿adat5) és futtatod ezt:
Sub Macro1()
Range("A1").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Other:=True, OtherChar:="¿"
End Sub
akkor szétszedi cellákba.[ Szerkesztve ]
-
válasz Nowitzki #31180 üzenetére
Importálás nélkül tabulátorral kell elválasztva lenniük az értékeknek hogy másolás-beillesztéskor külön cellába kerüljenek az értékek.
Nekem ez van Wordpress formulában, hogy ezeket kiküldi emailben:
[nev],[szuletesi_ido],[megye],[iranyitoszam],[telepules]
és emailben ez érkezik meg:
nev,szuletesi_ido,megye,iranyitoszam,telepulesA kapcsos zárójelek közt elvileg azt írok, amit csak akarok, a rendszer kiküldi. Milyen karaktert írjak?
^I-t, és HT symbolt próbáltam, azt nekem nem veszi be az Excel. Mi a helyes karakter?
A második megoldásodat értettem, csak makro nélkül, teljesen egyszerűen szeretném megoldani
[ Szerkesztve ]
-
föccer
nagyúr
válasz Kalandor #31181 üzenetére
Az excel magától nem fogja tudni, hogy a beszúrandó szöveget szét kell szednie-e vagy sem. Az adat importtal tudod utasítani erre.
Ha mindenképpen csak beszúrással akarod rendezni a dolgot, akkor vagy makrót kell mögő tenni, vagy szöveg tördelő függvénnyel kell szétszedned a beszúrt szöveget. Szerintem mind a kettő bonyolultabb, mint exportálni.
A függvényeset össze3dobtam neked, átküldöm e-mailen.
Építésztechnikus. Építőmérnök.
-
Nowitzki
csendes tag
válasz Kalandor #31181 üzenetére
Mindenféle utómunka nélkül szerintem sem lehetséges szétválasztani a szöveget (csak ha tabulátorral vannak elválasztva az egyes értékek). Szerintem a legegyszerűbb ha a fenti makrót bemásolod a "PERSONAL.XLSB" fájlba és akkor az összes excel fájlban működni fog egy klikkre.
-
válasz Nowitzki #31185 üzenetére
Köszi, Wordből kimásoltam és tényleg az Excel cellákra veszi szét. A tabulátorokat még a Wordpress is bevette(!), csak a mailben érkezik már meg mint szóköz.
Ha a fejlesztők át tudják verni a tabulátorjeleket a mailszerveren, nyertünk Ha nem, akkor makro lesz
[ Szerkesztve ]
-
félisten
Üdvözlöm a tudós topiclakókat!
Ha már lett volna a problémám, elnézést kérek, a kereső segítségével nem találtam nyomát.
Tehátakkorlás suk!
Gyakorlati (és pénzügyi) okok miatt több gépemen is az Office régebbi, jelesül 2000 és 2003 becenevű változata fut. A Windows 8.1-ig nem is volt komoly gondom, egy-két funkció ugyan eltűnt a 8-ra váltáskor, de nem volt vészes.
A 10-es upgrade viszont már komoly problémát okoz, mégpedig az Excelben: nem kezeli a dátumbeírást. Azaz, ha beírom, hogy 4/1, akkor kapok egy 4/1-es cellát, nem pedig a mai dátumot -- illetve semmilyen dátumot, akkor sem, ha egyébként dátumformátumú a cella. Ha dátumformátumú cellába írok számot, azt kizárólag 1900. január 1-jétől számított napok alapján hajlandó kiírni, semmilyen elválasztott formátumot nem ismer fel.
Erre vajon van megoldás?
Köszönettel: MaCS
Fán nem lehet motorozni, motoron viszont lehet fázni!
-
the radish
senior tag
Sziasztok!
Excelben tárolt adatok word körlevélbe illesztésénél a dátummal akadt egy kis problémám:
Excelben a megfelelő 2016.04.02 formátum a wordben 04/02/2016 formátumban jelenik meg. Hogy tudnám ezt a hibát orvosolni?
-
föccer
nagyúr
válasz the radish #31188 üzenetére
Cellaformátumban válaszd ki a megfelelő formátumot.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
szabonagyur
félisten
Sziasztok,
Excelben hogy tudom beállítani, hogy egyes cellák színét vagy betűket megadott színkód alapján formázzon? PL. 26 az fekete stb
Köszi
Eladó: iPhone 13Mini 2 év gari, iPhone 6S 32GB
-
föccer
nagyúr
válasz szabonagyur #31191 üzenetére
Feltételes formázás néven keresd. Lehet cella értékére is beállítani.
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz szabonagyur #31193 üzenetére
Ki lehet választani azt is, hogy cella értéke alapján. Ha több érték is lehet, akkor egyesével be kell az összes értéket felvenni a szabályba.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz szabonagyur #31195 üzenetére
Cella értéke eggyenlő 26 és alul megadod a hozzá tartozó színt. Ez után új szabályt veszel fel ugyan arra a cellára, cella értéke eggyenlő 13 és alul megadod a hozzá tartozó színt. És ezt megcsinálod az összes értékkel.
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz szabonagyur #31197 üzenetére
Feltételes formázással elég keveset szoktam foglalkozni, így passz, hogy hogyan lehetne ennél hatékonyabban megoldani.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
bteebi
veterán
válasz MaCS_70 #31187 üzenetére
Az Excel a dátumot mindig az 1900. január 1. óta eltelt napok számaként tárolja (1,5 pl. 1900.01.01. 12:00, 2,75 pedig 1900.01.02. 18:00), a cellaformátum az, ami ezt (jobb esetben) az ízlésünknek megfelelően jeleníti meg. Valamilyen beállításbeli problémád lehet csak. Próbáld meg azt, hogy Cellák formázása (Ctrl+1) → Szám → Egyéni → Formátumkód: éééé.hh.nn. Ha így se jeleníti meg rendesen, akkor nincs ötletem . Visszafelé (dátumból szám): vagy általános, vagy szám formátum.
Cancel all my meetings. Someone is wrong on the Internet.
-
félisten
válasz bteebi #31199 üzenetére
Ezekkel a dátumformázási beállításokkal nagyjából tisztában vagyok, és meg is tudok jeleníteni dátumokat, ami hiányzik, az a rövid dátum beírása.
Win 8.1 alatt még működött, Win 10 alatt a többi általam használt táblázatkezelőben működik -- Win10 alatt Excelben nem működik.És legjobb tudomásom szerint ehhez még csak beállítás sem kell, ez alapértelmezett szolgáltatás ősidők óta.
Úgyhogy valami azt súgja, hogy a MS próbálja ösztönözni a felhasználókat a váltásra...
Köszönettel: MaCS
Fán nem lehet motorozni, motoron viszont lehet fázni!
Új hozzászólás Aktív témák
- 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
- Renault, Dacia topik
- További aktív témák...
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- World of Warcraft Shadowlands Collectors edition EU EN