Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Объединить несколько списков в один без дубликатов
 
Ігор Гончаренко, Подскажите, реально ли решить эту задачу формулой?
Объединить несколько списков в один без дубликатов
 
Как сделать 1 результирующий столбец из этих 3, такой, чтоб при добавлении данных в один из данных столбцов, они добавлялись и в результирующий.
Так же нужно чтоб результирующий столбец был без дубликатов.
Вставить из буфера в ListBox текст, разделённый табуляцией
 
Здравствуйте! Есть Листбокс с двумя колонками и документ Ворд. В документе есть таблица с двумя колонками. Как можно скопировать данные из таблицы Word и вставить эту информацию в Listbox по клику из буфера обмена?
Сравнить 2 двумерных массива
 
buchlotnik,благодарю, а как это реализовать на vba?
Сравнить 2 двумерных массива
 
Здравствуйте, существует 2 двумерных массива вида:
1100
2200
3300
и
1400
5500
3300
Как их сравнить, чтобы в результате получился новый массив с данными
1400
5500
при условии, что (A(i,0) <> B(i,0) И A(i,1) <> B(i,1)) ИЛИ  (A(i,0) = B(i,0) И A(i,1) <> B(i,1)).
Т.е. значения либо вообще не должны совпасть, либо из 1-й колонки может совпасть, а из 2-й - Нет.
Изменено: Samyrro054 - 18.11.2019 00:38:44
Извлечь данные из таблицы Word с переносом строк
 
RAN,Благодарю, практически то что нужно. Осталось только разбить переносы по ячейкам. Как доработаю - скину результат. Ещё раз спасибо!
Извлечь данные из таблицы Word с переносом строк
 
Здравствуйте! Существует таблица Word, в которой каждая новая строка не является новой ячейкой, а просто перенос строки (Enter-ом создавали новую строку).
Я пытаюсь извлечь все строки таблицы в ячейки Excel. Но поскольку этой не обычный перебор строк таблицы циклом, необходима помощь в создании макроса, который сможет выделить текст до переноса строки, записать его в ячейку Excel и т.д. в цикле каждую новую строку. Такое вообще реально сделать?
Вот код для подключения к документу Word:
Код
Sub OpenWord()
    Dim objWrdApp As Object, objWrdDoc As Object, avFiles, i As Integer, tbl As Object
    avFiles = Application.GetOpenFilename _
                ("Word files(*.doc*),*.do*", 1, "Выберите таблицу", , False)
    If VarType(avFiles) = vbBoolean Then
        Exit Sub
    End If
        Set objWrdApp = CreateObject("Word.Application")
        objWrdApp.Visible = False
        Set objWrdDoc = objWrdApp.Documents.Open(avFiles)
        Set tbl = objWrdDoc.Tables(1)
        ActiveSheet.Cells(1, 1) = tbl.Cell(2, 1).Range.text       
        objWrdDoc.Close True
        objWrdApp.Quit
        Set objWrdDoc = Nothing: Set objWrdApp = Nothing
End Sub
Изменено: Samyrro054 - 14.11.2019 10:51:06
Страницы: 1
Наверх