Перестановка столбцов.
На листе Excel разместить кнопку CommandButton1 с заголовком Перестановка. При нажатии на эту кнопку на экран выводится форма UserForm1 с заголовком Переставить – см. рисунок. На диалоговую форму UserForm1 поместить следующие элементы управления: кнопку CommandButton1 с заголовком Строки, кнопку CommandButton2 с заголовком Столбцы, кнопку CommandButton3 с заголовком Ok.
Событийная процедура кнопки Перестановка.
Private Sub CommandButton1_Click() ‘ Показать форму UserForm1 UserForm1.Show End Sub
|