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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Перенос текста из TextBox в ячейку EXCEL 
:(
    Опции темы
VirusE
Дата 6.12.2004, 15:44 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Проблема такая, TextBox многострочный, если присваивать значение ячейке листа EXCEL преносы строки дополнительно сопровождается появлением квадратика. (Квадратик в ячейке можно убрать, перенос остается, в параметре TextBox.Text квадратиков два), как добиться, чтобы при присвоении TextBox значения ячейке преносы строки сохранялись без артефактов.
Другой вопрос в том, что если TextBox использовать для введения даты в ячейку, значение ячейки не воспринимается как дата.
  Вверх
Staruha
Дата 6.12.2004, 18:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Цитата
Другой вопрос в том, что если TextBox использовать для введения даты в ячейку, значение ячейки не воспринимается как дата.

Код

Columns("D:D").NumberFormat = "dd/mm/yy"

для начала , а с остальным тоже попробую.


--------------------
Возмездие настигнет
PM MAIL   Вверх
Staruha
Дата 7.12.2004, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Код

Private Sub CommandButton1_Click()
Dim str As String, str1 As String, i As Integer, k As Integer, c As String, a As String
Dim e As String
Dim g As String
Dim q As String
TextBox1.MultiLine = True
Range("A10").WrapText = True

str = Range("A4").Value
StrLen = Len(str)
For i = 1 To StrLen
str1 = Mid(str, i, 1)
If Asc(str1) = 45 Then

k = k + 1
If k = 1 Then
  a = Left(str, i - 1)
Else
 e = Left(str, i - 1)
 c = Mid((e), (Len(a) + 2), (Len(e) - Len(a)))
 g = Mid(str, (Len(e) + 2), (Len(str) - Len(e)))

q = a & " " & c & " " & g
Range("A10").Value = q

          End If
     End If
 Next i
End Sub



--------------------
Возмездие настигнет
PM MAIL   Вверх
VirusE
Дата 8.12.2004, 07:51 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Ввсший класс, только как оказалось достаточно этого:

в ячейке квадрат это "лишний" возврат каретки, который можно убрать так
Cells(1, 1) = Replace(TextBox1, Chr(13), "")

Все данные в TextBox текстового типа, поэтому надо использовать ф-цию перевода в тип дата
Cells(1, 1) = CDate(TextBox1)
  Вверх
Staruha
Дата 8.12.2004, 16:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Дурная голова ногам покоя не дает. А оказывается все так просто! smile


--------------------
Возмездие настигнет
PM MAIL   Вверх
VirusE
Дата 9.12.2004, 07:59 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Возникла еще одна проблема:
В Label и Textox символ № заменяется ?, если кликнуть на объекте меняется опять с ? на №, но даже при прокрутке, если скроется за границей экрана, или при выборе ясчейки снова ?.
Причем если ячейке присвоено TextBox.Value с символом № внутри (через Replase), при присвоении TextBox.Value значения этой ячейки отображается нормально, если в ячейка была изменена вручную, происходит подмена.
  Вверх
Staruha
Дата 9.12.2004, 23:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Я это посмотрела все. При английском регистре этого глюка нет. И еще ,Если я ввожу через ячейку
Код

TextBox1.Text = Range("A11").Value

тоже все нормально.Из чего следует ,что копать надо в формате или вшрифте.


--------------------
Возмездие настигнет
PM MAIL   Вверх
cardinal
Дата 10.12.2004, 01:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
VirusE, а вообще
Модератор: Пожалуйста, один топик - один вопрос.
Ну и зарегись чтоли... smile


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
VirusE
Дата 10.12.2004, 13:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Появляется на 2000-м офисе, на XP все в порядке, но работать должно на 2000 и 97-ом


Цитата
При английском регистре этого глюка нет

В смысле, а на какой клавише в латинице знак номера? ( в кирилице на тройке)
Добавлено @ 13:20
Цитата
Если я ввожу через ячейку

Пробывал и через range и через cells, все равно
PM MAIL   Вверх
VirusE
Дата 15.12.2004, 11:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Кто нибудь поможет?
PM MAIL   Вверх
Гость_Старуха
Дата 15.12.2004, 15:09 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Люди помогите ему. Он вводит текст в текстовое поле, а когда текстовое поле не активное текст превращается в знаки вопроса.Пожалуйста
  Вверх
Staruha
Дата 15.12.2004, 22:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Цитата
Пробывал и через range и через cells, все равно

Код

Private Sub CommandButton2_Click()
             TextBox1.Text = Range("A1").Value
    End Sub

Вот это работает попробуй еще


--------------------
Возмездие настигнет
PM MAIL   Вверх
Гость_Старуха
Дата 17.12.2004, 12:30 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Попробуй это

Private Sub CommandButton2_Click()
TextBox1.Text = "Свойство №2"
End Sub

Если несколько вариантов - задай условие
  Вверх
VirusE
Дата 20.12.2004, 08:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Попробывал, не вышло,
(да и сам метод не подходит, так как значение будет выбираться из таблицы, своеобразной базы данных)
PM MAIL   Вверх
Гость_Старуха
Дата 20.12.2004, 14:12 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Тогда сделай скрытое Текстовое поле и через него кидай. Проверить не могу т.к. у меня даже твой присланный файл работает
  Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

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

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


 




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


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

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