Hirdetés
- One mobilszolgáltatások
- Pebble - az átgondolt okosóra
- Xiaomi 15T Pro - a téma nincs lezárva
- Google Pixel 9 Pro XL - hét szűk esztendő
- iPhone topik
- Samsung Galaxy S25 - végre van kicsi!
- Xiaomi 17 Ultra - jó az optikája
- Vivo X300 Ultra - tárcsázz, ha van rá keret!
- Nem lesz olcsó a Realme GT 8 Pro Európában
- 8000 nit, maradhat? A szaúdiaknál kezd a Honor 600 Pro
-
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
- Nintendo Switch 2
- Garancia kérdés, fogyasztóvédelem
- Sony MILC fényképezőgépcsalád
- One mobilszolgáltatások
- Crimson Desert
- Fortnite - Battle Royale & Save the World (PC, XO, PS4, Switch, Mobil)
- Hosszú premier előzetest kapott az Arknights: Endfield
- Fejhallgató erősítő és DAC topik
- 240 Hz-es QD-OLED monitor jött az Alienware-től az árérzékenyebbek számára
- Lalikiraly: Macbook NEO 2
- További aktív témák...
- ÁRGARANCIA! Épített KomPhone Ultra 9 285K 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Kezdő Gamer PC-Számítógép! I5 6500 / GTX 1050Ti / 8GB DDR4 / 240GB SSD
- Kezdő Gamer PC-Számítógép! Csere-Beszámítás! I7 6700 / 16GB DDR4 / GTX 1650 Super / 500 SSD
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Apple iPhone Air - Black - 512GB - Újszerű - ALZA Jótállás: 2028.09.28-ig
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50
