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

Страницы: 1
VBS на выполнение макроса
 
#
15.09.2015 11:10:40
Добрый день.
Возникла потребность создать VBS файл.
Данныйц фал должен открывать одну книгу, затирить в ней данные в диапазоне [A2:Hn], затем открывать другой файл копировать данные в таком же диапазоне и заливать в первую книгу.
Затем выполнить 2 макроса.
Из VBS знаю только как открыть файл игнорируя ошибок и сохранить его. Подскажите каким способом это можно реализовать.

Код
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = false
ExcelApp.displayalerts = false
ExcelApp.Workbooks.Open "Путь к файлу"
ExcelApp.ActiveWorkbook.refreshall
ExcelApp.ActiveWorkbook.Save
ExcelApp.Workbooks.Close
Set ExcelAp = Nothing
 
Перейти    
Поиск несовпадения двух строк в двух столбцах, оптимизация поиска
 
#
10.09.2015 16:06:07
Добрый день.
У меня есть код, который ищет ситуацию несовпадения двух строк в двух столбцах, но он отрабатывает долго.
Можект кто сможет подсказать как оптимизнуть можно? Буду очень благодарен.
Код
Sub set_cntr()
iLastRow = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To iLastRow - 1
    a = LCase(Sheets("Лист1").Cells(i, 3).Value)
    b = LCase(Sheets("Лист1").Cells(i, 4).Value)
    For j = i + 1 To iLastRow
        A1 = LCase(Sheets("Лист1").Cells(j, 3).Value)
        b1 = LCase(Sheets("Лист1").Cells(j, 4).Value)
    If b = b1 Then
        If a <> A1 Then
    Cells(j, 10) = "Не совпадает"
    Cells(i, 10) = "Не совпадает"
        End If
    End If
    Next j
    If Cells(i, 10).Value = "" Then
Cells(i, 10) = "Верно"
End If
Next i
End Sub
 
Перейти    
Формирование XLS с данными
 
#
09.09.2015 17:41:36
Добрый день!
Подскажите, пожалуйста, каким образом можно сделать так, чтобы по значениям с одного ексель файла, диапазон A1:Dn, формировался новый файл (сохранялся) с этими данными. Знаю как сделать csv, а на xls-нет. Это необходимо сделать на уровне VBA.
Так же в ячейках значения начинаются с "0" в итоговом файле должны быть такие же.
Изменено: eremeev23rus - 09.09.2015 17:45:53
 
Перейти    
С нескольких строк и столбцов преобразовать в один столбец
 
#
07.09.2015 16:51:14
Добрый день.
Возникла потребность преобразование в VBA диапазона выделеных ячеек. Например с K2:L42577 заменить на K2:K42577.
То есть чтобы с нескольких строк и столбцов оставался один столбец со всеми выделеными строками.
Подайте идею как это можно сделать.
 
Перейти    
Преобразовение диапазона в список
 
#
07.09.2015 14:31:15
Добрый день!
Подскажите, пожалуйста, как преобразовать диапазон выбранных ячеек.
Ячейки я получаю таким способом:
 
Код
      Set cur_range = Selection 
        cur_range.Activate 
If InStr(cur_range.SpecialCells(xlVisible).Address, ",") <> 0 Then 
C = Split(cur_range.SpecialCells(xlVisible).Address, ",")

То есть разбиваю в массив ячейки через запятую которые, но если есть диапазон ":", то он считае как одна ячейка, поэтому я хочу в начале, если есть такой случай преобразовывать в список через запятую, При этом, разворот должне происходить если выбран диапазон относительно столбца, а не строки.
 
Перейти    
Страницы: 1
Наверх