Суть в следующем. Есть большой макрос. У меня на excel 2010 win7 отрабатывает нормально. У пользователя excel 2016 выдает ошибку. Код очень простой и в чем причина понять не могу. Вот вырезка
Код
' Среднее в месяц
ElseIf lstA.Cells(3, k).Text Like "*Среднее*месяц*" Then
lstA.Cells(4, k).FormulaLocal = "=ЕСЛИОШИБКА((СУММ(" & _
Range(lstA.Cells(4, k - 17), lstA.Cells(4, k - 6)).Address(False, False) & ")/12);0)"
lstA.Cells(4, k).AutoFill Destination:=Range(lstA.Cells(4, k), lstA.Cells(3 + iStr, k))
Ошибка на строке непосредственно вставки формулы. Может есть какие нюансы в свойстве address в 2016? Еще подозрение на настройки excel, в формате ссылок A1 и RC. Хотя у меня и так и так отрабатывает.
Уважаемые форумчане. Есть код на VBA под windows, возникла необходимость у начальства запускать макрос на MAC-e. Огромная просьба подправить код под MAC OS, Ниже код. Нужно вызвать диалоговое окно выбора файла EXCEL и записать полный путь до выбранного файла в ячейку на листе и все.
Код
' выбор файла материалов
Sub SelMat()
Dim fD As FileDialog
Dim nF As String ' имя файла обмена
Set fD = Application.FileDialog(msoFileDialogOpen)
With fD
.Filters.Clear
.Filters.Add "Файлы Excel", "*.xlsx; *.xls", 1
.AllowMultiSelect = False
End With
If fD.Show = -1 Then
nF = fD.SelectedItems.Item(1)
ThisWorkbook.Sheets("Menu").Range("H4").Formula = nF
Else
Exit Sub
End If
End Sub
Никому не отвечай, кoгда ты зол, ничего не обeщай, когда ты счастлив, никогда нe решай, когда ты грустeн.
Есть код, написанный под windows. Нужно то же самое, только под Mac.
Код
' выбор файла материалов
Sub SelMat()
Dim fD As FileDialog
Dim nF As String ' имя файла обмена
Set fD = Application.FileDialog(msoFileDialogOpen)
With fD
.Filters.Clear
.Filters.Add "Фалы Excel", "*.xlsx; *.xls", 1
.AllowMultiSelect = False
End With
If fD.Show = -1 Then
nF = fD.SelectedItems.Item(1)
ThisWorkbook.Sheets("Menu").Range("H4").Formula = nF
Else
Exit Sub
End If
End Sub
Никому не отвечай, кoгда ты зол, ничего не обeщай, когда ты счастлив, никогда нe решай, когда ты грустeн.
Уважаемые форумчане! Обрабатываю геометрические фигуры на листе. Для задания некоторых параметров использую ChekBox-ы и OptionButton-ы. Код, естественно, в стандартном модуле. Вопрос, как получить значение свойств, например Value этих элементов activeX в стандартном модуле. Можно, конечно, создать public переменные и через обработку событий в модуле листа хранить в них, или связать с ячейками и брать из них. Но, может есть прямой способ и хотелось бы пополнить знания. Из стандартного модуля элементы видятся только как shape с соответствующими свойствами или я что-то не понимаю.
Никому не отвечай, кoгда ты зол, ничего не обeщай, когда ты счастлив, никогда нe решай, когда ты грустeн.
Уважаемые специалисты. Для объектов прописан класс со свойствами и методами. В макросе создается коллекция этих объектов с уникальными именами(ключами). Можно ли получить номер объекта в коллекции по имени(ключу)?
Никому не отвечай, кoгда ты зол, ничего не обeщай, когда ты счастлив, никогда нe решай, когда ты грустeн.
Возникла следующая проблема. В Excel 2010 создал свою вкладку на ленте меню. Присвоил кнопкам макросы. Но при переносе файла в другую папку, макросы становятся не видны. хотя они в этой книге. Выдает сообщение с полным адресом прежнего местоположения файла и что макрос не найден. При переносе файла, каждый раз перенастраивать ленту?