- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Samsung Galaxy A55 - új év, régi stratégia
- Samsung Galaxy A54 - türelemjáték
- iPhone topik
- One mobilszolgáltatások
- Google Pixel topik
- Elkészült és telepíthető az Android 16
- iGO Primo
- Android alkalmazások - szoftver kibeszélő topik
-
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- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Xbox Series X|S
- Sony MILC fényképezőgépcsalád
- EA Sports WRC '23
- Elektromos cigaretta 🔞
- exHWSW - Értünk mindenhez IS
- Kerékpárosok, bringások ide!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Azonnali fotós kérdések órája
- PlayStation 5
- További aktív témák...
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Vírusirtó, Antivirus, VPN kulcsok
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Antivírus szoftverek, VPN
- Bomba ár! Lenovo ThinkPad T450s - i5-5GEN I 8GB I 256GB SSD I 14" HD+ I Cam I W10 I Garancia!
- BESZÁMÍTÁS! Gigabyte B450M R5 5600X 16GB DDR4 512GB SSD RTX 3060 12GB Rampage SHIVA Seasonic 520W
- ÁRCSÖKKENTÉS LG 24" full HD LED IPS monitor (HDMI, DSUB, jack) eladó
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32/64GB RAM RX 7600XT 16GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! Gigabyte B450 R7 5700X 16GB DDR4 512GB SSD RTX 3060Ti 8GB Zalman Z1 Seasonic 650W
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest