Hirdetés
- Intel Core i3 / i5 / i7 8xxx "Coffee Lake" és i5 / i7 / i9 9xxx “Coffee Lake Refresh” (LGA1151)
- AMD Navi Radeon™ RX 5xxx sorozat
- VR topik (Oculus Rift, stb.)
- Monitor hiba topik
- [Re:] Hiánypótló funkciót épít a Microsoft az új Windows frissítésbe
- Nvidia GPU-k jövője - amit tudni vélünk
- Milyen monitort vegyek?
- Azonnali informatikai kérdések órája
- Házimozi haladó szinten
- Amlogic S905, S912 processzoros készülékek
-
- Utoljára frissítve: 2020-02-26 11:31:39
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.
Hozzászólok Aktív témák
-
airyca
csendes tag
Hi!
Most már csak az a gondom, hogy a dátum ne is változzon. Ugyanis ha így beírom, akkor másnap szépen átállítódik a dátum. Viszont azt szertném, ha hozzárendelem adott cellákhoz az aznapi dátumot, akkor az ne változzon meg a következő nap.
Valaki???
Köszi:Airyca -
KovacsUr
addikt
Jobb klikk a worksheet fülön, Kód megjelenítése
aztán ezt beilleszt
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value <> '''' And (Target.Column = 1) Or (Target.Column = 2) Then
Cells(Target.Row, 3).Activate
ActiveCell.Value = Date
ActiveCell.NumberFormat = ''yyyy/mm/dd''
End If
End SubSo it goes… We stand alone by standing stones and turn them into circles.
-
KovacsUr
addikt
Bocs... v1.1
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value <> '''' And (Target.Column = 1) Or (Target.Column = 2) Then
Cells(Target.Row, 3).Activate
ActiveCell.Value = Date
ActiveCell.NumberFormat = ''yyyy/mm/dd''
Target.Activate
End If
End SubSo it goes… We stand alone by standing stones and turn them into circles.
-
KovacsUr
addikt
No, próbálom újra...
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value <> "" And (Target.Column = 1) Or (Target.Column = 2) Then
Cells(Target.Row, 3).Activate
ActiveCell.Value = Date
ActiveCell.NumberFormat = "yyyy/mm/dd"
Target.Activate
End If
End Sub
Most & q u o t ;-ot írtam '' helyett, hátha így nem javítja ki...So it goes… We stand alone by standing stones and turn them into circles.
-
KovacsUr
addikt
ja igen, és ha 'kód megjelenítése' után benne van a kurzor
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ITT
End Sub
van, akkor klikkelj ki belőle, mielőtt beilleszted a makrótSo it goes… We stand alone by standing stones and turn them into circles.
-
szucsi
őstag
Kedves Excelben Excellálók! (nylvszk kmljtk)
plíz segítsetek:
szitu: Van ugye az 1.sor, ahova bekerült a változónév, alattuk az adatok.
probléma: Ha megtelik egy képernyőnyi sor, a változónév ugye eltűnik, pedig jó lenne látni
kérdés:
1) lehet-e az oszlopoknak alternatív címkét adni (a változónevet), és hogyan?
2) be lehet-e állítani, hogy az első sor együtt gördüljön a kerettel.
Köszi.
Hozzászólok Aktív témák
Delila_1- Intel Core i3 / i5 / i7 8xxx "Coffee Lake" és i5 / i7 / i9 9xxx “Coffee Lake Refresh” (LGA1151)
- AMD Navi Radeon™ RX 5xxx sorozat
- [Re:] OnePlus 7 Pro - hétpróba
- Óra topik
- VR topik (Oculus Rift, stb.)
- Monitor hiba topik
- FIFA 20 OFFICIAL
- Diablo 3
- [Re:] Hiánypótló funkciót épít a Microsoft az új Windows frissítésbe
- PlayStation 5
- További aktív témák...
- Eladó Xiaomi Mi Band 4 (eredeti), összes tartozékával, dobozával, kék pánttal
- HP Elitebook 840 G5, 14" FHD IPS, i5-8250U, 16GB DDR4, 256GB SSD, magyar vil.bill., gyári gar 2022.1
- Synology DS214se NAS + 2x 3 TB WD Blue HDD (WD30EZRZ) ELADÓ
- (ÚJ állapot) Dell Latitude 7490*MAGYAR vil.bill/i5 8250U/16GB/256GB NVMe SSD/FHD/2022.06.18.
- HP OMEN 15-dc1008nx - ÚJ 15,6" FullHD IPS GAMER notebook - i7-9750H, 16GB, SSD+HDD, RTX 2070