Hirdetés
- One mobilszolgáltatások
- iPhone topik
- Milyen okostelefont vegyek?
- Várhatóan ez a négy iPhone már nem telepítheti az iOS 27-et
- Redmi Note 15 Pro 5G – a szokásosat?
- Távozik az Apple vezérigazgatója
- Vivo X300 Ultra - tárcsázz, ha van rá keret!
- Samsung Galaxy S25 - végre van kicsi!
- Xiaomi 17 Ultra - jó az optikája
- Honor Magic8 Pro - bevált recept kölcsönvett hozzávalókkal
-
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
-
jobbi
csendes tag
sziasztok!
tudna abban vki segíteni nekem, h hogyan tudok Excel 2003-ban egy checkbox elemre tooltip-et rakni?
Köszi
-
jobbi
csendes tag
sziasztok!
A problémám a következő: szeretném azt megoldani, hogy egy adott gomb ismételt nyomogatásával egy oszlop celláiba kiírjam a két gombnyomás közt eltelt időt. Ezt meg tudom úgy oldani, h használom a Now() függvényt, annak eredményét beíratom vmelyik celléba, majd következő gombnyomásnál szintén Now() függvény valahova. A két érték különbsége a két gombnyomás közt eltelt idő. Ez nem is lenne rossz, DE. A now() függvény csak másodperc pontossággal mutatja az időt. Nekem viszont szükségem lenne az -ideális esetben- századmásodpercekre, de legalább a tizedmásodpercekre. Gyakorlatilag egy stoppert szeretnék csinálni.
Tehát ha tud valaki a now() függvénynél pontosabbat, vagy egyéb alternativ megoldást erre a problémára, akkor annak nagyon örülnék.Előre is köszönöm a válaszokat
üdv
-
jobbi
csendes tag
válasz
Delila_1
#4018
üzenetére
Ezzel a kiegészítéssel működik (feltéve, h a C3-as cellát nem használjuk semmire, de ha igen, akkor helyette lehet akár az IV65536 is):
Private Sub Worksheet_Change(ByVal Target As Range)
SOR = Target.Row
OSZLOP = Target.Column
If OSZLOP = 2 And Range("C3").Value <> "X" Then
Range("C1").Value = "X"
Range("B" & SOR) = Range("B" & SOR) / 24 / 60 + Range("A" & SOR)
End If
If OSZLOP = 2 Then
Range("C1").Value = ""
End If
End SubCsak azért írom, be hátha vki szintén akar hasonlót.
-
jobbi
csendes tag
Heló újra!
Azóta megtaláltam a választ, így a kérdés már nem aktuális. Viszont van helyette másik
"A" oszlopban sorban szerepelnek az alábbi értékek:
6:00:00
7:00:00
8:00:00
...
tehát óra:perc:másodperc! "B" oszlopba szeretnék időértékeket bevinni. Azt szeretném, h ha a "B" oszlopba beírom, h pl 14, akkor a cellába ne 14 kerüljön, hanem a tőle balra lévő cella ("A" oszlop) értéke, plussz a beírt érték percben. Tehát, ha "A"oszlop adott sorában az van, h 6:00:00, akkor ha a mellette lévő cellába beírom, h 14, akkor oda 6:14:00 kerüljön, ha 8:00:00 van mellette, akkor 8:14:00. Remélem érthető. Eddig annyira jutottam, h jobb gomb a sheetre, aztán view code, oda beír, h:Private Sub Worksheet_Change(ByVal Target As Range)
SOR = Target.Row
OSZLOP = Target.Column
If OSZLOP = 2 Then
Range("B" & SOR) = Range("B" & SOR) / 24 / 60 + Range("A" & SOR)
End If
End SubEz viszont nem működik. gondolom amiatt, h mikor beírok a cellába vmilyen értéket, elkezd futni ez a makró. ami aztán szintén megváltoztatja a cella értékét: leosztja 24-gyel majd 60-nal, h percet kapjon, aztán hozzáadja ezt az értéket pl a 6:00:00-hoz, így megkapja a 6:14.00-et, viszont azzal, h ezt beírja, újra meghívódik a makró, és most már ezt az értéket osztja 24-gyel, 60-al, majd adja hozzá újra a 6:00:00-t. és ez így megy elvileg a végtelenségig. gyakorlatilag, akármit írok be, mindig 6:00:15-öt kapok egy rövidke homokóra után. Valakinek vmi ötlet erre?
előre is köszi -
jobbi
csendes tag
Sziasztok!
Azt szeretném kérdezni, h a Visual Basic-nek van-e olyan függvénye, amely megnézi, h egy adott mappában milyen nevű fájlok szerepelnek, és ezt visszatérési értékként adja (pl egy tömbben). Olyat már találtam, ami eldönti, h adott nevű fájl létezik-e. Ez a FileExist. Ennek visszatérési értéke értelem szerűen TRUE vagy FALSE lehet. Viszont sajnonos ez nem oldja meg a gondom. Előre is köszi a választ.
Új hozzászólás Aktív témák
Hirdetés
- Vége a régi Kindle-öknek? Az Amazon május 20-án beszünteti támogatásukat
- Kábellel oldaná meg a 12VHPWR gondjait az ASUS
- Kamionok, fuvarozás, logisztika topik
- Olcsóbb lett a Game Pass Ultimate, de a Call of Dutyért cserébe várni kell
- Proxmox VE
- S.T.A.L.K.E.R. 2: Heart of Chornobyl
- The Division 2 (PC, XO, PS4)
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Anglia - élmények, tapasztalatok
- Sorozatok
- További aktív témák...
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- PC Game Pass előfizetés
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Microsoft Office 2024 Home Business dobozos
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- GAMING PC! Intel i5-14600KF / 9070 XT / 32GB DDR5 / B760 WIFI / 1TB NVMe / 850w! BeszámítOK
- Eladó Xiaomi Poco F3 dual 6/128GB / 12 hónap jótállás
- 268 - Lenovo Yoga Pro 9 (16IAH10) - Intel Core U9 285HX, RTX 5060 (multitouch)
- Lenovo ThinkPad L14 Gen 2 Ryzen 5 pro 5650U, 16GB RAM, 256-512GB SSD, jó akku, számla, gar
- Samsung Galaxy A34 5GB 128GB/6GB/Számlával!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50
