- Apple notebookok
- Vezetékes FÜLhallgatók
- Kompakt vízhűtés
- Bluetooth hangszórók
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Milyen SSD-t vegyek?
- Kormányok / autós szimulátorok topicja
- Megérkezett Magyarországra az LG 480 Hz-es OLED monitora
- Milyen HASZNÁLT notebookot vegyek?
Hirdetés
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
Read Only Memories: Neurodiver teszt
gp A 2064 folytatása négy teljes évet csúszott a legelső tervekhez képest – a jövő transzhumanista világa még mindig roppant érdekes, a történet azonban már nem robotok, hanem agybúvárok körül forog.
-
Filléres Redmi érkezett
ma Az A3x nem kapott nagy bemutatót, egyszer csak felbukkant.
-
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
-
Delila_1
Topikgazda
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 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
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á.[ 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
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.
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
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[ 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
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
félisten
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...
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.
[ 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)
-
félisten
[ 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)
-
félisten
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...
[ 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
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[ 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.
-
félisten
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...
[ 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
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.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
Í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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
Pedig annak működnie kell: [link]
(Nem mellesleg meg teljesen mindegy, hogy szöveg avagy szám a pl -10, akkor is működik... )[ 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)
-
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ó.
-
föccer
nagyúr
-
Delila_1
Topikgazda
válasz Jarod1 #33534 üzenetére
Egy üres oszlopban a =BAL(A1;SZÖVEG.KERES(" (";A1)) képlet a bal oldalt adja. A képlet lemásolása után kijelölöd az új oszlopot, másolod, majd irányítottan értékként beilleszted az eredeti helyé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.
-
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 -
Mutt
aktív 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
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
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. -
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
Építésztechnikus. Építőmérnök.
-
Fferi50
őstag
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.
Új hozzászólás Aktív témák
- Politika
- Kerékpárosok, bringások ide!
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Xbox Series X|S
- XGS24 - Jövőre érkezik az új Fable
- exHWSW - Értünk mindenhez IS
- XGS24 - Remekül néz ki az új Perfect Dark
- Milyen okostelefont vegyek?
- Spórolós topik
- XGS24 - Ilyen lesz a South of Midnight
- További aktív témák...
- 10 Darab PC Játék (Bontatlanul!) Egyben 6990Ft.-ért Foxal!!!
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Steam kulcsok - UTALÁS/REVOLUT
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows Server 2016, 2019, 2022 Standard, Datacenter, Essentials termékkulcsok - MEGA akció!
- Windows 10, 11 Professional, Home, Enterprise licenckulcsok 64, 32 bit - MEGA Akció!
- Office Professional Plus 2013, 2016, 2019, 2021 RETAIL licenckulcsok - MEGA Akció!
- AVATAR: Frontiers of Pandora
- Windows 7 Home Premium, Pro, Ultimate és Windows 8, 8.1 Pro licenckulcsok 64, 32 bit - MEGA Akció!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen