Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Andyvier
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 След.
Сопоставить 385 000 строк с 305 000 строк)
 
#
19.08.2015 20:21:54
Всем доброго вечера. Помогите, пожалуйста, кодом) Есть столбцы A,B,C,D и E,F,G. Столбцы A и E нужно сопоставить, при совпадении записать столбцы B,C,D в H,I,J. Через перебор в массивах на vba у меня это займет 48 часов, ищу способ быстрее) Выложил сокращенный вариант.
 
Перейти    
Subscript out of range. Vba. Пересохранение массива
 
#
06.08.2015 17:04:39
Спасибо, уже понял, чего раньше не знал про массивы :)
 
Перейти    
Subscript out of range. Vba. Пересохранение массива
 
#
06.08.2015 16:52:06
Цитата
Sanja написал:
Из MSDNЦитата                                                Preserve                                                                                                                                                       Необязательный параметр.                        Данный  модификатор используется для хранения данных существующего массива при  изменении размера только последней размерности массива.
Нужно хранить данные. Количество строк прибавляется. Это моделька, а не основной макрос. Помогите исправить эту ошибку. На все вопросы зачем и почему готов ответить.
Изменено: Andyvier - 06.08.2015 16:53:25
 
Перейти    
Subscript out of range. Vba. Пересохранение массива
 
#
06.08.2015 16:44:44
Доброго вечера всем. Вылетает эта ошибка при попытке запустить макрос. Помогите пересохранить двухмерный массив, пожалуйста.
Изменено: Andyvier - 06.08.2015 16:47:17
 
Перейти    
Избавиться от Select и Activate в коде. VBA
 
#
28.06.2015 20:57:42
Доброго воскресного вечера всем. Помогите в коде избавиться от Select, Activate и Selection, пожалуйста.
Код
ActiveSheet.ChartObjects("Диаграмма 4").Activate
   ActiveSheet.Shapes.Range(Array("Chart 3", "Chart 2", "Chart 4", "Chart 5", "Chart 1", "Chart 6")).Select
   Selection.Copy
   ActiveSheet.Paste
   Selection.ShapeRange.IncrementLeft -12
   Selection.ShapeRange.IncrementTop -12
 
Перейти    
FullSeriesCollection vba. Компилятор ругается на строку кода, которая записана макрорекодером.
 
#
26.06.2015 16:03:50
Пытливый, да. Имя ряда будет изменено на "1". Я проверял через обычный макрос - все нормально работает.
 
Перейти    
FullSeriesCollection vba. Компилятор ругается на строку кода, которая записана макрорекодером.
 
#
26.06.2015 15:53:19
Казанский, не помогло.

Код
ActiveSheet.ChartObjects("Диаграмма 4").Activate 
ActiveChart.SeriesCollection(1).Name = "='Сравнение регионов'!$B$8" 
ActiveChart.SeriesCollection(1).Values = "='Сравнение регионов'!$D$8:$J$8" 
ActiveChart.SeriesCollection(2).Name = 1 
ActiveChart.SeriesCollection(2).Values = "='Сравнение регионов'!$D$9:$J$9" 
ActiveChart.SeriesCollection(2).XValues = "='Сравнение регионов'!$D$1:$J$1"
По-прежнему ругается на 4 строку
 
Перейти    
FullSeriesCollection vba. Компилятор ругается на строку кода, которая записана макрорекодером.
 
#
26.06.2015 15:05:33
Всем доброго дня. Помогите, пожалуйста, с решением проблемы. На строку ActiveChart.FullSeriesCollection(2).Name = 1 ругается 1004 ошибкой (недопустимый параметр). Код записан макрорекодером. В качестве обычного макроса воспроизводится на ура, когда вставляю в генератор отчетов выпадает с этой ошибкой. Диаграмму никак не менял - та же самая. Большой макрос и файлик приложить не могу - там ком информация.
Код
ActiveSheet.ChartObjects("Диаграмма 4").Activate
ActiveChart.FullSeriesCollection(1).Name = "='Сравнение регионов'!$B$8"
ActiveChart.FullSeriesCollection(1).Values = "='Сравнение регионов'!$D$8:$J$8"
ActiveChart.FullSeriesCollection(2).Name = 1
ActiveChart.FullSeriesCollection(2).Values = "='Сравнение регионов'!$D$9:$J$9"
ActiveChart.FullSeriesCollection(2).XValues = "='Сравнение регионов'!$D$1:$J$1"
 
Перейти    
Как убрать ударение макросом? VBA
 
#
29.10.2014 11:58:32
Добрый день всем. Как следует из названия есть проблема с автоматическим удалением ударения на букву.

Вручную автозаменой все прекрасно заменяется (у́ меняется на у). Но макрорекодер записывает Replace What:="у?", Replacement:="у". И удаляется любая буква, идущая за буквой у. Помогите, пожалуйста, найти, как макросом заменять или удалять ударение.

Еще круче: помогите заменить ά на а.
 
Перейти    
Проблема с переносом диаграммы из одной эксельки в другую. VBA
 
#
12.10.2014 20:59:34
Добрый вечер. Компилятор ругается на строку:
Код
Workbooks("1").Sheets("Сontext").Paste

Файл в приложении. Сам код:

Код
Private Sub CommandButton1_Click()

Workbooks.Add (xlWBATWorksheet)
ActiveWorkbook.SaveAs Filename:="C:\Users\Андрей\Desktop\" & "1", FileFormat:=xlNormal
ActiveSheet.Name = "Сontext"

ThisWorkbook.Sheets("1").ChartObjects("Диаграмма 3").Activate
ThisWorkbook.ActiveChart.ChartArea.Select
ThisWorkbook.ActiveChart.ChartArea.Copy
Workbooks("1").Sheets("Сontext").Paste

ActiveWorkbook.Close

End Sub


Нужно сохранить график из одной эксельки в другую. Но как я не изгалялся, компилятор все равно ругается. Где я не прав?
 
Перейти    
if cells(1,1) like "а" then... А как будет "не содержит" на vba?
 
#
27.09.2014 02:34:33
Спасибо
 
Перейти    
if cells(1,1) like "а" then... А как будет "не содержит" на vba?
 
#
27.09.2014 02:10:07
if cells(1,1) like "а" then... - если ячейка а1 содержит "а", то...
А как будет "не содержит" на vba?
Изменено: Andyvier - 27.09.2014 02:13:26
 
Перейти    
Последняя строка первого столбца в массиве VBA
 
#
26.08.2014 13:16:34
Kuzmich, как переделать UBound(sz, 1), чтобы узнать последнюю строку для конкретного столбца в массиве sz = range(cells(1,1), cells(10,3)), не выгружая его. Пример данных для массива находится выше.
Изменено: Andyvier - 26.08.2014 13:17:04
 
Перейти    
Последняя строка первого столбца в массиве VBA
 
#
26.08.2014 12:05:02
Alexandr P, спасибо. А можно узнать последнюю строку для конкретного столбца?
Изменено: Andyvier - 26.08.2014 12:14:55
 
Перейти    
Последняя строка первого столбца в массиве VBA
 
#
26.08.2014 11:43:36
Действительно, я несколько непонятно объяснил.
Есть массив sz, заполненный некоторыми данными, sz = range(cells(1,1), cells(10,3)). Пример массива был указан мной выше.
Вопрос в том, как определить последнюю заполненную строку для столбца 1 или столбца 2 этого массива.
Выгружать обратно на лист и действовать через cells(rows.count, 1).end(xlup).row не хочется.
 
Перейти    
Последняя строка первого столбца в массиве VBA
 
#
26.08.2014 11:08:49
Всем привет. Помогите, пожалуйста, куском кода на VBA, который позволит определить последнюю строку первого столбца в массиве sz:
1as5
2aa
1
1as
17
2
1
Изменено: Andyvier - 26.08.2014 11:10:19
 
Перейти    
Поставить плюс перед отдельно стоящей буквой/частицей. VBA
 
#
16.07.2014 15:57:16
Юрий М, большое спасибо :D
 
Перейти    
Поставить плюс перед отдельно стоящей буквой/частицей. VBA
 
#
16.07.2014 14:42:52
В условии плюсование только отдельностоящей буквы "а", поэтому плюсуется только она
 
Перейти    
Поставить плюс перед отдельно стоящей буквой/частицей. VBA
 
#
16.07.2014 14:27:05
В 4-ой строке "телевизор самсунг 452 а", в условии плюсование только отдельностоящей буквы "а", поэтому плюсуется только она.
Изменено: Andyvier - 16.07.2014 14:42:32
 
Перейти    
Поставить плюс перед отдельно стоящей буквой/частицей. VBA
 
#
16.07.2014 13:29:53
ДоПосле
а как купить арбуз+а как купить арбуз
где купить арфугде купить арфу
сидели а и б на трубесидели +а и б на трубе
телевизор самсунг 452 ателевизор самсунг 452 +а
 
Перейти    
Поставить плюс перед отдельно стоящей буквой/частицей. VBA
 
#
16.07.2014 11:34:07
Доброго дня всем.
Помогите, пожалуйста, со следующей проблемой: нужно поставить перед отдельной стоящей буквой (например, "а") плюс и сделать это через VBA.

В приложении пример. Буду сильно рад, если поможете.
 
Перейти    
Сортировка массива по алфавиту VBA
 
#
26.05.2014 13:42:36
JayBhagavan, смотрел. Руки кривые :D
Казанский, массив большой, сортировку по алфавиту нужно проводить несколько раз, скорость критична.  
 
Перейти    
Сортировка массива по алфавиту VBA
 
#
26.05.2014 13:30:18
Добрый день всем. Помогите, пожалуйста, с сортировкой двумерного массива по алфавиту, нужен именно макрос. Есть перечисленный ниже массив:
купить моющий пылесосмоющий
робот пылесос купитьробот
купить фильтр для пылесосафильтр
куплю мешки для пылесосамешки
какой пылесос купитькакой
купить пылесос томастомас
купить хороший пылесосхороший
куплю пылесос с аквафильтромаквафильтром
шланг для пылесоса купитьшланг
купить пылесоспылесос
Нужно загрузить его в массив, отсортировать по второму столбцу по алфавиту и выгрузить обратно. Формулы, стандартная сортировка экселя не подойдет, макрорекодер, соответственно, тоже.
Изменено: Andyvier - 26.05.2014 13:31:19
 
Перейти    
Как выгрузить только первый столбец из двумерного массива, который состоит из 2-х столбцов? VBA
 
#
25.05.2014 18:21:09
Круто, спасибо
 
Перейти    
Как выгрузить только первый столбец из двумерного массива, который состоит из 2-х столбцов? VBA
 
#
25.05.2014 18:05:24
Добрый вечер всем. Вопрос сформулирован в названии. Пример данных в массиве:
1 2
4 5
7 8

Нужно выгрузить только:
1
4
7

Использую для выгрузки следующую запись [a3].Resize(UBound(dd, 1), UBound(dd, 2)).Value = dd, где dd - массив с приведенным примером.
 
Перейти    
Удаление пустых строк в массиве без выгрузки массива. VBA
 
#
11.05.2014 22:06:49
Спасибо всем, разобрался
 
Перейти    
Удаление пустых строк в массиве без выгрузки массива. VBA
 
#
11.05.2014 17:30:26
Доброго вечера всем. Столкнулся с проблемой при написании макроса: есть массив из 2 столбцов, в которых есть пустые строки, нужно их удалить. Помогите встроить код на Удалением "пустых строк" из массива оптимальным образом.
Оптимально полученный в результате работы моего макроса массив прогнать через функцию, а потом выгрузить массив на лист экселя. Как я ни пытался этого сделать - не выходит.

Макрос и входные данные в прикрепленном файле.
Если этот пост читает автор функции, то ему привет и большое спасибо :D . Не первый раз пользуюсь его макросами.
Ниже код моего макроса.
Скрытый текст
Изменено: Andyvier - 11.05.2014 19:56:08
 
Перейти    
Удаление дубликатов и символа "+" внутри массива. VBA
 
#
11.05.2014 11:25:18
B.Key, огромное спасибо  :) . То, что надо
 
Перейти    
Удаление дубликатов и символа "+" внутри массива. VBA
 
#
11.05.2014 10:57:08
Сергей, спасибо, но немного не то.
 
Перейти    
Удаление дубликатов и символа "+" внутри массива. VBA
 
#
11.05.2014 10:47:44
B.Key, не работает. Ругается на скобки у .(t)
Изменено: Andyvier - 11.05.2014 10:48:48
 
Перейти    
Страницы: 1 2 3 4 След.
Наверх