-
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
-
#1951
Dictator^
veterán
matekmatika
#1948
Dictator^
veterán
válasz
matekmatika
#1948
üzenetére
én nem keresni akarok csak átállitani az egyes szavak szinét, ezt 1x kell megcsinálni a proginak és nem hiszem, hogy nehéz lenne, mert amikor 1 név szerepelt a cellába akkor megcsinálta a feltételes formázással.
a szavak amik sokszor elfordulnak pl: Coca-Cola 3dl és ezt vedd hogy elég sok helyre van másolva (cellába), de néha van Coca-Cola 4dl, ezt is más szinnel kéne (és ez is több helyen szerepel). ez csak egy pl volt
És különben is... ...megfogadtam, hogy többé nem fogadok!
-
matekmatika
tag
válasz
Dictator^
#1951
üzenetére
Hát lehet, hogy rosszul gondolkodom, de ha egy programnak végig kell néznie egy adott területet, hogy van-e egyforma szó, akkor valahogy keresnie kell. Igaz nem neked, hanem a programnak.
A példádat nézve viszont nekem úgy tűnik megsem szavakat kell összehasonlítani, hanem cellákat. Az én eredeti elképzelésem szerint pl. Coca-Cola 3dl és a Coca-Cola 4dl összehasonlítva a Coca-Cola azonos lenne, a 3dl és a 4dl különböző. De neked nem ez kell ezek szerint, hanem hogy az összes Coca-Cola 3dl egy színű legyen illetve az összes Coca-Cola 4dl is csak mondjuk másmilyen színű. Ha jól értem. -
#1954
Dictator^
veterán
matekmatika
#1952
Dictator^
veterán
válasz
matekmatika
#1952
üzenetére
á várj hülyén irtam le:
1Pepsi Cola 3dl, Coca-Cola 3dl >ez egy cella
2Pepsi Cola 4dl, Coca-Cola 4dl >ez egy cella
3Pepsi Cola 5dl, Coca-Cola 5dl >ez egy cella
4Pepsi Cola 3dl, Coca-Cola 4dl >ez egy cella
tehát látod 2x szerepel a Pepsi Cola 3dl, ez mondjuk legyen kék, a többi Colákra is más szint szeretnék.
hü de hülyén lehet ezt leirni
És különben is... ...megfogadtam, hogy többé nem fogadok!
-
-
#1956
Dictator^
veterán
matekmatika
#1955
Dictator^
veterán
válasz
matekmatika
#1955
üzenetére
vesszővel vannak elválasztva.
és általába kettesével találhatók egymás mellett igen, de tényleg sokszor ismétlödik, de mindig ugyanaz.
előre is köszi.És különben is... ...megfogadtam, hogy többé nem fogadok!
-
#1957
febi
tag
matekmatika
#1945
febi
tag
válasz
matekmatika
#1945
üzenetére
Köszi szépen. megcsinálta a több, mint 5000 soromat is rendben
Jól müködik a makró
-
#1958
ssrobi
csendes tag
matekmatika
#1953
ssrobi
csendes tag
válasz
matekmatika
#1953
üzenetére
Ja bocsi csak a lényeget hagytam ki
hibaüzi:
ActiveX component can't create object
jelölt sor:
Set PDF = CreateObject(''PDFCreatorPilot2.piPDFDocument'')
Köszi
-
#1960
Dictator^
veterán
matekmatika
#1959
Dictator^
veterán
válasz
matekmatika
#1959
üzenetére
nemtudom hogy lesz e még amit ki akarok emelni, nem tudod levezetni a folymatatot? plnak csináld mondjuk 4-el
aztán jó lenne ha átadnád a tudást pls köccÉs különben is... ...megfogadtam, hogy többé nem fogadok!
-
febi
tag
Sziasztok, van nekem excel fájlom ahol az ''1''-fülön vannak adatok és a ''2''-n is vannak adatok.Azt szeretném megcsinálni, hogy a ''2'' fülön lévő adatok C oszlopában lévő adatokat hasonlítsa össze az ''1'' fülön lávő C oszlopával és ha talál ugyanolyat akkor az ''1'' fülön talált azonos adatok sorait szinezze be vagy jelőlje meg nekem vhogyan PL. a D oszlopba rakjon a találatokhoz egy ''flag''-et. Vki esetleg tud nekem mondani egy egyszerű megoldást?
Köszi előre is. -
matekmatika
tag
válasz
Dictator^
#1954
üzenetére
Visszatérve egy korábbi hozzászólásodra, hogy annyira nem lehet nehéz megcsinálni..., lehet, hogy van akinek nem. Nekem azért kellett vele bírkozni egy kicsit. Nem lehetett volna a tételeket cellánként kezelni?
Itt a végeredmény, hozz létre egy új makrót és illeszd be:
Sub Szinezos()
'Hivatkozni szeretnék majd az aktuális munkalapra
'és mivel nem tudom mi most a neve nálad ezért
'először átnevezem ''Tételek''-re
ActiveSheet.Name = ''Tételek''
'Az utolsó sor száma
sor = ActiveSheet.UsedRange.Rows.Count
'Az utolsó oszlop száma
oszlop = ActiveSheet.UsedRange.Columns.Count
'Alapértelmezett szín
szin = 0
'Létrehozunk egy segéd munkalapot
Worksheets.Add.Name = ''seged''
'melyre a ''seged''-del fogunk hivatkozni
Set seged = Worksheets(''seged'')
'Aktívvá tesszük ismét a Munka1-t
Worksheets(''Tételek'').Activate
x = 0
'Két ciklussal végigmegyünk a cellákon
For j = 1 To oszlop
For i = 1 To sor
'aktuális cella
cella = Cells(i, j)
'cella karaktereinek száma
h = Len(cella)
''',''-t keres a szövegben
a = InStr(cella, '','')
'Ha nincs ''a'' értéke: 0 lesz
'Ha van akkor '','' pozícióját adja
If a > 0 Then
elso = Left(cella, a - 1)
masodik = Right(cella, h - a - 1)
'Ha nem talál '',''-t a beírt szövegben
Else
'Akkor az első legyen maga a cella tartalma
elso = cella
'Második tétel pedig nincs
masodik = 0
End If
'A kapott tételeket eltároljuk a segéd munkalapon
If elso <> Empty Then
x = x + 1
seged.Cells(x, 1) = elso
End If
If masodik <> Empty Then
x = x + 1
seged.Cells(x, 1) = masodik
End If
Next i
Next j
'Tételek átnézése azonosak megjelölése
Application.ScreenUpdating = False
Sheets(''seged'').Select
Columns(''A:A'').Select
Selection.Sort Key1:=Range(''A:A''), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Do While Cells(1, 1) = Empty
Cells(1, 1).Select
Selection.Delete Shift:=xlUp
Loop
a = 2
b = 1
Cells(1, 2) = Cells(1, 1)
Do While Cells(a, 1) <> Empty
If Cells(a + 1, 1) = Cells(b, 2) Then
Cells(b, 3) = Cells(b, 3) + 1
Else
Cells(b + 1, 2) = Cells(a + 1, 1)
Cells(b, 3) = Cells(b, 3) + 1
b = b + 1
End If
a = a + 1
Loop
Sheets(''Tételek'').Select
i = 1
szin = 2
Do While seged.Cells(i, 2) <> Empty
If seged.Cells(i, 3) > 1 Then
For j = 1 To sor
For k = 1 To oszlop
cella = Cells(j, k)
If cella Like ''*'' & seged.Cells(i, 2) & ''*'' Then
kezd = InStr(cella, seged.Cells(i, 2))
hossz = Len(seged.Cells(i, 2))
h = InStr(cella, '','')
If h > 0 Then
With Cells(j, k).Characters(Start:=kezd, Length:=hossz).Font
.FontStyle = ''Félkövér''
.ColorIndex = szin
End With
If Left(cella, h - 1) = Right(cella, Len(cella) - h - 1) Then
With Cells(j, k).Font
.FontStyle = ''Félkövér''
.ColorIndex = szin
End With
End If
Else
With Cells(j, k).Font
.FontStyle = ''Félkövér''
.ColorIndex = szin
End With
End If
End If
Next k
Next j
End If
i = i + 1
szin = szin + 1
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Worksheets(''seged'').Delete
Application.DisplayAlerts = True
End Sub
vagy dolgozd át ezt, itt megnézheted konkrétan mit csinál: [link]
[Szerkesztve] -
#1970
lapa
veterán
matekmatika
#1969
lapa
veterán
válasz
matekmatika
#1969
üzenetére
miért kell a segéd? a keres & színez elv az oké, én lusta voltam hozzá...
-
#1971
matekmatika
tag
lapa
#1970
-
Aljas
csendes tag
Hi!
Most egy nagyon egyszerű kérdésem lenne:
Hogy tudnám makrón belül megtudni, hogy az aktuális beállításoknál mekkora a nyomtatási terület szélessége illetve magassága? (Pontosabban egy kinyomtatott oldal mérete hány ''pixel'' a képernyőn)
Vagy az is megoldás lenne, ha valahogy rá tudnám venni az Excelt, hogy fittelt (pl. 1 oldal szélesre és 1 oldal magasra nyújtja) beállítások mellett is figyelembe vegye az általam beszúrt oldaltöréseket...
Ja és #1926-re valakinek ötlet?
[link]
köcc
[Szerkesztve]Hess rémes árny. Szörnykép, riogató! Hess!
-
bumper
senior tag
Sziasztok!
Milyen fügvényekkel lehet elérni , hogy bizonyos oszlopokra értve azonos sorokat mutasson nekem?
Pl
Ha az A B és C oszlopok a figyelt részek:
...........A..............B.............C............D Függvény
1.....ablak.........ajtó..........ház..........3........... EZT Mutatja
2......ablak..........ajtó .......ház..........6...........EZT Mutatja
3.......fa .............ablak......ház.........23.........
4.......ablak...........tú........fefa..........2.............
?
Köszi -
#1980
matekmatika
tag
Lacir
#1975
matekmatika
tag
A darabteli fv.-t DARABTELI(tartomány;kritérium) alakban kell megadni.
Bár kicsit megtekerve itt használható, ha a kritériumot úgy alakítjuk hogy a ''nemüres'' celláknak feleljen meg, de szerintem itt a DARAB2(tartomány) egyszerűbb lenne.
Ez utóbbi fv. a megadott tartomány területen található kitöltött cellák számát adja eredményül. -
#1981
Lacir
csendes tag
matekmatika
#1980
Lacir
csendes tag
válasz
matekmatika
#1980
üzenetére
fero02-nek is köszönöm.
Valóban a feltett kérdésemre az általatok megadott fv a megoldás, de közben mégis az üres cellák számolása mellett döntöttem, így a darabüres fv lett a megoldás, amit így már könnyű volt megtalálnom
Köszönöm az útbaigazítást és a segítségeteket -
#1985
Dictator^
veterán
matekmatika
#1969
Dictator^
veterán
válasz
matekmatika
#1969
üzenetére
köszi remélem összejön elsőre kicsit bonyolultnak tünik.
még1x köszönöm. holnap valószinüleg átnyálazom.És különben is... ...megfogadtam, hogy többé nem fogadok!
-
#1986
ssrobi
csendes tag
matekmatika
#1983
ssrobi
csendes tag
válasz
matekmatika
#1983
üzenetére
Hát akkor nem értem, na majd megpróbálom újra feltepeíteni a progit amit adtál, hátha ott csesztem el valamit, mert az nekem egy PDF szerkesztőt akar megnyitni valamiért, ahelyet, hogy csak simán megcsinálná a PDF-et.
Ez a link nekem kicsit nagyon bonyolult amit adtál Majd nézegetem még egy kicsikét
köszi mindenesetre!
-
p4t4
csendes tag
Sziasztok...
Lenne egy kérdésem... Excel.. szerkesztőléc... Hogy tudom azt megcsinálni, hogy ott ne a fx (tehát a függvény legyen), hanem egyből egyenlőségjel = legyen...
Tudom, hogy meg lehet csinálni, mert az egyik user gépén ilyen volt és a másik is hozzá van már szokva ehhez... Ugyhogy pls HELP!!!
There is no SPOON... ÷Đ
-
#1989
p4t4
csendes tag
matekmatika
#1988
p4t4
csendes tag
válasz
matekmatika
#1988
üzenetére
Más megoldás???
Nem hiszem el, hogy nem létezik más....
There is no SPOON... ÷Đ
-
#1991
p4t4
csendes tag
matekmatika
#1990
p4t4
csendes tag
válasz
matekmatika
#1990
üzenetére
jah... ezaz.. hogy office xp-t raktam fel a usernek, a másiknak meg 2000-je van...
Megpróbáltam azt, hogy az eszköztárat átrakom a 2000-es gépről...
De nem csinált ez a hulladék semmit...
''Csak akkor nem fogunk Microsoft termékkel szívni, ha ráállnak a proszívógyártásra!!!''There is no SPOON... ÷Đ
-
p4t4
csendes tag
Vagy azt meg lehet-e csinálni, hogy ha beirok egy adatot (mondjuk: 464) és dolgozok más cellában... utána visszamegyek a cellába és beirok még egy adatot (mondjuk: 656) akkor ezeket összeadja.... tehát autoszumma legyen... nem pedig szar = jel beírás után:
x + y +z = összeg... értitek nem?There is no SPOON... ÷Đ
-
#1994
p4t4
csendes tag
matekmatika
#1993
p4t4
csendes tag
válasz
matekmatika
#1993
üzenetére
Akkor nem értem....
Akkor azon a gépen volt valami mahinálva... mert most megnéztem...
Ha beirsz egy számot, mondjuk 11... ugyanabba a cellába beirsz egy másikat... mondjuk 14... akkor nem a 14-et fogja kiirni, hanem 25-t ír... érted???
EZ KELL NEKEM!!!
There is no SPOON... ÷Đ
-
#1995
matekmatika
tag
p4t4
#1994
matekmatika
tag
-
Pá
addikt
Sziasztok!
Nem sokára kéne csináljak egy elég bonyolult táblázatot, szóval majd lehet, hogy rendszeres topiclakó leszek.
Elsőre egy gyors kérdés: ''össze lehet kötni'' két cellát? Arra gondolok, hogy ha az egyikbe beírok valamit az jelenjen meg a másikban is és fordítva. És ezt akárhányszor el lehessen játszani.''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
)
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Fferi50- Apple notebookok
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- Overwatch 2
- Automata kávégépek
- PlayStation 5
- A Mobvoi eddigi legkeményebb órája a TicWatch Atlas
- Politika
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Elektromos rásegítésű kerékpárok
- Samsung LCD és LED TV-k
- További aktív témák...
- ESET termékek hivatalos forgalmazója / NOD32 / Internet Security / Smart Security Premium
- Star Wars Outlaws GeForce RTX 40 Bundle - lepd meg magad!
- Védje meg számítógépét a vírusoktól!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, kedvező ár!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest