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

• #406 lapa veterán erdeya #394

  Új Válasz 2005-06-08 22:11:08 #406

  Ú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

  

  lapa

  veterán

  válasz erdeya #394 üzenetére

  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]

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