Hirdetés
- [Re:] Se fülhallgató, se adapter nem jár a Pixel 4-hez
- [Re:] ASUS ROG Phone II - túlnövi a feladatot
- Vodafone topik
- [Re:] Xiaomi Mi 9T - a túl jó Redmi
- [Re:] OnePlus 7 - magabiztos folytatás
- [Re:] Xiaomi Mi 9 SE - csúcsimitátor
- [Re:] Samsung Galaxy A70 - áram, erősség
- [Re:] Apple Watch Sport - ez is csak egy okosóra
- [Re:] OnePlus 7 Pro - hétpróba
- [Re:] Kamerafókusszal tért vissza a megfizethető Google telefon
-
- Utoljára frissítve: 2018-06-29 12:20:53
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.
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.
Delila_1