Как создать список?

[Интересующаяся26]

Уже передумала окно с кнопкой!
ВОПРОС: как сделать так, чтобы при открытии файла Excel не отражались не главное меню не панели, а только ячейки с кнопками?

Еще вопрос:Есть таблица на Листе1 с фамилиями и 31 столбец с данными (2н, 3у,...).Как на Листе2 получить столбец с фамилиями из Листа1 и определенный столбец из 31 с Листа1(причем столбец нужно выбирать по номеру от 1 до 31)
EducatedFool спасибо за внимание, жду ответа на свои вопросы!

[Интересующаяся26]

EducatedFool Вы мне выложили программку, преподаватели. В ней интерфейс - кнопки на ячейках, а главное меню и панели инструментов не отражаются, как это сделать?

[EducatedFool]

главное меню и панели инструментов не отражаются, как это сделать?

http://www.programmersforum.ru/showp...63&postcount=6
http://www.programmersforum.ru/showp...9&postcount=10

[Интересующаяся26]

Код вставила - работает но только после выбора макроса на выполнение. Мне надо, чтобы после открытия файла сразу же был такой вид. Поясните, я что-то наверно не поняла!

[EducatedFool]

Посмотрите вторую ссылку:

Private Sub Workbook_Activate()    ' при активации книги
    UserInterface    ' изменяем под наши нужды графический интерфейс Excel
End Sub

Private Sub Workbook_Deactivate()    ' при деактивации книги (при переключении на другой файл Excel)
    RestoreInterface    ' восстанавливаем графический интерфейс Excel
End Sub

Когда Вы добавите этот код в модуль книги, при открытии файла будет автоматически срабатывать макрос Workbook_Activate, который и будет запускать макрос UserInterface, скрывающий панели инструментов.

Вот ещё одна ссылка по тому же вопросу: http://www.programmersforum.ru/showthread.php?t=41839

[Интересующаяся26]

Я не писала сценарии - поэтому у меня не получилось. Не могли бы вы мне поправить?
Sub UserInterface(): ChangeInterface False: End Sub ' скрывает всё лишнее с экрана

Sub ChangeInterface(ByVal Value As Boolean)
On Error Resume Next
With Application
.ScreenUpdating = False: .Caption = IIf(Value = True, Empty, "Мой заголовок окна Excel")
.DisplayStatusBar = Value: .DisplayFormulaBar = Value
For Each iCommandBar In .CommandBars
iCommandBar.Enabled = Value
Next
With .ActiveWindow
.Caption = IIf(Value, .Parent.Name, "")
.DisplayHeadings = Value: .DisplayGridlines = Value
.DisplayHorizontalScrollBar = True: .DisplayVerticalScrollBar = Value:
.DisplayWorkbookTabs = Value
End With: .ScreenUpdating = True
End With
End Sub
Private Sub Workbook_Activate() ' при активации книги
UserInterface()
End Sub

Private Sub Workbook_Deactivate() ' при деактивации книги (при переключении на другой файл Excel)
RestoreInterface ' восстанавливаем графический интерфейс Excel
End Sub

[roster]

Это одно и то же?

[EducatedFool]

Приведённый в посте #35 код надо вставлять не в программный модуль, а в модуль книги.

1) Находим главное меню Excel (там, где Файл, Правка, и т.д.)
2) Слева от этого меню (рядом со словом Файл) видим значок Excel - это значок текущей книги
3) Правой кнопкой по нему, и выбираем пункт ИСХОДНЫЙ ТЕКСТ
4) Открывается окно кода - так мы попадаем как раз в нужный нам модуль книги.
5) Вставляем туда код из поста #35.
6) Сохраняем файл, закрываем, и снова открываем. (или просто временно переключаемся на другой файл Excel)
7) Наблюдаем изменения интерфейса Excel.

[Интересующаяся26]

Все заработало, спасибо!!!
Может быть еще на вопросик ответите - Выборка двух столбцов из другого листа
Есть таблица на Листе1 с фамилиями и 31 столбец с данными (2н, 3у,...).Как на Листе2 получить столбец с фамилиями из Листа1 и определенный столбец из 31 с Листа1(причем столбец нужно выбирать по номеру от 1 до 31)

[Интересующаяся26]

В MS Access мне нужно сделать также, убрать все, оставить форму. Чтобы при запуске появлялась только форма?