Pravidelné restartování Excelu
Napsal: 29 čer 2009 15:00
Nazdárek všichni. Nevím jestli mi s tímto někdo pomůže, ale mám excelovský soubor s ovládacími prvky a pokaždé když kliknu do ovládacího prvku "Listbox" a zascrolluju kolečkem myši nahoru nebo dolů tak se mi excel restartuje. Nevíte někdo čím by to mohlo být ?? Díky moc předem za jakoukoliv radu.
ve VBA mám k napsáno následující :
LIST1
Private Sub worksheet_change(ByVal target As Range)
With target
If .Column = 9 Then
With List1.Line_Leader.List = .Range("E2", .Cells(.Rows.Count, "E").End(xlUp)).Value
End With
With List1.Type_of_latch.List = .Range("G2", .Cells(.Rows.Count, "G").End(xlUp)).Value
End With
With List1.Workstation.List = .Range("A2", .Cells(.Rows.Count, "A").End(xlUp)).Value
End With
With List1.Analyse.List = .Range("C2", .Cells(.Rows.Count, "C").End(xlUp)).Value
End With
With List1.Place.List = .Range("F2", .Cells(.Rows.Count, "F").End(xlUp)).Value
End With
End If
End With
End Sub
THISWORKBOOK
Option Explicit
Private Sub workbook_open()
On Error Resume Next
With Application
' Zapnout / vypnout celoobrazovkový režim
.DisplayFullScreen = True
' Zobrazit / skrýt hlavní nabídku
.CommandBars(1).Enabled = False
' zapnout překreslování obrazovky
.ScreenUpdating = True
End With
Application.WindowState = xlMaximized
With List1
.Line_Leader.List = .Range("E2", .Cells(.Rows.Count, "E").End(xlUp)).Value
.Type_of_latch.List = .Range("G2", .Cells(.Rows.Count, "G").End(xlUp)).Value
.Workstation.List = .Range("A2", .Cells(.Rows.Count, "A").End(xlUp)).Value
.Analyse.List = .Range("C2", .Cells(.Rows.Count, "C").End(xlUp)).Value
.Place.List = .Range("F2", .Cells(.Rows.Count, "F").End(xlUp)).Value
End With
On Error GoTo 0
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application
' Zapnout / vypnout celoobrazovkový režim
.DisplayFullScreen = False
' Zobrazit / skrýt hlavní nabídku
.CommandBars(1).Enabled = True
End With
Application.DisplayFullScreen = False
Application.WindowState = xlMaximized
On Error GoTo 0
End Sub
ve VBA mám k napsáno následující :
LIST1
Private Sub worksheet_change(ByVal target As Range)
With target
If .Column = 9 Then
With List1.Line_Leader.List = .Range("E2", .Cells(.Rows.Count, "E").End(xlUp)).Value
End With
With List1.Type_of_latch.List = .Range("G2", .Cells(.Rows.Count, "G").End(xlUp)).Value
End With
With List1.Workstation.List = .Range("A2", .Cells(.Rows.Count, "A").End(xlUp)).Value
End With
With List1.Analyse.List = .Range("C2", .Cells(.Rows.Count, "C").End(xlUp)).Value
End With
With List1.Place.List = .Range("F2", .Cells(.Rows.Count, "F").End(xlUp)).Value
End With
End If
End With
End Sub
THISWORKBOOK
Option Explicit
Private Sub workbook_open()
On Error Resume Next
With Application
' Zapnout / vypnout celoobrazovkový režim
.DisplayFullScreen = True
' Zobrazit / skrýt hlavní nabídku
.CommandBars(1).Enabled = False
' zapnout překreslování obrazovky
.ScreenUpdating = True
End With
Application.WindowState = xlMaximized
With List1
.Line_Leader.List = .Range("E2", .Cells(.Rows.Count, "E").End(xlUp)).Value
.Type_of_latch.List = .Range("G2", .Cells(.Rows.Count, "G").End(xlUp)).Value
.Workstation.List = .Range("A2", .Cells(.Rows.Count, "A").End(xlUp)).Value
.Analyse.List = .Range("C2", .Cells(.Rows.Count, "C").End(xlUp)).Value
.Place.List = .Range("F2", .Cells(.Rows.Count, "F").End(xlUp)).Value
End With
On Error GoTo 0
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application
' Zapnout / vypnout celoobrazovkový režim
.DisplayFullScreen = False
' Zobrazit / skrýt hlavní nabídku
.CommandBars(1).Enabled = True
End With
Application.DisplayFullScreen = False
Application.WindowState = xlMaximized
On Error GoTo 0
End Sub