Задали мне тут вопрос интересный: Как вернуть строку состояния в Excel 2010. Ну отослал в Параметры-Сервис-Вид. А мне говорят нет в 2010 такого.Смотрю и точно нет.Это только в 2007 работает. Полез в интернет.Долго искал: все не то. Похоже в 2010 строкой состояния можно управлять только через VBA. И нашел я вот такой простенький код: [vba]
Код
Sub ToggleStatusBar() With Application .DisplayStatusBar = Not .DisplayStatusBar End With End Sub
[/vba] в модуль книги
Задали мне тут вопрос интересный: Как вернуть строку состояния в Excel 2010. Ну отослал в Параметры-Сервис-Вид. А мне говорят нет в 2010 такого.Смотрю и точно нет.Это только в 2007 работает. Полез в интернет.Долго искал: все не то. Похоже в 2010 строкой состояния можно управлять только через VBA. И нашел я вот такой простенький код: [vba]
Код
Sub ToggleStatusBar() With Application .DisplayStatusBar = Not .DisplayStatusBar End With End Sub
Игорь, привет! Поздравляю - сам нашел, сам разобрался, да еще и поделился. Чуть дополню - в модуль книги не обязательно. В любое место можно. Также тут еще такая штука - если сначала мы в строку состояния что-то записали (иногда, например, туда пишут динамику хода процесса - см. макрос ss1) и потом скрыли, то при открытии в ней будет отражаться то, что мы туда писали. Вернуть все взад можно макросом ss0 [vba]
Код
Sub ss1() For i = 1 To 1000000 If i Mod 1000 = 0 Then 'Если остаток от деления на 1000 равен нулю Application.StatusBar = "i = " & i End If Next i End Sub
Sub ss0() Application.StatusBar = False End Sub
[/vba]
Игорь, привет! Поздравляю - сам нашел, сам разобрался, да еще и поделился. Чуть дополню - в модуль книги не обязательно. В любое место можно. Также тут еще такая штука - если сначала мы в строку состояния что-то записали (иногда, например, туда пишут динамику хода процесса - см. макрос ss1) и потом скрыли, то при открытии в ней будет отражаться то, что мы туда писали. Вернуть все взад можно макросом ss0 [vba]
Код
Sub ss1() For i = 1 To 1000000 If i Mod 1000 = 0 Then 'Если остаток от деления на 1000 равен нулю Application.StatusBar = "i = " & i End If Next i End Sub