Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Meggyi001: Áram nélkül....méltóság nélkül.....
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- Hieronymus: Az igaz barátság kezdete
- Mr Dini: Mindent a StreamSharkról!
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- Meggyi001: Amire figyelned kell Párizsban is...
-
LOGOUT
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
-
apeelme
addikt
válasz
Delila_1
#14674
üzenetére
Felhasználván a leírásod, kreáltam magamnak egy dátumválasztót a munkafüzetemben (office2003).
Minden szuper de a megjelenése valamitől egyszer csak "tönkre ment", fogalmam sincs mit csináltam, de akármit módosítok most már így jelenik meg. Talán jobban végiggondolva onnantól lett rossz hogy a 3. oszlopra is akartam egy ugyanilyet term. módosított kóddal.
Így jelenik meg:
Két naptárnak látszik de ténylegesen csak egy, a belső naptár a kattintható, viszont úgy tűnik hogy a nagyobbhoz illeszkedik a gomb. Ha kattintok egy dátumon akkor a külső eltűnik. És a külső megfelel a megadott méretnek.
Ez mitől lehet?Private Sub Calendar1_Click()
Cells(Selection.Row, 2) = Me.Calendar1.Value
End Sub
Private Sub CommandButton1_Click()
Me.Calendar1.Today
Cells(Selection.Row, 2) = Me.Calendar1.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
Me.Calendar1.Value = Cells(Selection.Row, 2)
Me.Calendar1.Left = ActiveCell.Left + ActiveCell.Width + 2
Me.Calendar1.Top = ActiveCell.Top + ActiveCell.Height
Me.CommandButton1.Left = Me.Calendar1.Left
Me.CommandButton1.Top = Me.Calendar1.Top + Me.Calendar1.Height
Me.Calendar1.Visible = True
Me.CommandButton1.Visible = True
Else
Me.Calendar1.Visible = False
Me.CommandButton1.Visible = False
End If
End Sub
Új hozzászólás Aktív témák
- BestBuy topik
- Kerékpárosok, bringások ide!
- Vezeték nélküli fülhallgatók
- 3D nyomtatás
- Kertészet, mezőgazdaság topik
- OLED TV topic
- Crimson Desert
- A nagy Szóda, Szódakészítés topic - legyen egy kis fröccs is! :-)
- Okos otthon - Home Assistant, openHAB és más nyílt rendszerek
- Beperelte a Motorola a fél közösségi médiát
- További aktív témák...
- HP ElitBook 840 G10 netbook / 12 hónap jótállás
- AKCIÓ! LENOVO ThinkPad P15 Gen1 - i7 10850H 16GB DDR4 512GB SSD Quadro T1000 4GB WIN11
- 27% - ASUS Vivobook OLED Notebook! Ryzen 5 7535HS / 16GB 6400MHz / 500GB NVMe
- LENOVO X380 Yoga 360 touch - 13,3" FHD - i5 8250U, 8GB RAM, SSD, jó akku, - számla, 6 hó gar
- ÚJ/BONTATLAN Microsoft Surface Laptop 6 Ultra 7 165H 16GB 1TB
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Köszönöm de igy nem tudom használni normálisan.
Remélem érthető. 
Szuper, köszönöm.
Fferi50