Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Обьединение типов данных 
:(
    Опции темы
zhenya2010
Дата 21.4.2010, 10:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 16.4.2010

Репутация: нет
Всего: нет



Добрый день.
Понятия в ВБА = ламер)

Созданы фигуры, в них( на них) нужно вставить текст с одной ячейки и числовое значение з другой ячейки. Проблема - не могу вставить даные с текстом и значением(по отдельности получаеться).

Пример вставки текстового значения:
Dim s1, s2, s3, s4 As String
s1 = [c2]
ActiveSheet.Shapes("Фигура").Select
Selection.Characters.Text = s1 & Chr(10) & ""

если вместо s1 написать [b2] - получу значение из ячейки. а надо и то и то)
PM MAIL   Вверх
LOPUH
Дата 21.4.2010, 11:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Растение
*


Профиль
Группа: Участник
Сообщений: 245
Регистрация: 15.2.2008
Где: Красноярск

Репутация: 3
Всего: 4



Цитата(zhenya2010 @  21.4.2010,  15:24 Найти цитируемый пост)
s1 = [c2]


Цитата(zhenya2010 @  21.4.2010,  15:24 Найти цитируемый пост)
Selection.Characters.Text = s1 & Chr(10) & ""

если вместо s1 написать [b2] - получу значение из ячейки. а надо и то и то) 

 Не очень понял ,что значат здесь  [c2]  [b2]..   Подозреваю что то типа.
Код

s1=Range ("C2").Value
Selection.Characters.Text = Range ("S1").Value & Chr(10) & ""

 
Если это так, то советую поступить следующим образом:
1. Создаем переменную типа Variant
2. Присваиваем  созданной переменной тип массив и заполняем его данными (в нашем случае значениями интересующих ячеек)
3. Используем функцию Join, которая преобразающую массив в строку и присваиваем его полю Text  активной фигуры  (кстати выделять ее совсем не обязательно достаточно либо указать ее идентификатор, либо просто сделать ее активной)
 Приблизительно так:
Код

Dim m As Variant
m=Array (Range ("C2").Value, Range ("S1").Value," ")
Selection.Characters.Text=Join(m)

 Собственно, это путь для сложных строк, если мы имеем дело с двумя ячейками, в одной из которых текстовое значение ( допустим A1) и числовое в другой (допустим B1) то достаточно:
Код

Selection.Characters.Text =Range("A1).Value & Str (Range("B1).Value)



Это сообщение отредактировал(а) LOPUH - 21.4.2010, 12:04
PM MAIL   Вверх
dorogoyIV
Дата 21.4.2010, 11:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1503
Регистрация: 26.3.2007

Репутация: 4
Всего: 46



не понятно - в чем проблема?
Код

 ActiveSheet.Shapes.SelectAll
 Selection.Text = [b2] & Chr(10) & [c2]

PM MAIL   Вверх
zhenya2010
Дата 21.4.2010, 11:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 16.4.2010

Репутация: нет
Всего: нет



Всем спасибо, просто я идиот)))))))))))

PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0472 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.