Здравствуйте
Как скопировать из браузера только текст и вставить его в текст активной ячейки (если имеет текст) или в пустую ячейку (если нет текста) стандартным скопировать/вставить - те вставить только значения текста
Попробовал такой макрос на событие 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
|
