редактирование макроса

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

NICK31

Дата: Четверг, 23.08.2012, 16:40 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 112

Репутация: 0 ±

Замечаний: 0% ±

есть макрос в файле! как сделать так, чтобы кнопка была в одном файле, а сортировка происходила в другом?

К сообщению приложен файл: 1505732.rar (24.7 Kb)

Ответить

Hugo

Дата: Четверг, 23.08.2012, 16:57 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3690

Репутация: 790 ±

Замечаний: 0% ±

365

Не глядя в файл - я часто делаю так: макрос заточен на работу с активным файлом, а вызываю его из неактивного файла через Alt+F8.
Или можно сделать кнопку на панели.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

ABC

Дата: Четверг, 23.08.2012, 18:45 | Сообщение № 3

Группа: Друзья

Ранг: Обитатель

Сообщений: 397

Репутация: 112 ±

Замечаний: 0% ±

Excel 2007

[vba]

Code

Private Sub CommandButton1_Click()
      Sheets("Лист1").[a1:v120].Sort Sheets("Лист1").Cells(1, Me.ListBox1), xlAscending, , , , , , xlYes
End Sub

Private Sub CommandButton2_Click(): Me.Hide: End Sub

Private Sub UserForm_Initialize()
      Dim cell As Range
      For Each cell In Range(Sheets("Лист1").Range("a1"), Sheets("Лист1").Range("iv1").End(xlToLeft)).Cells
          If Trim(cell) <> "" Then
              Me.ListBox1.AddItem cell.Column
              Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = cell
          End If
      Next
End Sub

[/vba]

тоже не так понял :(((((((
подумал с другой лист, оказывается с другой файл

MS Excel 2007 and 2010...
-------------------------------
С Уважением, Даулет

Сообщение отредактировал ABC - Пятница, 24.08.2012, 17:33

Ответить

NICK31

Дата: Пятница, 24.08.2012, 16:13 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 112

Репутация: 0 ±

Замечаний: 0% ±

а можете во вложении написать макрос с файлом, я код вставляю, а он мне ошибку выдает

Ответить

ABC

Дата: Пятница, 24.08.2012, 17:47 | Сообщение № 5

Группа: Друзья

Ранг: Обитатель

Сообщений: 397

Репутация: 112 ±

Замечаний: 0% ±

Excel 2007

файл сохраните как Надстройка MS Excel (*.xla)/(*.xlam)
скопируйте файл
версия 2003: C:\Program Files\Microsoft Office 2003\OFFICE11\XLSTART
версия 2007: C:\Program Files\Microsoft Office\Office12\XLSTART

MS Excel 2007 and 2010...
-------------------------------
С Уважением, Даулет

Ответить

редактирование макроса

Страница 1 из 1
1