-
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
-
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
Azért szólhatnál, hogy most ez megfelel-e vagy nem :/
So 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
-
KovacsUr
addikt
Kipróbáltam, visszamásoltam.
Magyar Office97 és angol Office XP alatt működik, úgyhogy remélhetőleg a köztük lévő összes többin is
Ha mégsem, akkor tényleg nincs több ötletemSo it goes… We stand alone by standing stones and turn them into circles.
-
KovacsUr
addikt
Bocs, még egy kérdés: Mi legyen azokkal a számokkal, amelyek csak a jobb oldali oszlopban szerepelnek?
Pld. itt az 5-össel:
1 1
2 2
3 3
4 4
4 5
4 6
6 7
...
Maradjon ki teljesen, vagy ott pedig épp a bal oldal legyen 'foghíjas'?So it goes… We stand alone by standing stones and turn them into circles.
-
KovacsUr
addikt
válasz kiskegyed #83 üzenetére
Csak egy nagyon triviális példa:
1 1
2 2
3 3
4 4
4
4
5 5
Mindig ugyanez lesz a kimenet, a második osloptól függetlenül.
Pedig ha a második oszlop tartalma pld. 1, 3, 4, 5, 6, 7, 8 lenne, a kimenetnek
1 1
3 3
4 4
4
4
5 5
-nek kellene lennie.So it goes… We stand alone by standing stones and turn them into circles.
-
KovacsUr
addikt
válasz kiskegyed #87 üzenetére
De még ez sem jó ám, helló Mondom, hogy én is próbálkoztam...
[Szerk.]
Illetve... tudja a fene. Lehet, hogy mégis jó. Már túl fáradt vagyok, majd a kérdező eldönti. Az is lehet, hogy én értettem félre.So it goes… We stand alone by standing stones and turn them into circles.
-
KovacsUr
addikt
Már hogy hagyhatná ki?
Illetve kihagyhatná, és akkor kapnál egy szép #UNDEFINED# vagy hasonló feliratot a celládba. Ezt szeretnéd? Nem értem a problémát. Gondold végig még egyszer, mit szeretnél, hogy megjelenjen a cellában, ha a kifejezés értéke hamis.So it goes… We stand alone by standing stones and turn them into circles.
-
KovacsUr
addikt
Félreérted a függvény lényegét. A függvény SOHA nem ''csinál'' semmit. Bizonyos feltételek alapján felvesz egy értéket.
Egyébként közben elolvastam, mit szeretnél... Tulajdonképpen arról lenne szó, hogy egyetlen helyről szeretnéd feltölteni az összes hónap adatait, ugye?So it goes… We stand alone by standing stones and turn them into circles.
Új hozzászólás Aktív témák
- DVB-T, DVB-S (2), DVB-C eszközök
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- MG4 menetpróba
- Vezetékes FEJhallgatók
- Mit tehetsz jogilag, ha átvertek, megkárosítottak a Hardveraprón?
- Skoda, VW, Audi, Seat topik
- Vicces képek
- Escape from Tarkov
- koxx: Bloons TD5 - Tower Defense játék
- Milyen belső merevlemezt vegyek?
- További aktív témák...
- Eladó Steam kulcsok kedvező áron!
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül