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

• Gh0sT addikt

  #407

  #406 lapa

  2005-06-08 22:16:03

  Új Válasz

  Ú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

  

  Gh0sT

  addikt

  #406 lapa

  #406 lapa

  ha a következő sorokat bekopizod a visual basic editorban a ''ThisWorkbook'' kódjaként, akkor működni fog. A1 cella értékét kapja vagy béla.
  
  

  Private Sub Workbook_SheetChange(ByVal Sh As Object, _
          ByVal Source As Range)
      ' runs when a sheet is changed
      If ActiveSheet.Cells(1, 1).Text = '''' Then
      ActiveSheet.Name = ''béla''
      Else
      If ActiveSheet.Cells(1, 1).Text <> ActiveSheet.Name Then
      ActiveSheet.Name = ActiveSheet.Cells(1, 1).Text
      End If
      End If
  End Sub

  
  
  aposztróf+aposztróf = macskaköröm ha minden igaz.
  
  érdemes sztem elmenteni későbbi ''minden bevitelnél valamit lefuttatós'' szükségletek kielégítésére.
  
  [Szerkesztve]
  
  [Szerkesztve]

   

  Private Sub Workbook_SheetChange(ByVal Sh As Object, _
          ByVal Source As Range)

  
  
  Ezzel éred el azt, hogy minden egyes cellamódosuláskor vizsgálódjon? A ''béla'' nevű sheet nagyon ötletes ha nem lenne érték az A1-ben!

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