- Motorola Edge 50 Neo - az egyensúly gyengesége
- Hívószám-hamisítás
- Magisk
- One mobilszolgáltatások
- iPhone topik
- Íme az új Android Auto!
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Szívós, szép és kitartó az új OnePlus óra
- Samsung Galaxy Fit 3 - keveset, de jól
- Honor Magic6 Pro - kör közepén számok
-
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
-
föccer
nagyúr
válasz
Jarod1
#52863
üzenetére
Feltételes formázás, azonosak kiemelése. Sima liba, erre van kitalálva.
B megoldás, hogy az egyik oszlop mellé felveszel egy segéd oszlopot, amibe a HOL.VAN() függvénnyel keresteted a másik oszlopban az első oszlop elemeit. Érdemes HAHIÁNYZIK függványbe becsomagolni, és ott egy "NINCS" vagy valami hasonló szöveget megadni.
Ha A és B oszlopban van a két adat oszlop, akkor a C oszlopba rakd be az alábbit
=HAHIBA(HOL.VAN(B1;A:A;0);"HIÁNYZIK")
ezt huzd ke ameddig kell.
üdv, föccer
-
Fferi50
Topikgazda
válasz
Jarod1
#52566
üzenetére
Szia!
Egy lehetőség az év és a ma függvények használata:
=ÉV(MA()) & " áramfogyasztás"
Ennek egyetlen hátránya, hogy átlépve a következő évbe, az előző év adataiban is a tárgyév jelenik meg, ezért év végén a korábbi adatokat át kell alakítani értékké - másolás - irányított beillesztés értéket ugyanoda.
Üdv. -
föccer
nagyúr
válasz
Jarod1
#52417
üzenetére
3 megoldás:
1: feltételes formázással beállítot, hogy az ismétkődő értékeket színezze majd autoszűrővel színre szűrsz,
2: használod a DARABTELI vagy DARABHA függvényt egy segédoszlopban. A tartomány az egész oszlop, a kritérium pedig az adott sor egy eleme. Autoszűrőt bekapcsolod és szűrt a 0-nál nagyobb számokra.
3: 2 pontban lévő segédoszlopot megcsinálod, majd SZŰRŐ függvényt használod. A tartomány az eredeti adat oszlop, befoglalásra perdig beállítod, hogy a segédoszlop adatai <>0 legyen. Ezt beágyazod az EGYEDI függvénybe és kész is-A 3. dinamikus megoldás, de O365 vagy M2021 kell hozzá, az első kettő manuális gyűjtés.
üdv, föccer
-
elttiL
senior tag
válasz
Jarod1
#51922
üzenetére
Szia. Bocs de nem vettem észre hogy válaszolt valaki.... Kösz, hogy válaszoltál. Lehet hogy félreérthetően fogalmaztam. Nem az a gond, hogy nem frissült a cella tartalma, hanem a hivatkozás képlet akármi helyett maga az érték szerepelt. Pedig képlet hivatkozás akármi került előzőleg abba a cellába. Képzeld el ha csinálsz egy Szumma fuggvenyt de észre veszel valamit az egyik munkafüzetben, valtoztatsz, de mivel már nem Szumma függvény van a cellában, hanem egy egyszerű szám, már bukó van. 10-50-100m-es ajánlatokat készítek, van közbeszerzés is, nem kellene bennük hibáznom. 3x ellenozzok mondjuk mindent. Hibásak a kiadott excelek is többször, a legjobb amikor beszurnak sort a Szumma sor fölé de ha nem javítasz bele a Szumma sorba, akkor a beszurt értékek nincsenek benne az összegben. De már rutinos vagyok, keresem ezeket az elcseszéseket.
Mostanaban nem tapasztaltam a nyavajámat. Úgy tűnik a xls ből xlsx be hivatkozásból adod(hat)ot. Mindenesetre érdekes volt. -
Mutt
senior tag
válasz
Jarod1
#43355
üzenetére
Szia,
Excel 2010-től van Power Query, ami sokkal könnyebbé teszi az adatbeolvasást makró nélkül.
Adatok fülön a beolvasás weblapról opció tud segíteni.Ha makróval akarod frissíteni, akkor pedig ezt kell csak a kódodba írnod.
ActiveWorkbook.Connections(<lekérdezés neve>).Refreshüdv
-
Pakliman
tag
válasz
Jarod1
#42159
üzenetére
1. Biztos, hogy az a cella az aktív, amelytől balra lévő oszlopokat és amely fölött lévő sorokat rögzíteni akarod?
2. Én VBA-ban találkoztam vele.
Ott is KIZÁRÓLAG egy bizonyos, programból létrehozott és kitöltött munkalappal csinálja (Office2016, a létrehozott munkafüzet 4 munkalapot tartalmaz kódból létrehozva!).
A kódot lépésenként végrehajtatva jó értékek vannak a "fagyasztásnál", mégis a P2 cella helyett az I15-öt zárolja.
Ez nem működik:.Cells(2, 16).Select
ActiveWindow.FreezePanes = TrueHelyette ezt használom:
With ActiveWindow
If .FreezePanes Then .FreezePanes = False
.SplitColumn = már_nem_mozgó_oszlop
.SplitRow = már_nem_mozgó_sor
.FreezePanes = True
End With -
-
dejak
újonc
válasz
Jarod1
#21938
üzenetére
A4-esre van van állítva, és mégsem jó minden gépen. Anyit még hozzátennék: 4 oszlopból áll a lap, az oszlopszélességek összege plusz a lap margójának szélessége tesz ki 21 cm-t. Evvel a méretezéssel működik a nyomtatás három gépen, a negyediken két oldalra akarja nyomtatni. Bár először csak azon a gépen volt jó, amelyikkel megszerkesztettem, a másik kettőn nem. Aztán kicsit összébb húztam az oszlopszélességeket, és így jó lett mindhárom gépen. Most érkezett egy negyedik gép, azon megint nem jó.
-
#9789
Fire/SOUL/CD
félisten
Jarod1
#9787
-
Delila_1
veterán
Írj be valahova egy 1-est egy üres cellába. Másold (Ctrl+c), jelöld ki a cellákat, amik a bevételeket és kiadásokat tartalmazzák, jobb klikk, Irányított beillesztés, Szorzás.
Ez a művelet számokká alakítja a szövegesen előforduló értékeket, a nem szövegeseknek meg nem árt.
-
Delila_1
veterán
Igen, ez a SZUM függvénynek egy speciális változata. Az első paraméter azt határozza meg, hogy a tartomány adataival mit akarsz kezdeni. A 9 az összegüket, a 2 a darabszámukat számolja össze.
Nézd meg a súgót, ott vannak leírva a lehetséges paraméterek, és az alkalmazásuk. -
#9779
Fire/SOUL/CD
félisten
Jarod1
#9778
Ne legyen szűrés egy oszlopban sem
=RÉSZÖSSZEG(9;A2:A7)Ugye A1-ben a fejléc található, ezért A2-től kezdődnek az adatok, ez esetben A7-ig.
Ha fix méretű a táblázatod (tehát nem változik a sorok száma), akkor ez megfelelő megoldás lehet ill. megadsz tartományt. Ha dinamikus a táblázat (változik a sorok száma, és itt elsősorban az értendő, hogy új sorok adódnak hozzá), akkor inkább makrókód kell, mert egyébként, folyamatosan át kell irogatnod a képletben a tartományt pl A2:A100 vagy egyébre...
-
Delila_1
veterán
Lehet, hogy igaza van Fire-nek az elírással kapcsolatban, de én úgy értettem a kérdést, hogy az érdekel, hány oszlopban van beállítva valamilyen feltétel szerinti szűrés.
Arra itt a makró hozzá:
Sub SzűrtOszlopok()
Dim oszlop As Integer, sz As Integer
Dim w As Worksheet
Dim FiltOszlop As String
Set w = Worksheets("Munka1")
With w.AutoFilter
FiltOszlop = .Range.Address
For oszlop = 1 To .Filters.Count
If w.AutoFilter.Filters.Item(oszlop).On Then sz = sz + 1
Next
End With
MsgBox sz
End Sub -
#9775
Fire/SOUL/CD
félisten
Jarod1
#9774
MsgBox (Worksheets("Munka1").AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1)
A Munka1 annak a munkalapnak a neve, amelyikben az AutoFilter/Szűrő használva van
UI: Feltételezem, az csak szimpla elírás részedről, hogy a "szűrt oszlopokat" számolja, hisz szűrt sorok vannak, az oszlopok száma szűrve és szűrés nélkül is fix...
-
#8076
Fire/SOUL/CD
félisten
Jarod1
#8075
-
#8072
Fire/SOUL/CD
félisten
Jarod1
#8071
Hali!
15 napig ingyenesen használható, gondolom nincs annyi cella, amivel ennyi idő alatt ne végezne...
[link]Fire.
UI: Meg egy egyszerűbb makróval is megoldható, de most lusta vagyok...
![;]](//cdn.rios.hu/dl/s/v1.gif)
Szerk
Mégsem vagyok ennyire lusta.
Dobj egy commandbutton-t a munkalapra, duplaklikkEz a munkalapon lévő összes cellát nagybetűsre varázsolja
Private Sub CommandButton1_Click()
UsedRange.Select
For Each mycell In Selection
mycell.Value = UCase(mycell.Value)
Next mycell
End SubHa kihagyod a UsedRange.Select sort, akkor meg azt a cellát amin állsz, vagy az általad kiválasztott cellákat.
-
-
Delila_1
veterán
Azt kell figyeltetni, aminek következtében a cella értéke felveszi a Bizonyos szót.
Pl. ha a B10 értéke akkor lesz Bizonyos, ha a C10-be beírsz egy 1-est, akkor a makró:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Value = 1 Then _
Rows(Target.Row).Interior.ColorIndex = 4
End SubEbben most két új érdekesség van. Ha a feltételhez (IF) nem tartozik hamis ág (Else), akkor egy sorba írhatod a feltételt, és azt, hogy mi történjen, ha ez teljesül, nem kell End If-fel lezárni.
A másik, hogy a hosszúra sikerült sorokat meg lehet törni úgy, hogy egy szóköz után egy alsó kötjelet teszünk, és folytatjuk a következő sorban az utasítást. Jobban áttekinthető lesz a makró, nem kell hozzá görgetni a képernyőt. A fordító program, ami a Visual Basic-ből gépi nyelvre ülteti át az utasításokat, hogy értelmezhető legyen a gép számára, soronként fordítja az utasításokat. Ezeket a megtört sorokat 1 sorként értelmezi, egyszerre ülteti át gépi kódba. Nagyobb programoknál észrevehető a gyorsabb futás. -
Delila_1
veterán
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value="Bizonyos" Then Rows(Target.Row).Interior.ColorIndex = 4
End SubUgyanez az oszlop megadásával együtt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value="Bizonyos" And Target.Column= 2 Then Rows(Target.Row).Interior.ColorIndex = 4
End Sub -
Delila_1
veterán
A laphoz kell rendelned a makrót (lapfülön jobb klikk, Kód megjelenítése, a jobb oldalon kapott üres lapra másold be):
Private Sub Worksheet_Change(ByVal Target As Range)
Rows(Target.Row).Interior.ColorIndex = 4
End SubA fenti makró bármelyik cellába írt szövegnél zöldre festi a teljes sor hátterét. Ha azt akarod, hogy egy bizonyos oszlopba történt beírásra zöldítsen, akkor egy feltételhez kell rendelni a szín megadását.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then Rows(Target.Row).Interior.ColorIndex = 4
End SubEz a makró csak akkor színez, ha a B (2.) oszlopba viszel be valamilyen értéket (szöveg, szám, dátum, logikai). A Target.Column értékével add meg a a megfelelő oszlopot.
-
Delila_1
veterán
Az Eszköztáron (ikonsoron) jobb klikk, a megjelenő gyorsmenüben bejelölöd az Űrlapokat. Az Űrlapok eszköztáron a Gombra kattintasz, és berajzolod vele a megfelelő helyre. Ekkor a Makró-hozzárendelés párbeszéd ablakban felajánjla a Gomb1_Kattintáskor című makrót, amit most írhatnál meg. A listában viszont megtalálod az előzően bevitt OtosLotto címűt, ezt rendeld hozzá.
A gomb méretét, helyzetét és feliratát ezután kedvedre módosíthatod, ha az egér jobb gombjával kattintasz rá. -
Delila_1
veterán
Az utoljára beírt adataid most valószínűleg a C2733-ban kezdődnek, azért következik a 2734-es sor.
A makró megnyitja a webes fájlt, és bemásolja az 5 adatot a helyére. A két utolsó sor bezárja a szerencsejatek.hu füzetét, ezeket kihagyhatod, ha még nézelődni akarsz benne.
A Windows("Munkafüzet1").Activate sorban a Munkafüzet1 helyett a saját füzeted nevét írd be.Sub OtosLotto()
Workbooks.Open Filename:="http://www.szerencsejatek.hu/xls/otos.xls"
Range("L4:P4").Copy
Windows("Munkafüzet1").Activate 'Ide a saját füzeted nevét írd
Sheets("otos").Select
usor = Range("C65536").End(xlUp).Row + 1
Cells(usor, 3).Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Webes fájl bezárása
Windows("otos.xls").Activate
ActiveWindow.Close
End Sub
![;]](http://cdn.rios.hu/dl/s/v1.gif)
)
Új hozzászólás Aktív témák
Hirdetés
Fferi50
- ÁRGARANCIA! Épített KomPhone i5 13400F 32/64GB RAM RX 7700 XT 12GB GAMER PC termékbeszámítással
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- AKCIÓ! MSI Z690 i7 12700K 32GB DDR4 1TB SSD RX 6800 16GB Phanteks P600S Cooler Master 750W
- Csere-Beszámítás! Intel Core I9 14900KS 24Mag-32Szál processzor!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32/64GB RAM RX 7600XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest