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

Страницы: 1 2 3 4 5 6 7 След.
Вставка в excel из массива построчно
 
Добрый день.

Имеется двухмерный массив. По условию я нахожу строку в массиве и нужно добавить ее в Excel. Пока что я смог только добавлять каждую ячейку. Подскажите как вставить сразу полностью строку в Excel.
Код
For i = 0 to 1000
  If b(56,i)="DRINK" then
    Workbooks("test").worksheets("test").range(cells(lr,1),cells(lr,lc))= range(b(0,i),b(135,i)) 'что-то вроде этого мне нужно
  End if
Next
APPCRASH экселя при сочетании клавиш с ctrl и открытии списка макросов во вкладке Разработчик.
 
Добрый день. Эксель начал крашиться при сочетании клавиш с ctrl. При этом мышкой все эти действия произвести можно. Та же проблема вылетает при работе с макросами, т.е. запись макроса, открытие Visual Basic, при нажатии на кнопку Макросы. Все что могу приложить-это скриншот ошибки. В чем может быть проблема?
Вычленить из ячейки с текстом номер договора через VBA
 
Вот то, что вам нужно  https://www.planetaexcel.ru/techniques/7/4844/
Отображение нулей в конце в текстовом формате
 
=текст(A1;"0,000")
Наименьшее по уникальным значениям
 
10.11.19 это восьмое минимальное значение)
Как перенести данный с листа на лист автоматичести?
 
изменил макрос из #3. Подсчитывает количество и не берет 0:30:00
Как перенести данный с листа на лист автоматичести?
 
Код
Sub vremya()
Dim lr As Long
Dim lr3 As Long

lr = Sheets("2").Cells(Rows.Count, 1).End(xlUp).Row
lr3 = 2
For i = 3 To lr
  If Sheets("2").Cells(i, 5).Value > 0.0209 Then
    Sheets("3").Cells(lr3, 5) = Sheets("2").Cells(i, 1)
    Sheets("3").Cells(lr3, 6) = Sheets("2").Cells(i, 2)
    Sheets("3").Cells(lr3, 7) = Sheets("2").Cells(i, 3)
    Sheets("3").Cells(lr3, 9) = Sheets("2").Cells(i, 5)
    lr3 = lr3 + 1
  End If
Next
Sheets("3").Cells(2, 8) = lr3 - 2 
  
End Sub
Изменено: Hellmaster - 30 Окт 2019 09:53:19
Как скрыть/показать именованный диапазон строк в VBA
 
БМВ, спасибо. Изучу этот момент
Как скрыть/показать именованный диапазон строк в VBA
 
Цитата
gribnick75 написал:
Range("range_subfloor_house").entryRows.Hidden = True
Код
entireRow.hidden
Как скрыть/показать именованный диапазон строк в VBA
 
БМВ,таки я не понял тогда. Я ошибся в задании Range, тем что начал с листа, а не с книги или я ошибся в скрытии строк?
Как скрыть/показать именованный диапазон строк в VBA
 
Тогда прошу прощения за незнание. Можно ссылочку, если не сложно, чтобы я изучил этот момент?
Как скрыть/показать именованный диапазон строк в VBA
 
Цитата
БМВ написал:
range("Mrows").EntireRow.Hidden=true
Цитата
Hellmaster написал:
myrows.Hidden = True
а в чем тогда разница?
Как скрыть/показать именованный диапазон строк в VBA
 
Либо вот так
Код
Dim myrows As Range
Set myrows = Sheets("лист1").Range(Rows(15), Rows(21))
а потом уже скрывать или раскрывать
Код
myrows.Hidden = True  'скрыть строки
myrows.Hidden = False  'показать строки
Как скрыть/показать именованный диапазон строк в VBA
 
gribnick75,
Код
sheets("лист1").Rows("15:21").Hidden = True  'скрыть строки
sheets("лист1").Rows("15:21").Hidden = False  'показать строки
Собрать через точку только непустые ячейки по строке
 
Я даже кнопочку добавлю
Собрать через точку только непустые ячейки по строке
 
lomaxx, так вам нужно и значение ячейки изменить и в результат вывести или только в результат вывести?
Собрать через точку только непустые ячейки по строке
 
Код
Sub pust()
Dim lc As Long
Dim rng1 As String
Dim rng2 As String
Dim rng3 As String
Dim rng4 As String

lc = Worksheets("Лист1").Cells(4, Columns.Count).End(xlToLeft).Column
rng1 = Cells(14, lc).Value
For a = 2 To lc - 1

  If Cells(14, a) <> "" Then
    rng1 = rng1 & "." & Cells(13, a)
  Else: GoTo Line1
  End If
Line1:
Next
Cells(14, lc).Value = rng1
If Left(Cells(14, lc), 1) = "." Then Cells(14, lc) = Right(Cells(14, lc), Len(Cells(14, lc)) - 1)

rng2 = Cells(15, lc).Value
For a = 2 To lc - 1

  If Cells(15, a) <> "" Then
    rng2 = rng2 & "." & Cells(13, a)
  Else: GoTo Line2
  End If
Line2:
Next
Cells(15, lc).Value = rng2
If Left(Cells(15, lc), 1) = "." Then Cells(15, lc) = Right(Cells(15, lc), Len(Cells(15, lc)) - 1)

rng3 = Cells(19, lc).Value
For a = 2 To lc - 1

  If Cells(19, a) <> "" Then
    rng3 = rng3 & "." & Cells(18, a)
  Else: rng3 = rng3 & ".00"
  End If
Next
Cells(19, lc).Value = rng3
If Left(Cells(19, lc), 1) = "." Then Cells(19, lc) = Right(Cells(19, lc), Len(Cells(19, lc)) - 1)

rng4 = Cells(20, lc).Value
For a = 2 To lc - 1

  If Cells(20, a) <> "" Then
    rng4 = rng4 & "." & Cells(18, a)
  Else: rng4 = rng4 & ".00"
  End If
Next
Cells(20, lc).Value = rng4
If Left(Cells(20, lc), 1) = "." Then Cells(20, lc) = Right(Cells(20, lc), Len(Cells(20, lc)) - 1)

End Sub
можно ли использовать метод Find для поиска по нескольким параметрам?, нужно найти информацию в таблице по двум ключевым столбцам - можно ли для этого использовать метод Find?
 
VIZ_VIZ, задайте переменную последней заполненной строки таблицы и сделайте
Код
With Worksheets(1).Range("a1:a" & lastrow)
Проверка ячейки на содержание слэша "/". VBA
 
Юрий М, да мне еще Wiss ответил в #2)
Ігор Гончаренко,  спасибо за ответ в точном соответствии с названием темы!
Проверка ячейки на содержание слэша "/". VBA
 
Цитата
Hellmaster написал:
Нужно, чтобы макрос удалял строки, в которых последнее слово "добавить" или его производные вроде "доб" или "добав" и т.д.
Не, тут по-другому нужно)
Проверка ячейки на содержание слэша "/". VBA
 
Юрий М, если будет строка "удалить/добавить/удал", то он ее удалит же?
Проверка ячейки на содержание слэша "/". VBA
 
точно, там же после слэша еще символы есть... Wiss, спасибо большое! Сижу уже час туплю, гугля как же слэш отобразить в VBA. а проблема совершенно в другом)
Изменено: Hellmaster - 25 Окт 2019 15:52:07
Проверка ячейки на содержание слэша "/". VBA
 
Добрый день. Имеется таблица, в 1 столбце которой написано "удалить" и "добавить". Нужно, чтобы макрос удалял строки, в которых последнее слово "добавить" или его производные вроде "доб" или "добав" и т.д. Написал небольшой макрос, но он не распознает слэш "/" и поэтому работает неправильно. Помогите, пожалуйста написать макрос правильно.
Код
Sub mal_da_udal()
Dim lr As Long

lr = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row

For a = lr To 2 Step -1
  If Cells(a, 1) Like "*доб*" Then
   If Not Cells(a, 1) Like "*доб*/" Then
     Rows(a).Delete
   End If
  End If
Next

End Sub
вывод списка занятых ячеек в новую ячейку через запятую, Вывод списка занятых ячеек в новую ячейку через запятую
 
Первое что пришло в голову
Код
=ЕСЛИ(И(A3<>"")*(D3<>"");"1,2";ЕСЛИ(A3<>"";"1";ЕСЛИ(D3<>"";"2")))
Насколько бесконечный массив VBA
 
Ігор Гончаренко, спасибо!
Насколько бесконечный массив VBA
 
БМВ, мало ли, заведу себе базу на 1 млрд строк и решу прокрутить ее полностью) Ну а вообще, есть предел у массива?
Насколько бесконечный массив VBA
 
Добрый день.

Где предел измерения массива? К примеру, прокрутит ли он 1 млрд строк?
Копирование значений из отдельных ячеек из одной книги в другую
 
insaidd, тогда сделайте перебор файлов КП в папках, открывайте по очереди и делайте макрос из файла Отчет. и каждую строку с названием файла пишите как
Код
Workbooks("КП*.xlsm").Sheets("Вывод").
Копирование значений из отдельных ячеек из одной книги в другую
 
Цитата
insaidd написал:
смещаются только Сумма
Цитата
insaidd написал:
и Дата
тогда так
Код
Sub perenos()
Dim lr As Long
Dim c As Variant
Dim lr1 As Long

Set c = Workbooks("КП.xlsm").Sheets("Вывод").Range("a:a").find("Итоговая сумма предложения*", LookIn:=xlValues)
b = c.Row
lr = Workbooks("Отчет.xlsm").Sheets("CRM").Cells(Rows.Count, 2).End(xlUp).Row + 1
lr1 = Workbooks("КП.xlsm").Sheets("Вывод").Cells(Rows.Count, 1).End(xlUp).Row

Workbooks("Отчет.xlsm").Sheets("CRM").Cells(lr, 2) = Workbooks("КП.xlsm").Sheets("Вывод").Cells(11, 3)
Workbooks("Отчет.xlsm").Sheets("CRM").Cells(lr, 3) = Workbooks("КП.xlsm").Sheets("Вывод").Cells(13, 3)
Workbooks("Отчет.xlsm").Sheets("CRM").Cells(lr, 4) = Workbooks("КП.xlsm").Sheets("Вывод").Cells(12, 3) & _
" " & Workbooks("КП.xlsm").Sheets("Вывод").Cells(11, 10) & " " & Workbooks("КП.xlsm").Sheets("Вывод").Cells(12, 10)
Workbooks("Отчет.xlsm").Sheets("CRM").Cells(lr, 7) = Workbooks("КП.xlsm").Sheets("Вывод").Cells(b, 14)
Workbooks("Отчет.xlsm").Sheets("CRM").Cells(lr,  = Workbooks("КП.xlsm").Sheets("Вывод").Cells(8, 1)
Workbooks("Отчет.xlsm").Sheets("CRM").Cells(lr, 9) = Workbooks("КП.xlsm").Sheets("Вывод").Cells(lr1, 14)

End Sub
Копирование значений из отдельных ячеек из одной книги в другую
 
задаете последнюю заполненную строку файла отчет, приравниваете значение из ячеек файла КП к ячейкам последней заполненной строки файла Отчет.
Код
Sub perenos()
Dim lr As Long

lr = Workbooks("Отчет.xlsm").Sheets("CRM").Cells(Rows.Count, 2).End(xlUp).Row + 1
Workbooks("Отчет.xlsm").Sheets("CRM").Cells(lr, 2) = Workbooks("КП.xlsm").Sheets("Вывод").Cells(11, 3)
Workbooks("Отчет.xlsm").Sheets("CRM").Cells(lr, 3) = Workbooks("КП.xlsm").Sheets("Вывод").Cells(13, 3)
Workbooks("Отчет.xlsm").Sheets("CRM").Cells(lr, 4) = Workbooks("КП.xlsm").Sheets("Вывод").Cells(12, 3) & _
" " & Workbooks("КП.xlsm").Sheets("Вывод").Cells(11, 10) & " " & Workbooks("КП.xlsm").Sheets("Вывод").Cells(12, 10)
Workbooks("Отчет.xlsm").Sheets("CRM").Cells(lr, 7) = Workbooks("КП.xlsm").Sheets("Вывод").Cells(26, 14)
Workbooks("Отчет.xlsm").Sheets("CRM").Cells(lr, 8) = Workbooks("КП.xlsm").Sheets("Вывод").Cells(8, 1)
Workbooks("Отчет.xlsm").Sheets("CRM").Cells(lr, 9) = Workbooks("КП.xlsm").Sheets("Вывод").Cells(41, 14)

End Sub
Страницы: 1 2 3 4 5 6 7 След.
Наверх