-
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.
Ú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
Hirdetés
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Assassin's Creed Shadows Collector's Edition PC
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Vírusirtó, Antivirus, VPN kulcsok
- Apple iPhone 13 128GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! Apple Mac mini 2024 M4 16GB 256GB SSD számítógép garanciával, hibátlan működéssel
- BESZÁMÍTÁS! HP ZBook 15 G6 munkaállomás - i7 9850H 16GB DDR4 RAM 512GB SSD Quadro T2000 4GB WIN10
- Eredeti Windows 10 / 11 Pro aktiválókulcs AZONNALI SZÁLLÍTÁSSAL!
- Apple Watch SE 2 44mm, Újszerű, 1 Év Garanciával
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest