-
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
-
cekkk
veterán
Sziasztok!
Kaptam levélben egy táblázatot aminek az egyik oszlopában sorozatszámok vannak, de 0val kezdődnek. Amikor bemásolom a program leveszi a 0 a számok elől. Ezt, hogyan lehet kiküszöbölni?Köszönöm a segítséget!
-
Fferi50
őstag
válasz Aventador91 #45150 üzenetére
Szia!
Szerintem előbb rendezd időrend szerint (későbbi előbb), utána a másik oszlopot pedig Z-A (fordított) sorrendben.
Üdv. -
Fferi50
őstag
válasz Aventador91 #45154 üzenetére
Szia!
Tedd fel elérhető helyre, aztán megnézzük.
Üdv. -
gepesz13
tag
Sziasztok ez miér mlehet?
-
félisten
válasz gepesz13 #45156 üzenetére
Leszól a kapitány a gépházba:
- Mennyi?
- 30
- Mi 30?!
- Há' mi mennyi???!!!Hogy kérdésedre is válaszoljak: Me' zöööd!!!
lappy
Hát Ő biztosan tudja, nagy Excel-es az öreg...[ 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)
-
Delila_1
Topikgazda
Fire, Lappy, miért nem válaszoltok rendesen a feltett kérdésre?
Azért nem mlehet, mert a nyúl szőrös, mégsem borotválkozik.
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
válasz Delila_1 #45159 üzenetére
Azt sem tudom, hogy mivel kapcsolatban kérdez. Visszakerestem, hogy nem-e esetleg egy korábban feltett problémával kapcsolatos a mostani kérdése, de ezt megelőzően 2020.06.16-ban volt utoljára hozzászólása.Én ennyit látok a mostani hozzászólásából. Te estleg nem?Erre hogyan lehet rendesen válaszolni?[ 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)
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #45160 üzenetére
Nézd meg a válaszomat, ami pontosan olyan értelmes, mint a kérdés.
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
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #45162 üzenetére
Egy nagyon komoly nyúlról van szó benne.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Sonyk1208
csendes tag
Sziasztok!
Adott A,B,C,D oszlop.
A-t lerendezem növekvő sorrendbe
B-ben ugyanazok az adatok mint A-ban.
B-t szeretném úgy lerendezni mint A-t, tehát növekvő sorrendben, de úgy hogy C és D oszlopot is rendezze, de ne növekvőbe, hanem hagyja úgy ahogy volt, vagyis a B,C és D öszlopk kávzi össze tartoznak.
Cella egyesítés nem játszik, mert szövegként van formázva, de A,B és C oszlopokban számok vannak. D-ben szöveg.
A,B több mint 15 számból áll ezért kellett szövegként formáznom.Ötlet?
-
Fferi50
őstag
-
félisten
válasz Sonyk1208 #45164 üzenetére
Ha jól értem a kérdésed, akkor annyi az egész, hogy kijelölöd a B oszlopot (vagy B/C/D oszlopokat, ha félreértelmeztem a dolgot), Rendezés, majd megjelenik az alábbi ablak, amin a képen látható opciót kell választanod.
[ 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)
-
Heavyrain
őstag
Sziasztok,
A segítségeteket szeretném kérni. INDEX-HOL.VAN-al vagy valamivel biztosan könnyen megoldható de nem jövök rá hogyan.
A képen látszódik a leegyszerűsített kiindulási tábla. A számok értéke lényegtelen, mindig pozitívak és egy sorban mindig csak egy szám van.
Ezek a számok máshol nem szerepelnek szóval nem tudok rájuk hivatkozni.Pl. első sor esetében szeretném ha az Excel megkeresné, hogy, hol van nem üres cella és kiírná az ezen cellát tartalmazó oszlop azonosítóját. (E)
A jobb oldali táblát most még kézzel írkáltam be de szeretném ha képlet csinálná.
Előre is köszönöm a megoldásokat!
[ Szerkesztve ]
-
Zoty4
őstag
válasz Delila_1 #45144 üzenetére
Szia
Így működik nekem a lekérdezés, ha a B3-ba rakom a lekérdezni valót:
=INDEX('[Actual.xlsx]munka'!$A$1:$AM$505;HOL.VAN($B$3;'[Actual.xlsx]munka'!$B:$B;0);HOL.VAN(D$2;'[Actual.xlsx]munka'!5:5;0))De szeretnék további lekérdezéseket betenni.
Miért van az hogy a b3-ba írt szövekhez kilistázza a dolgokat, de a b4-nél egy másikat már nem? B3-at átírtam ott B4-re, de azt írja hogy hiányzik[ Szerkesztve ]
-
Delila_1
Topikgazda
A B2 cella képlete
=INDEX(Munka1!$A$1:$G$6;HOL.VAN($A2;Munka1!$A:$A;0);HOL.VAN(B$1;Munka1!$1:$1;0))
Nézd meg, hogy a sort, ami a megnevezéseket (alma, stb.) tartalmazza, $ jellel rögzítettem.1:1
helyett$1:$1
lett, így a B2 képletét jobbra, és lefelé is másolhatod.[ 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.
-
the radish
senior tag
Sziasztok!
Következőben kérnem a segítségeteket:
Szükségem lenne egy makróra, mely
- megnyitja a "C:\gyumolcs.xls" fájlt
- ha a megnyitott "gyumolcs.xls" A1 cellája = alma, akkor lefuttatja az alma makrót, ha A1= körte, akkor a körtét és végezetül ha A1= szilva, akkor a szilva makrót. Ha A1 fentiek egyikét sem tartalmazza, akkor bezárja a gyumolcs.xls-t és felugró ablakban figyelmeztet, hogy pl. nem megfelelő a formátum.
Előre is köszönöm! -
xenom0rph
őstag
Sziasztok,
Segítséget szeretnék kérni egy - szerintem- egyszerű problémában, de annyira ráfeszültem már, hogy nem látom a fától az erdőt és nem haladok sehova.Tehát:
Adott ABCD oszlop.
F2 cellába beírva, az A oszlopban szereplő értéket (1-től 600-ig) egy msgBox-nak kéne felugrania mely kiírja a B-C-D oszlop értékeit.
Honnan kéne ezt megközelíteni?Köszönöm előre is.
halahala
-
félisten
válasz the radish #45173 üzenetére
Private Sub CommandButton1_Click()
Dim MyFilename As String
Dim MyWorkBook As Workbook
'Excel fájl útvonala
MyFilename = "D:\gyumolcs.xls"
'Megnyitjuk
Set MyWorkBook = Workbooks.Open(MyFilename)
'A megnyitott munkafüzet "Munka1" nevü munkalapjáról
'beolvassuk az "A1" cella tartalmát és
'nagybetű-helyesen értelmezzük.
'Így mindegy, hogy a cellában hogy szerepel, "Alma" vagy "ALMA" vagy "alma" stb stb.
Select Case UCase(MyWorkBook.Sheets("Munka1").Range("A1"))
Case "ALMA"
Call alma
Case "KÖRTE"
Call korte
Case "SZILVA"
Call szilva
'ha bármi más szerepel a cellában vagy üres,
'akkor figyelmeztető ablak, majd bezárjuk a munkafüzetet
Case Else
MsgBox ("A(z) " + MyFilename + " munkafüzet be lesz zárva.")
MyWorkBook.Close
End Select
Set MyWorkBook = Nothing
End Sub
Private Sub alma()
MsgBox ("Alma makró")
End Sub
Private Sub korte()
MsgBox ("Körte makró")
End Sub
Private Sub szilva()
MsgBox ("Szilva makró")
End Sub[ 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)
-
Zoty4
őstag
Engedjetek meg még egy kérdést
Ha vannak bizonyos pontjaim, azaz x és y koordináták.
és egy lineáris egyenesem, ami f=x
hogy lehet a pont és az egyenes távolságát (pontból merőleges állítva az egyenesre) meghatározni függvényekkel excelben? -
Delila_1
Topikgazda
válasz xenom0rph #45175 üzenetére
A makrót a laphoz kell rendelned. Az F2 cellában érvényesítés biztosítja, hogy csak az A oszlopban szereplő értékek közül lehessen választani.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sor As Integer
If Target.Address = "$F$2" Then
sor = Application.Match(Target, Columns(1), 0)
MsgBox "B = " & Cells(sor, 2) & vbLf & "C =" & Cells(sor, 3) & vbLf & _
"D = " & Cells(sor, 4), vbInformation
End If
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.
-
the radish
senior tag
válasz Fire/SOUL/CD #45176 üzenetére
Nagyon köszönöm!!!
-
the radish
senior tag
Makró művelet közben a "Application.ScreenUpdating = False" segítségével érem el, hogy a folyamat ne legyen látható.
Külső fájl megnyitása alkalmával azonban teljes képernyős módból ablak nézetbe teszi az Excelt.
Ez ellen van valami okosság?
Előre is köszönöm! -
Fferi50
őstag
válasz the radish #45183 üzenetére
Szia!
Mi van az eseménykezeléssel? Le van tiltva?
Megmutatnád azt a kódrészletet, amelynél ez bekövetkezik?
Üdv. -
Norbika1493
csendes újonc
Sziasztok,
Valakinek nincs egy olyan VBA kód ami excelbe importálva cellától celláig másolva az adatokat elküldi embereknek,csoportoknak?
nagyon szépen köszönöm
-
Pakliman
tag
válasz Norbika1493 #45186 üzenetére
Egy pl...
Ez egy meglévő táblázatban halad végig és bizonyos cellák értéke alapján színez bizonyos számokat is.
Készít egy táblázatot az így létrejótt listából és elküldi a megadott címzetteknek:Public Enum OlBodyFormat
olFormatUnspecified = 0
olFormatPlain = 1
olFormatHTML = 2
olFormatRichText = 3
End Enum
Private Function TableDataColor(strIn As String, Optional color As String = "") As String
If color = "" Then
TableDataColor = strIn
Else
TableDataColor = "<FONT COLOR=" & color & ">" & strIn & "</FONT>"
End If
End Function
Private Function Table(strIn As String, Optional lBorder As Long = 0) As String
Dim sBorder As String
If lBorder = 0 Then
sBorder = ""
Else
sBorder = " border=" & lBorder
End If
Table = "<TABLE" & sBorder & ">" & strIn & "</TABLE>"
End Function
Private Function TableData(strIn As String, Optional alignment As String = "") As String
TableData = "<TD nowrap align=" & alignment & ">" & strIn & "</TD>"
End Function
Private Function TableRow(strIn As String) As String
TableRow = "<TR>" & strIn & "</TR>"
End Function
Public Sub Email_Humányügyre()
Dim sSzöveg1 As String: sSzöveg1 = "Kedves Lányok!" & "<br /><br />"
Dim sSzöveg2 As String: sSzöveg2 = "Szíves hasznosításra..." & "<br /><br />" & _
"Üdv," & "<br /><br />"
Dim OutApp As Object
Dim OutMail As Object
Dim strFej As String
Dim strTB As String
Dim sDátum As String: sDátum = Format(Format(Range("Z1"), "0000"".""00"".""00"), "yyyy. mmmm")
Dim sTárgy As String: sTárgy = "Külsősök teljesítései " & sDátum
Dim lAktSor As Long
Dim lÚjSor As Long
Dim szín As String
strFej = TableRow( _
TableData("HR") & _
TableData("Név") & _
TableData("Összes óra") _
)
For lAktSor = 3 To Cells.Rows.Count 'Az utolsó sort célszerű először meghatározni...
If IsEmpty(Cells(lAktSor, 1)) Then Exit For
If Cells(lAktSor, 15) = "Külsős" Then
Select Case Cells(lAktSor, 11)
Case 60 To 79.9
szín = "blue"
Case Is > 80
szín = "red"
Case Else
szín = ""
End Select
strTB = strTB & _
TableRow( _
TableData(Cells(lAktSor, 1)) & _
TableData(Cells(lAktSor, 2)) & _
TableData( _
TableDataColor( _
Format(Cells(lAktSor, 11), "0.0"), _
szín _
), _
"right" _
) _
)
End If
Next lAktSor
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "Humánügyek"
.CC = "hum1@hum.hu; hum2@hum.hu"
.BCC = ""
.Subject = sTárgy
.BodyFormat = 2 'olFormatHTML
.HTMLBody = sSzöveg1 & _
Table( _
"<Caption>Külsős órák</Caption>" & _
strFej & _
strTB _
, 1) & "<br /><br />" & _
sSzöveg2
.Display ' vagy elküldéshez .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub[ Szerkesztve ]
-
zsolti_20
senior tag
Szép reggelt emberek. Épp egy filterezésen dolgozok de elakadtam a megvalósításában.
Van 3 táblázatom. Lista,Szűrő és Eredmény.
A listában felvannak sorolva szavak számozással ellátva, úgy is felfoghatjuk mintha csoportok,halmazok lennének.
A szűrőben megadom ayokat a kulcs szavakat amiket az eredménybe szeretnék átvinni. De csak akkor kell átvinnie ha annak a csoportnak az összes szava megegyeik a listában felsorolttal.
Kép:
[link]Van valakinek ötlete hogyan lehetne megoldani? legjobb egy VBA script lenne rá, sajnos sima filterezés nem működik mert akkor megtart néhány csoportot aminél nincs meg a teljes egyezés.
-
the radish
senior tag
Sziasztok!
Sehogy nem jövök rá egy egyszerűnek tűnő dologra:
Makróban található egy kód, mely tartalmaz minden létező karaktert. Néha azonban ezt meg kell változtatni:Public Const burnKey = "A_qTUOS_aAN-a6uUA!jER%rZE"
Szeretném ha nem minden alkalommal a makróban kéne ez miatt turkálni, hanem a munkafüzet "KEY" munkalapjának "A1" cellájában tudnám módosítani ezt, azaz ott lenne a kód elhelyezve.
Próbáltam már több verziót, de sajnos nem jöttem rá a megoldásra, ezért nagyon hálás lennék egy jó kivitelezésért.Előre is köszönöm!
-
Delila_1
Topikgazda
válasz zsolti_20 #45188 üzenetére
Nem értem az EREDMÉNY tábládat. A LISTA-ban az alma szerepel 1; 2; 3 és 4 sorszámmal, de csak az 1-est és 3-ast gyűjtötted ki.
A kép szerinti kigyűjtést egy makróval oldottam meg. Érdekel?Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
zsolti_20
senior tag
válasz the radish #45189 üzenetére
Szia,
Esetleg probald meg ezt:
Sub lol()
var1 = Worksheets("Sheet2").Cells(1).Value
MsgBox var1
End Sub
-
the radish
senior tag
válasz zsolti_20 #45191 üzenetére
Köszi, de nem látni akarom, hanem azt szeretném, ha a meglévő makró a makró
Public Const burnKey = "A_qTUOS_aAN-a6uUA!jER%rZE"
sorában elhelyezett kód helyett a a munkafüzet "KEY" munkalapjának "A1" cellájában elhelyezett kódot használná.Azaz valahogy így kéne:
Public Const burnKey = " Sheets("KEY").Range("A1") "
-
zsolti_20
senior tag
válasz the radish #45193 üzenetére
Public Const burnKey = Worksheets("KEY").Cells(1).Value
[ Szerkesztve ]
-
zsolti_20
senior tag
válasz the radish #45193 üzenetére
Kicsit utana olvastam, probaltam tesztelni, de azt irjak hogy ilyen formaban megoldani nem lehet. Erre egy valtozo kell csinalnod.
De az en tudasom is meg all itt. Majd a tobbiek kisegitenek. -
Saviour
csendes tag
Sziasztok!
Lehetséges olyan grafikont létrehozni Excelben aminek szimpla lineáris értékkészlet helyett ilyen számsor lenne: +0.96; +0.97; +0.98; +0.99; +-1; -0.99; -0.98; -0.97; -0.96
Az x tengely az időt tartalmazná. A problémám az, hogy van egy adatsorom ami sűrűn veszi fel a +1 és -1 értéket, viszont így elég csúnya "négyszögjeles" grafikont hoz létre a lineáris értékkészlettel. Más programban volt ez a felsorolt értékkészlet és úgy sokkal olvashatóbb az adtok szempontjából. Az, hogy +1 vagy -1 lényegtelen azért kerül egy helyre a grafikonon belül úgymond ez a két szám lenne a középérték. -
Fferi50
őstag
válasz the radish #45196 üzenetére
Szia!
A konstansnak nem adhatsz változó tartalmat pl. cellaértéket sem, a deklaráláskor pontosan meg kell adni az értékét.
Ha változó értékeket szeretnél, akkor valódi változót kell használnod és pl. a Workbook_Open eseményben beolvasni az értékét - vagy az adott makróban, mielőtt használni kezdenéd.
Üdv. -
Delila_1
Topikgazda
válasz zsolti_20 #45192 üzenetére
Nem volt egyszerű, de végül sikerült.
Sub Eredmeny()
Dim sorSzuro As Integer, sorEredm As Integer, db As Integer, csoport As Integer
Dim usorLista, x As Integer, elso As Integer, ucso As Integer, nev As String, van
sorEredm = 2: csoport = 1
usorLista = Range("D" & Rows.Count).End(xlUp).Row
Kezd:
elso = Application.Match(csoport, Columns(1), 0)
ucso = Application.Match(csoport, Columns(1))
db = 0
For x = elso To ucso
If Application.WorksheetFunction.CountIf(Columns(4), Cells(x, 2)) > 0 Then db = db + 1
If db = ucso - elso + 1 Then
For sorSzuro = 2 To usorLista
nev = Cells(sorSzuro, "D")
On Error Resume Next
van = Application.Match(nev, Range(Cells(elso, "B"), Cells(ucso, "B")), 0)
If VarType(van) = vbError Then
On Error GoTo 0
Else
Cells(sorEredm, "F") = csoport
Cells(sorEredm, "G") = nev
sorEredm = sorEredm + 1
End If
Next
End If
Next
csoport = csoport + 1
If csoport > Application.WorksheetFunction.Max(Columns(1)) Then
Exit Sub
Else
GoTo Kezd
End If
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.
-
Zoty4
őstag
válasz Delila_1 #45171 üzenetére
Szia
Ezt ki lehetne terjeszteni úgy hogy ne csak a munka1 hanem a munka2, munka3, munka4 területekről is kigyűjtse a termékeket?
Van ami csak egyik munkalapon van, de lehetnek átfedések is (nyilván ugyanazokkal az adatokkal)
Szóval ne csak munka1-ben keresse hanem mindenhol
Új hozzászólás Aktív témák
- Gaming notebook topik
- Célkeresztben az OnlyFans, amiért pornót nézhetnek a gyerekek
- Ukrajnai háború
- OLED TV topic
- Google Pixel 6/7/8 topik
- Politika
- Linux felhasználók OFF topikja
- bitpork: Balatoni autós tali 2024
- Ennyibe kerülnek a Huawei Pura modellek Európában
- iOS alkalmazások
- További aktív témák...
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Vírusirtó, Antivirus VPN kulcsok
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.