[offtop]Ну, тогда надо сунуть ему в репу чтобы впредь неповадно было[/offtop] [moder]Поддерживаю. Тем более, что 1. Это не вопрос по Excel 2. Такая тема уже есть
[offtop]Ну, тогда надо сунуть ему в репу чтобы впредь неповадно было[/offtop] [moder]Поддерживаю. Тем более, что 1. Это не вопрос по Excel 2. Такая тема уже естьAlex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал _Boroda_ - Среда, 25.05.2016, 17:04
Sub ForTran() 'перевод формул РУС-ENG With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText ActiveCell.Formula: .PutInClipBoard: End With MsgBox ActiveCell.Formula & vbCrLf & _ "" & "Перевод помещён в буфер обмена", , "Formula Translate" End Sub
[/vba] [moder]А почто в эту тему, а не в ту? А, не, и в ту тоже. Широчайшей души человечище![/moder]
[vba]
Код
Sub ForTran() 'перевод формул РУС-ENG With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText ActiveCell.Formula: .PutInClipBoard: End With MsgBox ActiveCell.Formula & vbCrLf & _ "" & "Перевод помещён в буфер обмена", , "Formula Translate" End Sub
[/vba] [moder]А почто в эту тему, а не в ту? А, не, и в ту тоже. Широчайшей души человечище![/moder]Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал _Boroda_ - Четверг, 26.05.2016, 12:45