- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- ZIDOO médialejátszók
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Gaming notebook topik
- Projektor topic
- Vezetékes FÜLhallgatók
- Bambu Lab X1/X1C, P1P-P1S és A1 mini tulajok
- Asztrofotózás
- Milyen TV-t vegyek?
- Már elstartolt az AMD nyári játékpromóciója
Hirdetés
-
Letartóztatták, mert AI segítségével csalt az egyetemi vizsgán
it A török hatóságok letartóztattak egy diákot, amiért egy egyetem felvételi vizsgáján AI segítségével válaszolt a kérdésekre.
-
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! :)
-
Végre pontos megjelenési dátumot kapott a Visions of Mana
gp A készítők tisztázták azt is, hogy PlayStation 4-re megjelenik-e a végső kiadás.
-
PROHARDVER!
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
-
botond2225
csendes tag
Sziasztok,
Olyan képletet keresek, amely megadott feltételt vizsgál meg, és az alapján ír be egy szöveget egy cellába.
Ha a keresendő cella szövegében szerepel egy adott szöveg (ezt előre megadnám), akkor egy másik cellába írjon be egy szintén általam megadott szöveget.
Office 2013-at használok egyik gépen magyar, másikon angol.Tehát pl. ez lenne egy cella tartalma:
1 db,9'' Quad Core Android tablet, Kód: GX00304191-4QN
Ebben kellene keresnie szövegrészt, hogy szerepel-e pl. az alábbi szöveg:
1. keresési feltétel
9" Quad Core2. keresési feltétel
GPS tabletstb. (ezeket írnám be én, nagyságrendileg 15-20-ról lenne szó)
Ha szerepel a keresendő cellában az 1. keresési feltétel, akkor írja a másik cellába az alábbi szöveget:
GA33Ha szerepel a cellában a 2. keresési feltétel, akkor a következőt írja:
MT102WRemélem érthető a problémám.
Segítségeteket előre is köszönöm.
Üdv,
Bálint[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz botond2225 #32853 üzenetére
Ehhez egy saját függvény kell.
Beírod a H oszlopba (H2-től kezdve) a keresendő szöveget (9'' Quad Core), mellé az I-be a GA33-at, alá a többi párost.
Modulba másold be a makrót.
Function Rovidites(Cella As Range)
Dim sor As Integer, usor As Integer
usor = Range("H" & Rows.Count).End(xlUp).Row
For sor = 2 To usor
If InStr(Cella.Value, Range("H" & sor)) > 0 Then
Rovidites = Range("I" & sor).Value
Exit For
End If
Next
End FunctionHa a hosszú szöveged az A2-ben van, akkor a képlet
Rovidites(A2)
. Ugyanúgy másolható, mint a többi függvény.Vigyázz! a hosszú szövegedben a 9 után 2 db aposztróf van, a keresési feltételnél meg 1 db idézőjel.
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 botond2225 #32857 üzenetére
Kipróbáltad a függvényt?
Abban a füzetben lesz elérhető, amelyiknél egy modulba beírtad.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 botond2225 #32859 üzenetére
A makró első sora ez legyen:
Application.Volatile
Akkor frissül, mikor a lapra billentyűzetről viszel be valamit, vagy törlöd egy cella tartalmát.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
dellfanboy
őstag
van 4 excel file -om ami ra van linkelve egy ppt-ra. talalkoztatok mar olyan hibaval hogy a ppt nem frissul be?
megvan nyitva a 4 excel utana megnyitom a ppt update links, nem tortenik ppt-be semmi. raklikkelek az excelekre es latom feldobott egy uzenetet le okezom , de a ppt-be a slide-ok nem frissulnek.. ha egyesevel probalom frissiteni a chartokat ppt-be akkor se mukodik. azert furcsa mert kollegamnak 100% mukodik csak nalam nem es nem jovok ra a hibara.. mire nezzek /googlezzak ra?eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
HREH
senior tag
Sziasztok, a következő lenne a problémám:
A kijelölt cellába kellene beírnom az 1.A, 4.A és a 8.A mellett lévő értékek átlagát.
Hasonlóképpen, a "C" átlaga cellába a 3.C, 6.C, 10.C mellett lévő értékek átlagát.
És így tovább...Kérdésem, hogy ezt hogyan lehetne függvénnyel megoldani?
Előre is köszönöm!(szerk: lehet, hogy tök triviális, de egyszerűen nem fog most az agyam )
[ Szerkesztve ]
"Fun isn't something one considers when balancing the universe. But this... does put a smile on my face."
-
HREH
senior tag
válasz Delila_1 #32863 üzenetére
Tökéletes, nagyon köszönöm!
És ha az átlagokat az első oszlop alá számítanám, akkor gondolom csak a tartományt kell beállítaniB:B
ésC:C
helyett?
Illetve úgy meg lehet csinálni, hogy nincs külön kiírva, hogy "A" átlaga, "B" átlaga, stb.? (szóval a függvényben hivatkoznék rá)[ Szerkesztve ]
"Fun isn't something one considers when balancing the universe. But this... does put a smile on my face."
-
Sprite75
tag
Szasztok
Keresgéltem itt a fórumban de nem találtam a választ a következőre
Van egy táblázatban BA5A109 terület, amibe megjegyzéseket (szöveget) írnak.
Összesen eből a 104 cellából naponta kb 5-6-ba. Következő nap pedig lehet hogy másik 5-6 cellába ezek közül.Az eszen a területen található szöveges információkat szeretném összefűzve megjeleníteni ugyanennek a táblázatnak egy másik lapján egy adott cellába.
Lehetséges ez. Az összefűz -el ha jól tudom csak 30 cella tartalmát lehet megoldani, így gondolom az nem megoldás. -
Fferi50
őstag
válasz Sprite75 #32868 üzenetére
Szia!
2013-as excelben már 255 paramétere lehet az összefűz függvénynek. Nézd meg lsz. a szerkesztősoron a függvényre kattintva, hogy hány paramétert enged meg. (Beírod az =Összefűz( szöveget, rákattintasz az Fx szimbolra, az előugró ablakban ott a szöveg.)
Másik lehetőség: Szürő az oszlopra, nem üresre állítva a szűrőt megkapod azokat a cellákat, amelyekben van érték. Ezeket egyben kijelölheted, átmásolhatod egy másik munkalap összefüggő tartományába. Máris csak pár cellát kell összefűzni, arra meg jó a & műveleti jel is.
Üdv.
[ Szerkesztve ]
-
Sprite75
tag
válasz Fferi50 #32870 üzenetére
Köszi. Megpróbálom úgy akkor az összefűzzel. A szűrős módszer sajna nem jó mert aki használja annak bonyolult lenne. Azt a lapot amire az összefűzést csinálnám naponta többször is nyomtatják. Ez alap egyébként tartalmazza az aznap felvett megrendeléseket összesítve és ide szeretném a rendelésekhez írt esetleges megjegyzéseket.
-
Certee
senior tag
Sziasztok!
Keresek Excel-hez értő szakembert. Alap szinten ismerem és használom a programot de szükségem lenne valakire aki profi szinten el tudna készíteni nekem egy munkát. Természetesen kifizetem a ráfordított időt.
Egy szabad országban, egy szabad ember, azt tesz amit szabad... http://www.biwak.hu
-
lenkei83
tag
Sziasztok!
Thisworkbook-ban hogyan tudok global vagy public ranget megadni?
Ez nem működőképes:
Public valid_cell_range As Range
Option Explicit
Private Sub Workbook_Open()
Set valid_cell_range = Munka8.Range("K4:K34")
End Subköszi.:
P. -
Fferi50
őstag
válasz lenkei83 #32873 üzenetére
Szia!
Szerintem ennek működni kellene, viszont mivel a Thisworkbook kódlapja nem általános modul, hanem osztálymodulnak számít, a változót csak úgy tudod elérni, ha a teljes nevével hivatkozol rá, azaz Thisworkbook.valid_cell_range. Ebben a formában már látja minden modul - és a vba segítőben is látod.
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz lenkei83 #32877 üzenetére
Szia!
Ha mindkétszer a Thisworkbook előtag nélkül próbálod, akkor egyik sem működhet. Illetve, ha az eseménykezelőben megállsz, akkor nem kell az előtag, akkor sem kell, ha éppen a Thisworkbook kódlapon levő másik eljárásban vagy függvényben használod.
Üdv.
[ Szerkesztve ]
-
Pakliman
tag
válasz Sprite75 #32881 üzenetére
Szia(sztok)!
"Elegánsabb" megoldás, de kell a VBA:
Public Function MyÖsszefűz(terület As Range, Optional elválasztó As String = ";") As String
Dim cella As Range
Dim temp
For Each cella In terület
If cella <> "" Then temp = temp & IIf(temp <> "", elválasztó, "") & cella
Next cella
MyÖsszefűz = temp
End Function -
tzimash
őstag
Sziasztok,
Makróval kereteztetnék be egy területet, használtam a makrórögzítőt, de nem tetszik az eredmény...
Van ennél egyszerűbb (kevésbé terjedelmes) módja?
Valami olyasmi, hogy A1: C4 területen az összes vonal (kivéve átlók) fekete, folytonos, vékony legyen?Sub keret()
Range("A1:C4").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub[ Szerkesztve ]
-
Sprite75
tag
válasz Pakliman #32882 üzenetére
Hello
Ott a pont
Köszönöm szépen.A Rendelés fülön ha beírnak valamit a "BA" megjegyzés oszlopba azok a beírások megjelennek a Összesítve fülön az aznapi rendelések összesítésével együtt, amit már lehet is nyomtatni.
Összesen 105 megrendelő van, de a gyakorlatban kb 5-6 bolthoza van írva megjegyzés naponta, így bőben elfér az Összesítve fül Megjegyzések cellájában.Köszönöm még egyszer, hátha később hsznos lesz másnak is .
-
botond2225
csendes tag
-
Fferi50
őstag
válasz botond2225 #32885 üzenetére
Szia!
Hasznos lett volna, ha a hibakiírást is rajta hagyod a képen.
Talán az lehet a probléma, hogy az offset(0,-52)-t nem tudja értelmezni, mert nincs a kijelölt cellától balra 52 oszlop már. Valószínúleg nem ott állsz, mint ahol a makrót rögzítetted.
Szerintem elég lenne a Destination:=Activesheet.range('A1:BA500"), stb.Üdv.
-
tzimash
őstag
Arra van lehetőség, hogy a makró futása közben tájékoztatni a felhasználót az éppen végrehajtott műveletről? Pl megjelenik egy msgbox, melyben néhány sorban (ami egymás után jelenik meg) kiíratni, hogy éppen mi történik a háttérben, mire véget ér a makró futása a box is eltűnik. Esetleg alá egy folyamatjelző?
-
Fferi50
őstag
válasz tzimash #32889 üzenetére
Szia!
Az MsgBox nem tűnik el addig, amíg a felhasználó rá nem kattint az OK gombra.
Az állapotsor felhasználható a folyamatok jelzésére:
Application.Statusbar="Most itt járok:" & "éppen indexelek"
A makró végén pedig Application.Statusbar=False - visszaadja a vezérlést az Excelnek (ez utóbbit ne felejtsd ki, mert egyébként az állapotsoron ott marad, amit legutoljára kiírattál.
Az állapotsorba rajzkarakterket is tehetsz, színt viszont nem.Lehet még olyan megoldás is, hogy egy userformot hozol létre, amire az üzeneteket kíírod egy Labelba, majd a Userform1.Show false paraméterrel hívod meg - ekkor a makró fut tovább, a form pedig addig lesz kinn, amíg az Unload Userform1 sort be nem írod, vagy a felhasználó "ki nem x-eli".
Az üzeneteket menet közben változtathatod, amíg a form kint van, pl. Userform1.Label1.Caption="Most más szöveg jön".
Ide rajzos karaktereket is tehetsz és színezheted is. De azért nem árt sokat gyakorolni, mielőtt ráereszted a felhasználóra.Üdv.
-
Fferi50
őstag
válasz tzimash #32891 üzenetére
Szia!
Minden MsgBox üzenet esetén kell OK vagy más gombot nyomnia a felhasználónak, nem csak a program végén :-(
Miért nem jó neked az állapotsor ott a képernyő alján? Ott nem kell a felhasználónak semmit csinálnia, csak nézni, mint boci...
Az elején pedig írhatsz egy MsgBoxot neki, hogy lesse az alsó sort, ha kíváncsi (ha nem).
Én hosszú folyamatoknál itt szoktam pörgetni a számlálót, hogy x tétel,cella van feldolgozva y darabból és általában 100-asával változtatom (mert különben nem látsz semmit a pörgéstől). Irtó kellemetlen lenne a felhasználónak, ha pár másodpercenként nyomkodnia kellene az entereket (mert "túl gyors" a program).
Szerintem akkor van értelme MsgBox-nak, ha a felhasználó döntésétől is függ, hogy mit csinálsz tovább, pl. nincs meg minden adat, de szeretne hiányos adatokkal is továbbmenni stb., illetve ha valami szokatlan történt és hibáról kell tájékoztatni.Üdv.
[ Szerkesztve ]
-
Pikkolo^^
addikt
Találkoztatok olyannak, hogy a szűrő nem működik? Az egyik lapon bármire szeretnék szűrni mindig több találatod ad vissza, mint amik kellenek. Nem csak nekem hanem kollégáimnak sem működik megfelelően.
-
Delila_1
Topikgazda
válasz Pikkolo^^ #32893 üzenetére
Előfordulhat, hogy túl sok adat van a szűrendő oszlopban.
Nem tudom, a magasabb verziókban hány sor a határ, a 2003-as verzióban 1000 sorig volt biztonságos a szűrés. Az alatta lévő sorokat megmutatta szűrés nélkül.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Tomjack
tag
Sziasztok
Még mindig keresnék egy megoldást erre:
Van egy szám halmaz. Ebből szeretném 1,2,3,4,5,6 számoknak megnézni a gyakoriságát.
Köszönöm
Új hozzászólás Aktív témák
- Elektromos cigaretta 🔞
- Milyen okostelefont vegyek?
- Politika
- Építő/felújító topik
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- ZIDOO médialejátszók
- Telekom mobilszolgáltatások
- Tesla topik
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!