- Microsoft Excel topic
- Crypto Trade
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- MinDig TV
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Rendszergazda topic
- Mindenki AI-t akar, már 2025-re is eladták a HBM chipeket
- Proxmox VE
- Kapnak egy rakás reklámot a Roblox játékosai
- ArchiCAD és Artlantis topik
-
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
-
félisten
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #6346 üzenetére
A1-ben a bük lehetne Bükkösd is a B1-ben.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
ulrik19
tag
-
félisten
-
ulrik19
tag
válasz Fire/SOUL/CD #6352 üzenetére
Azért az még érdekelne, hogy az ABC sorrendiség adottságnak tekinthető?
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
félisten
-
ulrik19
tag
válasz Fire/SOUL/CD #6358 üzenetére
Oké!
csak emiatt kérdeztem:
de a megoldásnak olyannak kell lennie, hogy ha bármely kiinduló adat változik, akkor a táblázat továbbra is az eredeti elvárásoknak megfelelően működjön...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
Delila_1
Topikgazda
Sikerült úgy megoldani, hogy a B1-be csak akkor írja be a helység nevét, ha az A1-be bevitt érték alapján csak ez az egy lehet igaz.
[link]A sárga hátterű tartomány feltételes formázásán is kellett módosítani.
Egy dolog nem stimmel: ha az A1 üres, a formátum nem lesz alapbeállítású. 2007-ben meg lehetne adni ezt is, a 2003-ban csak 3 feltétel adható meg.
[ 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.
-
félisten
válasz Delila_1 #6360 üzenetére
Hali!
Nem jó. Most meg ha bük-öt írok A1-be, akkor nem jelenik meg semmi B1-be.
szerk
Konkrétan B1-ben soha nem jelenik meg semmi
Meg al beírásakor, még a listában sem jelölődik ki semmiValamit nagyon módosítottál...
Fire.
[ 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 ulrik19 #6359 üzenetére
Szerintem ezen nem a sorrend változását értették, hanem az esetleges bővülést. Azt meg könnyű módosítani a $A$129-et átírva.
Kiinduló adat > több (vagy kevesebb) vár.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 Fire/SOUL/CD #6361 üzenetére
bük-nél nem is jelenhet meg, mert az lehet Bük, és Bükkösd.
Az as-nál, vagy bélm-nél már megjelenik.Zöld is csak akkor lesz az A4:D129 tartomány, ha sikerült konkrét helységet kiválasztanod a megfelelő számú karakterrel.
[ 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.
-
félisten
válasz Delila_1 #6363 üzenetére
Hali!
Ez sajnos teljesen rossz értelmezés, ugyanis B1 csak és kizárólag akkor lehet üres, ha A1 is üres. Minden más esetben B1-be kell kerülni egy helység névnek(vagy ha nincs semmilyen egyezés a listában, akkor akár lehet nincs találat felirat is) a megfelelő cellaháttér- és betűszínekkel.
Fire.
[ 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 #6364 üzenetére
Nem vagyok biztos az értelmezésben. Ha ez igaz, akkor az előző változat a jó.
A B1 képletén annyit módosítottam most, hogy bük, vagy eger beírásakor jelenjen meg Bük, vagy Eger.
=HA(HIBÁS(HOL.VAN($A$1&"*";$A$4:$A$129;0));"Nincs";HA(VAGY(DARABTELI(A4:A129;A1)>0;DARABTELI($A$4:$A$129;$A$1&"*")=DARABTELI($A$4:$A$129;INDEX($A$4:$A$129;HOL.VAN((BAL($A$1;HOSSZ($A$1)) & "*");$A$4:$A$129;0);1)));INDEX($A$4:$A$129;HOL.VAN($A$1&"*";$A$4:$A$129;0));""))
[ 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.
-
félisten
válasz Delila_1 #6365 üzenetére
Hali!
Ezt csak egyféleképpen lehet értelmezni
ha nincs a megadott karaktersorozattal kezdődő község: piros cellában világossárga betűk;
ha több ilyen is van: sárga alapon piros betűk;
ha pontosan egy ilyen község van: zöld betűk;
üres cella esetén maradjon az eredeti cellaszín!Az üres A1 kivételével minden esetben kerül valamilyen szöveg B1-be.
De persze tudom mire gondolsz, és ha úgy oldottad meg, akkor úgy is jó.
Fire.
[ 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 #6366 üzenetére
Az utolsó mondatod nem szerepel a kiírásban.
Szerintem jobb, ha több választási lehetőség esetén üres marad a B1, míg nem teszi a felhasználó egyértelművé a dolgot.
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 #6367 üzenetére
Hali!
Jó elbeszélünk egymás mellett, sebaj, dagad a szürkeállomány legalább...
Szóval akkor ezt nem valósítja meg, az utoljára belinkelt táblád."Példaként: ha A1-be a „bük” karaktersorozatot írjuk, akkor B1-ben jelenjen meg Bük neve, míg Bükkösdhöz csak legalább négy karakter beírásával juthatunk („bükk”)."
Ez már nem félreérthető asszem...
Fire.
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 #6368 üzenetére
A módosított B1 képlettel (2-3 hozzászólással ezelőtt) már az is megy.
Érdekelne, mennyi a teljes feladatsor max. pontszáma, ha ez az 5. számú 31 pontot ér.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 #6369 üzenetére
Hali!
Nem tudom az összpontszámot, egyik PH-s fórumtárs keresett még valamikor tavaly privátba, hogy ebben a feladatban segítsek neki, én is így, ezt az 1 feladatot kaptam.
Csak mivel elég érdekesnek tűnt, gondoltam megosztom veletek, remélhetőleg még lesznek érdeklődök, akik egy "kis" agytorna gyanánt nekiugranak.
Én szeretem az ilyen feladatokat, és örültem volna, ha annak idején nekünk is ehhez hasonló "nehézségű" feladatokat hoztak volna példaként, nem pedig a szokásosakat.
(Meg akkor nem kellett volna megtanulni magamtól)Más:
Korábban említést tettél rá, hogy 2003-ban csak 3 szabályt lehet megadni. Először nem is figyeltem fel rá, de most hirtelen végig gondolva ez nem igazán értem, nálam ugyanis 5 szabály van.
Na most ennek az lehet az oka, hogy 2007-ben készült tábla, de 2003-as formátumba mentettem?
Hogyhogy nem reklamál a 2003-as formátum az 5 szabály miatt(és működik persze)?Fire.
[ 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)
-
Cuci3
tag
válasz Fire/SOUL/CD #6370 üzenetére
"Csak mivel elég érdekesnek tűnt, gondoltam megosztom veletek, remélhetőleg még lesznek érdeklődök, akik egy "kis" agytorna gyanánt nekiugranak."
Ha lesz rá energiám, és visszaolvasom ezt a rengeteg posztot, és a napocska is sütni fog még, akkor talán igen. -
Delila_1
Topikgazda
válasz Fire/SOUL/CD #6370 üzenetére
Az A1:B1 tartományra 4 szabályt ad, az A4:D129-re másikat.
Igen, xls-ben tetted fel, de nem volt benne semmi, ami a 2003-ban nem lenne értelmezhető.
Cuci, csak töltsd le a linket a #6313-ról, ne olvasd el a sok hozzászólást. Legalább lesz ugyannak a szövegnek, feladatnak egy újabb értelmezése.
[ 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.
-
lakatosturbo
aktív tag
Ezt az animációt hogy lehet lehetne kikapcsolni amikor kiválasztom a SUM fügvényt?
[link]Origin: viktorvill Steam: viktorvill
-
Cuci3
tag
válasz lakatosturbo #6375 üzenetére
Szerintem nem Excel beállítás, legalább is én nem tudok róla.
Szerintem nézzél körül itt: Vezérlőpult / Rendszer / Speciális fül / Teljesítmény beállítások.
Itt a Vizuális hatásokból szedd ki a ki- és beúsztatási lehetőségeket. -
Pulsar
veterán
Sziasztok!
van egy macro-m, amit még a Ti segítségetekkel íródott, és tegnap óta, Type Mismatch hibával megáll
a kód ez:
Sub pivot()
Sheets("IDE_MASOLD").Select
Dim sor, z, y, x, w, v, u, t, s, r, q, p, o, n, m, l, k, j, i, h, g, f, e, adat, ossz, fil As Integer
Dim filter_1, filter_2, filter_3 As String
z = 0: y = 0: x = 0: w = 0: v = 0: u = 0: t = 0: s = 0: r = 0: q = 0: p = 0: o = 0: n = 0: m = 0: l = 0: k = 0: j = 0: i = 0: h = 0: g = 0: f = 0: e = 0
filter_1 = Range("Data!C40").Text
If filter_1 = "ALL" Then
filter_1 = "BOARD": filter_3 = "DT BOARD"
End If
For fil = 1 To 25
filter_2 = Sheets("Data").Cells(46, fil)
For sor = 2 To ActiveSheet.UsedRange.Rows.Count
adat = Cells(sor, 21)
If Cells(sor, 4) = filter_1 And Cells(sor, 17) = filter_2 Then
If adat = "SPEARS" Then z = z + 1
If adat = "TRAVIS" Then y = y + 1
If adat = "AZEDA" Then x = x + 1
If adat = "LAGUNA" Then w = w + 1
If adat = "KEY WEST" Then v = v + 1
If adat = "SULLIVAN" Then u = u + 1
If adat = "CORSICA" Then t = t + 1
If adat = "GILLIGAN" Then s = s + 1
If adat = "THURMAN" Then r = r + 1
If adat = "TAHITI" Then q = q + 1
If adat = "YEBISU" Then p = p + 1
If adat = "ZANZIBAR" Then o = o + 1
If adat = "HAWKE" Then n = n + 1
If adat = "BARBADOS" Then m = m + 1
If adat = "CAYMAN" Then l = l + 1
If adat = "LIONS GATE" Then k = k + 1
If adat = "SIBERIA" Then j = j + 1
If adat = "GREAT BELT" Then i = i + 1
If adat = "AMBRASSADOR" Then h = h + 1
If adat = "FOLSOM" Then g = g + 1
If adat = "BONDI/BENZ" Then f = f + 1
If adat = "PEARY/PENSACOLA" Then e = e + 1
End If
Next
Sheets("Data").Cells(47, fil) = z
Sheets("Data").Cells(48, fil) = y
Sheets("Data").Cells(49, fil) = x
Sheets("Data").Cells(50, fil) = w
Sheets("Data").Cells(51, fil) = v
Sheets("Data").Cells(52, fil) = u
Sheets("Data").Cells(53, fil) = t
Sheets("Data").Cells(54, fil) = s
Sheets("Data").Cells(55, fil) = r
Sheets("Data").Cells(56, fil) = q
Sheets("Data").Cells(57, fil) = p
Sheets("Data").Cells(58, fil) = o
Sheets("Data").Cells(59, fil) = n
Sheets("Data").Cells(60, fil) = m
Sheets("Data").Cells(61, fil) = l
Sheets("Data").Cells(62, fil) = k
Sheets("Data").Cells(63, fil) = j
Sheets("Data").Cells(64, fil) = i
Sheets("Data").Cells(65, fil) = h
Sheets("Data").Cells(66, fil) = g
Sheets("Data").Cells(67, fil) = f
Sheets("Data").Cells(68, fil) = e
z = 0: y = 0: x = 0: w = 0: v = 0: u = 0: t = 0: s = 0: r = 0: q = 0: p = 0: o = 0: n = 0: m = 0: l = 0: k = 0: j = 0: i = 0: h = 0: g = 0: f = 0: e = 0
Next
Sheets("Data").Select
Cells(1).Select
End Subhibának ezt a sor adja besárgítva:
If adat = "SPEARS" Then z = z + 1Szerintetek mi lehet a gond?
-
félisten
Hali!
A Then utáni részt rakd új sorba, tehát:
If adat = "SPEARS" Then
z = z + 1Ha ezt megteszed, akkor az If adat = "TRAVIS" Then y = y + 1 sorral lesz gondja. Sajnos mindegyiken el kell végezni a módosításokat.
Fire.
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)
-
Pulsar
veterán
válasz Fire/SOUL/CD #6378 üzenetére
de ez eddig így ment
azét megcsinálom, csak érdekes[ Szerkesztve ]
-
félisten
-
Pulsar
veterán
válasz Fire/SOUL/CD #6380 üzenetére
hopp.. bocs
most viszont a next whitout for hibával áll meg az END IF utáni nextet bejelölve
e = e + 1
End If
Next <---- ITT ÁLL MEG!
Sheets("Data").Cells(47, fil) = z(#6381) ulrik19 nem, szöveg van, ami generic
[ Szerkesztve ]
-
ulrik19
tag
de az adat változó nem integernek van deklarálva?
én sosem szerettem az adat=cells(x,y) megadást, mert ez jelentheti magát a cellát, mint objektumot. (tudom, elvileg a .value a default tulajdonság, de akkor is)
szóval én ezzel kezdeném, de nem biztos, hogy ez a hiba forrása:
dim adat as string
ill.
adat=cells(x,y).value...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
félisten
Hali!
Lemaradt ez endif, akkor így
If adat = "SPEARS" Then
z = z + 1
End IfAmúgy meg én is azt kérdeztem volna, amit ulrik19, szóval mi változott, vagy esetleg maga az office csomag változott?
A Type Mismatch típushibára utal, tehát az And-es sorban keresném a hibát, de mivel azt írtad, hogy nem abban a sorban írja ki, ezért nem tudok mást elképzelni, azaz mégis.
Debuggold a kódot lépésről-lépésre, aztán ha mégis az And-es soron fog leakadni, akkor tuti, hogy a megadott cellákból nem megfelelő adatokat hasonlítasz össze...Fire.
[ 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)
-
Pulsar
veterán
válasz ulrik19 #6385 üzenetére
semmi...
minden nap készítek erről a filesről egy mentést... a tegnapi simán lefut a mai mai adatokkal ne.
Ha a mai adatokat bemásolom a tegnapi reportba akkor az is megáll. Tehát az adatoknál lenne változás, de ott nincs.
a változás az lejet, hogy a 21-es oszlopban az adatokat egy VLOOKUP eredménye.de akkor sem értem mi lenne a gond, hiszen max olyan értékek szerepelnek benne, ami a kritériumoknak nem felel meg, és kész. -
Pulsar
veterán
válasz Fire/SOUL/CD #6386 üzenetére
da beugolom ezt a sort írja ki:
If adat = "SPEARS" Then z = z + 1
ha kiskippelem ezt a sort, akkor akövetkezőt
ha így írom:
If adat = "SPEARS" Then
z = z + 1akkor a
if adat = "PEARY/PENSACOLA" Then e = e + 1End If
Next
Sheets("Data").Cells(47, fil) = znext-nél áll meg.next whitout for-al. de van for.
-
ulrik19
tag
Sajnos (?) a VB elég rugalmasan kezeli ezt a témakört. abban sem vagyok biztos, hogy a dim x, y as string esetében x és y is string lesz-e,nem csak y. (és x meg variant)
Viszont ha ezzel lenne a gubanc, akkor már korábban is jelentkeznie kellett volna.
Ha a kódban nem történt változás, valamint ugyanazon a gépen, ugyanazzal az excellel lett megnyitva, de más adatokkal, akkor az adatokkal van a "hiba". Pontosabban ott kell keresni ennek a hibának a forrását. (pl. vlookup-nál a hibajelzést: #missing)
Nálam ilyen esetben szintén ugyanez a hiba jött elő. Ami megoldódott az cells(x,y).Text alkalmazásával.
...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz lakatosturbo #6375 üzenetére
Az animáció eltüntetése
Egyik módszer:
Vezérlőpult -> Megjelenítés -> Megjelenítés fül ->Hatások
Vedd ki a pipát a Menük és eszközleírások áttűnése előtti négyzetből.Másik módszer:
Futtasd a Regedit-et, menj a HKEY_CURRENT_USER \ Control Panel \ Desktop \ WindowsMetrics mappába. A Szerkesztés -> Új -> Karakterlánc menüt választva vigyél be új objektumot. Nevezd ezt el MinAnimate-nek, kattints rá kétszer az objektumra, és írd be a 0 értéket. Lépj ki a regisztrációs adatbázis-szerkesztőből, és indítsd újra a gépet. A lekicsinyítés és felnagyítás ettől kezdve gyors lesz, mint a villám.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Cuci3
tag
válasz Delila_1 #6374 üzenetére
Sisak, nehézvértezet fenn, láncos buzogányomat itt forgatom.
Sajna a gondolatomat nincs idő leírnom, illetve még a korábbi postokat sem olvastam vissza. Ja és személyes okok miatt a "csak zöld betűtípus" részt "csak kék betűtípus"-ra váltottam (emögött nem politikai, vallási vagy futball-huliganizmus áll, hanem a színtévesztő vagyok és a zöldet baromira nehezen tudom megkülönböztetni egypár másik színtől )
Előljáróban: Az "eger" szöveg nekem egyértelműen definiálja Egert (mégha Egervár ott is van), és Egervárhoz legalább az "egerv" szöveg szükséges.[ Szerkesztve ]
Új hozzászólás Aktív témák
- Anglia - élmények, tapasztalatok
- 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
- További aktív témák...
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eladó Steam kulcsok kedvező áron!