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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 14 След.
Универсальный ВПР макросом
 
#
19 янв 2016 12:49:04
Добрый день
Сомневаюсь, что UDF будет быстрее работать
Когда-то делал макросами замену ВПРу, может подойдет
 
Перейти    
Заливка цветом активной ячейки
 
#
2 сен 2015 12:44:03
Перенес в ваш файл
 
Перейти    
Заливка цветом активной ячейки
 
#
1 сен 2015 15:50:44
novomaster, Нужно скопировать с модуля книги и с обычного модуля (не забыв глобальные переменные вверху).
Заливку можно включать и выключать (есть макросы "вкл" и "выкл")
В версиях моложе 2007 работать не будет скорее всего
Изменено: Alexander88 - 1 сен 2015 15:53:47
 
Перейти    
Заливка цветом активной ячейки
 
#
1 сен 2015 12:20:41
На случай, если на листе есть ячейки с заливкой
 
 
Перейти    
Невозможно отобразить связанный рисунок (в прайсе)
 
#
18 авг 2015 15:35:42
Так попробуйте:
Код
Set Pic = Sheets("Price ").Shapes.AddPicture(FileName, LinkToFile, SaveWithDocument , Left, Top, Width, Height)
  • FileName — строка, задающая имя файла, на основе которого создается рисунок
  • LinkToFile — допустимые значения: True (рисунок связан с файлом, на основе которого создан) и False (в противном случае)
  • SaveWithDocument — допустимые значения: True(сохраняется рисунок с рабочей книгой) и False (в рабочей книге сохраняется связь с рисунком, а не сам рисунок)
  • Left, Top — координаты левого верхнего угла объекта
  • Width, Height — ширина и высота объекта
 
Перейти    
Невозможно отобразить связанный рисунок (в прайсе)
 
#
18 авг 2015 12:17:42
Добрый день
На макрос, который не помог (с методом .AddPicture), можно посмотреть?
 
Перейти    
Печать кнопкой, Печать кнопкой определенное количество листов
 
#
24 июл 2015 02:26:57
Доброй ночи
Так попробуйте:
Код
Sheets("Лист2").PrintOut Copies:=Range("G6").Value
 
Перейти    
Отображение картинки по названию.
 
#
25 июн 2015 22:43:08
Добрый вечер
Посмотрите, как-то занимался подобным
Цитата
ikki написал:
как винда еще не крякнула - 40000 файлов в одной папке хранить ))
я видел папку с более чем 200000 фото  :)
Изменено: Alexander88 - 25 июн 2015 22:44:35
 
Перейти    
Сформировать всевозможные пары из значений
 
#
28 май 2015 14:45:47
Добрый день
Можно макросом:
Код
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
 
Перейти    
Макрос для вычитания данных из одного файла в другой
 
#
28 май 2015 14:22:45
Цитата
wanderer87 написал: код выдаёт ошибку "Type mismatch"
На какой строке?
Если на 23, то замените Integer на нужное Вам или уберите совсем
И после последней строки в файлах должен быть перенос
Изменено: Alexander88 - 28 май 2015 22:44:47
 
Перейти    
Макрос для вычитания данных из одного файла в другой
 
#
28 май 2015 14:09:38
wanderer87, Да, только сперва записываем в массив, затем выводим в диапазон.
Изменено: Alexander88 - 28 май 2015 14:18:36
 
Перейти    
Макрос для вычитания данных из одного файла в другой
 
#
28 май 2015 13:50:57
Добрый день
Код
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
 
Перейти    
HB
 
#
27 апр 2015 22:56:26
Юрий М, всего наилучшего!
 
Перейти    
Как определить ПЕРВУЮ пустую ячейку в диапазоне?
 
#
21 апр 2015 22:44:47
Код
 lastrow = Cells(7, 3).End(xlDown).Row +1
 
Перейти    
МАКСЕСЛИ или выбрать значение привязанное к максимальному по условиям
 
#
20 апр 2015 12:01:04
Без Формул:
Отсортировать по количеству, затем по цене (по убыванию)
Удалить дубликаты по номеру и производителю

Можно формулой массива: :)
Код
=МАКС(ЕСЛИ(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 апр 2015 12:05:57
 
Перейти    
Сохранение текста из столбца А, в кодировке unicode
 
#
15 апр 2015 08:58:52
Так попробуйте:
Код
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
 
Перейти    
Протабулировать функцию и создать ее график
 
#
8 апр 2015 00:22:51
Здесь похожая тема
 
Перейти    
Обнуление разных переменных, vba
 
#
7 апр 2015 20:34:41
The_Prist, Спасибо
 
Перейти    
Обнуление разных переменных, vba
 
#
7 апр 2015 20:08:13
Цитата
KUDRIN написал: есть ссылка для Excel ?
Можно посмотреть в окне Locals при обьявлении
Всегда интересно было, как очистить в такой конструкции? :)
Код
With CreateObject("VBScript.RegExp")
    '
    '
End With
Изменено: Alexander88 - 7 апр 2015 20:11:12
 
Перейти    
Обнуление разных переменных, vba
 
#
7 апр 2015 19:09:25
Добрый вечер
Может посмотреть на значения неинициализированных переменных?
 
Перейти    
Активация окна "Аргументы функции"
 
#
6 апр 2015 22:14:51
Это нужно?
Код
Application.CommandBars.ExecuteMso "FunctionWizard"
 
Перейти    
Преобразование текста в команду VBA
 
#
3 апр 2015 23:26:03
Так попробуйте:
Код
UserForm1.Controls("Label" &n).Caption=strName(n)
 
Перейти    
[ Закрыто] Перенос значений из одной книги (или листа) в другую книгу (лист), Собственно задача в массовом автоматизированном изменении цен на товары.
 
#
31 мар 2015 00:20:57
Когда-то делал замену ВПР на VBA
 
Перейти    
ВПРить картинки - есть ли готовое решение?
 
#
30 мар 2015 23:45:48
Доброй ночи
По-моему правильнее будет хранить картинки в папке с именами "артикул.jpg" и вставлять их в Excel макросом
Когда-то занимался этим, могу показать макрос, если интересно
P.S. Для этих целей есть надстройка "PastePictures"
 
Перейти    
Перенос макроса в программу VS
 
#
29 мар 2015 19:37:35
JeyCi,
В Visual Studio 6.0 - VB6, в более поздних версиях Visual Studio уже VB.NET
 
Перейти    
Выделение всех ячеек левее от активной
 
#
27 мар 2015 12:13:29
Добрый день
Нужно отключить события:
Код
Application.EnableEvents = False
'...........
Application.EnableEvents = True
 
Перейти    
Преобразование порядка цифр, в часы минуты секунды кадры
 
#
25 мар 2015 19:38:36
Добрый вечер
Я так понял:
Код
=ТЕКСТ(A1;"00\:00\:00\:00")
 
Перейти    
Сохранение текста столбца в текстовый файл, В подпапке с книгой
 
#
23 мар 2015 22:21:23
Добрый вечер
Код
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 Где ошибка в коде?
 
#
20 мар 2015 22:55:16
Так попробуйте:
Код
For i = 2 To n - 1
 
Перейти    
excel не видит больше двух знаков после запятой
 
#
20 мар 2015 21:24:57
У меня так(2010):
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 14 След.
Наверх