- VoLTE/VoWiFi
- EarFun Air Pro 4 - a cél a csúcs
- Fotók, videók mobillal
- A hagyományos (nem okos-) telefonok jelene és jövője
- Xiaomi 15 - kicsi telefon nagy energiával
- Xiaomi Watch 2 Pro - oké, Google, itt vagyunk mi is
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Motorola Moto G54 5G Power Edition - nem merül le
- Samsung Galaxy A56 - megbízható középszerűség
- Apple Watch
-
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
-
Delila_1
veterán
válasz
mahatma
#5333
üzenetére
Annak a füzetnek az aktuális lapjához rendeld a lenti makrót (lapfülön jobb klikk, Kód megjelenítése, a kapott üres lapra másold be), amelyikből a másikba akarod másolni az adatokat.
Private Sub Worksheet_Change(ByVal Target As Range)
sor = Target.Row: oszl = Target.Column
e = Target.Value
Workbooks("Másik_füzet.xls").Sheets("Munka1").Cells(sor, oszl) = e
End SubA "Másik_füzet" és a "Munka1" helyett a természetesen saját elnevezéseidet használd.
-
-
-
Delila_1
veterán
válasz
mahatma
#2707
üzenetére
Nem biztos, hogy jól értelmezem a kérdésedet.
Ha úgy érted, hogy egy cellában akarsz elhelyezni több sort, a cellaformátumnál az igazítás fülön teheted meg a "Sortöréssel több sorba" bejelölésével. Ugyanezt éred el a szöveg beírásánál az Alt+Enterrel (mikor nem máshonnan másolod a szöveget). -
Delila_1
veterán
válasz
mahatma
#2552
üzenetére
El lehet tüntetni a Visible paraméter False-ra való állításával, csak azt nem tudom, hogyan lehet ezt szabályozni egy cellára lépéssel. Gombokkal meg tudom oldani a ki-bekapcsolást.
Lista panel helyett kombi panelt vigyél be. Ha az űrlap eszköztárból vitted be, akkor a Lenyíló soroknál adhatod meg az egyszerre látható sorok számát. Ha pedig a vezérlők eszköztárból, akkor a ListRows-nál. -
lapa
veterán
válasz
mahatma
#2538
üzenetére
ezzel tudod megjeleníteni, ill. eltüntetni (persze a shape nevét neked kell tudni, pl makrorögzítés közben rájelölsz egérrel...).
ActiveSheet.Shapes(''WindowsMediaPlayer1'').visible = true
ezzel [link] meg megfuttatod, pl
Target.Interior.ColorIndex = 3 helyére
if target.address = ''$A$1''
...visible = true
end if -
Delila_1
veterán
-
Delila_1
veterán
válasz
mahatma
#2529
üzenetére
Szia mahatma!
Megnyitod a vezérlők eszköztárát. Az alján a További vezérlők gombot megnyomod, és kiválasztod a Naptár vezérlőt (lehet, hogy Calendarnak, MS Calendarnak hívják). Kapsz egy szálkeresztet, azzal rajzolsz egy négyszöget. Akkor tudsz módosítani ezen az eszközön, mikor Vezérlők eszköztáron a bal felső ikon - Tervezés - aktív. A tulajdonságok közül a legfontosabb a LinkedCell, ide kell beírnod, melyik cellában legyen az eredmény. A többi beállítás a küllemre vonatkozik.
Jó munkát!
[Szerkesztve] -
lapa
veterán
válasz
mahatma
#1567
üzenetére
itt egy minta:
Option Explicit
Dim sor, ful As Long
Sub konsz_fulbol()
sor = 1
For ful = 1 To ThisWorkbook.Sheets.Count
If Not Sheets(ful).Name = ''célfül'' Then
ThisWorkbook.Sheets(''célfül'').Cells(sor, 1) = Sheets(ful).Name
ThisWorkbook.Sheets(''célfül'').Cells(sor, 2) = Sheets(ful).Cells(1, 1)
sor = sor + 1
End If
Next ful
End Sub
itt a ''célfül'' nevű fülbe gyűjti az adatokat. -
#1155
matekmatika
tag
mahatma
#1149
matekmatika
tag
válasz
mahatma
#1149
üzenetére
Szia. Azt nem tudom mennyire sügér
.A Szerkesztés/Eszköztárak menüpontban bekapcsolod a VisualBasic eszköztárat-ha nem lenne. (Bocs ha így nagyon szájbarágós, de mint írtam nem tudom mennyire sügér a sügér). Ekkor megjelenik az eszköztár, amin bekapcsolod a Tervező módot és a Vezérlők eszköztárát. Valamelyik munkalapodra szépen egymás alá beírod azokat a tételeket, amiket a lenyiló menüből ki szeretnél választani majd. Ezt rakhatod majd akárhová akár másik munkalapra is lényeg hogy ne zavarjon. Katt a Kombi panel ikonra, majd a munkalapon oda ahová rakni szeretnéd a lenyíló listádat. Ezt szabadon méretezheted. ha tetszik a mérete meg a pozíciója, jobb klikk rajta/Tulajdonságok. Kersd meg a LinkedCell sort és írd be annak a cellának az azonosítóját ahol szeretnéd hogy megjelenjen a kiválasztott tétel értéke.(pl:A10) Majd a LastFillRange-t keresd, ide kell beírnod azt a tartományt ahová az előbb a tételeket az előbb beírtad.(pl: ha az A1, A2,...A9 cellákba írtad akkor A1:A9 -t kell beírnod ide. Ha másik munkalapra tetted akkor a másik munkalap nevét és egy felkiáltójelet kell elébe rakni. pl:Munkafüzet2!A1:A9) Ha kikapcsolod a tervezőmód ikonját már működnie is kell, kiválasztod az egyik tételt és abba cellába amit a LinkedCell-hez beírtál meg is jelenik. -
mahatma
aktív tag
-
Gh0sT
addikt
FKERES lesz az is. Küldd át nyugodtan a táblát, megcsinálom!
Egyébként az is megoldható, hogy összesítve legyen az összes 51-55 számla az 5-ös számlaosztályon belül és még maga az 5-ös is meglegyen.
Szerk.: viszont SQL-t mennyire vágod, mert abban meg nekem kellene némi segítség?!
[Szerkesztve] -
lapa
veterán
ha jólértem:
1. mindkét tábla megnyit
2. a 2. tábla 3. oszlopába elkezded írni: =if(isnumber(
3. másik fájlt aktivál
4. kívánt cellát kijelöl (szerkesztőlécben kábé =if(isnumber(másikfájl másikfájlfül A1
5. továbbír =if(isnumber(másikfájl másikfájlfül A1);round(
6. másik fájlt aktivál
7. kívánt cellát kijelöl - szerkesztőlécben =if(isnumber(másikfájl másikfájlfül A1);round(másikfájl másikfájlfül A1
8. továbbír: =if(isnumber(másikfájl másikfájlfül A1);round(másikfájl másikfájlfül A1;-3);''NEMVAN'')
9. entert nyom
10. örül
a 2. tábla minden indításakor megkérdi akarod-e frissíteni az adatokat. olyankor lenézi az 1. tábla utoljára elmentett állapotát és kidobja az eredményt. megszívható a dolog csúnyán, ha nem gondolod jól át a könyvtárszerkezetet ésvagy fájlnevet előre.
round(;) matekos kerekítés, roundup(;) felfelé, rounddown(;) lefelé kerekít. magyarul kerekítés(;), kerek.fel(;), kerek.le(;). az if(;;) magyarul ha(;;) és isnumber() talán szám()
[Szerkesztve] -
Gh0sT
addikt
Nézzünk egy egyszerű példát, hogy érthető legyen:
A1 cella tartalma egy szám.
B1-ben vizsgáljuk az A1 cella értékét:
=HA(A1>10;''>10'';''=<10'')
Eztán: formátum --> feltételes formázás
A cella értéke egyenlő ''>10'' és beállítod a kívánt formátumot (szín, szegély, betütípus, stb...
Aztán csinálsz még egy feltételt csak a ''=<10'' értékre.
Ha gondolod utánanézek, hogy függvénnyel hogyan lehet megoldani.
Szerk:
Most egy kicsit belegondolva a kérdésedbe: a feltételes formázás már tartalmaz egy logikai vizsgálatot, szóval a HA függvény akár el is hagyható. Bár lehet, hogy egyedi a problémád...
[Szerkesztve] -
Gh0sT
addikt
Ez volt a legegyszerűbb megoldás, egyébként valszeg az utolsó oldal egyik cellájában volt valami adat, vagy éppen formázás. De mire azt megtalálja az ember...
Szerk.:
TrollBalint: akkor most neked megoldódott a problémád? Mert nem jöttem rá az utolsó hszből.
[Szerkesztve]
.A Szerkesztés/Eszköztárak menüpontban bekapcsolod a VisualBasic eszköztárat-ha nem lenne. (Bocs ha így nagyon szájbarágós, de mint írtam nem tudom mennyire sügér a sügér). Ekkor megjelenik az eszköztár, amin bekapcsolod a Tervező módot és a Vezérlők eszköztárát. Valamelyik munkalapodra szépen egymás alá beírod azokat a tételeket, amiket a lenyiló menüből ki szeretnél választani majd. Ezt rakhatod majd akárhová akár másik munkalapra is lényeg hogy ne zavarjon. Katt a Kombi panel ikonra, majd a munkalapon oda ahová rakni szeretnéd a lenyíló listádat. Ezt szabadon méretezheted. ha tetszik a mérete meg a pozíciója, jobb klikk rajta/Tulajdonságok. Kersd meg a LinkedCell sort és írd be annak a cellának az azonosítóját ahol szeretnéd hogy megjelenjen a kiválasztott tétel értéke.(pl:A10) Majd a LastFillRange-t keresd, ide kell beírnod azt a tartományt ahová az előbb a tételeket az előbb beírtad.(pl: ha az A1, A2,...A9 cellákba írtad akkor A1:A9 -t kell beírnod ide. Ha másik munkalapra tetted akkor a másik munkalap nevét és egy felkiáltójelet kell elébe rakni. pl:Munkafüzet2!A1:A9) Ha kikapcsolod a tervezőmód ikonját már működnie is kell, kiválasztod az egyik tételt és abba cellába amit a LinkedCell-hez beírtál meg is jelenik.
még mindig itt bénázok vele
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Magga: PLEX: multimédia az egész lakásban
- VoLTE/VoWiFi
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Tőzsde és gazdaság
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- BestBuy topik
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Autós topik
- EAFC 25
- Ventilátorok - Ház, CPU (borda, radiátor), VGA
- További aktív témák...
- Sea of Thieves Premium Edition és Egyéb Játékkulcsok.
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
- Azonnali készpénzes Sony Playstation 4 Slim / PS4 Pro felvásárlás személyesen/csomagküldéssel
- LG 27GR95QL - 27" OLED / Limitált LoL Edition / QHD 2K / 240Hz & 0.03ms / NVIDIA G-Sync / FreeSync
- Bomba ár! Lenovo ThinkPad T480s - i7-8GEN I 16GB I 256GB I 14" WQHD I HDMI I Cam I W11 I Gari!
- ÁRGARANCIA!Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RX 7600XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest