Hirdetés

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

  • Gh0sT
    addikt

    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