Új hozzászólás Aktív témák

• #14730 repvez addikt Tyren #14720

  Új Válasz 2012-08-24 20:02:20 #14730

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  repvez

  addikt

  válasz Tyren #14720 üzenetére

  Ma ujra megprobáltam és elsőre sikerült, ugyhogy mégegyszer nagyon szépen köszönöm ezt a megoldást ! örök hála

• #14721 lacipapi csendes tag Tyren #14720

  Új Válasz 2012-08-24 07:12:36 #14721

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lacipapi

  csendes tag

  válasz Tyren #14720 üzenetére

  Nincs benne két End Sub. Figyeljetek egy kicsit jobban!!!

• #14719 repvez addikt Tyren #14718

  Új Válasz 2012-08-24 00:08:13 #14719

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  repvez

  addikt

  válasz Tyren #14718 üzenetére

  köszi a segitséget,de valami nem müködik jól,mert compile hibát ir ki

  compile error :
  only comments may appear after endsub,end funcion or end property

  ezt irja ki , ha leokézom akkor sárga lesz az első sor.

• #14713 lacipapi csendes tag Tyren #14712

  Új Válasz 2012-08-23 15:51:25 #14713

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lacipapi

  csendes tag

  válasz Tyren #14712 üzenetére

  2010 -es változatban működik.

• #14708 lacipapi csendes tag Tyren #14702

  Új Válasz 2012-08-23 14:22:35 #14708

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lacipapi

  csendes tag

  válasz Tyren #14702 üzenetére

  2010-ben az aktuális dátum a CTRL+0 (nulla). Erre csak véletlenül jöttem rá mert a helpben is a CTRL+. van. Nézzétek meg hogy a 2007-ben is működik?

• #14704 lappy őstag Tyren #14702

  Új Válasz 2012-08-23 11:55:54 #14704

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz Tyren #14702 üzenetére

  Szia!
  Ha 2003 as excel van akkor
  Aktuális dátum: Jelöljük ki a cellát, és nyomjuk meg a CTRL+. (pont) billentyűket (a szerkesztőlécen).
  Aktuális idő: Jelöljük ki a cellát, és nyomjuk meg a CTRL+SHIFT+. (pont) billentyűket.

  Aktuális dátum és idő: Jelöljük ki a cellát, és nyomjuk meg a CTRL+. (pont), majd a Szóköz, végül a CTRL+SHIFT+. (pont) billentyűket (a szerkesztőlécen).
  Újabb verzióban nem működik csak az idő!

• #14685 Delila_1 veterán Tyren #14677

  Új Válasz 2012-08-21 13:52:21 #14685

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Tyren #14677 üzenetére

  Nézd meg még Calendar néven is, hátha közöttük lesz.

• #14674 Delila_1 veterán Tyren #14673

  Új Válasz 2012-08-18 15:43:21 #14674

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Tyren #14673 üzenetére

  2007-esben próbáltam ki.

  Fejlesztőeszközök | Vezérlők | Beszúrás | ActiveX-vezérlők. Rákattintasz a jobb alsó sarokban lévő További vezérlők ikonra, mire kapsz róluk egy felsorolást. Ezek közül a Naptár vezérlőelem kell neked. A kapott szálkereszttel négyszöget rajzolsz. Jobb klikkre kapsz egy tulajdonságok ablakot, ahol mindenfélét formázhatsz rajta.
  A menüszalagon kikapcsolod a Tervező módot.

  A lapfülön jobb klikk, Kód megjelenítése. A VB szerkesztőbe jutottál, itt a jobb oldali üres lapra másold be a makrót.

  Két sort írok bele, amik közül csak az egyiket hagyhatod meg.
  1. A lapodon lévő aktuális sor A oszlopába írja be a naptárban kiválasztott napot. Ezt az oszlopot a Cells(Selection.Row,1) 1-ese határozza meg. Kettesre átírva az akt. sor B oszlopába ír, és így tovább.

  2. A lapod bármelyik celláján állsz, kiválasztod a vezérlőn a dátumot, erre az aktuális celládban megjelenik a dátum.

  Private Sub Calendar1_Click()
  Cells(Selection.Row, 1) = Me.Calendar1.Value
  Selection = Me.Calendar1.Value
  End Sub

  Egy másik makrót is írj a fenti alá (vagy fölé).

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 3 Then
  Me.Calendar1.Visible = True
  Else
  Me.Calendar1.Visible = False
  End If
  End Sub

  Ennek az a feladata, hogy ha a C oszlop valamelyik cellájára klikkelsz, megjelenik a naptár vezérlő, más oszlopra lépve eltűnik. A C oszlopot a Target.Column=3 hármasa határozza meg.

Új hozzászólás Aktív témák