Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 194 След.
Переименование файлов Excel в папке
 
Olga H., вы полагаете, что подобные вопросы могут быть актуальны для вопрошающего в течение 4 лет?
числа от 0 до 100, как перебрать числа от 0 до 100
 
Цитата
akula3107 написал:
Не могу сообразить как перебрать эти числа с помощью макроса?
Чего тут соображать? Пишете макрос, и всех делов... на рыбью ногу.
Как добавить пустую строку в конце "умной таблицы"
 
Вы зачем попугайничаете, повторяя мой ответ? Думаете я не знаю, что написал?
События
Цитата
Starik19 написал:
появлении новых уникальных значений в массиве
и
Цитата
Starik19 написал:
добавления данных в умную таблицу
вообще друг с другом рядом не лежали.
Как добавить пустую строку в конце "умной таблицы"
 
И зачем вам пустая строка в таблице? При вставке значений в строку под умной таблицей, таблица сама прихватит эту строку.
Проверка данных. Источник = массив констант
 
А почему именно массив констант? Чем строка констант не подходит?
Извлечь две даты, записанные через тире
 
Вить, +365  :)
Проверка на заполнение полей
 
Цитата
Лина написал:
Догадываюсь
Вы не исключение. Думаю, догадываются многие.
Проверка на заполнение полей
 
Хочется добавить - добавьте. Проблема то в чем?
Преобразование формул в значения где значение больше нуля...
 
Цитата
_Igor_61 написал:
Таблицы почему-то не показывает...
А это, чтобы вам жизнь медом не казалась.
Вопрос - ответ. Никакого интереса к теме.
Закрыть все файлы экселя при открытие xlsb-файла (макросом)
 
Ну засуньте в auto_open
Код
Application.Run ThisWorkbook.CodeName & ".Workbook_open"
Цикл. Переход к следующему условию, если предыдущее не было выполнено
 
Цитата
БМВ написал:
то некорректен пример
Ведмедь, это ты о чем?
Подтянуть значение из Access в Excel
 
Так на то функции VBA есть
Писано на коленке, работоспособность не гарантируется, токмо направление.
Код
ON (Left(TDE.Контрагент, Len(TDA.Контрагент)) = TDA.Контрагент)
Требуется макрос (макросы) для разделения отчета на разные файлы и сшивания обработанных файлов в один отчет
 
Главное - писнуть.
Проблемы с получением числовых значений из TextBox
 
А вариант решения здесь
Удалить в диспетчере имен некорректные имена кодом VBA, имена содержащие ошибку #ИМЯ?
 
Если ничего не путаю, имена с ошибками удаляются без проблем. Не удаляются имена (_xlfn.*). Я создавал тему по этому вопросу, скорее всего на старом форуме. Решения не было.
Возможно С++ или C# помогут?.
Удалить в диспетчере имен некорректные имена кодом VBA, имена содержащие ошибку #ИМЯ?
 
sokol92, Владимир, а у вас этот макрос только для ругани, или еще и удаляет такие  имена?
У меня за 10 лет, прошедших с того времени, как я озадачивался подобным, ничего не поменялось.
Цитата
Андрей_26 написал:
А так без проблем:
меняем кирпич, который не можем подвинуть, не кирпич из пенопласта, и, ура, двигаем.  :D
Удалить в диспетчере имен некорректные имена кодом VBA, имена содержащие ошибку #ИМЯ?
 
А никак. Это не имя, это штатная функция Excel, которой в данной версии нема. Макросом они не удаляются.
_xlfn.FLOOR.MATH = ОКРВНИЗ.МАТ (FLOOR.MATH)
Изменено: RAN - 27 Мар 2020 15:13:50
Формирование списка столбцов, значения в которых без повторов покрывают диапазон значений
 
Цитата
vikttur написал:
Вот опять...
А Васька слушает, да ест.  :D
Изменено: RAN - 26 Мар 2020 18:44:18
Do Loop. Как узнать, на какой ячейке диапазона цикл остановится?, Научите пользоваться циклом
 
Почему не может? Может. Но вы в коде вообще не оперируете понятием "значения", а пытаетесь поделить какое-то значение на диапазон. А вот этого Excel не умеет.
Do Loop. Как узнать, на какой ячейке диапазона цикл остановится?, Научите пользоваться циклом
 
При чем тут цикл? С ним все в порядке. Но внутрь вы засунули то, что в принципе не может быть посчитано.
VBA программирование Ошибка Block If without End IF, как правильно закрыть IF
 
Цитата
OchkenDeAnus написал:
Вроде закрыл дважды If
Три раза подбросил, два поймал... Ой, больно!  :D
Как кодом определить диапазон чистой страницы
 
Дима, спасибо.
Я накидал костыль
Код
Sub костыль()
    Cells(1).Resize(60, 60) = 1
    ySize = ActiveSheet.HPageBreaks(1).Location.Top - Cells(1).Top
    xSize = ActiveSheet.VPageBreaks(1).Location.Left - Cells(1).Left
    ActiveSheet.UsedRange.Clear
    Debug.Print "ySize   " & ySize
    Debug.Print "xSize   " & xSize
End Sub

Но,  PrintArea, безусловно, куда лучше.
Код
Sub ClearPageSize()
    ActiveSheet.PageSetup.PrintArea = "A1:AA500"
    ySize = ActiveSheet.HPageBreaks(1).Location.Top - Cells(1).Top
    xSize = ActiveSheet.VPageBreaks(1).Location.Left - Cells(1).Left
    Debug.Print "ySize   " & ySize
    Debug.Print "xSize   " & xSize
    ActiveSheet.PageSetup.PrintArea = ""
End Sub
Как при помощи цикла найти нужное значение?, Научите пользоваться циклом
 
Без объявления или без явного указания типа Excel все переменные видит как Variant. А уже далее преобразует в наиболее подходящий, по его мнению, тип.
Как кодом определить диапазон чистой страницы
 
Приветствую.
Имеем чистый лист Excel с установленными параметрами - ориентация, поля.
При переходе в режим разметки видим диапазон страницы.
Вопрос - как кодом определить этот диапазон? Куда порыть?
Итоговая задача - вставить картинки (1 картинка на 1 страницу).
Появление всплывающего окна при введении данных
 
Макросом.
UBound ParamArray
 
Андрей, спасибо. Проскакивала мысль проверить нечто подобное, но замыслил. Уперся в массив, и ни с места.
UBound ParamArray
 
Приветствую всех.
Решил написать UDF с использованием ParamArray. Несколько неожиданно оказалось, что ParamArray является массивом массивов. Решил пошариться по этому вопросу. Нашарил использование цикла по массиву первого уровня. Раз это написано, то, наверное, кому-нибудь нужно. Но у меня не получилось создать массив первого уровня с числом элементов больше 1.
Вопрос - в какой ситуации массив первого уровня может содержать  более 1 элемента?
Код
Sub test()
    [a1:b2] = Array(1, 2)
    a = "2"
    Debug.Print fTest(a)
    a = Array(1, 2)
    Debug.Print fTest(a)
    a = [a1:b2].Value
    Debug.Print fTest(a)
    a = [a1:b2]
    Debug.Print fTest(a)
End Sub
Function fTest(ParamArray args())
    fTest = UBound(args)
    ' в какой ситуации этот цикл нужен?
    For Each arg In args
    Next
End Function
Макросом в файлах CSV видоизменить данные
 
Сначала создаем себе геморрой, потом пытаемся вылечить.
Может пропустить этот шаг?
Код
            For j = 1 To 4
               arrD(j) = CStr(Round(Val(arrD(j)), 2))
            Next
            arrD(6) = CStr(Round(Val(arrD(6)), 0))


Цитата
Виктор А написал:
Нужно перед работой этого макроса другим макросом удалить все строки, в которых встречается null
Зачем?
         
Код
 For i = LBound(arrL) To UBound(arrL)
                If Len(arrL(i)) > 0 Then
                    arrD = Split(arrL(i), ",")
                    If Not IsNull(arrD(6)) Then
                        arrD(0) = Right(arrD(0), 2) & "." & Mid(arrD(0), 5, 2) & "." & Left(arrD(0), 4)
                        For j = 1 To 4
                            arrD(j) = CStr(Round(Val(arrD(j)), 2))
                        Next
                        arrD(6) = CStr(Round(Val(arrD(6)), 0))
                        cOut = cOut & vbCrLf & Join(Array(arrD(0), arrD(1), arrD(2), arrD(3), arrD(4), arrD(6)), vbTab)
                    End If
                End If
            Next
Изменено: RAN - 22 Мар 2020 11:48:42
Как задать параметры страницы для печати в двоичной книге с расширением XLSB?
 
Владимир, у меня аналогично.
Но макрос что-то наработал. Возможно не то, и не так.
Как задать параметры страницы для печати в двоичной книге с расширением XLSB?
 
sokol92, Владимир, способ лечения интересный, но в каких случаях он необходим? Ибо Win7(32)/Of2010(32) все работает и без лечения.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 194 След.
Наверх