ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование формулы в Excel
13 сообщений из 13, страница 1 из 1
Копирование формулы в Excel
    #39078024
Sergey_New
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_New
Участник
Как можно программно скопировать формулу (приложена), размещенную в TextBox в другой TextBox?
Если ручками выделить содержимое формулы, скопировать и вставить в другой TextBox, то всё ОК.
Записываю процедуру в макрос, выполняю его - в результате получаю текстовый вид формулы, а не профессиональный, как при ручном методе.
...
Рейтинг: 0 / 0
15.10.2015, 19:07
| Ответить | Цитировать | Написать  
Копирование формулы в Excel
    #39078026
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Sergey_New,
приложите файл с текстбоксом с формулой.
...
Рейтинг: 0 / 0
15.10.2015, 19:13
| Ответить | Цитировать | Написать  
Копирование формулы в Excel
    #39078032
Sergey_New
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_New
Участник
Казанский,
не вопрос, прикладываю
...
Рейтинг: 0 / 0
15.10.2015, 19:29
| Ответить | Цитировать | Написать  
Копирование формулы в Excel
    #39078051
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Sergey_New,

Код: vbnet
1.
2.
3.
4.
With ActiveSheet.TextBoxes(2)
  .Text = ActiveSheet.TextBoxes(1).Text
  .Font.Name = "Cambria Math"
End With
...
Рейтинг: 0 / 0
15.10.2015, 20:04
| Ответить | Цитировать | Написать  
Копирование формулы в Excel
    #39078053
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Насчет "профессионального вида" не понял.
...
Рейтинг: 0 / 0
15.10.2015, 20:08
| Ответить | Цитировать | Написать  
Копирование формулы в Excel
    #39078061
Sergey_New
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_New
Участник
Казанский,
Сравните с изображением из стартового сообщения - там профессиональный. Так, во всяком случае, в Excel написано.
Вставляю формулу так: Меню > Вставка > Формула > выбираем подходящую и правим, как требуется.
...
Рейтинг: 0 / 0
15.10.2015, 20:28
| Ответить | Цитировать | Написать  
Копирование формулы в Excel
    #39078072
Sergey_New
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_New
Участник
По приведённому коду у меня преобразуется вообще неверно:
...
Рейтинг: 0 / 0
15.10.2015, 20:46
| Ответить | Цитировать | Написать  
Копирование формулы в Excel
    #39078103
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Sergey_New,

а зачем вообще копировать текст из одного в другое? Почему не скопировать сразу весь текстбокс?
...
Рейтинг: 0 / 0
15.10.2015, 21:36
| Ответить | Цитировать | Написать  
Копирование формулы в Excel
    #39078112
Sergey_New
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_New
Участник
The_Prist,
законный вопрос.
Но мне нужно, в зависимости от условий, в одно и то же место подставлять разные формулы. Путей решения несколько:
- поместить несколько формул и сделать их невидимыми, а потом показывать;
- удалять ненужный текстбокс и копировать требуемый.
То что я хочу, казалось самым простым решением, но облом...
...
Рейтинг: 0 / 0
15.10.2015, 21:46
| Ответить | Цитировать | Написать  
Копирование формулы в Excel
    #39078133
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Sergey_NewКазанский,
Сравните с изображением из стартового сообщения - там профессиональный.А почему Вы не приложили файл с такой формулой?
В моем сообщении 18284780 я показал, как выглядит ваш файл у меня (в 2007) и результат копирования в новый текстбокс.
...
Рейтинг: 0 / 0
15.10.2015, 22:25
| Ответить | Цитировать | Написать  
Копирование формулы в Excel
    #39078138
Sergey_New
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_New
Участник
Казанский,
приложил именно с такой формулой. Скорее всего у меня 2010 офис, а у Вас 2007?
...
Рейтинг: 0 / 0
15.10.2015, 22:35
| Ответить | Цитировать | Написать  
Копирование формулы в Excel
    #39078139
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Алексей, в 2010 действительно не работает приведенный тобой код. Видимо, отображение само меняется на строчный тип. Свойство нужное не искал - времени нет сейчас с этим ковыряться, поэтому не знаю насколько возможно это сделать из VBA.
...
Рейтинг: 0 / 0
15.10.2015, 22:45
| Ответить | Цитировать | Написать  
Копирование формулы в Excel
    #39078328
Sergey_New
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_New
Участник
Пришлось сделать так, может кому сготится:
Формулу "TextBox1" копирую в нужное место, предварительно удаляя, если есть, старую копию

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub CopyShapes()
    For Each sh In ActiveSheet.Shapes
        If sh.Name = "tmp" Then
            sh.Delete
            Exit For
        End If
    Next
        ActiveSheet.Shapes.Range(Array("TextBox1")).Select
        Selection.Copy
        Range("A1").Select
        ActiveSheet.Paste
        Selection.Name = "tmp"
End Sub
...
Рейтинг: 0 / 0
16.10.2015, 10:18
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование формулы в Excel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2173320]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 32ms
get topic data:
 11ms
get first new msg:
 20ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 286ms
total:  439ms
созд. / загр.: 439ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]