Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
[ Закрыто] Определить ошибку., непонятная ошибка в коде.
 
Суть в следующем. Есть большой макрос. У меня на 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. Хотя у меня и так  и так отрабатывает.

Вот еще скрин ошибки прислали. Может поможет.
Изменено: Joiner - 03.12.2019 13:35:22
Никому не отвечай, кoгда ты зол, ничего не обeщай, когда ты счастлив, никогда нe решай, когда ты грустeн.
Удалить из строки символ "≈"
 
Есть строка в ячейке, например "h ≈" , нужно с помощью vba удалить символ "≈" из этой строки.  
Никому не отвечай, кoгда ты зол, ничего не обeщай, когда ты счастлив, никогда нe решай, когда ты грустeн.
Поправить код вызова диалогового окна выбора файла., Исправить код VBA windows на MAC OS
 
Уважаемые форумчане.
Есть код на 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н.
[ Закрыто] Переделать код по Mac OS, Вызов диалогового окна для выбора файла.
 
Есть код, написанный под 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н.
Как получить свойство элементов ActiveX из стандартного модуля?, Получить свойста ActiveX из стандартного модуля.
 
Уважаемые форумчане!
Обрабатываю геометрические фигуры на листе. Для задания некоторых параметров использую ChekBox-ы и OptionButton-ы.
Код, естественно, в стандартном модуле. Вопрос, как получить значение свойств, например Value этих элементов activeX в стандартном модуле.
Можно, конечно, создать public переменные и через обработку событий в модуле листа хранить в них, или связать с ячейками и брать из них. Но, может есть прямой способ и хотелось бы пополнить знания. Из стандартного модуля элементы видятся только как shape с соответствующими свойствами или я что-то не понимаю.
Никому не отвечай, кoгда ты зол, ничего не обeщай, когда ты счастлив, никогда нe решай, когда ты грустeн.
Номер объекта в коллекции
 
Уважаемые специалисты.
Для объектов прописан класс со свойствами и методами. В макросе создается коллекция этих объектов с уникальными именами(ключами).
Можно ли получить номер объекта в коллекции по имени(ключу)?
Никому не отвечай, кoгда ты зол, ничего не обeщай, когда ты счастлив, никогда нe решай, когда ты грустeн.
Настройка ленты меню
 
Всем доброго времени суток.

Возникла следующая проблема. В Excel 2010 создал свою вкладку на ленте меню. Присвоил кнопкам макросы. Но при переносе файла в другую папку, макросы становятся не видны. хотя они в этой книге. Выдает сообщение с полным адресом прежнего местоположения файла и что макрос не найден. При переносе файла, каждый раз перенастраивать ленту?
Изменено: Joiner - 09.02.2014 21:39:57
Никому не отвечай, кoгда ты зол, ничего не обeщай, когда ты счастлив, никогда нe решай, когда ты грустeн.
Страницы: 1
Наверх