-
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
-
bteebi
veterán
válasz Declare #31096 üzenetére
A Fájl → Beállítások → Speciális menüben megadhatsz tetszőleges tizedesjelet (és ezreselválasztót), és nem kell a regionális beállításokat átállítanod. Ezt leszámítva máshogy szerintem - számként - nem lehet megoldani. Egyedi formátumként legalábbis nekem nem ment.
Cancel all my meetings. Someone is wrong on the Internet.
-
bteebi
veterán
Valami ilyesmi.
Sub linkmasolas()
Dim hl As Hyperlink
sor = 1
For Each hl In ActiveSheet.Hyperlinks
Cells(sor, "D") = hl.Address
sor = sor + 1
Next hl
End SubEz a makró minden hiperhivatkozásnak a címét (tartalmát) a D1-es cellába, majd az alatta lévő cellákba másolja. A kigyűjtött linkeket pedig oda másolod, ahová akarod (akár txt-ként vagy csv-ként is elmentheted).
Cancel all my meetings. Someone is wrong on the Internet.
-
walanr
csendes tag
Sziasztok!
Segítségre lenne szükségem egy elég összetett képlethez, ami jelenleg így néz ki:
'ad1'!$D7*((HA(HIBÁS(FKERES('ad1'!$B7;par!$H$18:$L$51;2;HAMIS)); "0";FKERES('ad1'!$B7;par!$H$18:$L$51;2;HAMIS)))*('ad1'!$E7/10000+par!$B$9/1000)+(HA(HIBÁS(FKERES('ad1'!$B7;par!$H$18:$L$51;3;HAMIS)); "0";FKERES('ad1'!$B7;par!$H$18:$L$51;3;HAMIS)))*('ad1'!$F7/10000+par!$B$9/1000))
Ez a képlet jelenleg hibátlan, pont azt tudja, ami nekem kell, egy hiányossággal: a képlet az alapján számol értékeket, hogy a jelen esetben B7-es cella tartalmát megtalálja-e a hozzárendelt adattáblában, vagy sem. Azért írtam így, hogy ha a B7 üres, akkor a végeredmény 0 legyen, de nem számoltam azzal, hogy a b7-ben lehet hibás adat is beírva. Merre induljak el, ha azt szeretném, hogy az üres cellára 0-t, a hibás cellára viszont hibaüzenetet adjon? Már a gyári #hiányzik is jó lenne eredménynek, mert akkor vissza lehetne keresni, hol lehet a hiba.Köszönettel András.
[ Szerkesztve ]
-
gdodi
csendes tag
Szervusztok!
A következő feladatot szeretném megoldani, makróval. Van egy kiinduló lapfülem, tele adattal. Az „A” oszlopban számok vannak (kb. 30-35), melyek rendszertelenül ismétlődnek. 2-3 ezer sornyi. Ezekhez tartozik 10-15 oszlopnyi adat. Szeretnék minden számhoz egy fület létrehozni, melyekre az eredeti fülön levő adatokból az összes ezen számhoz tartozó tétel (sor) szerepel, majd ezekből kimutatást készítenék. A problémám ott van, hogy a kimutatás készítéséhez nem tudom hogyan lehet megadni az aktuális fül nevét, mert azt előre nem ismerem.
Pl.: „ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Munka2!R1C1123C9", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Munka2!R1C20", TableName:="Kimutatás1", DefaultVersion _
:=xlPivotTableVersion14”
Itt a Munka 2! helyett meg lehet adni valahogyan az aktív fül nevét?
Előre is köszönöm a segítséget! -
BigBadPlaYeR
senior tag
Aktív munkalap = ActiveSheet ?
"Furcsa, hogy az ember milyen keveset ér el, ha nem is próbálkozik."
-
gdodi
csendes tag
válasz BigBadPlaYeR #31106 üzenetére
Próbáltam, nem szereti. Lehet, hogy csak szintaktikailag nem fogadja el, de nem jöttem rá, hogy lenne jó.
-
gdodi
csendes tag
válasz BigBadPlaYeR #31108 üzenetére
Azzal kezdtem.
-
Joltee
aktív tag
-
bteebi
veterán
válasz Joltee #31110 üzenetére
Ha minden lapra ugyanazt az élőfejet/élőlábat szeretnéd, akkor az makróval könnyen (és nagyon gyorsan) megcsinálható:
Sub HeaderFooterEdit()
Dim i As Integer
For i = 1 To Worksheets.Count
With Sheets(i).PageSetup
.LeftHeader = "Bal oldali élőfej"
.CenterHeader = "Középső élőfej"
.RightHeader = "Jobb oldali élőfej"
.LeftFooter = "Bal oldali élőláb"
.CenterFooter = "Középső élőláb"
.RightFooter = "Jobb oldali élőláb"
End With
Next
End SubCancel all my meetings. Someone is wrong on the Internet.
-
bteebi
veterán
Magamtól azt mondtam volna rá, hogy igen, de a Google szerint lehetséges .
Ebből a makróból próbálj építkezni. A my_url-t neked nyilván nem kell megadnod, simán az előző makróból kapott hl-re hivatkozz. Amúgy pont ezen az oldalon ajánlanak egy Selenium nevű programot, azt is érdemes lehet megnézned. Majd írj a fejleményekről.
Cancel all my meetings. Someone is wrong on the Internet.
-
DS39
nagyúr
Üdv!
Hol tudom beállítani Excel 2013-ban, hogy a legördülő listában (ami az adatokat egy rejtett fülről veszi), lehessen gépeléssel keresni? ez egy névlista egyébként, akár az is elég lenne, ha K-t megnyomva odaugorna a K betűvel kezdődőekhez. Olyan megoldást keresek, amihez nem kell plugint telepíteni, mert ha továbbküldöm, nem várhatom el, hogy mindenki telepítse.
[ Szerkesztve ]
-
d.bali
csendes tag
Üdv!
Szerintetek meg lehet azt oldani lehetőleg makró nélkül, hogy egy adott cellában(A1) szövegként beírt egyenletet egy másik cellában (B1) ki is számolja. Azaz az A1 cellában lenne, hogy 56,00*42,00*6,50 és ezt a B1 cellában kiszámolja és ott értelemszerűen a végeredmény 15288 szerepeljen.
THX[ Szerkesztve ]
-
Delila_1
Topikgazda
-
Garffi
tag
Sziasztok.
Adott ez a táblázat.
Keresek egy képletet mégpedig:
Pl. Beírom B8ba hogy Fa a B9be hogy 10 akkor a B10be az 54et kapjam.
Előre is thx. -
föccer
nagyúr
válasz Garffi #31123 üzenetére
INDEX és a HOL.VAN függvényeket kell kombinálnod. A HOL.VAN függvénnyel keresteted meg az INDEX Függvénynek a paramétereit. Most nincs előttem excel, de pofon egyszerű, pont erre a kettőre van szükséged.
Ha extrázni akarod, akkor a B8-ra és B9-re beállítasz egy érvényesítést->listából, hogy elkerüld az esetleges elgépelésből adódó hibákat.
üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
spe88
senior tag
válasz bteebi #31114 üzenetére
a te makród az működött, viszont a linkelt oldalira azt írja az Excel, hogy nincs licencem!
A Seleniumot nézegettem, de annyira távol vagyok ezektől, hogy lassan jobban járok, ha egyenként lementem őket. Még ha értenék hozzá csak-csak, de így nagyon sok idő mire rájövök bármire is.Spóroljunk! Kerül, amibe kerül!
-
werszomjas
őstag
Sziasztok,
excelben szeretnék olyat csinálni, hogy egy munkalapon belül ha adok egy cellának kitöltőszínt, akkor ezeknek a darabszámát egy külön cellában számolja nekem össze (színenként)
Vagy ha szín alapján nem lehet ilyet, akkor ha adott cella tartalmaz egy bizonyos karaktert (egyéb szöveg mellett), akkor azoknak a celláknak a darabszámát adja össze.
üdv
-
föccer
nagyúr
válasz werszomjas #31128 üzenetére
Darabhatöbb föggvény. Színre csak makróval menne.
Építésztechnikus. Építőmérnök.
-
Delila_1
Topikgazda
válasz werszomjas #31128 üzenetére
Nézz el ide!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
werszomjas
őstag
válasz werszomjas #31132 üzenetére
Olyat lehet, hogy automata számolja újra?
Ha módosítom a tartományban a cellaszíneket, akkor nem frissíti a darabszámot, csak akkor frissít, ha rákattintok a cellára és a függvénynél nyomok egy entert.
Vagy másik lehetőség, ha kreálok cellastílusokat, külön mindegyik színre, arra van függvény, ami számolja őket? Tehát nem háttérszín, hanem cellastílus alapján számol, hátha azzal automata frissülne.
[ Szerkesztve ]
üdv
-
gaben86
csendes tag
Sziasztok!
Segítségeteket szeretnék kérni,
excelben ha egy adott cellára rákattintok az egérrel vagy ha rá navigálok a billentyűzettel, akkor az adott cellához rendelt kép megjelenjen a táblázatom mellett, ha tovább lépek róla -a cella már nem "aktív" akkor a kép eltűnjön.
Jelenleg egy 50 soros táblázatom van, minden sorához kellene egy adott képet hozzárendelni, a fent leírtak szerinti működéssel.
A képek a C: meghajtó egy adott mappájában vannak a gépemen
A táblázatom A-G oszlopig terjed, H oszlopban a kép megjelenhetne a táblázat mellett.Ez megoldható véleményetek szerint?
Előre is köszönöm!
Üdv.
Gaben -
Delila_1
Topikgazda
válasz gaben86 #31138 üzenetére
Az M oszlopba írtam be soronként a megjelenítendő képek nevét, kiterjesztés nélkül. Mikor az A:G tartományban rákattintasz egy cellára, ahol az M oszlopban van képnév, a H oszlopban megjelenik a megfelelő kép.
A lapodhoz kell rendelni a makrót. Írd át az útvonalat!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Kepneve As String, utvonal As String
If Not Intersect(Target, [A:G]) Is Nothing Then
utvonal = "C:\Adott mappa\" 'Ide az igazi útvonalat írd be!
On Error Resume Next
ActiveSheet.Shapes("Kep").Delete
Kepneve = Cells(Target.Row, "M") & ".jpg"
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Name = "Kep"
.Left = Columns(8).Left
.Top = ActiveCell.Top
.Height = 180
End With
On Error Goto 0
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.
-
Carasc0
őstag
Sziasztok!
A jövőben komolyabban érdekelni fog az Excel. 2010-es Office-t használok. Érdemes váltani 2013-ra? Vagy inkább már a 2016-ra érdemes?
Gondolkodj globálisan és tegyél lokálisan!
-
Nowitzki
csendes tag
Sziasztok,
Egy kis segítséget szeretnék kérni.
Van egy munkafüzet jó pár ezer sorral. Az adatok alapesetben hetes csoportokban vannak (101-107), de néha olyan adatokat is regisztrál a gép aminek nincs meg mind a hét sora. Ezeket a sorokat szeretném automatikusan törölni egy makróval. Írtam is rá egyet de nem úgy működik ahogy szeretném. Tudnátok segíteni nekem ebben?Sub DeletingUnnecessaryRows()
For i = 2 To ThisWorkbook.Worksheets(1).Cells(ThisWorkbook.Worksheets(1).Rows.Count, 1).End(xlUp).Row
If Cells(i + 1, 1) - Cells(i, 1) <> 1 And Cells(i + 1, 1) - Cells(i, 1) <> -6 Then
Rows(i).EntireRow.Delete
End If
Next
EndElőre is nagyon szépen köszönöm!
[ Szerkesztve ]
-
YAN0U
csendes tag
Sziasztok,
Segítség kellene.
Azt szeretném, ha egy makró ezekben az oszlopokban
(C1 : C22;G1 : G22;K1 : K22)
minden cellában ahol 0 az érték, végezne egy tartalom törlést (ClearContents)Segítségeteket köszönöm
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Canva Pro előfizetés - 1 éves
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )