|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.07.2017, 12:01 | #1 |
Регистрация: 21.07.2009
Сообщений: 3
|
Не запускается макрос в OpenOffice
Здравствуйте, в excel всё хорошо но в openoffice выдаёт ошибку "Синтаксическая ошибка BASIC" на строчке "With New Collection"
. Подскажите как исправить [NO PARSE]Sub Extract_Unique() Dim x, avArr, li As Long Dim avVals Dim rVals As Range, rResultCell As Range On Error Resume Next Set rVals = Application.InputBox("Укажите диапазон ячеек для выборки уникальных значений", "Запрос данных", "Журнал_контроля!$D$10:$D$50", Type:=8) If rVals Is Nothing Then Exit Sub End If If rVals.Count = 1 Then MsgBox "Для отбора уникальных значений требуется указать более одной ячейки", vbInformation, " " Exit Sub End If Set rVals = Intersect(rVals, rVals.Parent.UsedRange) If rVals Is Nothing Then MsgBox "Недостаточно данных для выбора значений", vbInformation, " " Exit Sub End If avVals = rVals.Value Set rResultCell = Application.InputBox("Укажите ячейку для вставки отобранных уникальных значений", "Запрос данных", "$B$9", Type:=8) If rResultCell Is Nothing Then Exit Sub End If ReDim avArr(1 To Rows.Count, 1 To 1) With New Collection On Error Resume Next For Each x In avVals If Len(CStr(x)) Then .Add x, CStr(x) If Err = 0 Then li = li + 1 avArr(li, 1) = x Else Err.Clear End If End If Next End With If li Then rResultCell.Cells(1, 1).Resize(li).Value = avArr End Sub [/NO PARSE] |
26.07.2017, 13:13 | #2 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
А ничего, что форум называется: "Microsoft Office и VBA > Microsoft Office Excel"?
Где Вы тут увидели про OpenOffice? Не говоря уж о том что код надо оформлять тегами.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
не запускается рабочий макрос | UMA | Microsoft Office Word | 5 | 05.09.2012 14:41 |
Макрос в OpenOffice, написать условие | Pochepa | Помощь студентам | 0 | 11.01.2012 16:26 |
Макрос в OpenOffice | Шурлык | Помощь студентам | 1 | 08.12.2009 18:33 |
Не работает макрос под OpenOffice | Sanek_81 | Microsoft Office Excel | 1 | 06.08.2009 14:12 |
Не запускается макрос Forma | Romuald | Microsoft Office Excel | 3 | 03.03.2009 12:41 |