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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 14 След.
Универсальный ВПР макросом
 
Добрый день
Сомневаюсь, что UDF будет быстрее работать
Когда-то делал макросами замену ВПРу, может подойдет
Заливка цветом активной ячейки
 
Перенес в ваш файл
Заливка цветом активной ячейки
 
novomaster, Нужно скопировать с модуля книги и с обычного модуля (не забыв глобальные переменные вверху).
Заливку можно включать и выключать (есть макросы "вкл" и "выкл")
В версиях моложе 2007 работать не будет скорее всего
Изменено: Alexander88 - 01.09.2015 15:53:47
Заливка цветом активной ячейки
 
На случай, если на листе есть ячейки с заливкой
 
Невозможно отобразить связанный рисунок (в прайсе)
 
Так попробуйте:
Код
Set Pic = Sheets("Price ").Shapes.AddPicture(FileName, LinkToFile, SaveWithDocument , Left, Top, Width, Height)
  • FileName — строка, задающая имя файла, на основе которого создается рисунок
  • LinkToFile — допустимые значения: True (рисунок связан с файлом, на основе которого создан) и False (в противном случае)
  • SaveWithDocument — допустимые значения: True(сохраняется рисунок с рабочей книгой) и False (в рабочей книге сохраняется связь с рисунком, а не сам рисунок)
  • Left, Top — координаты левого верхнего угла объекта
  • Width, Height — ширина и высота объекта
Невозможно отобразить связанный рисунок (в прайсе)
 
Добрый день
На макрос, который не помог (с методом .AddPicture), можно посмотреть?
Печать кнопкой, Печать кнопкой определенное количество листов
 
Доброй ночи
Так попробуйте:
Код
Sheets("Лист2").PrintOut Copies:=Range("G6").Value
Отображение картинки по названию.
 
Добрый вечер
Посмотрите, как-то занимался подобным
Цитата
ikki написал:
как винда еще не крякнула - 40000 файлов в одной папке хранить ))
я видел папку с более чем 200000 фото  :)
Изменено: Alexander88 - 25.06.2015 22:44:35
Сформировать всевозможные пары из значений
 
Добрый день
Можно макросом:
Код
Sub qq()
Dim arr(), i As Long, j As Long, n As Long
arr = Range(Cells(1, 1), Cells(Cells(1, 1).End(xlDown).Row, 1)).Value
ReDim nArr(1 To (UBound(arr) - 1) * UBound(arr), 1) As String
For i = 1 To UBound(arr)
    For j = 1 To UBound(arr)
        If i <> j Then
            n = n + 1
            nArr(n, 0) = arr(i, 1)
            nArr(n, 1) = arr(j, 1)
        End If
    Next j
Next i
Erase arr
Range(Cells(1, 2), Cells(n, 3)).Value = nArr
Erase nArr
End Sub
Макрос для вычитания данных из одного файла в другой
 
Цитата
wanderer87 написал: код выдаёт ошибку "Type mismatch"
На какой строке?
Если на 23, то замените Integer на нужное Вам или уберите совсем
И после последней строки в файлах должен быть перенос
Изменено: Alexander88 - 28.05.2015 22:44:47
Макрос для вычитания данных из одного файла в другой
 
wanderer87, Да, только сперва записываем в массив, затем выводим в диапазон.
Изменено: Alexander88 - 28.05.2015 14:18:36
Макрос для вычитания данных из одного файла в другой
 
Добрый день
Код
Sub qq()
Dim sArr() As String, oDict As Object, i As Long, n As Long
Open "C:\1\1.txt" For Input As 1#
sArr = Split(Input(LOF(1), 1), vbCrLf)
Close 1
Set oDict = CreateObject("Scripting.Dictionary")
For i = 0 To UBound(sArr) - 1
    oDict.Item(sArr(i)) = ""
Next i
Erase sArr
Open "C:\1\2.txt" For Input As 1#
sArr = Split(Input(LOF(1), 1), vbCrLf)
Close 1
For i = 0 To UBound(sArr) - 1
    If Not oDict.exists(sArr(i)) Then
        sArr(n) = sArr(i)
        n = n + 1
    End If
Next i
Set oDict = Nothing
ReDim nArr(1 To n, 0) As Integer
For i = 0 To n - 1
    nArr(i + 1, 0) = sArr(i)
Next i
Erase sArr
Range(Cells(1, 1), Cells(n, 1)).Value = nArr
Erase nArr
End Sub
ДР (ex HB)
 
Юрий М, всего наилучшего!
Как определить ПЕРВУЮ пустую ячейку в диапазоне?
 
Код
 lastrow = Cells(7, 3).End(xlDown).Row +1
МАКСЕСЛИ или выбрать значение привязанное к максимальному по условиям
 
Без Формул:
Отсортировать по количеству, затем по цене (по убыванию)
Удалить дубликаты по номеру и производителю

Можно формулой массива: :)
Код
=МАКС(ЕСЛИ(K2=$A$2:$A$8;ЕСЛИ(L2=$B$2:$B$8;ЕСЛИ(МАКС(ЕСЛИ(K2=$A$2:$A$8;ЕСЛИ(L2=$B$2:$B$8;$D$2:$D$8;"");""))=$D$2:$D$8;$E$2:$E$8;"");"");""))
Изменено: Alexander88 - 20.04.2015 12:05:57
Сохранение текста из столбца А, в кодировке unicode
 
Так попробуйте:
Код
s = Join(arr, vbCrLf)
s = StrConv(s, vbUnicode)                                    'utf-16
Open ThisWorkbook.Path & "\Астана.txt" For Output As #1      'сохранение
Print #1, s
Close #1
End Sub
Протабулировать функцию и создать ее график
 
Здесь похожая тема
Обнуление разных переменных, vba
 
The_Prist, Спасибо
Обнуление разных переменных, vba
 
Цитата
KUDRIN написал: есть ссылка для Excel ?
Можно посмотреть в окне Locals при обьявлении
Всегда интересно было, как очистить в такой конструкции? :)
Код
With CreateObject("VBScript.RegExp")
    '
    '
End With
Изменено: Alexander88 - 07.04.2015 20:11:12
Обнуление разных переменных, vba
 
Добрый вечер
Может посмотреть на значения неинициализированных переменных?
Активация окна "Аргументы функции"
 
Это нужно?
Код
Application.CommandBars.ExecuteMso "FunctionWizard"
Преобразование текста в команду VBA
 
Так попробуйте:
Код
UserForm1.Controls("Label" &n).Caption=strName(n)
[ Закрыто] Перенос значений из одной книги (или листа) в другую книгу (лист), Собственно задача в массовом автоматизированном изменении цен на товары.
 
Когда-то делал замену ВПР на VBA
ВПРить картинки - есть ли готовое решение?
 
Доброй ночи
По-моему правильнее будет хранить картинки в папке с именами "артикул.jpg" и вставлять их в Excel макросом
Когда-то занимался этим, могу показать макрос, если интересно
P.S. Для этих целей есть надстройка "PastePictures"
Перенос макроса в программу VS
 
JeyCi,
В Visual Studio 6.0 - VB6, в более поздних версиях Visual Studio уже VB.NET
Выделение всех ячеек левее от активной
 
Добрый день
Нужно отключить события:
Код
Application.EnableEvents = False
'...........
Application.EnableEvents = True
Преобразование порядка цифр, в часы минуты секунды кадры
 
Добрый вечер
Я так понял:
Код
=ТЕКСТ(A1;"00\:00\:00\:00")
Сохранение текста столбца в текстовый файл, В подпапке с книгой
 
Добрый вечер
Код
Sub ww()
Dim i As Long, s As String
i = Cells(1, 1).End(xlDown).Row     'последняя строка
ReDim arr(1 To i) As String
For i = 1 To UBound(arr)
    arr(i) = Cells(i, 1)
Next i
s = Join(arr, vbCrLf)
Open ThisWorkbook.Path & "\сводные\отчет.txt" For Output As #1      'сохранение
Print #1, s
Close #1
End Sub
VBA Ошибка 13 Type Mismatch Где ошибка в коде?
 
Так попробуйте:
Код
For i = 2 To n - 1
excel не видит больше двух знаков после запятой
 
У меня так(2010):
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 14 След.
Наверх