Максим, на работе часто приходится переносить текст из Word в Excel, и там наоборот перенос строки трактуется как новая строка. Попробуйте сначала скопированное вставить в Word, а уже потом уже скопировать и перенести в Excel.
Держите вариант. В Module1 вставляете Public Cl As Variant, mySh As String В модуль ЭтаКнига код ниже
Код
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Sh.Name Like ("БАЗА") Then
Sheets("БАЗА").Select
Else
Sheets(mySh).Range(Cl).Value = Target.Value
Sheets(mySh).Select
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not Sh.Name Like ("БАЗА") Then
mySh = Sh.Name
Cl = Target.Address
End If
End Sub
Добрый день! Попробуйте посмотреть здесь '=========================================================================================================== ' Author : Alex_ST ' Topic_HEADER : Удобный автофильтр ' Topic_URL : http://www.planetaexcel.ru/forum.php?thread_id=11478 ' Post_Author : Alex_ST ' Post_URL : ' Date_Time : 20.02.11 ' Purpose : Программа фильтрации по критерию "содержит" в соответствии с изменениями содержимого текстбоксов ' Notes1 : если задать аргумент СТОЛБЕЦ% = 0, то столбец для фильтрации будет определяться автоматически по положению левого верхнего угла каждого текстбокса ' Notes2 : возможно автоматическое позиционирование текстбоксов относительно ячеек и подгонка их ширины-высоты ' Notes3 : возможна автоматическая замена при вводимых в текстбоксы пробелов на звёздочки '===========================================================================================================
Запрос на помощь по извлечению данных из файла .docx, Прошу помощи в извлечении и обработке данных из файла .docx, выделенных зеленым и желтым цветом. Требуется улучшение кода для извлечения дополнительной информации. Прилагаю файлы. Спасибо!
Попытался... На тестовом файле подогнал... не смог написать условие для Суммы в RegExp и не смог в итоговой таблице границы закрасить:( Где-то надо явно указывать что это Excel, но не смог...
Скрытый текст
Всего 70 суток - за 110 суток (14:3х2+31:3х2+11:3х2+30:3х2+24:3х2=70) (15316+33289=48605) (48605:30=1620,17) (1620,17х70=113411,67) в сумме 113411 (сто тринадцать тысяч четыреста одиннадцать) рублей 67 копеек.
Может кто подскажет как регулярным выражением вытащить сумму - 113411,67, а не извращаться со строкой. Тестовый файл не прикреплял, он выше.
БМВ, Спасибо, не досмотрел что это просто строка Надо или очки покупать или ноут менять на большой экран. А вот эта часть User ID=Admin? это не отсылка к правам пользователя? Пример делал с домашнего, а вот что пишет на работе не посмотрел:( Да и что можно из записи выкинуть без последствий?
Создаю письма в Ворд, данные для письма в файле Excel. Периодически теряется подключение к источнику данных. Могу пройти путь в ручную, но вот бесит... Попробовал написать макрос. Задача открыть единственный файл Excel в папке с бланком письма не зависимо от расширения. Но вот в строке подключения выданной макрорекодером вызывают сомнения части строки User ID=Admin и хотелось бы иметь возможность указывать имя листа откуда берем данныеFROM `01Osn$`" в переменной. Забыл, проба макроса в Ворде.
Каксвязать столбцы с одинаковыми названиями но находящиеся на разных листах, Привязка изменяющегося каждый день столбца "Дата" на одном листе к столбцу с соответствующей датой на другом листе
Каксвязать столбцы с одинаковыми названиями но находящиеся на разных листах, Привязка изменяющегося каждый день столбца "Дата" на одном листе к столбцу с соответствующей датой на другом листе
Добрый день! Формулы не позволят зафиксировать значения. Поэтому макрос. Обратите внимание таблицу Октябрь в примере обозвал МесяцТек и изменил формат отображения даты в шапке. Есть в ВБА проблемы при поиске даты с разными форматами и я не разбираюсь в этом. Как искать по вашему формату не знаю. Жмите на кнопку. Макрос ищет столбец даты, вставляет формулу ВПР() и потом преобразует формулы в значение.
FAV123, у вас задача скорее выбора значения по условию. Юрий М, это можно и названием темы сделать Если вынести формулы в сторону (не запихивать в 1 ячейку), то можно использовать ВПР(B$7-B$6;{0;0:8,01;0,5:10;1};2;1) для выбора значения по перерыву. смотрите вариант в файле. Можно создать пользовательскую функцию, но это уже макрос и соответствующие ограничения.
Вы бы показали более менее приближенный пример. А то у вас... У меня на ОФ2007 не хотел копировать листы с умной таблицей. Сам макрос создал 2 книги с лист1 и лист2 с учетом отключения обработки ссылок.
Код
Dim fp$, s As Worksheet, nm As Name, wb As Workbooks
Dim loTemp As ListObject
fp = ThisWorkbook.Path & Application.PathSeparator
For Each s In ActiveWindow.SelectedSheets
If s.ListObjects.Count > 0 Then
'судаляем таблицы
For Each loTemp In s.ListObjects
loTemp.Unlist
Next loTemp
For Each nm In s.Names 'обработка имен в копируемых листах
If nm.Visible Then
If Not nm.Name Like "*!Print_Area" Then ' имена областей печати лучше оставить
nm.Delete
End If
' Else
' If Not nm.Name Like "*!_FilterDatabase" Then nm.Delete ' удалить все скрытые имена диапазонов кроме фильтров
End If
Next nm
s.Copy ' копируете выделенные листы
' ______________________________________________________________________
' Set wb = ActiveWorkbook
' WorkbookLinks = wb.LinkSources(Type:=xlLinkTypeExcelLinks)
' If IsArray(WorkbookLinks) Then
' For i = LBound(WorkbookLinks) To UBound(WorkbookLinks)
' wb.BreakLink Name:=WorkbookLinks(i), Type:=xlLinkTypeExcelLinks
' Next i
' End If
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs fp & "_" & s.Name & [CHAR(95)&TEXT(NOW(),"DDMMYYHHSS")], FileFormat:=51
ActiveWorkbook.Close False
Next
End Sub
Копирование нескольких строк расположенных в разных таблицах на одном листе, Перенести данные из одной таблицы в другую по дате, при условии, что данные расположены в нескольких таблицах друг под другом на одном листе
А хто ж его знает что там у Вас. На вашем напримере все работает, проверяйте. Может у вас не дата в исходнике или еще что. Но это не ко мне. На слух и по фотографиям диагноз не ставлю.
Копирование нескольких строк расположенных в разных таблицах на одном листе, Перенести данные из одной таблицы в другую по дате, при условии, что данные расположены в нескольких таблицах друг под другом на одном листе
Пробуйте. Поместите файл в папку с Вашими данными и проверяйте. Предварительно скопируйте их в отдельную резервную папку. Делал с жесткой привязкой по образцу со всеми пустыми строками. Закрытие, сохранение файлов прописывайте сами. Если структура данных изменится
Sub pasteCol()
Dim lCol As Long
Application.ScreenUpdating = False
For lCol = 25 To 10 Step -1
Columns(lCol).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Next lCol
Application.ScreenUpdating = True
End Sub