Не удается отправить значения ключей отправки на определенные ячейки - PullRequest
Новая
       24

Не удается отправить значения ключей отправки на определенные ячейки

0 голосов
/ 20 июня 2019

Я конвертирую имена англичан в гуджаратский (индийский) язык, используя клавиатуру IME. при выполнении сценария DO WHILE .. сценарий успешно преобразует английские имена в гуджарати, используя 'SendKeys', 

Sub engtoguj_ref()
'
' Macro1 Macro
'

'
    Dim currange As Range
    Dim strlen As Integer
    Dim newstr As String
    Dim countr As Integer
    Dim engstr As String
    Dim gujloc As String
    countr = 0
    engstr = ActiveCell.Offset(0, -2).Value
    Do While (Len(engstr) > 0 And countr < 30)
       engstr = Range(ActiveCell.Offset(0, -2).Value).Value
       MsgBox (engstr)
       countr = countr + 1
       newstr = " " & engstr & " "
       SendKeys newstr, True
       DoEvents
       ActiveCell.Offset(1, 0).Select
       MsgBox (ActiveCell.Address)
    Loop
    Application.MoveAfterReturn = True
End Sub

имя Eng находится в столбце B, имя гуджарати должно быть в столбце C .., вместо этого оно копирует все имя вместе в столбце C в строке рядом с последним английским именем.

...