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

Страницы: 1
Как убрать кавычки из названия папки
 
#
29.01.2021 09:48:48
Добрый день.
Есть макрос который вставляет фото из разных папок на разные листы книги.Если в путь к папке вписываешь название папки все работает,но если название папки берется из ячейки активного листа,то код не работает. Предполагаю что когда название папки берется из ячейки добавляются кавычки к названию то есть "Январь" вместо Январь. Как это можно обойти?
Путь к папке :
Код
Const PATH = "Q:\???????????????????????????????????????????\??????????????????\??????????????\NewFolderName\"

Имя папки из ячейки:
Код
NewFolderName = ThisWorkbook.ActiveSheet.Cells(1, 2).Value
 
Перейти    
Расчет формул в макросе с выгрузкой результата на лист.
 
#
11.02.2018 14:28:41
Доброго времени суток.
Сейчас для расчетов использую вот такую конструкцию:
Код
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
    Range("G1:G" & LastRow) _
                           .FormulaR1C1 = "=IFERROR(RC4/RC6,"""")"
       Range("G1:G" & LastRow).Value = Range("G1:G" & LastRow).Value
Т.е. сначала всавляю формулы на лист, потом преобразую их в значения.
Подскажите пожалуйста, как переписать код, чтобы вставлять на лист сразу значения без формул.
Спасибо.
 
Перейти    
Проблема со снятием выделения в Excel после копирования
 
#
17.08.2017 13:40:26

Здравствуйте!

У меня Windows 7, Excel 2016.

Проблема в следующем: с недавних пор после выделения и копирования ячеек последнее перестало убираться. Например, я копирую ячейку. Она выделяется движущейся прерывистой рамкой. После двойного клика на свободную область рамка должна убираться. Но сейчас этого не происходит. Снимается это выделение только после нажатия ПринтСкрина.Может кто сталкивался с подобным явлением и знает как это лечится?

Спасибо.  
 
Перейти    
Не срабатывает событие ComboBox_Change при выборе одного и того же значения.
 
#
16.11.2016 12:48:53
Доброго времени суток. Столкнулся с проблемой при использовании ComboBox на UserForm. При выборе значений в ComboBox, по событию ComboBox_Change,значения вставляются на лист одно под другим. Если выбираешь разные значения все работает, но если выбираешь одно и то же то событие ComboBox_Change не происходит т.е. значение не всавляется.Как можно это устранить?
Код:
Код
Private Sub ComboBox2_Change()
Dim LastRow As Long
LastRow = Cells(Rows.Count, 11).End(xlUp).Row
   If Cells(LastRow + 1, 10).Value = False Then Exit Sub
    Cells(LastRow + 1, 11) = Me.ComboBox2.Value
  
End Sub


Спасибо.
 
Перейти    
Как подсчитать минуты в динамическом диапазоне.
 
#
04.11.2016 15:40:13
Доброго времени суток уважаемые Планетяне.
Помогите решить проблему с которой я столкнулся.Есть выгрузка из сторонней программы, нужно посчитать общее количество минут затраченное на каждый номер.
Дело в том что интервалы времени разные по продолжительности и могут быть как непрерывные так и состоять из нескольких интервалов. Сейчас приходится все это делать в ручную. Занимает очень много времени что бы просуммировать интервалы.
Пример во вложении.
Спасибо.
 
Перейти    
Как ускорить работу макроса суммирования по критериям
 
#
30.05.2016 12:58:15
Доброго времени суток.Подскажите пожалуйста как можно ускорить работу макроса.В исходной таблице на конец месяца примерно 200 000 строк и 15 столбцов,необходимо просуммировать по критериям.Сейчас использую такую конструкцию:
Код
Range("K4:K" & Cells(Rows.Count, 2).End(xlUp).Row) _
                                        .FormulaR1C1 = "=SUMIF(откл.!R3C2:R200000C2,RC4,откл.!R3C17:R200000C17)"
     Range("Q4:Q" & Cells(Rows.Count, 2).End(xlUp).Row) _
                                        .FormulaR1C1 = "=SUMIF(откл.!R3C2:R200000C2,RC4,откл.!R3C18:R200000C18)"
    Range("L4:L" & Cells(Rows.Count, 2).End(xlUp).Row) _
                                        .FormulaR1C1 = "=SUMIF(откл.!R3C2:R200000C2,RC4,откл.!R3C19:R200000C19)"
       Range("R4:R" & Cells(Rows.Count, 2).End(xlUp).Row) _
                                        .FormulaR1C1 = "=SUMIF(откл.!R3C2:R200000C2,RC4,откл.!R3C20:R200000C20)"
Время выполнения около 30 сек.Хотелось бы как нибудь ускорить.Буду рад любому совету.
Спасибо.
 
Перейти    
Массовое заполнение Label данными из диапазона
 
#
10.02.2016 12:15:34
Добрый день. Подскажите пожалуйста как можно массово заполнить лейблы на форме данными из диапазона.В инете нашел только как заполнить все контролы одинаково(на сайте The Prist), а мне нужно чтобы в каждый лейбл вставлялось значение из определенной ячейки.Сейчас использую конструкцию
Код
Label1.Caption = Лист5.Cells(26, 1).Value
Label2.Caption = Лист5.Cells(27, 1).Value
............................................................
Labeln.Caption = Лист5.Cells(n, 1).Value
Но лейблов на форме будет около 50 и соответственно код растянется на "километр".
Спасибо.
 
Перейти    
Вставка новых листов по списку из комбобокса.
 
#
08.07.2015 07:53:13
Добрый день.
Написал небольшой  макрос(Спасибо Планете и её обитателям) для вставки новых листов, при выборе их комбобокса на форме. Но никак не получается сделать так чтобы листы вставлялись строго по порядку, один за другим, т.е. чтобы исключить возможность после1н (номер смены) вставить что-то кроме 1д и т.д.
Спасибо.
 
Перейти    
Сохранение форматирования при переносе массива на новый лист
 
#
25.02.2015 14:09:34
Добрый день. С помощью кода данные вставляются на новый лист(добавляется при изменении значения комбобокса на форме).Подскажите пожалуста,что нужно добавить в код,чтобы переносились не только значения, но и все форматирование т.е ширина столбцов,высота строк,УФ.
Спасибо.
Код:
Код
a = Sheets("Îøèáêè".[a1].CurrentRegion.Value
ReDim d(1 To UBound(a), 1 To 5)
 Sheets(Me.ComboBox1.Value).[a1].Resize(UBound(a), 5) = a
Sheets(Me.ComboBox1.Value).Select
 
Перейти    
Как отследить изменения Чекбокса ?
 
#
09.12.2014 11:04:05
Добрый день.
Подскажите пожалуста,возможно ли средствами VBA отследить изменения Чекбокса.
 
Перейти    
Порядковый номер в зависимости от значения в соседнем столбце.
 
#
14.11.2014 21:23:52
Доброго времени суток.
Есть форма,при  выборе в комбобоксах,значения комбобоксов,текстбоксов,вставляются в таблицу которая находится ниже формы.Вроде всё сделал,но не могу найти макрос(сам только начинаю пробовать писать) чтобы если в столбе "B" появляется значение,в столбце "A" порядковый номер.

Буду рад любому совету.Спасибо.
Изменено: amfor - 16.11.2014 11:17:47
 
Перейти    
Сравнение диапазонов с добавлением строк.
 
#
01.11.2014 23:19:35
Доброго времени суток.
Есть код который сравнивает два диапазона на разных листах и выводит данные с проверяемого диапазона в столбец С активного листа с пустой ячейкой на месте значения которого нет  в проверяемом диапазоне.Подскажите что нужно добавить в код чтобы в проверяемом диапазоне вставлялась строка с отсутствующим значением.Пример в файле.Как есть Лист1,как хотелось бы Лист1(2)
Код:
Код
Sub Find_Matches()
Dim CompareRange As Variant, x As Variant, y As Variant
 Set CompareRange = Worksheets("Лист 1").Range("A1:A11")
    For Each x In Range("A1:A11")
    For Each y In CompareRange
   If x = y Then x.Offset(0, 2) = x
  Next y
 Next x
End Sub
 
Перейти    
Изменение названия рабочей книги в коде
 
#
18.09.2014 14:24:56
Здравствуйте.Помогите решить проблему.Есть много файлов-доноров(создаются каждый день) и есть общий файл в который из этих файлов с помощью макроса копируются значения из определенных диапазонов.Проблема в том что при копировании из разных файлов приходится заходить в код и вручную менять Имя_Книги что не очень удобно, особенно если делать это по несколько раз в день.
Может есть способ замены Имя_Книги не входя в код.Что-то типа вставляешь Имя необходимой книги в определенную ячейку активного листа и происходит автоматическая замена.
Спасибо.

Вот сам код:

Код
Sub Formula()

Application.ScreenUpdating = False
Application.DisplayAlerts = False
With ThisWorkbook.Worksheets(1).Range("A2:B10")
    .Columns(1).FormulaArray = _
     "=('C:\Мои документы\[Имя_Книги.xls]Имя_Листа'!A2:A10)"
     .Columns(2).FormulaArray = _
     "=('C:\Мои документы\[Имя_Книги.xls]Имя_Листа'!B2:B10)"  
    .Value = .Value 
End With 
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
 
Перейти    
Копирование данных столбца по условию
 
#
22.03.2014 23:43:51
Доброго всем времени суток!
В приложенном файле в столбце B(B2:B5) названия продуктов.Нужно вставить эти названия по порядку в этот же столбец начиная с ячейки B8,в количестве равном числу указанному в столбце C(C2:C5).Написал макрос,вроде получился рабочий,но знания по VBA пока чуть больше 0,поэтому прошу Вашей помощи.
Нужно чтобы значения вставлялись именно с ячейки B8(сейчас если C2<>0 или " ".все хорошо,если нет,значения вставляются  в B6).
Спасибо.
 Copi.xls (38 КБ)
 
Перейти    
Перенос данных с листа на лист, добавить строки и транспонировать
 
#
17.03.2014 12:35:43
Добрый день!
Уважаемые Планетяне,столкнулся с такой проблемой.Есть таблица с данными (Лист"Есть").Указан код ,партия и сумма по каждому продукту.Нужно перенести данные на другой лист (Лист "Должно быть") в таком виде т.е. количество строк по каждому продукту должно стать равным количеству ячеек отличных от нуля.
Пример в файле 12345.xls (42.5 КБ)
 
Перейти    
Копирование данных на другой лист
 
#
19.02.2014 12:20:09
Здравствуйте!
Уважаемые Планетяне,в приложеном файле на Листе 1 есть таблица с данными,которые копируются на Лист 2 в определенном порядке,
удаляются дубликаты,сортируются.
Все это было записано с помощью макрорекордера и можно было жить и с этим, но в рабочем файле таблиц,  из которых нужно скопировать данные больше
десятка и код записанный рекордером становится просто необъемным.
Поэтому прошу Вашей помощи в оптимизации кода согласно синтаксиса и правил VBA (если можно с комментариями, потому что только понимая каждую строчку кода можно чему то научится).

Спасибо!
 
Перейти    
Страницы: 1
Наверх