- Aliexpress tapasztalatok
- DIGI kábel TV
- Bittorrent topik
- Linux kezdőknek
- Letartóztatták, mert AI segítségével csalt az egyetemi vizsgán
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Microsoft Outlook topic
- Musk meggondolta magát, mégsem pereli az OpenAI-t
- Az AI miatt vehetnek sokan új iPhone-t
- ASUS routerek
-
IT café
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
aktív tag
válasz *Frenszisz* #20595 üzenetére
Hello,
Szerintem a munkalap Change eseményét használd erre:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value < Range("B1").Value Or IsEmpty(Range("B1").Value) Then Range("B1").Value = Target.Value
End If
End Subüdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz *Frenszisz* #20600 üzenetére
Hello,
Az alabbiak lehetnek a gondok:
- az eredeti program kikapcsolja az esemenykezeleseket, nezd meg hogy van-e benne Application.Enableevents parancs.
- nem adja vissza a vezerlest a program. Ahol a varakozas meg van adva oda irjal be egy DoEvents parancsot.Mindket esetben hozza kell ferned az eredeti kodhoz, ami azt jelenti hogy akkor mar az eredeti programot egyszerubb lenne kiegesziteni a legkisebb ertek keresesel. A korabban megadott kodban csak aprot kell valtoztatni:
- Target reszt le kell cserelni Range("A1") -re
- az elso If-et hagyd eludv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Delila_1
Topikgazda
válasz *Frenszisz* #21141 üzenetére
A laphoz rendelt eseménykezelő csakis a saját lapján tud módosítani, de meghívhatsz vele egy nem eseménykezelő makrót.
Megoldás: a Munka2 laphoz rendelj eseménykezelőt, ami az A1 cella változása esetén meghív egy makrót, amivel a Munka1!A1-be beíratod hivatkozást.
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
válasz *Frenszisz* #21141 üzenetére
Munka2 laphoz
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Képlet Target 'átadjuk a változót
End SubModulba
Sub Képlet(Target) 'átvesszük a változót
Dim updating As Boolean
Sheets("Munka1").Range("A1") = Target
If updating Then Exit Sub
updating = True
If Sheets("Munka1").Range("A1") = 1 Then
Sheets("Munka1").Range("B1") = 500
Else: Sheets("Munka1").Range("B1") = ""
End If
updating = False
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.
Új hozzászólás Aktív témák
- XGS24 - Gameplay előzetesen a S.T.A.L.K.E.R. 2: Heart of Chornobyl
- A fociról könnyedén, egy baráti társaságban
- Aliexpress tapasztalatok
- Elektromos rásegítésű kerékpárok
- OTP Bank topic
- Elden Ring
- Minden ami hőszivattyú
- Autós topik
- Milyen okostelefont vegyek?
- Motorola Edge 40 - jó bőr
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Steam kulcsok - UTALÁS/REVOLUT
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen