Радмила
Участник

Offline
Сообщений: 9
|
Всем привет Не знала, что есть такой подводный камень. Оказывается, макросы, написанные в Ексель, не работают в Опен Офис Калк. Помогите, пожалуйста, переделать мои макросы для Калка. Я смотрела примеры здесь на сайте, но мне не совсем понятен принцип замены.
В моем случае: 1. Макрос, открывающий и закрывающий книги, плюс вызывающий другой макрос
Цитата: Sub PosCopy() Dim lr&, wb As Workbook 'Открываем файл с которого нужно скопировать данные Set wb = Workbooks.Open(ThisWorkbook.Path & "\Позиции.xls") Set wb = Workbooks.Open(ThisWorkbook.Path & "\Реестр приходов.xls") 'Закрываем книги Workbooks("позиции.xls").Close Workbooks("реестр приходов.xls").Close Call Pust_stroki End Sub
Sub Pust_stroki() Dim cell As Range: Application.ScreenUpdating = False For Each cell In [a9:a18] If cell.Value = 0 Then cell.EntireRow.Hidden = True End If Next cell End Sub
2. Макрос обычной печати при условии Sub Print3() If [H25] + [J25] +[p25]< 500 Then MsgBox "При сумме менее 500 руб. Aкт не составляется!", vbCritical + vbOKOnly Exit Sub ElseIf [H25] + [J25] > 3000 Then If MsgBox("Расхождения подтверждены контролером?", vbExclamation + vbOKCancel) = 2 Then Exit Sub End If ActiveSheet.PrintOut, , 3 End Sub
3. Макрос двусторонней печати при условии Sub Print2() If [H25] + [J25] +[p25]< 500 Then MsgBox "При сумме менее 500 руб. Aкт не составляется!", vbCritical + vbOKOnly Exit Sub ElseIf [H25] + [J25] > 3000 Then If MsgBox("Расхождения подтверждены контролером?", vbExclamation + vbOKCancel) = 2 Then Exit Sub End If ActiveSheet.PrintOut, , 3, 2 End Sub
На листе у меня было две кнопки, первой кнопке был назначен макрос PosCopy, а на второй Print3 А как в опен офис калк даже кнопку добавить, я не знаю. Посмотрела в сервисе, параметрах, рисовании, ничего не смогла найти.
Спасибо за помощь.
|