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

• #4615 Delila_1 veterán takyka77 #4614

  Új Válasz 2009-03-07 10:46:25 #4615

  Ú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 takyka77 #4614 üzenetére

  Nincs mit, kész volt a válasz régebben.

• #4613 Delila_1 veterán takyka77 #4612

  Új Válasz 2009-03-07 09:38:11 #4613

  Ú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 takyka77 #4612 üzenetére

  [Itt nézd meg a #276-os hozzászólást]

• #3928 Delila_1 veterán takyka77 #3927

  Új Válasz 2008-09-25 10:17:05 #3928

  Ú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 takyka77 #3927 üzenetére

  mscal.ocx a Windows/System32 könyvtárban.
  A VBE-ben a Tools/References menüben a Browse gomb segítségével kikeresheted (a kiterjesztést át kell állítani *.ocx-re).
  Ezután a Toolboxon jobb klatty, az Additional Controls ablakban megtalálod a Naptár vezérlőelemet.

• #3823 Delila_1 veterán takyka77 #3822

  Új Válasz 2008-08-29 13:58:02 #3823

  Ú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 takyka77 #3822 üzenetére

  Sub Worksheet_Change(ByVal Target As Excel.Range)
  If (Target.Column = 2 And Target.Row = 3 And Target.Value > 100) _
  Then MsgBox "Elérte a maximumot"
  End Sub

  Ez a makró a B3 cella (Column 2, Row 3) értékét figyeli. Ha meghaladta a 100-at, akkor üzenetdobozban figyelmeztet.

  A makrót a kérdéses laphoz rendeld hozzá. Lapfülön jobb klikk, kód megjelenítése. A VB szerkesztő jobb oldalán kapott üres lapra másold át, és értelemszerűen végezd el a módosításokat.

  Ehelyett a feltételes formázással is ki lehet emelni a cella értékét.

• #3706 Delila_1 veterán takyka77 #3705

  Új Válasz 2008-07-07 09:42:57 #3706

  Ú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 takyka77 #3705 üzenetére

  Szívesen.

• #3704 Delila_1 veterán takyka77 #3703

  Új Válasz 2008-07-06 09:27:29 #3704

  Ú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 takyka77 #3703 üzenetére

  Bevitelkor ellenőrizheted.

  Private Sub TextBox1_Change()
  nev = TextBox1.Text
  For i = 1 To Len(nev)
  If Mid(nev, i, 1) < "0" Or Mid(nev, i, 1) > "9" Then
  TextBox1.Text = Left(nev, Len(nev) - 1)
  MsgBox "Csak számjegyeket adhatsz!"
  Exit For
  End If
  Next
  nev = Val(nev)
  End Sub

• #3121 takyka77 tag takyka77 #3116

  Új Válasz 2008-02-04 10:31:04 #3121

  Ú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

  

  takyka77

  tag

  válasz takyka77 #3116 üzenetére

  Megoldottam.

• #2998 Delila_1 veterán takyka77 #2997

  Új Válasz 2008-01-17 16:53:16 #2998

  Ú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 takyka77 #2997 üzenetére

  Másold be az alábbi makrót. Minden nyitáskor az aktuális lapon zárolja az egy hetesnél régebbi sorokat, A-tól AD oszlopig. Ha több lapod van,a lapnév helyére írd be a védendő lapod nevét, ha csak egy, azt a sort töröld ki.

  Sub auto_open()
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  Sheets("Lapnév").Select
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor, 1) < Date - 6 Then
  Range(Cells(sor, 1), Cells(sor, 30)).Select
  Selection.Locked = True
  End If
  Next
  ActiveSheet.Unprotect
  End Sub

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