Модераторы: diadiavova, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Excel. Перенести по словам и вставить в DataGrid. 
V
    Опции темы
vladd
Дата 12.3.2012, 16:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
В Excel провожу форматирование диапазона вот так
Код

Exl.Worksheets("Рынки скачек").Range("F32:L42").WrapText = True
Exl.Worksheets("Рынки скачек").Range("F32:L42").ColumnWidth = 4
                                                     

Получаю перенос по словам.
Теперь надо значение ячейки Excel разбить на 2 составные части и заполнить ячейку DataGrid то же с переносом по словам в 2 этажа.
Для переноса по словам думаю: берем значение ячейки Excel. ищем пробел, вставляем туда vbCrLf и присваиваем его ячейке DataGrid. Как можно это коротко записать? Желательно в одну строку, если возможно.  
PM MAIL   Вверх
diadiavova
Дата 12.3.2012, 17:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Цитата(vladd @  12.3.2012,  17:18 Найти цитируемый пост)
 Как можно это коротко записать?

Что именно? Замену пробела переносом строки или добавление текста в грид, или может быть извлечение данных из ячейки экслеля? Полагаю ты имеешь в виду что-то типа этого
Код

grid.Rows(3).Cells(2).Value = Exl.Worksheets("Рынки скачек").Range("H35").ToString().Replace(" ", vbCrLf)
Объектную модель экселя хорошо не помню, так что может и не так все, но я в общем-то и не об этом. smile 

Это сообщение отредактировал(а) diadiavova - 12.3.2012, 17:07


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
vladd
Дата 13.3.2012, 06:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Да именно это я имею в виду. Но результат данной строки System.__ComObject, а должно быть 2 этажа цифр.
PM MAIL   Вверх
vladd
Дата 13.3.2012, 07:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Спасибо большое за помощь. 
Правильно будет сначало 
у Колонки есть свойство DefaultCellStyle, у него в свою очередь есть свойство Wrap - выставить его в true,
сделать автоподбор высоты ячеек 
и затем замена пробела на vbCrLf без ToString()
Код

DataGridViewVoshodychi.AutoResizeRows(DataGridViewAutoSizeRowsMode.AllCellsExceptHeaders)
DataGridViewVoshodychi.Item(3, 0).Value() = Exl.Worksheets("Рынки скачек").Cells(32, 6).Value.Replace(" ", vbCrLf)

Тема закрыта.

Это сообщение отредактировал(а) vladd - 13.3.2012, 08:01
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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