Hirdetés
- Xiaomi 17 - még mindig tart
- Honor Magic8 Pro - bevált recept kölcsönvett hozzávalókkal
- Milyen okostelefont vegyek?
- Poco X8 Pro Max - nem kell ide sem bank, sem akkubank
- Samsung Galaxy Watch8 és Watch8 Classic – lelkes hiperaktivitás
- Realme GT 2 - aláírjuk
- Olyan menő, hogy Google nélkül is elfogadnád
- Új, hardveres funkcióval várható a Pixel 11 széria
- Hivatalos a OnePlus 13 startdátuma
- Apple iPhone 17 Pro Max – fennsík
-
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
- HP. Laptop. i5. Model: 15-da1002nq
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Keresünk Galaxy S23/S23+/S23 Ultra/S23 Fe
- ÁRGARANCIA!Épített KomPhone Ultra 7 265KF 32/64GB RAM RTX 5090 32GB GAMER PC termékbeszámítással
- Szép állapotban Lenovo ThinkPad T14s Gen 4 i5-1335u/16 GB/256 SSD/FHD+/IPS/Garancia 2027
- PlayStation 5 FAT DIGITAL + kontroller 6 hó garancia, számlával!
- Eladó Dell Latitude 7440 Új állapotban i7-1365U 32 GB DDR5 RAM 1TB SSD Dell pro support garancia
Á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
