- Fotók, videók mobillal
- Realme GT 5G - versenyképes
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Érintésnélküli fizetési megoldások - PayPass via NFC
- Ezek a OnePlus 12 és 12R európai árai
- Honor 200 Pro - mobilportré
- Samsung Galaxy S22 Ultra - na, kinél van toll?
- iPhone topik
- Sony Xperia 1 V - kizárólag igényeseknek
- Bivalyerős lett a Poco F6 és F6 Pro
Hirdetés
-
Biztonsági aggályok miatt késik a Microsoft hatalmas AI-újítása
it A Microsoft úgy döntött, hogy biztonsági aggályok miatt elhalasztja a Recall AI funkciót, így azt csak szűkebb körben tesztelik egyelőre.
-
Spyra: nagynyomású, akkus, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
Z Fold6 imitátor árulkodik a fogyókúrázó igaziról
ma Több lesz kívül a változás, mint belül.
-
Mobilarena
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
-
eeeasy
csendes tag
válasz m.zmrzlina #9443 üzenetére
Igen, pontosan ilyen táblára van szükségem.
"Ezekhez az elemekhez honnan fogunk árat rendelni? Üresen hagyjuk az ár helyét?"
Igen.
"Mindig a tábla1 terméknevei a bővebbek mint a te példádban vagy van olyan is mint az én példámban a nagyharang-templomi nagyharang ahol a tábla2 leírása bővebb?"
Elméletileg a tábla1 terméknevei tartalmazzák a felesleges szavakat, kicsi az esély arra, hogy a tábla2 bővebb.
-
agemate
addikt
válasz m.zmrzlina #9449 üzenetére
Köszönöm!
-
lappy
őstag
válasz m.zmrzlina #9463 üzenetére
És a színét hogyan lehet megváltoztatni?
Bámulatos hol tart már a tudomány!
-
Cuci3
tag
válasz m.zmrzlina #9488 üzenetére
Az elejére bedobnék egy Msgboxot:
a=Msgbox("Valami", vbinformation + vbYesNo, "Valami2")
Ezzel meg lehet kérdezni, hogy törlni akar-e vagy új értéket beilleszteni, ezzel a space-t kiváltod (ha a = True / Yes, vagy mi kell ide, stb.). Ha mondjuk nem-re nyom, akkor mehet az inputbox.
u.i.: most a kódot nem ellenőriztem, csak beírtam fejből, rem jó lesz.[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz m.zmrzlina #9490 üzenetére
Közben megoldottam a problémát.
Az Inputbox után a Select Case elé betettem ezt a sort:If InStr(tech, " ") = 1 Then tech = " " Else tech = tech
Mivel az Inputboxba nem várunk olyan adatot ami szóközzel kezdődik ezért bármilyen bevitt adat ami szóközzel kezdődik az törölni fogja a listát.
Van viszont más kérdésem az Inputbox-szal kapcsolatban.
Hogyan kell lekezelni a Cancel gombot, hogy valóban Cancel-ként viselkedjen? Jelen formájában ugyanazt csinálja mint az OK gomb. -
félisten
válasz m.zmrzlina #9491 üzenetére
MySelect = MsgBox("Valami", vbInformation + vbOKCancel, "Valami2")
If MySelect = vbCancel Then MsgBox ("Cancel")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)
-
félisten
válasz m.zmrzlina #9493 üzenetére
Inputbox-ra sehogy, mivel nincsenek rajta gombok. Ezért írtam a MsgBox-ot, mert ott lehetnek gombok.
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)
-
félisten
válasz m.zmrzlina #9495 üzenetére
Még korán van számomra(hétvégén ha 10-12 órát aludtam, az már túlzás, meg ma reggel is 5-kor feküdtem ), félreérthetően fogalmazok. Szóval az előbbit úgy értettem, hogy nem Te adhatod meg, hogy milyen gombok legyenek az InputBox-on, amik meg vannak, azoknak nincs olyan visszatérési értékük, mint MsgBox esetén.
Persze le lehet kezelni több módon is az InputBox Cancel-t: [link] [link]
[ 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)
-
Geryson
addikt
válasz m.zmrzlina #9512 üzenetére
Az üres cellát hozza eredményül, nem jó.
bugizozi: persze, meglehetne, akár akkor másképp is, de nem akarok egy csomó nullát látni, ez lenne a lényege - csak ezt elfelejtettem leírni.
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
perfag
aktív tag
válasz m.zmrzlina #9495 üzenetére
Nem akarok akadékoskodni, de szerintem a koncepcióddal van baj. A kép alapján mondom, ide nem InputBox kell. Egy későbbi hozzászólásodban látom gondolkodsz már saját UserForm-ban, de oda sem TextBox kellene, hanem lista, vagy lenyílós lista.
Azt látom, hogy technikusok nevét kell megadnod. A lista a gépelési hibalehetőségekből eredő ellenőrzést is feleslegessé teszi.
Ha a munkalapodon elfér oda is tehetnéd a listát, a nyomtatásból kiveszed, a listaváltozáshoz hozzákapcsolod a makródat, passz. -
félisten
válasz m.zmrzlina #9520 üzenetére
Pedig jobb lenne megfogadni perfag javaslatát, mert az eddig befektetett sok munkádon túl, sok munkád lesz pluszban, amit a rossz koncepciónak, programfelépítésnek, megvalósításnak köszönhetsz majd..
(pl space-el kezdeni egy szót, és azt még fel is használni)[ 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 m.zmrzlina #9533 üzenetére
Sub hiba()
If Selection.Rows.Count > 100 Or Selection.Columns.Count > 1 Then
MsgBox Selection.Rows.Count & " sort, és" & Chr(10) & _
Selection.Columns.Count & " oszopot jelöltél ki" & Chr(10) & "ejnye-bejnye"
End If
End SubKülön is veheted a túl sok sorra, és oszlopra vonatkozó figyelmeztetést.
[ 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 m.zmrzlina #9535 üzenetére
A paste elé tedd, exit sub-bal.
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 m.zmrzlina #9537 üzenetére
Valahol biztosan lekérdezed a felhasználó kijelölését (selection.address), mert azt adod meg nyomtatási területnek. Az után tedd be.
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 m.zmrzlina #9539 üzenetére
A Selection.Address string formában megadja a kijelölt területet, pl. "$A$:$C$50"
Ezt felhasználhatod a nyomtatási terület megadásához, ha a hibakeresésen átment.
ActiveSheet.PageSetup.PrintArea = Selection.AddressA cells(4,2).Select után a
Selection.CurrentRegion.Select
sor kijelöli a cellával egybefüggő területet. Ezt beviheted egy változóba.
ter=Selection.AddressBár ez nem illik a makródra, mert valószínűleg több oszlopnyi adatod függ egybe.
Ha az B4 alatt lévő adatok kellenek a nyomtatáshoz, célszerű a kijelölése után a
Range(Selection, Selection.End(xlDown)).Select -vel kijelölni az oszlopot.[ 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 m.zmrzlina #9541 üzenetére
Működik ez akkor is ha a kijelölt terület egy istentudjaholvan gépen futó excel97-ben van amit Remote Desktop-pal érek el?
Távoli gépet nem tudok produkálni, próbáld ki!
Átírtam a makrót úgy, hogy csak 1 oszlop, és max 100 sor kijelölésekor másoljon az F1-be.
Sub hiba()
If Selection.Rows.Count > 100 Or Selection.Columns.Count > 1 Then
MsgBox Selection.Rows.Count & " sort, és" & Chr(10) & _
Selection.Columns.Count & " oszopot jelöltél ki" & Chr(10) & "ejnye-bejnye"
Exit Sub
Else
Selection.Copy
Cells(1, 6).Select
ActiveSheet.Paste
Application.CutCopyMode = False
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.
-
Delila_1
Topikgazda
válasz m.zmrzlina #9544 üzenetére
Szívesen.
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 m.zmrzlina #9613 üzenetére
A szum(K4:K34) meghaladja, illetve eléri a 24 órát (1 napot), ami az Excelben az idő alapegysége.
Az összegző cella formátuma legyen [ó]:pp, és helyreáll a lelke.
[ 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 m.zmrzlina #9615 üzenetére
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
GabeeeS
csendes tag
válasz m.zmrzlina #9623 üzenetére
Kedves m.zmrzlina!
Nagyon szépen köszönöm!
Ez az internet igazi haszna, az elmék összekapcsolása, nem a rengeteg adat
Köszönöm szépen mindkettőtöknek!
-
visit
tag
válasz m.zmrzlina #9653 üzenetére
Igen, igeeeeen! Köszönöm!!
Ez az "abszolút hivatkozás", ez nem jutott eszembe.[ Szerkesztve ]
-
tuono
csendes tag
válasz m.zmrzlina #9660 üzenetére
Köszönöm, de sajna 2003-as az excelem. atlagha nincs sajna.
-
Sir Pocok
őstag
válasz m.zmrzlina #9793 üzenetére
Nem nincs.
Az erős embernek nincs szüksége hatalomra, a gyönge jelleműt pedig tönkreteszi.
-
Sir Pocok
őstag
válasz m.zmrzlina #9795 üzenetére
Egy oszlop kb. 1000 sorból áll. Egy oszlopban a cserélendő szám előfordulhat 200-300x. Ezeket átírogatni elég körülményes lenne ezért kellene erre valamilyen függvény.
Az erős embernek nincs szüksége hatalomra, a gyönge jelleműt pedig tönkreteszi.
-
Sir Pocok
őstag
válasz m.zmrzlina #9798 üzenetére
Esetleg tudnál abban segíteni, hogy 2003-as Excel-ben melyik ez a funkció?
Az erős embernek nincs szüksége hatalomra, a gyönge jelleműt pedig tönkreteszi.
-
Sir Pocok
őstag
válasz m.zmrzlina #9803 üzenetére
Nagyon köszi!!
Este megnézem.
Az erős embernek nincs szüksége hatalomra, a gyönge jelleműt pedig tönkreteszi.
-
fi:zi'k
nagyúr
válasz m.zmrzlina #9875 üzenetére
Ha J3 cella "-", akkor G3=0. Ez világos remélem.
Ha J3 cella "+", akkor G3 cella értékét aszerint adja meg (megfelelő S cellát kiválasztva), hogy F3-ban mekkora érték szerepel, és ez az adott R cellákhoz miként viszonyul.#9874
Köszi!96.5% MORE WUB-WUB ◄◄|►► Hirdetéseim: https://goo.gl/khUC1Y ◄◄
-
m.zmrzlina
senior tag
válasz m.zmrzlina #9876 üzenetére
Persze hogy elszúrtam
Természetesen J3-ba tedd a képletet!
[ Szerkesztve ]
-
fi:zi'k
nagyúr
válasz m.zmrzlina #9878 üzenetére
Szuper, neked is köszönöm!
96.5% MORE WUB-WUB ◄◄|►► Hirdetéseim: https://goo.gl/khUC1Y ◄◄
-
fi:zi'k
nagyúr
válasz m.zmrzlina #9881 üzenetére
A1-ben legördülő listában (érvényesítés) választható a,b,c értékek.
C1 cellában, a,b,c értékekhez rendre 1,2,3 értékek tartoznak, de nincsenek megjelenítve alapesetben.
Ha B1-be beírom hogy 10, akkor attól függően, hogy A1-ben mi lett kiválasztva, C1-ben képez egy szorzatot.
Pl. A1=a, B1=10 akkor C1=10, ha A1=b, B1=10 akkor C1=20, stb.96.5% MORE WUB-WUB ◄◄|►► Hirdetéseim: https://goo.gl/khUC1Y ◄◄
-
fi:zi'k
nagyúr
válasz m.zmrzlina #9883 üzenetére
Egy kicsit módosítottam és ez is működik.
Hatalmas köszönet.96.5% MORE WUB-WUB ◄◄|►► Hirdetéseim: https://goo.gl/khUC1Y ◄◄
-
MIFtIli
aktív tag
válasz m.zmrzlina #9968 üzenetére
-
félisten
válasz m.zmrzlina #9974 üzenetére
És itt honnan kellene látnunk, hogy mi van az A2-ben?
Lehet, hogy tényleg nincs...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)
-
félisten
válasz m.zmrzlina #9986 üzenetére
=HA(HIBÁS(INT(A1));"Ez nem szám";A1)
[ 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)
-
MIFtIli
aktív tag
válasz m.zmrzlina #10062 üzenetére
elírtam. a táblázatban az első oszlopban a betűk. egy betű egy leírás.
A második variáció. Tehát:
a> leírás_1
ab> leírás_1,leírás_2
adc> leírás_1,leírás_4,leírás_3 -
m.zmrzlina
senior tag
-
Delila_1
Topikgazda
válasz m.zmrzlina #10065 üzenetére
Le a kalappal!
Van egy baj: a lehetséges betűk száma 14, HA függvényből viszont csak hetet lehet egymásba ágyazni. Ez az az eset, mikor makrót kell írni.
Sub Leiras()
Dim sor%, oszlop%, betu%, nev$
Range("K57:K75,M57:M75,P57:P75").ClearContents
For sor% = 57 To 75
oszlop% = 10: GoSub Beir
oszlop% = 12: GoSub Beir
oszlop% = 15: GoSub Beir
Next
Exit Sub
Beir:
nev$ = Cells(sor%, oszlop%)
For betu% = 1 To Len(nev$)
Cells(sor%, oszlop% + 1) = Cells(sor%, oszlop% + 1) & Application.VLookup(Mid(nev, betu%, 1), Range("R57:S70"), 2, 0) & " "
Next
Cells(sor%, oszlop% + 1) = Left(Cells(sor%, oszlop% + 1), Len(Cells(sor%, oszlop% + 1)) - 1)
Return
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.
-
Delila_1
Topikgazda
válasz m.zmrzlina #10070 üzenetére
Ezt a max. 4 karaktert nem vettem észre, igazad van.
A hosszú képletedhez csak annyit, hogy az ÖSSZEFŰZ függvényt egyszerűsíteni lehet.
Az =ÖSSZEFŰZ(A1;B1;C1) egyszerűbben =A1&B1&C1.
Persze a lényegen ez nem változtat.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 m.zmrzlina #10070 üzenetére
Azért az nem megy a fejembe, hogy ha a 10061-es hsz szerint a leírások az R57:S70 területen vannak, és minden betű egyszer szerepel, hogy jön ki összesen 4 karakterre? Hiszen ez 14 cella!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
DjSteve85
csendes tag
válasz m.zmrzlina #10072 üzenetére
Thx!
Segített, ha esetleg gázosabb táblát kapok, tudnál segíteni a szövegfüggvény típusának kiválasztásába és alkalmazásába? Kezdő exceles vagyok, de könnyen tanulok...
Macro fan!
Üdv4 -
m.zmrzlina
senior tag
válasz m.zmrzlina #10161 üzenetére
Úgy látszik "dikleksziás" vagyok mint Győzike
a B oszlopban az A-oszlopnak megfelelően kellene egy legördülőnek nyílnia,
A tippem jó csak nem azt csinálja amit te szeretnél. Bocs
-
Delila_1
Topikgazda
válasz m.zmrzlina #10161 üzenetére
A B2 cella érvényesítésébe kellene beírni a HA függvényt a Forrás-hoz.
=HA(A1="fizetések";G1:G4;H1:H4)
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 m.zmrzlina #10164 üzenetére
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Pityke78
őstag
válasz m.zmrzlina #10184 üzenetére
Nem, nincsen semmilyen makró a excle file-ban. Sőt ha nem jól működik a Ctrl+s parancs és bezárom, majd újraindítom, akkor általában már a mentést csinálja és nem mást.
Egyéb ötlet? -
Delila_1
Topikgazda
válasz m.zmrzlina #10210 üzenetére
Jó ötlet!
Ennyit egyszerűsítenék rajta a feltételnél:
If IsNumeric(Mid(szoveg, i, 1)) Thenés a végén a biztonság kedvéért:
CSAKSZAM = szam*1Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Kloden
senior tag
válasz m.zmrzlina #10246 üzenetére
Hálás köszönetem, siker!!
Gondoltam hogy nem lehet valami bonyolult dolog, de így, hogy még a nevét sem tudtam a funkciónak...[ Szerkesztve ]
"Ön fél a haláltól?" "Az élettől félek."
-
artiny
őstag
válasz m.zmrzlina #10254 üzenetére
Köszi segített
-
m.zmrzlina
senior tag
válasz m.zmrzlina #10288 üzenetére
Másolás>Irányított beillesztés>Jegyzetet
Az ember néha nem látja a fától az erdészt
[ Szerkesztve ]
-
adodaniel
őstag
válasz m.zmrzlina #10280 üzenetére
Igen, csak újraindítás után elfelejti.
-
Delila_1
Topikgazda
válasz m.zmrzlina #10300 üzenetére
A B26 mindkét helyen legyen $B26.
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
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Eladó Steam kulcsok kedvező áron!
- Canva Pro előfizetés - 1 éves
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office