-
Fototrend
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
-
-
-
KaliJoe
tag
Szia kymco,
Ha a verbális erőszakot nem akarod, akkor próbálkozhatsz a fizikaival is. Lehet gyorsabb megoldás!
Képletben:
...
For Each str_Dolgozó as wsh_DolgozókNeve
If "verbális erőszak"<>"Eredmény" then
Do
Üt=Üt+1
Loop "verbális erőszak"<> "Eredmény"
End if
Next str_Dolgozó
...
-
Fferi50
Topikgazda
Szia!
Ezt nevezik szívásnak....
Ha hálózaton dolgoztok, akkor megoldás lehet, hogy felteszed egy központi helyre a fájlt, ott megadod az excelnek a szükséges beállításokat. Ezek után pedig csak az itteni excelt elindítva lehessen használni.Mivel nem indulhat el a makró, így nem tudod kikényszeríteni sem a bezárást, sem a makró indulást.
Még egy olyan ötletem van, hogy egy adott cellába beírsz egy képletet, ami egy másik cella állapotát figyeli és attól függően feltételes formázással figyelmezteted a felhasználót, hogy ez így nem lesz jó.Pld.
A1 cella képlete =ha(A2<>1;"Nincsenek bekapcsolva a makrók, hibás adatokat fogsz elmenteni, kérlek, lépj ki mentés nélkül!";"Minden OK")
A1 cella feltételes formázása képlettel, =$A$2=0, kitöltés vörös
A2 cellába pedig a Workbook_Open eseményben legelső dolgod, hogy beleírod az 1-et, a Workbook_BeforeClose eseményben pedig átírod 0 értékre.Persze ez nyilván nem garantálja, hogy bárki is ennek megfelelően cselekszik. Arra egyelőre nincs tippem, hogyan nézhető meg, hogy valaki "makróhasználat nélkül" írta felül a fájlt.
Üdv.
-
Mutt
senior tag
Szia,
Ezt függvénnyel nem tudod megoldani, makró kell hozzá.
A makrót a munkalap Change eseményére kell tenned, mivel ez fut le cella módosításkor.
Itt egy egyszerű példa:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 And Target.Column = 2 Then
Range(Target.Address).Offset(, 3) = Now()
End If
End SubAhol
- a Target.Row > 1 azt jelenti, hogy az első sort figyelmen kívül hagyjuk (általában itt van a fejléc)
- a Target.Column = 2 megmondja, hogy csak a második oszlopot figyeljük (ez nálad biztosan más)
- a Range(Target.Address).Offset(, 3) -al adjuk meg, hogy az éppen módosított cellától jobbra 3-al lesz majd ahova az időbélyeget (a most függvény aktuális értékét, nem a függvényt!) tesszük.üdv.
Új hozzászólás Aktív témák
Fferi50- exHWSW - Értünk mindenhez IS
- Milyen okostelefont vegyek?
- E-roller topik
- Luck Dragon: Asszociációs játék. :)
- AMD FX
- Dell notebook topic
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Debrecen és környéke adok-veszek-beszélgetek
- iPhone topik
- A TCL egyebek mellett egy 1040 Hz-re képes monitorral készül az idei évre
- További aktív témák...
- The Elder Scrolls Online Imperial Collector s Edition
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Xbox / Microsoft Store feltöltőkártya kód (digitális, HU) több címlet, több db, azonnal, olcsón
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Apple iPhone 13 Pro Max 512GB,Átlagos,Dobozaval,12 hónap garanciával
- Használt Apple A1243 EMC2171 német kiosztású vezetékes billentyűzet / 12 hónap jótállás
- 228 - Lenovo LOQ (15IRX10) - Intel Core i7-13650HX, RTX 5060
- Xiaomi 11 Lite 5G NE 128GB, Kártyafüggetlen, 1 Év Garanciával
- GYÖNYÖRŰ iPhone 15 Pro 128GB Blue Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS4680
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest