-
IT café
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 attilalr2 #27312 üzenetére
Vittem be 2 terméket kategóriával az A2:B3 tartományba. Ezek alatt a B oszlopban egy képlet hozza be a kategória nevét, mikor az A oszlopba új adatot viszek be. A B4 cella képlete:
=HAHIBA(FKERES(A4;INDIREKT("A$2:B" & SOR()-1);2;0);"X")
[ 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.
-
Delila_1
Topikgazda
válasz attilalr2 #27317 üzenetére
A másodikat használd! Az elsőben szerepel az INDIREKT függvény, de csak azért, mert a saját oszlopában kellett keresni, és ennek a segítségével kilőttem a körkörös hivatkozást.
Az INDIREKT függvény mindig, mikor új adatot viszel be a lapra (vagy törölsz), frissül, ezzel lassul a számolá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.
-
Fferi50
őstag
válasz attilalr2 #28000 üzenetére
Szia!
Próbáld ki ezt a makrót:
Sub cserelo(ByRef rng As Range, ByVal mit As String, ByVal mire As String)
Dim cl As Range, xx As Integer
If Len(mit) <> Len(mire) Then MsgBox "Nem egyforma a két szöveg!", vbInformation: Exit Sub
For Each cl In rng.Cells
If Not IsEmpty(cl) Then
For xx = 1 To Len(mit)
cl.Value = Replace(cl.Value, Mid(mit, xx, 1), Mid(mire, xx, 1))
Next
End If
Next
End SubA VBA nézet immediate ablakából indíthatod, pl. így:
cserelo Sheets("Munka1").Range("A1:C72"),"áéó","aeo" a végén enter.Tehát az első paraméter a tartomány címe (vba-szerint beírva), a második a cserélendő betűk, a harmadik pedig amire cserélni kell. A második és a harmadik paramétert "szinkronban" kell tartani, mert az azonos pozícióban levő betűket cseréli (tehát első betűt az elsőre, második betűt a másodikra és így tovább).
Üdv.
[ Szerkesztve ]
-
Pakliman
tag
válasz attilalr2 #28000 üzenetére
Hali!
Nem tudom, Nálad milyen kódolás van.
A munkahelyemen spec. program TXT kimenetét kellett átalakítanom olvashatóbbá.
A makró (standard modulba rakod):Private Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
Private Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
Public Function Konvert(mit, Optional KellKonvertálni As Boolean = True) As String
Dim vissza As Long
Dim dest As String
If KellKonvertálni Then
dest = Space(Len(mit))
vissza = OemToCharBuff(mit, dest, Len(mit))
Else
dest = mit
End If
Konvert = dest
End FunctionEzt használhatod cellába beírva, vagy akár egy újabb makróban is, amelyik végigfut a szükséges cellákon és átalakítja a tartalmukat.
[ Szerkesztve ]
-
Pakliman
tag
válasz attilalr2 #35171 üzenetére
Szia!
Ezt a DARABTELI függvénnyel meg tudod oldani.
Segédoszlopot célszerű alkalmazni, amiben 1 vagy 0 értéket ad a függvény attól függően, hogy az adott sorban a 2 szám együtt szerepel-e:=HA(ÉS(DARABTELI(A1:E1;1)=0;DARABTELI(A1:E1;2)=0);1;0)
Esetleg 2 cellát is használhatsz, amibe a keresendőket írod, így bármikor változtathatod.
Ekkor pl::
=HA(ÉS(DARABTELI(A1:E1;$G$1)=0;DARABTELI(A1:E1;$H$1)=0);1;0)A SZUM()-al összesítheted.
[ Szerkesztve ]
-
Fferi50
őstag
válasz attilalr2 #35171 üzenetére
Szia!
Az alábbi felhasználói függvénnyel megoldható:
Function bevizsgal(ByRef hol As Range, ByRef mit As Range)
Dim sr As Range, van As Integer, mr As Range
van = 0
For Each sr In hol.Rows
van = van + (Application.CountIf(sr, mit.Cells(1)) > 0 And Application.CountIf(sr, mit.Cells(2)) > 0) * -1
Next
bevizsgal = van
End FunctionA függvényt egy modullapra kell beírni. (Alt F11, menüben insert - module, majd bemásolod)
Ugyanúgy kell használni mint egy beépített függvényt. Ha húzni szeretnéd a képletet, akkor az első paramétert $ jelekkel kiegészítve kell megadnod.A füzetet makróbarátként kell elmentened, ha meg akarod tartani a függvényt.
Üdv.
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen