-
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
-
MinekMentOda
csendes újonc
Sziasztok!
A megoldandó feladatom a következő: Mondjuk van A1 és A2 cella. Ha A2 tartalmának legalább egyik eleme (karakterlánc) megegyezik az A1 cellában található karakterlánc egyik elemével, de A2 nem tartalmaz olyan karaktert, amit A1 sem tartalmaz, akkor az eredmény legyen 1. Minden más esetben az eredmény legyen 0.
Kisbetű/nagybetű nem számít.Pl. A1=AB
A2=A; eredmény=1
A2=BA; eredmény=1
A2=ABC; eredmény =0Egyszer már írtam ide, és nagyon segítőkészek voltatok, sikerült is megoldanom a segítségetekkel egy ennél sokkal durvább problémát, úgyhogy előre is köszönöm a segítséget!
-
Delila_1
Topikgazda
válasz MinekMentOda #37754 üzenetére
Írtam hozzá egy saját függvényt, amit modulba kell tenned (lásd a Téma összefoglalót). Ha több füzetben is szeretnéd alkalmazni, akkor a personal-ba tedd.
Function Van_Benne(mitkeres As String, mibenkeres As String)
Dim b As Integer, f As Boolean
For b = 1 To Len(mitkeres)
If InStr(mibenkeres, Mid(mitkeres, b, 1)) > 0 Then
f = True
Else
f = False: Exit For
End If
Next
If f Then Van_Benne = 1 Else Van_Benne = 0
End FunctionA cellába, ahol az eredményt szeretnéd megkapni, írd be
=van_benne(A2;A1)
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
MinekMentOda
csendes újonc
válasz demesjano #37758 üzenetére
D1 cellába beírod ezt:
=HA(B1+30=C1;MA();"")
Ha a C cellában 30 nappal több van, mint B cellában, kiírja a dátumot, egyéb esetben nem ír kis semmit.
D1 cella > feltételes formázás > új szabály > adott tartalmú cella formázása > nem üres > formátum > piros betűszín > formátummásolóval addig húzod, amíg tart az oszlop.
-
valyogvisko
csendes tag
Sziasztok,
adódott egy problémám, hátha ti tudtok rá megoldást. Ha tudtok, az optimális az lenne, ha a megoldás kerülné a makrókat, de végső esetben, ha nincs más, kénytelen leszek azzal dolgozni
Szóval, a gond a következő: Adott (kereséstől függő) nevű sorhoz és oszlopokhoz tartozó adatokat szeretnék keresni egy excelben, ami sok munkalapos, mindegyik sok-sok ezt-azt tartalmaz. Ez nem is okoz gondot, Index és két Hol.Van megoldja.
Viszont: a keresett adatok sokszor színezve vannak, ilyen-olyan opciók alapján feltételes formázással. A nagyon király az lenne, ha nem csak az adott cella értékét tudnám kinyerni a keresésnél, hanem a cella színét is. Az se zavarna, ha valahogy a teljes cella "jönne" ahogy formázva van, mindenestől.
Egyszerűen nem találok még olyan függvényt sem, ami lekérdezné egy adott cella színét, hát még olyat, ami ezzel műveletek is képes végezni (másolni pl).
Ha ez így, amit leírtam, nem tiszta, készítek egy rövid mintát, és dobok be képet. Tudtok valami megoldást, ami segítene?
Előre is köszönöm!
HTC, LG
-
lappy
őstag
válasz valyogvisko #37762 üzenetére
Ezt nem is fogod függvénnyel megoldani csak makróval lehet!!!
[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
Fferi50
őstag
válasz valyogvisko #37762 üzenetére
Szia!
Szerintem akkor jársz a legjobban, ha a feltételes formázásokat átírod erre a kereső munkalapra is, persze megfelelően módosítva. Gondolom néhány általános szabály van és nem minden cellára/munkalapra különböző.
Üdv.
-
Baky1987
tag
Sziasztok!
Excelt szeretnék tanulni (nem makrót, arra a korábbi fórum hsz-okat átnyálazva láttam ajánlott irodalmat) és szeretnék érdeklődni, hogy most van-e vmi ajánlott könyv, weboldal, tanfolyam, ami a segítségemre lehet?
Ha már volt erre válasz, neharagudjatok, egy negyedóra keresgélés után nem találtam.
köszönöm előre! -
MinekMentOda
csendes újonc
Sziasztok!
Excel 2016-ot használok. Képtelen vagyok megoldani a következő egyszerű feladatot. Nagyon fontos, hogy makró nélkül kell a megoldás.
Van egy kitöltős teszt. A megoldókulcsban 2 betű szerepel. Pl. AB. A helyes megoldás lehet A, B, AB, BA. Ha ezeket így beírom az üres teszt cellájába, mint helyes megoldás, az működik, csak nem elegáns. Azt szeretném megértetni a programmal, hogy Ha a megoldókulcs cellájában szereplő betűk közül bármelyik le van írva az üres tesz cellájában, és nem szerepel más betű benne, akkor helyes a megoldás, minden más esetben helytelen.
Pl. A : helyes
BA: helyes
b, A : helyes
B, a, C : helytelen. -
valyogvisko
csendes tag
-
MinekMentOda
csendes újonc
válasz MinekMentOda #37766 üzenetére
Közben megtaláltam a megoldást. Valószínűleg nem a legelegánsabb, de jobb, mint a semmi.
=HA(VAGY(BAL(X5;1)=BAL(Megoldókulcs!X5;1);BAL(X5;1)=JOBB(Megoldókulcs!X5;1));1;HA(VAGY(JOBB(X5;1)=BAL(Megoldókulcs!X5;1);JOBB(X5;1)=JOBB(Megoldókulcs!X5;1));1;HA(UNICODE(BAL(X5;1))+UNICODE(JOBB(X5;2))=UNICODE(BAL(Megoldókulcs!X5;1))+UNICODE(JOBB(Megoldókulcs!X5;2));1;0)))
-
MinekMentOda
csendes újonc
válasz MinekMentOda #37769 üzenetére
Nem. Még sem jó Nem működik jól.
-
DeFranco
nagyúr
sziasztok!
makró nélkül (policy) szeretném megoldani a következő feladatot: van egy 20x10-es mátrix, ahol minden sorban ki kell tölteni max. 5 cellát egy legördülő menü által felajánlott elemek közül valamelyik értékkel. ha 5-nél többet akarnak kitölteni a 10-ből akkor hibaüzenetet kell dobjon.
a kettőt külön külön meg tudom oldani érvényesítéssel, de egyszerre nem.
a legördülő lista triviális, a kitöltött értékeket pedig ennek nyomán lehet számoltatni de akkor listát nem tudok beállítani.
próbálkoztam azzal, hogy a mátrixba beteszem a listát, a sorok végére pedig beteszek egy darab2-t és azt figyeltetem, de az szépen felszámol 6-7-8-ig és nem szól, csak ha F2-t nyomok rá majd ütnék egy entert, tehát itt átcsúszik az ellenőrzésen a hiba.
van-e erre valamilyen makrómentes workaround?
-
Ferenc1989
tag
Sziasztok!
Akadt egy kis problémám:
Van egy sor január 1-től január 30-ig a napokkal.
Abban a sorba sárgával jelölök meg pár cellát..
Egy külön cellába folyamatosan számolnia kellene hány sárga színű cella van és a darabszámot kiírnia..
Ki hogy oldaná meg? Amit találtam macro-t ilyen célra, ott csak akkor növekszik a darabszám, ha formátummásolóval változtatom a cella színét..Előre is köszönöm.
Sosem tudod, mi az elég, amíg meg nem tapasztalod, mi a túl sok.
-
tomi5244
őstag
-
lcdtv
aktív tag
Tud valaki olyan megoldást hogy egy excel fájlban több sorban vagy egy link pl.
xyz.com/doku.pdf.
Ezeket szeretném letölteni egyesével egy mappába. Megoldható? -
lcdtv
aktív tag
Válaszolok is ha valakinek szüksége lenne rá.
Option Explicit
Public Enum DownloadFileDisposition
OverwriteKill = 0
OverwriteRecycle = 1
DoNotOverwrite = 2
PromptUser = 3
End Enum
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Windows API functions, constants,and types.
' Used for RecycleFile.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Declare Function PathIsNetworkPath Lib "shlwapi.dll" _
Alias "PathIsNetworkPathA" ( _
ByVal pszPath As String) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" _
Alias "GetSystemDirectoryA" ( _
ByVal lpBuffer As String, _
ByVal nSize As Long) As Long
Private Declare Function SHEmptyRecycleBin _
Lib "shell32" Alias "SHEmptyRecycleBinA" _
(ByVal hwnd As Long, _
ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_NOCONFIRMATION = &H10
Private Const MAX_PATH As Long = 260
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type
'''''''''''''''''''''''''''
' Download API function.
''''''''''''''''''''''''''''''''''''''
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' DownloadFile
' This downloads a file from a URL to a local filename.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function DownloadFile(UrlFileName As String, _
DestinationFileName As String, _
Overwrite As DownloadFileDisposition, _
ErrorText As String) As Boolean
Dim Disp As DownloadFileDisposition
Dim Res As VbMsgBoxResult
Dim B As Boolean
Dim S As String
Dim L As Long
ErrorText = vbNullString
If Dir(DestinationFileName, vbNormal) <> vbNullString Then
Select Case Overwrite
Case OverwriteKill
On Error Resume Next
Err.Clear
Kill DestinationFileName
If Err.Number <> 0 Then
ErrorText = "Error Kill'ing file '" & DestinationFileName & "'." & vbCrLf & Err.Description
DownloadFile = False
Exit Function
End If
Case OverwriteRecycle
On Error Resume Next
Err.Clear
B = RecycleFileOrFolder(DestinationFileName)
If B = False Then
ErrorText = "Error Recycle'ing file '" & DestinationFileName & "." & vbCrLf & Err.Description
DownloadFile = False
Exit Function
End If
Case DoNotOverwrite
DownloadFile = False
ErrorText = "File '" & DestinationFileName & "' exists and disposition is set to DoNotOverwrite."
Exit Function
'Case PromptUser
Case Else
S = "The destination file '" & DestinationFileName & "' already exists." & vbCrLf & _
"Do you want to overwrite the existing file?"
Res = MsgBox(S, vbYesNo, "Download File")
If Res = vbNo Then
ErrorText = "User selected not to overwrite existing file."
DownloadFile = False
Exit Function
End If
B = RecycleFileOrFolder(DestinationFileName)
If B = False Then
ErrorText = "Error Recycle'ing file '" & DestinationFileName & "." & vbCrLf & Err.Description
DownloadFile = False
Exit Function
End If
End Select
End If
L = URLDownloadToFile(0&, UrlFileName, DestinationFileName, 0&, 0&)
If L = 0 Then
DownloadFile = True
Else
ErrorText = "Buffer length invalid or not enough memory."
DownloadFile = False
End If
End Function
Private Function RecycleFileOrFolder(FileSpec As String) As Boolean
Dim FileOperation As SHFILEOPSTRUCT
Dim lReturn As Long
If (Dir(FileSpec, vbNormal) = vbNullString) And _
(Dir(FileSpec, vbDirectory) = vbNullString) Then
RecycleFileOrFolder = True
Exit Function
End If
With FileOperation
.wFunc = FO_DELETE
.pFrom = FileSpec
.fFlags = FOF_ALLOWUNDO
' Or
.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
End With
lReturn = SHFileOperation(FileOperation)
If lReturn = 0 Then
RecycleFileOrFolder = True
Else
RecycleFileOrFolder = False
End If
End Function
Sub example()
Dim URL As String
Dim LocalFileName As String
Dim B As Boolean
Dim ErrorText As String
Dim c As Range
For Each c In Columns("K:L").SpecialCells(xlCellTypeConstants, 23)
URL = c
LocalFileName = "C:\temp\" & Evaluate("TRIM(RIGHT(SUBSTITUTE(""" & c & """,""/"",REPT("" "",1000)),1000))")
B = DownloadFile(UrlFileName:=URL, _
DestinationFileName:=LocalFileName, _
Overwrite:=PromptUser, _
ErrorText:=ErrorText)
If B = True Then
Debug.Print "Download successful"
Else
Debug.Print "Download unsuccessful: " & ErrorText
End If
Next c
End Sub[ Szerkesztve ]
-
Mutt
aktív tag
válasz MinekMentOda #37757 üzenetére
Tömb függvény:
=--ÉS(SZÁM(SZÖVEG.KERES(KÖZÉP(A2;SOR(INDIREKT("A1:A"&HOSSZ(A2)));1);$A$1)))
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
dellfanboy
senior tag
szerintetek mi okozza azt hogyha egy excelt bezarok, allandoan feljon az a hibaablak hogy az excel.exe stopped working and restarting? jogtiszta, meg uj gep...
eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
Lokids
addikt
Sziasztok!
Segítséget szeretnék kérni az FKERES működésre bírásához.
EZ a leírás alapján próbálok validációs listát csinálni, de nem megy, hibát dob a képletre.
az, hogy:
=INDIREKT(FKERES(A1,lookuplista,2,HAMIS)&"List")
hibát okoz. És a FKERES belsejét jelöli. (lookuplista egy névtér)Egyszerűen nem tudok rájönni, hogy mi a hiba.
Elvileg ennek az A1 cellába írt érték alapján kellene kikeresnie a lookuplista névtérből a második oszlop értékét, majd ezt az indirekt egy másik névtérbe lévő értékkel kapcsolja.If you chase two rabbits you will lose them both.
-
BullZeye
veterán
Fkeres-nél tényleg nincs mód, hogy a keresendő érték a tartomány ne az első cellájában szerepeljen?
Pl
C oszlopban van amit keresek, és az A oszlopban a hozzátartozó érték amit szeretnék kinyerni.Ezt mivel lehetne még?
-
-
palimre
csendes tag
Nagyon szép megoldás. Egyetlen apró hibalehetőség maradt benne: A végén a $A$1-ben a $ jelek nem kellenének. Ugyanis a kérdező elfelejtette jelezni, hogy nem az A oszlopban használja, hanem az X oszlopban. Ráadásul nem is ugyanazon a munkalapon. És ha ilyenkor is az aktuális munkalap A1 oszlopában keresi a karaktereket, akkor meglepő eredményekre juthat.
-
Marvinyo
aktív tag
Sziasztok!
Power Queryvel van problémám:
Több lekérdezést fűzök össze egymás "mögé" (táblázatilag alá). A különálló lekérdezésekben, és a forrásában is az A oszlop adat típusa dátum. Az összefűző lekérdezésben is átállítottam a típust dátumra. Valamiért mégis az eredmény minden egyes alkalommal dátum helyett "General", emiatt egy ezen a queryn alapuló pivot table mindig elromlik.
Mi a megoldás erre a problémára?
[ Szerkesztve ]
-
Fferi50
őstag
Szia!
Ha kérdés nélküli felülírást szeretnél, akkor
Application.DisplayAlerts = False a makró elejére és
Application.DisplayAlerts = True a makró végére.A kihagyáshoz:
LocalFileName = "C:\temp\" & Evaluate("TRIM(RIGHT(SUBSTITUTE(""" & c & """,""/"",REPT("" "",1000)),1000))")
B=Dir(LocalFileName)=""
If B Then B = True ThenDownloadFile(UrlFileName:=URL, _
DestinationFileName:=LocalFileName, _
Overwrite:=PromptUser, _
ErrorText:=ErrorText)
End ifÜdv.
-
logitechh
csendes tag
Sziasztok
Van egy táblázatom ami jelenleg 10000 sornyi adatra van képletezve.
ez most még sok de később meg kevés lesz.
Van egy rakat képletem ami kb ilyen=SZUMHA($B$404:$B$10403;B257;$K$404:$K$10403)
itt rögzített a végeA kérdésem az hogy ha a 10403 at ki szeretném cserélni 5000 re vagy 15000 re akkor azt makróval vagy az indirekt függvénnyel csináljam.
Lehet ezt egyáltalán makróval?Sajnos az indirektet se nagyom bírom felfogni. Valaki tudna egy érthető leírást hozzá?
-
Fferi50
őstag
válasz logitechh #37792 üzenetére
Szia!
Számolást kikapcsolod. (Képletek - Számolási beállítások - Manuális). Ezután Ctrl+F (keresés és csere), Keresett szöveg 10403 Csere fül -- Csere erre: amire akarod, majd Egyebekre katt, Keresés helye kiválasztod Képletek --- az összes cseréje.
Számolás visszakapcsolása (Képletek - Számolási beállítások - Automatikus)
Makróval:
Application.Calculation=xlCalculationManual
Activesheet.Usedrange:Find What:="10403",LookIn:=xlFormulas,LookAt:=xlPart
Activesheet.Usedrange.Replace What:="10403", Replacement:="5000",LookAt:=xlpart
Application.Calculation=xlCalculationAutomaticÜdv.
[ Szerkesztve ]
-
Colin111
csendes tag
Sziasztok!
Régóta megoldatlan dologba futottam megint, mármint részemről, azaz eddig még nem sikerült egyszerűen megoldani az alábbi problémát. Mindenféle ötletet szívesen fogadok!
Az alábbi táblázatban azt szeretném elérni hogy a léptető gombra kattintva mindig a következő/előző név jelenjen meg, függetlenül attól hogy egy név hányszor szerepel a listában az A oszlopban..
A léptető ugyebár nem tud függvényt fogadni, mert pl. a "DARABHATÖBB(A:A;K3)" segíthetne...
Remélem érthető a kérdésem....[ Szerkesztve ]
-
Fferi50
őstag
válasz Colin111 #37794 üzenetére
Szia!
A neveket másold le egy külön oszlopba, majd ismétlődések eltávolítása. - ezáltal csak egy-egy név marad.
A léptetőnek a min-max értékét ehhez az oszlophoz igazítsd.
Ha mondjuk az X oszlopban vannak a nevek, a léptető pedig a K1 cellához van kapcsolva, akkor a képlet=Index($X$1:$X$10;$K$1)
amit írhatsz pl. a K2 cellába akár.Üdv.
[ Szerkesztve ]
-
Colin111
csendes tag
válasz Fferi50 #37795 üzenetére
Bocs, azt nem írtam, hogy segéd oszlopra nincs lehetőség, mert folyamatosan bővül az adatbázis újabb és újabb esetekkel, ezért arra nincs lehetőség hogy minden új bejegyzés után a segéd oszlopot frissítse a felhasználó, ennek automatikusan követnie kellene a változásokat.
-
Mutt
aktív tag
válasz Colin111 #37796 üzenetére
Egy hosszú képlet esetleg Excel 2010 vagy frissebb esetén:
=HA(K1>SZORZATÖSSZEG(1/DARABTELI(nevsor;nevsor));"Nincs több név";INDEX(nevsor;ÖSSZESÍT(15;6;HOL.VAN(nevsor;nevsor;0)/HA(GYAKORISÁG(HOL.VAN(nevsor;nevsor;0);SOR(INDIREKT("A1:A"&DARAB2(nevsor))))>0;1;0);K1)))
Létre kell hoznod a névkezelőben nevsor névvel egy dinamikus tartományt, a képlete (Munka1 füzet esetén):
=ELTOLÁS(Munka1!$A$2;0;0;DARAB2(Munka1!$A:$A)-1)
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Delila_1
Topikgazda
válasz Colin111 #37794 üzenetére
Megadod a léptető cellacsatolását egy olyan helyre, ahol rejtve marad, pl. a H3-ba.
A képlet, ami kiírja a kiválasztott nevet:=HAHIBA(INDEX(INDIREKT("A2:A" & DARAB2(A:A));$H$3;1);"Nincs több név")
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Colin111
csendes tag
válasz Delila_1 #37798 üzenetére
ezzel is csak egyesével léptet a nevek közt....
a következőre szeretnék ugrani, akkor is ha azonos nevűből egymás alatt több vanannyit már sikerült megoldani, hogy névkezelővel felvettem egy dinamikus tartományt, amiben megszámolom hány azonos név van egymás alatt (=DARABHATÖBB(form_1;név)
továbbá megoldottam, hogy megszámolja hány darab van a következő névből és az előzőből
- ez az ugrások számához kell majd...[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Colin111 #37799 üzenetére
Léptető helyett scrollbart tegyél be, annál megadhatod a kicsi- és nagy léptetést (SmallChange, Largechange). Az előbbi a nyílra-, a második a csúszkára kattintáskor jön létre.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- LEGO klub
- Rövid előzetesen a S.T.A.L.K.E.R. 2: Heart of Chornobyl
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Autós topik
- Milyen légkondit a lakásba?
- Kertészet, mezőgazdaság topik
- Autós topik látogatók beszélgetős, offolós topikja
- OLED TV topic
- Androidos fejegységek
- Skoda, VW, Audi, Seat topik
- További aktív témák...