- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- bitpork: Augusztus 2- szombat jelen állás szerint.
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
- eBay-es kütyük kis pénzért
- Geri Bátyó: B550 szűk keresztmetszet, de mi és miért?
- Yutani: Yutani Retró Hangkártyái: AdMOS AdWave 32
- user2: Kia Ceed Gold 160 1.5 T-GDI MY2024
- Kempingezés és sátrazás
-
LOGOUT
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
-
ppapp44
újonc
válasz
ppapp44
#37393
üzenetére
A korábban definiált public változóim működnek (modul hivatkozás nélkül), de a ma felvett egyszerűen nem. Már cserélgettem a nevet, a tipust (as string, as variant)a definiálás helyét (Thisworkbook, userform, modul). Használtam Feri hivatkozását "modul2.változó", valóban "userform10.muszak", de így sem látom máshol (msgbox muszak) csak a userform-on belül. (Egyébként ez valóban jó ötlet.)
Hogyan tudom ellenőrizni, hogy a VB milyen típusnak tart egy változót?
Létezhet darabszámi korlátja a (global) változóknak????
Előre is köszi Péter -
Fferi50
Topikgazda
-
Fferi50
Topikgazda
válasz
Cilindrik
#37385
üzenetére
Szia!
Az alábbi makrót írd be egy általános modulba:
Sub szinvalaszt()
Dim cl As Range, xx As Integer, rang2 As Range, yy As Long
If Selection.Columns.Count > 1 Then
MsgBox "Csak egy oszlopot tudok kezelni, egy oszlopot jelölj ki csak!", vbInformation
Exit Sub
End If
Set rang2 = Selection.Offset(0, 2) ' a kettővel arrébb levő oszlopba fogja tenni az eredményt, ha közvetlenül mellé szeretnéd, akkor Offset(0,1)-et írj.
For Each cl In Selection.Cells
yy = cl.Characters(1, 1).Font.Color
For xx = 1 To cl.Characters.Count
If cl.Characters(xx, 1).Font.Color <> yy Then
rang2.Cells(cl.Row, cl.Column).Value = Left(cl.Text, xx - 1)
rang2.Cells(cl.Row, cl.Column + 1).Value = Mid(cl.Text, xx)
rang2.Cells(cl.Row, cl.Column).Font.Color = yy
rang2.Cells(cl.Row, cl.Column + 1).Font.Color = cl.Characters(xx, 1).Font.Color
Exit For
End If
Next
Next
End SubArra képes, hogy bármilyen két színnel készült szöveget szétszedjen 2 oszloppal arrébb, az eredeti színek megtartásával.
Kijelölöd az adott 1 oszlopban levő szöveget, majd elindítod a makrót - fejlesztőeszközök - makrók - inditás.Üdv.
-
Fferi50
Topikgazda
válasz
ppapp44
#37393
üzenetére
Szia!
"de a változó nem kap értéket. Olyan mintha nem válna globálissá sehogy sem a userform-on"
A userform kódlapján definiált változó csak akkor és addig él, amíg a form a memóriában van! Tehát betöltés előtt és Unload után már nem érhető el, akkor sem, ha Public.
Ezért ezeket a változókat is célszerű általános modulban deklarálni és a userform kódjában értéket adni nekik.Üdv.
-
spe88
senior tag
Sziasztok!
Adott az alábbi tábla:
1 gd 0 #HIÁNYZIK
2 bcx 1 gd
3 hf 3 hf
3 bd54t 4 fv
1 sdg 6 #HIÁNYZIK
1 qwef 7 dsfg
7 dsfg 10 yvxc
4 fv 21 yxcv
9 vy 40 #HIÁNYZIK
10 yvxc #HIÁNYZIK
10 cv #HIÁNYZIK
3 yxcv #HIÁNYZIK
2 yxcv #HIÁNYZIK
4 yxcv #HIÁNYZIK
15 yxcv #HIÁNYZIK
16 yxcv #HIÁNYZIK
17 yxcv #HIÁNYZIK
18 yxcv #HIÁNYZIK
19 yxcv #HIÁNYZIK
20 yvxc #HIÁNYZIK
21 yxcv #HIÁNYZIKHogy tudom azt megadni, hogy a D oszlop adott sorában dobja ki a B oszlop adott sorát, ha az A oszlopban szerepel a C oszlop bármelyik száma? Itt a bármelyiken van a hangsúly és azon, hogy az adott sorban dobja ki. Sima Fkeressel a fenti összefüggést kaptam de nekem ilyenre volna szükségem:
1 gd 0 gd
2 bcx 1
3 hf 3 hf
3 bd54t 4 bd54t
1 sdg 6 sdg
1 qwef 7 qwef
7 dsfg 10 dsfg
4 fv 21 fv
9 vy 40
10 yvxc yvxc
10 cv cv
3 yxcv yxcv
2 yxcv
4 yxcv yxcv
15 yxcv
16 yxcv
17 yxcv
18 yxcv
19 yxcv
20 yvxc
21 yxcv yxcvköszi
-
ppapp44
újonc
válasz
Fferi50
#37392
üzenetére
Köszi a választ. Nem tudom, hogy ez baj-e vagy sem, de ez egy userform-on van (ami egyébként szerintem egy modul) nem modul-ban. A "userform10.muszak" valóban szintaktikailag elfogadott. de a változó nem kap értéket. Olyan mintha nem válna globálissá sehogy sem a userform-on. Üdv
Péter -
Fferi50
Topikgazda
válasz
ppapp44
#37391
üzenetére
Szia!
A publikus változókra a Modulnév.Változónév szintaxissal hivatkozhatsz.
Pl. Thisworkbook.Ezavaltozo = "akarmi" vagy Module1.Valtozo=5
Ezt akkor is tanácsos betartani, ha éppen az adott modulon vagy formon belül vagy mert ugyanazon név előfordulhat eljáráson belül is.
Érdemes átnézned a VBA help változók élettartamára vonatkozó leírását.Üdv.
-
ppapp44
újonc
Sziasztok!
Excel 2013 VB6-ban egy user form-on levő változót szeretnék globálissá tenni. Megtettem itt (a user form code-ban) a "Thisworkbook"-ban és ott is ahol a moduljaim vannak. Mindenhol a SUB-ok előtt ("public muszak as string"). Egyszerűen nem látom sem a modulokban sem másik user formokon. Ahogy visszakerülök az adott form-ra persze megjelenik.
Mi lehet a baj?
Segítséget előre is köszönöm. Üdv
Péter -
alfa20
senior tag
Sziasztok!
Meg lehet valahogy oldani, hogy az FKERES-nek egy celle értéke adja meg a kereső tábla munkafüzet nevét?
Pl:
=FKERES(A2;Március!A:B;2;0)
A képletben lévő "Március"-t az I2-es celléból venné
A fülek amiből keresni kell azok havi neveken szerepelnek.Köszi előre is!
-
Kronk
őstag
Sziasztok,
Két win 10-es gép is a következőt csinálja.
Office 2007 van rajtuk, és bármit indítunk el, excel, word, outlook, kiírja, hogy konfigurálás állapota, kicsit telepítget, mintha most települne fel, kb 1 perc, majd elindul.
És ezt minden program indításánál.
Sejtésem szerint valami windows 10 frissítés okozza.
Találkoztatok már ilyennel?Köszönöm előre is!
-
Kobe
veterán
válasz
Cilindrik
#37381
üzenetére
Adat - Szovegbol oszlopok
Ott a fuggoleges specko karaktert beadod separatornak es szetszedi (de space alapjan is szetcsapja, csak minden szot kulon oszlooba). Ha az egyszinueket egy oszlopba akarod rakni akkor szetszedes utan raeresstesz egy CONCATENATE fuggvenyt a fekete szoveges oszlopokra, meg egyet a pirosakra
-
-
0P1
aktív tag
válasz
Vision
#37376
üzenetére
Szia, jól értem, hogy Excelbe akarsz MNB árfolyamokat lekérdezni? Akkor miért SOAP-pal próbálkozol, miért nem inkább az Excel Get&Transform-ot (Adatok beolvasása és átalakitása) használod ? Azzal szerintem sokkal egyszerűbb, mint SOAP-al és VBA-val szenvedni. . Úgy alakitod, ahogy akarod, úgy paraméterezed, ahogy akarod, be tudod joinolni egyéb querykbe, és akkor ki se kell dobnod munkalapra, akár a Data Modelbe be tudod olvasni, stb ...
Ha megirod, konkréten milyen paraméterezéssel akarod meghivni és milyen formában szeretnéd megkapni a kimenetet,akkor tudok segiteni. Ha ragaszkodsz a SOAP-hoz, abban sajnos nem tudok, én is próbálkoztam vele pár éve, de pár órás próbálkozás után hagytam az egészet a fenébe, inkább Get&Transform-mal pár perc alatt összedobtam, amit akartam
-
Kobe
veterán
válasz
Delila_1
#37372
üzenetére
kipróbáltam, köszi.
Sajna ennél a sornál elhasal:
If WF.CountIf(Range("J1:J6"), Range("B" & i)) + WF.CountIf(Range("J1:J6"), Range("C" & i)) = 0 ThenEz egy xlam file, amiben van egy rejtett workbook (ThisWorkbook), illetve egy rejtett Worksheet (Usernames).
Azt csináltam, hogy a userneveket erre a rejtett worksheet A oszlopába írtam, A2:A7 mezőkbe listáztam, majd a makróval a hivatkozást átírtam:If WF.CountIf(Worksheets("Usernames").Range("A2:A7"), Range("B" & i)) + WF.CountIf(Worksheets("Usernames").Range("A2:A7"), Range("C" & i)) = 0 Thenígy viszont nem tudja lekezelni. Lehet mert rejtett? (szeretném xlam formátumban tartani a dolgot)
-
Sziasztok,
SOAP kapcsolatom paraméterezésével van gondolom. MNB árfolyamokat akarok lekérdezni, de a weboldalon nem találtam épkézláb segédletet hozzá. PHP/Java példa van, de szerintem azzal itt nem sokra megyek!
Public Sub MNB_arfolyamok()
Dim sURL As String
Dim sEnv As String
Set objHttp = CreateObject("MSXML2.XMLHTTP")
sURL = "http://www.mnb.hu/arfolyamok.asmx?wsdl"
sEnv = sEnv & "<soap:Envelope xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope"">"
sEnv = sEnv & " <soap:Header>"
sEnv = sEnv & " <soap:Body>"
sEnv = sEnv & " <soap:Request>"
sEnv = sEnv & " <soap:GetCurrentExchangeRates></soap:GetCurrentExchangeRates>"
sEnv = sEnv & " </soap:Request>"
sEnv = sEnv & " </soap:Header>"
sEnv = sEnv & " </soap:Body>"
sEnv = sEnv & "</soap:Envelope>"
objHttp.Open "GET", sURL, False
objHttp.setRequestHeader "Content-Type", "text/xml"
objHttp.send sEnv
MsgBox objHttp.responseText
End Sub -
aclandiae
senior tag
Sziasztok!
Office 2016-ban szeretnék úgy nyomtatni, hogy oldalszámok kerüljenek a lapok aljára (mint a Word-ben).
Végignéztem a nyomtatási beállításokat, de nem szúrja ki a szememet.Ezt a formátumot szeretném: - 1 - és így tovább a számozás.
Hol tudom beállítani?
-
Delila_1
veterán
A J1:J6 tartományba írtam be a keresendő neveket. Az If WF kezdetű sorban ezt írd át (2 helyen) a saját neveidet tartalmazó területre.
Sub torlesek()
Dim LR As Long, i As Long, WF As WorksheetFunction
Application.ScreenUpdating = False
Set WF = Application.WorksheetFunction
LR = Cells(Rows.Count, 2).End(xlUp).Row
For i = LR To 2 Step -1
If WF.CountIf(Range("J1:J6"), Range("B" & i)) + WF.CountIf(Range("J1:J6"), Range("C" & i)) = 0 Then
Rows(i).EntireRow.Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub -
Kobe
veterán
válasz
Delila_1
#37370
üzenetére
Koszi.
A vege eleg szep kis lista lesz....ha minden userre 2db bejegyzest kell nyilvantartani
Ha letarolom a user listat egy worksheetben, akkor van arra mod hogy a "Gipsz Jakab" helyere meghivatkozzam azt? (egyszerubb egy listat karbantartani mint egy hardcodeolt reszt a programban)
-
Delila_1
veterán
Sub torlesek()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
LR = Cells(Rows.Count, 2).End(xlUp).Row
For i = LR To 2 Step -1
If Range("B" & i) <> "Gipsz Jakab" And Range("C" & i) <> "Gipsz Jakab" And _
Range("B" & i) <> "Rezső Dezső" And Range("C" & i) <> "Rezső Dezső" Then
Rows(i).EntireRow.Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub -
Kobe
veterán
sziasztok
van egy Excel táblám, amiben a B és C oszlopokban nevek vannak (kb 100-200 különböző név). Azt szeretném, ha egy makró kitörölné azokat a sorokat (az egész sort) ahol a B és C oszlopok bármelyikében nem egyezik meg az általam kívánt nevekkel (magyarul szeretném csak a nekem érdekes 4-5 névre emgtartani a sorokat).
A nevek a 2 oszlopban lehetnek eltérőek, akár B ben vagy C ben szerepelhet az általam ekresett érték, és ha egyikben sem találta meg, akkor töröljön csak sort,, ha a kettő közül bármelyikben szerepel, maradhat.Idáig jutottam, de nem működik, tuti elírtam valamit. Mi lenne helyesen ?
Dim LR As Long
Application.ScreenUpdating = False
LR = Cells(Rows.Count, 1).End(xlUp).Row
For i = LR To 2 Step -1
If Range("B" & i:"C" &i) <> "Gipsz Jakab" Or "Rezső Dezső" Then
Range("B" & i).EntireRow.Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True -
Sziasztok! Adott egy xlsx file, amibe ha felviszek egy vonalkódot, akkor automatikusan kitölti a mellette lévő oszlopokat könyv címmel és egyéb információkkal. Az érdekelne, hogy ezeket az infókat honnan veszi, mert a függvényt látom: =FKERES(A653;$EAN.A$2:J$9219;5;0) , de azt nem hogy hol vannak az adatok amiben keres
-
föccer
nagyúr
válasz
cheeka
#37363
üzenetére
A beepitett fuggvanyek hasznalata nagyon kis helyet foglal es egy fajl meretebol nem lehet annak bonyolultsagara kovetkeztetni.
Olyasmire gondoltam hogy megirod, hogy pl adott egy lista ami tartalmazza a termek nevet es masik tucat tulajdonsagat. Ebbol a listabol legordulo menubol lehet valasztani es a valasztas melle kiratni valamelyik tulajdonsagot. Ha ilyen elemi lepesekre le tudod bontani a feladatot akkor az egyes lepesek megoldasaban tudunk segiteni itt a forumon. Az, hohy ugyan ezt az algoritmust/fuggvenyz 30x be kell irni az mar "rabszolga munka".
-
cheeka
tag
válasz
föccer
#37362
üzenetére
Biztosan félreérthető voltam, nagyon egyszerűnek írtam le, de nem az. Tervezek 3 témakört, témánként teljesen eltér a számítási módszer. Minden témakörben több márka van, egy márkának 5-10 típusa, ezen típusoknak esetenként akár 100 kapcsolódó kiegészítője. Ez nem egy formátum, de nem is igazán tudom leírni magamtól (hány lapot használjak adatfeltöltésre, mit melyik lapra írjak, azon belül milyen logika szerint stb.). Szerintem a több lépcsőben elért végeredmény lehet akár 30-40mb-os file is, ha ez egyáltalán lehetséges? Egy hasonlóan működőt használok, az 11mb (ez adta az ötletet, ez egy márkának a sajátja, nekem lenne benne kb. 30 márka).
-
föccer
nagyúr
-
cheeka
tag
Sziasztok!
Tudnátok segíteni? Debrecen környékén keresek egy Excel "írásban/programozásban" járatos személyt, aki létrehozna nekem egy eléggé összetett táblázatot. Röviden ez egy ajánlatkészítő dolog lenne, százalékszámítás, osztás, szorzás nem kevés alapadattal. Az adatokat én vinném fel, a számolásokat kellene összehozni. Szeretnék jelszavas védelmet is, hogy aki később használni akarja, az ne lásson mögé a dolgoknak. Természetesen ezt nem ingyen kérném (nem vagyok hatóság, nem erre megy ki a játék). A helyszín azért lenne fontos, mert véleményem szerint, személyes találkozó nélkül nem lehetne ezt a projektet megvalósítani. -
allein
addikt
Jó reggelt, Adott két cella aminek a tartalmát szeretném összeadni:
Termék1 Termék2
1.00 1.00
2.00 0.00Milyen módon tudom eltüntetni a .00-at, tehát ne 1.00 legyen hanem 1.
SZERK: (#37356) 0P1 - ezt már próbáltam és nem változott semmi.
A cellákban nem "," vesszővel vannak elválasztva hanem "." ponttal.
-
-
zzz012
csendes tag
Sziasztok!
A következőre kérnék segítséget. Van három sorba rendezett számoszlopom. Az elsőhöz nincs a másik kettőhöz van külön oszlopban számhoz tartozó érték. Megszeretném keresni, hogy a 2.és 3.oszlopban van e az 1.oszlopban lévő számokból és ha egyezik a hozzá tartozó értéket kiíratni az 1.oszlopba tartozó szám mellé.Köszi! Próbáltam index(hol.van) variációval de nem sikerült.
-
wolfman
veterán
Sziasztok!
Két kérdésem lenne:
1.: Legördülő menüs cellákat hogyan lehet törölni. Egyik táblázatból átmásoltam a másikba cellaértékeket, de most nem engedi átírni, mert nem szerepelt az érték a korábbi lehetőségek között. Ezt a funkciót hogyan törölhetem? Mostantól felesleges lett.
2.: Az mitől van amikor egy cellának nem lesz szegélye? Amúgy sincs rajzolva neki, de az alap szürke vonal is eltűnik és olyan mintha egyesítve lenne a mellette levővel, pedig nincs. Ezt miért vagy mitől csinálja és hogyan lehet visszaállítani alapra??? -
Delila_1
veterán
válasz
RaZroX
#37346
üzenetére
Nem látszanak a képeken a sor- és oszlopazonosítók, így csak saccolni tudom, mi hol van.
A színezendő cellák eszerint a B3:B14 tartományban vannak, a feltétel az F3:F14-es terület.Kijelölöd a B3:B14-et, és képlettel adod meg a formátumot. A zöldhöz =$F3<>0; piroshoz =$F3=0. A $ jel rögzíti, hogy az F oszlopot értéke alapján történjen a feltételes formázás.
-
RaZroX
addikt
-
-
kopogo
tag
Helló!
Adott két különálló excel állomány
az egyikbe vannak azok az adatok amelyeket átszeretnék rakni másikba,
A második munkafüzet B oszlopában lévő számot megkeresem az első munkafüzetbe majd a hozzá tartózó értékeket melyek a C,D,E oszlopba vannak szépen átmásolja első munkafüzet ott is a C,D,E oszlopba.
remélem érthetőOszloponként fkeres függvényel lehet de más megoldás
-
-
Mauzes
addikt
Sziasztok!
Van egy olyan excel listám, ahol időráfordítást gyűjtünk projektenként, évenként, emberenként. Ez egy sok adatot tartalmazó tábla, de mintaként itt van, hogy kb. hogyan néz ki: [link].
Erre hogyan tudok pivot táblát rárakni, ami minden projektre összesíti az értékeket:
- emberenként összesen
- évenként összesen
- összesen
?Ilyen formában nem tudja kezelni nálam az összesítést.
-
Delila_1
veterán
válasz
HollyBoni
#37330
üzenetére
Beállítod az oszlopodat szöveg formátumúra a cellaformázásnál. Az első cellába (A1) beírod: 1-1
Ezt egérrel lehúzva automatikusan nő a kötőjel utáni szám. Mikor elérted az utolsó értéket, alá 2-1-et írsz, és megismétled a fenti lehúzást.Mikor mind kész, a B1 cellába beírod a képletet
=A1&".jpg"Beírás után a cellán állva a jobb alsó sarokban lévő kis fekete négyzeten duplaklikk végig másolja az összes A oszlopban lévő adat mellé a képletet.
Most kijelölöd a B oszlopot, Ctrl+c-vel másolod. Marad a kijelölés, jobb klikk, Irányított beillesztés, Értéket. Az A oszlopot törölheted.
-
HollyBoni
veterán
Sziasztok!
Nagyon kezdő Excel-es vagyok, kéne egy kis segítség.
Van egy termék adatbázis (szerűség) amit webshopba szeretnék beimportálni. A képeket előre feltöltöm a tárhelyre, aztán az Excel táblázatban ha beírom a nevüket akkor a webshop összerakja a kettőt. A gond az, hogy kb. 10 kép tartozik egy termékhez, és több száz termékről van szó, szóval ha most egyenként elkezdem beírogatni Excel-be a kép neveket akkor sosem leszek kész.
A képek nevei megegyeznek a cikkszámmal. Mivel több kép van ezért így mentettem le őket: 1-1, 1-2, 1-3, 1-4, 1-5 stb.
Hogy tudnék generálni automatikusan egy sorozatot ami így nézne ki?
1-1.jpg|1-2.jpg|1-3.jpg (mondjuk elmegy 15-ig)
(következő cella lefele)
2-1.jpg|2-2.jpg|2-3.jpg
stb stb.
Persze jöhet bármi jobb megoldás is.
-
Kasya
nagyúr
Az Excelben megterveztem egy rácshalmazt, amit szeretnék ráhelyezni egy képre. A gondom az, ha a rácsozatot ki is mentem, nem png-be teszi. Az Excelben pedig nem tudom a kepet hatterbe helyezni, hogy a racsozat legyen eloterben.
Mit tudnek teni?
Vagy forduljak inkabb a photshop fele? -
smallmer
őstag
Sziasztok,
Szeretnék tőletek kérni egy kis segítséget. Van 3 munkafüzetem és mindhárom első oszlopában ugyanazoknak az adatoknak kellene lennie(csak szöveg), viszont van mindegyikben 250 sor. Nem szeretném egyesével végignézni, hogy megegyezik-e, ezért szeretném kérni a segítségeteket, hogy van-e valami megoldás, beépített függvény ami megvizsgálja?
köszönöm szépen
-
Üdv!
Adott egy excel táblázat melyen be van állítva a lapvédelem és a szerkeszthető tartomány.
A szerkeszthető tartományon belül működik a másolás, a beillesztés, de a kivágás nem.
Lehet valahogy a kivágást is engedélyezni?Ja és még valami.
Minden felhasználónak engedélyezve van a sorok törlése, de mégsem engedi bekapcsolt lapvédelem esetén. -
TomMusic
őstag
Sziasztok,
Adott egy SZUMHA függvény:=SZUMHA(B1:B50;"*macska*";C1:C50)
ahol ugyebár aC1:C50-ben lévő azon értékeket adja össze, ahol aB1:B50megfelelő sorában szerepel a macska szó (helyesebben: ha a cella tartalmazza a macska szót). Ez eddig oké is, viszont kellene még egy feltétel, hogy ne szerepeljen a "kutya" szó. Tehát csak akkor vegye bele a szummázásba a sort, ha a cellában szerepel a "macska", de nem szerepel a "kutya" szó.
A valóságban más szavak vannak, csak az egyszerűség kedvéért írtam ezeket.
Előre is köszönöm! -
Madwe
nagyúr
Sziasztok, az alábbiban kérnék segítséget, feltételes formázásnál nem jöttem rá hogy kéne, de gondolom ebből makró lesz? Merrefele induljak?
Adott a b és c sora felül, ami mögött értékek lesznek.
Ha az alsó részen szelektálva van egy sor, aminek megadott oszlopa A B vagy C értéket tartalmazza, akkor a felső sorok között azt a sort töltse ki vmi színnel...Köszi!
-
#37311
the radish
senior tag
the radish
senior tag
Makróval hogy lehetne azt megoldani, hogy azA1:A200tartományban törölje pl. a "ford" kifejezést?Előre is köszönöm.Megoldva...
-
-
edari
őstag
Sziasztok
Makróban szeretnék segítséget kérni. Sorokat kéne csoportosítanom 6000 soron keresztül. Azonban nem egyszerű a dolog, mert nem fix sorokat kell csoportosítani. Mutatok egy példát:
Annyi a lényeg, hogy 2 kategória (Fő és al), és azt kéne csinálnia a makrónak hogy az alkategória alatti sorokat csoportosítja. Mivel váltakozó sorokban helyezkednek el az adatok, ezért annyi a támpont hogy az alkategóriás sorok mindig félkövérek (a fő kategóriák pedig félkövér és dőltek, de ez most nem is annyira lémyegeg).
Ezt megleht egyáltalán oldani makróval? -
#37306
Fferi50
Topikgazda
the radish
#37304
Fferi50
Topikgazda
válasz
the radish
#37304
üzenetére
Szia!
Fontos apróságok:
valtozo$=Range ("C1")
A C1 cella értékét teszi a valtozo$ nevű változóba!
Ha ez nem felel meg a Range meghatározás szabályainak, akkor hibát okoz.
Ha a C1 cella tartalmazza a kijelölés végének a címét, akkor Delila megoldása jó.Ha magát a cellát, mint objektumot szeretnéd a változóba tenni, akkor
set valtoz=Range("C1")Ebben az esetben a helyes kijelölés:
Range("A1",valtoz).SelectÜdv.
-
#37305
Delila_1
veterán
the radish
#37304
Delila_1
veterán
válasz
the radish
#37304
üzenetére
Nincs mit.
-
#37303
Delila_1
veterán
the radish
#37302
Delila_1
veterán
válasz
the radish
#37302
üzenetére
Range("A1:" & Range("C1").value).Select -
#37302
the radish
senior tag
the radish
senior tag
Sziasztok!
Szeretnék egy kijelölést makróban végrehajtatni, de úgy, hogy a kijelölés alsó sora változó érték legyen.
DIM valtozovaltozo$=Range ("C1")Range("A1:valtozo$").SelectHogy lehetne ezt helyesen megoldani?
Előre is köszi.
-
#37301
föccer
nagyúr
dellfanboy
#37299
föccer
nagyúr
válasz
dellfanboy
#37299
üzenetére
mármint szöveggént van megadva? Segésdtáblával, ami tartalmazza, hogy melyik szöveg milyen jegynek felel meg. Utána simán az átlagba beágyazni az fkeres függvényeket.
=ÁTLAG(Fkeres();Fkeres();Fkeres())
köszi!
)
Új hozzászólás Aktív témák
Hirdetés
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- exHWSW - Értünk mindenhez IS
- Formula-1
- One mobilszolgáltatások
- Luck Dragon: Asszociációs játék. :)
- Honda topik
- ThinkPad (NEM IdeaPad)
- Ventilátorok - Ház, CPU (borda, radiátor), VGA
- Telekom mobilszolgáltatások
- Nem várt platformon a OnePlus Nord 5
- További aktív témák...
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Vírusirtó, Antivirus, VPN kulcsok
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eredeti DELL 240W töltők (LA240PM160)
- BESZÁMÍTÁS! 1TB Western Digital SN850X NVMe SSD meghajtó garanciával hibátlan működéssel
- Realme C30 32GB, Kártyafüggetlen 1Év Garanciával
- BESZÁMÍTÁS! MSI Crosshair 17 HX Gamer notebook - i7 14700HX 64GB RAM 1TB SSD RTX 4060 8GB WIN11
- Bomba ár! Lenovo ThinkPad Yoga 260 - i5-G6 I 8GB I 256SSD I 12,5" Touch I W10 I Cam I Gari!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest