Помогите синтаксисом или мыслями, пожалуйста.
Открыта книга Excel. Выделено несколько строк в колонке. Надо c помощью маленькой программы транслитерации проанализировать слова в выделенных ячейках Экселя, транслитерировать и вставить справа со сдвигом колонок вправо.
Чую, что надо по нажатию кнопки перекинуть focus на открытую книгу или еще как. Но не хватает знаний по синтаксису. Никак не получается программу заставить обратить внимание на выделенный участок Экселя и обработать его. То есть, надо обработать уже открытую книгу и уже выделенные ячейки (заранее конкретные адреса в коде программы закладывать не надо. Их сам пользователь выделяет в Экселе). Это всегда колонка, но не всегда первая. Вот, код. (пытаюсь написать именно маленькую вспомогательную прогу; чтобы она запускалась пользователем отдепльно (а не макрос как часть экселя). Буду очень благодарен за помощь. Роня
- Код: Выделить всё
Private Sub Command1_Click()
' hide the Program window
Me.Hide
' set focus on open excel sheet/workbook
' how to get it right?
Windows.Application.Workbooks.Open
Dim A As Range
Dim B As String
Dim C As String
' copy user's selection in Excel book
Selection.Copy
' insert a new column on right of the selection
Selection.Insert Shift:=xlToRight
' select first cell of the column to be transliterated
ActiveCell.Offset(0, 1).Select
' get the address of the cell
B = ActiveCell.Address
' select all cells with text in groups of 5 cells
'(there may be a few empty cells between rows)
Do While IsEmpty(ActiveCell.Value) = False
ActiveCell.Offset(5, 0).Activate
C = ActiveCell.Address
Loop
' select the range of cells for trasliteration
Range(B, C).Select
' definition of replacement variables
Selection.Replace What:="Б", Replacement:="B"
Selection.Replace What:="B", Replacement:="V"
' and lines with the rest of replacements
' clear selection "ants"
Application.CutCopyMode = False
' bring the Program window
Me.Show
End Sub
).
