Hirdetés
- Milyen cserélhető objektíves gépet?
- Milyen TV-t vegyek?
- Apple asztali gépek
- Internet Rádió építése (hardver), és programozása
- Sony MILC fényképezőgépcsalád
- Melyik tápegységet vegyem?
- Elkészült az SMIC 5 nm-es node-ja, de a kínaiaknak haszna nincs rajta
- A Retro Games feltámaszt egy legendát
- Kettő együtt: Radeon RX 9070 és 9070 XT tesztje
- Kompakt vízhűtés
-
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
-
Mutt
senior tag
válasz
Smogus
#45431
üzenetére
Szia,
... folyamatos szűrést csinálnom, hogy az egyik munkalapon lévő sorok közül azok listázódjanak egy másik munkalapon, amelyeknek egy cellájában a "rögzíteni kell" felirat olvasató.
... úgy hogy semmilyen szűrést vagy makrót nem futat le a másik fülön.Ha a felhasználók saját profillal használják a gépeket (vagyis mindenki saját felhasználónév és jelszópárossal lép be a Windowsba), akkor egy Excel 4.0-ás képlettel (MUNKATERÜLETET.VESZ(26) vagy angolul a GET.WORKSPACE(26)) ki lehet olvasni az aktuális profil nevet és ezt fel lehet használni a szűréshez.
Az alábbi képen a koncepció látszik. Van 3 lap, 3 felhasználó névvel. Az Excel4.0-ás képlet a névkezelőben az ActiveUser változóhoz van rendelve. Majd pedig az egyszerűség kedvéért egy Office365-ben található függvénnyel le van szűrve a lista az megfelelő felhasználóval. Korábbi Excel változatotkban ÖSSZESÍT/INDEX párosok kellenek.
üdv
-
Delila_1
veterán
válasz
Smogus
#32638
üzenetére
Nem írtad, hol van az a cella. A lenti makró az A oszlopba írt adat esetén az azonos sor B oszlopába írja be az időpontot.
Az A oszlopba írást az If Target.Column = 1 Then sor figyeli. Ha másik oszlopot kellene figyelembe venni, az 1-et írd át az oszlop sorszámára. (B-nél 2, C-nél 3, és így tovább).
A makrót a lapodhoz kell rendelni, ahogy a Téma összefoglalóban olvashatod.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Range(Target.Address).Offset(, 1) = Format(Time, "hh:mm:ss")
Application.EnableEvents = True
End If
End Sub -
Delila_1
veterán
válasz
Smogus
#25790
üzenetére
A makrót rendeld a lapodhoz.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes(1).Left = Target.Left + 5
ActiveSheet.Shapes(1).Top = Target.Top + 5
End SubHa túl közel jelenik meg a szövegdoboz az aktuális celládhoz, az+ 5-öket írd át nagyobb értékre.
Ha nevet adtál a szövegdobozodnak, vagy nem csak 1 van belőle, a Shapes(1)-nél az 1 helyére idézőjelek között add meg a nevét.
-
Fferi50
Topikgazda
válasz
Smogus
#25790
üzenetére
Szia!
Nem tudom mit találtál az Excelben. 2010-ben a Fejlesztőeszközök Dokumentumpanel menüpontban elő tudod hozni a dokumentum ablakot, ahová megjegyzéseket is tudsz írni. Be lehet állítani, hogy mikor jelenjen meg. De ebben a menüpontban mindig elő tudod hozni az aktuális állapotát.
Üdv.
-
Delila_1
veterán
=A1*(1+5%)
Ezt másold végig az adataid mellett.
Ha az értékeket fixre akarod venni (ne képlet legyen), akkor a növelt értékeket tartalmazó cellákat kijelölöd, másolod, és Szerkesztés/Irányított beillesztés/Értéket beilleszt – másik helyre, vagy az eredeti összegek helyére.
Új hozzászólás Aktív témák
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok : (12.14.)
- MS SQL Server 2016, 2017, 2019
- iPhone 13 128GB 100% (1év Garancia)
- Gamer PC-Számítógép! Csere-Beszámítás! I5 10500T / RTX 3050 / 32GB DDR4 / 512 SSD!
- Lenovo ThinkPad T14S Gen1 Intel i5-10310U Refurbished - Garancia
- Surface Pro 7+ i5-1135G7 16G 256GB 1 év garancia
- Xiaomi Redmi Note 14 Pro+ 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest



Fferi50

