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

Страницы: 1 2 3 4 5 6 7 След.
Вычленить из ячейки с текстом номер договора через 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
VBA номер текстового поля как переменная, Задать номер поля в макросе при помощи переменной
 
без файла примера сложно, но примерно вот так.

Код
Dim x 
Dim B as long  
 For each x in Me.Controls  'строка для цикла по всем control в форме    
  If TypeOf x Is MSForms.Textbox Then  'строка для проверки на textbox      
   For B=1 to 100
    Sheets("Baza").Cells(1, B) = UserForm1.text(x)      
   Next B
  End if
 Next

Изменено: Hellmaster - 22 Окт 2019 15:36:08
Обращение к ячейкам Access в цикле VBA
 
Добрый день. Сделал все-таки через массив. Может кому-то пригодится:
Код
Sub perebor()

Dim dbsNorthwind As Database
Dim rstEmployees As Recordset
Dim b()
Dim bb()
Dim myTab As TableDef
Dim myF As Field
Dim stsql As String
Dim rs As Recordset

Set dbsNorthwind = OpenDatabase("путь к файлу")
Set rstEmployees = dbsNorthwind.OpenRecordset("SELECT * FROM q_promoexcel")
    b = rstEmployees.GetRows(rstEmployees.RecordCount)
    bb = TransposeArray(b)
     Erase b
     For i = 4 To rstEmployees.RecordCount - 1

      'Подсчеты

      Next
         
dbsNorthwind.Execute ("delete*from TEST")  'таблица уже имеется в БД, поэтому очищаю ее, чтобы вставить новые данные.

Set rs = dbsNorthwind.OpenRecordset("TEST")
        
For i = 0 To rstEmployees.RecordCount - 1
With rs
.AddNew
.Fields(0) = bb(i, 0)
.Fields(1) = bb(i, 1)
.Fields(2) = bb(i, 2)
.Fields(3) = bb(i, 3)
.Fields(4) = bb(i, 4)
.Fields(5) = bb(i, 5)
.Fields(6) = bb(i, 6)
.Fields(7) = bb(i, 7)
.Update
End With
Next

        rstEmployees.Close
        Set rstEmployees = Nothing
        dbsNorthwind.Close
        Set dbsNorthwind = Nothing
        Set rs = Nothing
        Set myF = Nothing

End Sub
________________________________________________________________________________________________
Function TransposeArray(ByVal arr2x) As Variant()

    Dim arr(), r&, c&
  
ReDim arr(0 To UBound(arr2x, 2), 0 To UBound(arr2x, 1))
  
    For c = 0 To UBound(arr2x, 2)
        For r = 0 To UBound(arr2x, 1)
            arr(c, r) = arr2x(r, c)
        Next r
    Next c
TransposeArray = arr
End Function
Страницы: 1 2 3 4 5 6 7 След.
Наверх