Hirdetés
- gban: Ingyen kellene, de tegnapra
- eBay-es kütyük kis pénzért
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Klaus Duran: Minden drágul. Vajon a fizetések 2026-ban követi minimálisan?
- Lalikiraly: Asus Gaming V16 - RTX5050
- D1Rect: Nagy "hülyétkapokazapróktól" topik
-
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
- Keresek Xbox Series S / Series X / Playstation 5 konzolokat
- Most èrkezett pár darab RX ès RTX 8gb vga-k! Számlás garanciás! Kamatmentes rèszletre is!
- Azonnali készpénzes nVidia RTX 3000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
- Egyedi névre szóló karácsonyfadísz rendelhető! 3D Nyomtatott!
- ÁRGARANCIA! Épített KomPhone i5 12400F 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Köszönöm de igy nem tudom használni normálisan.
Remélem érthető. 
Szuper, köszönöm.
Fferi50
