Здравствуйте
Как скопировать из браузера только текст и вставить его в текст активной ячейки (если имеет текст) или в пустую ячейку (если нет текста) стандартным скопировать/вставить - те вставить только значения текста
Попробовал такой макрос на событие Private Sub Workbook_SheetChange - работает с глюками пример приложил в файл
При этом на событие Private Sub Workbook_SheetSelectionChange работает макрос превосходно - как надо
а вот на Private Sub Workbook_SheetChange плохо работает ( но получается что надо на Private Sub Workbook_SheetChange чтоб нормально работать).
Как скопировать из браузера только текст и вставить его в текст активной ячейки (если имеет текст) или в пустую ячейку (если нет текста) стандартным скопировать/вставить - те вставить только значения текста
Попробовал такой макрос на событие Private Sub Workbook_SheetChange - работает с глюками пример приложил в файл
При этом на событие Private Sub Workbook_SheetSelectionChange работает макрос превосходно - как надо
а вот на Private Sub Workbook_SheetChange плохо работает ( но получается что надо на Private Sub Workbook_SheetChange чтоб нормально работать).
Код |
---|
Const sSHEET_NAME = "Лист1" Const sRANGE = "B1:B30" Function GetTxtFromCB() On Error Resume Next With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .GetFromClipboard GetTxtFromCB = .GetText GetTxtFromCB = Replace(GetTxtFromCB, Chr(10), "") GetTxtFromCB = Application.WorksheetFunction.Trim(GetTxtFromCB) End With End Function Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Name <> sSHEET_NAME Then Exit Sub If Not Intersect(Target, Range(sRANGE)) Is Nothing Then Dim s As String s = GetTxtFromCB Application.ActiveCell.Value = s End If End Sub |