actsuriname.org

Программа Microsoft Office Excel делает гораздо больше, чем просто электронные таблицы. В нем вы можете выполнять сложные математические вычисления и преобразования на основе информации, содержащейся в разных ячейках данных. Кроме того, вы можете создавать в Excel базовые структуры данных, такие как очереди, с помощью макросов Visual Basic. Использование очереди для управления продуктами или ведения записей, когда вам нужна модель «первым пришел - первым ушел», может значительно облегчить жизнь владельцу малого бизнеса. С помощью простого кода вы можете использовать очередь в Excel, не изучая сложного программирования или программного обеспечения, ориентированного на компьютерных ученых.

1

Отобразите вкладку «Разработчик» на ленте Excel. Щелкните кнопку Office | «Параметры Excel» | «Популярное» | «Показать вкладку разработчика на ленте».

2

Щелкните ячейку «A1» и введите слово «Заголовок».

3

Щелкните ячейку B1 и нажмите «Вес».

4

Добавьте кнопку на лист Excel, чтобы добавить элементы в очередь. Выберите «Разработчик» | «Вставить» | «Элементы управления формой». Выберите значок «кнопка». Назовите его «Вставить» в поле «Имя макроса». Появится окно кода VB.

5

Введите следующий код VB в окно кодирования. Это займет имя, введенное в ячейку C1, и вес, введенный в C2, и поместит их в очередь:

Строки ("2: 2"). Вставить сдвиг: = xlDown Range ("C1"). Копировать диапазон ("A2"). PasteSpecial Range ("C2"). Copy Range ("B2"). PasteSpecial ActiveCell.Offset ( 0, 1) = Now Range ("A: B"). Sort Key1: = Range ("B1"), order1: = xlAscending, Header: = xlYes

6

Добавьте еще одну кнопку, назвав ее «Удалить». Добавьте следующий код в его окно кода VB. Теперь вы можете удалить последний в очереди элемент одним нажатием кнопки:

Диапазон ("A1"). Конец (xldown). Удалить диапазон ("B1"). Конец (xldown). Удалить