|
Платные хостинги
Раскрутка сайта
Книги по программированию
Перенос текста из TextBox в ячейку EXCEL
- Код Columns("D:D").NumberFormat = "dd/mm/yy"highlightSyntax('vbIzZDU0','vb'); для начала , а с остальным тоже попробую.
- Код Private Sub CommandButton1_Click()Dim str As String, str1 As String, i As Integer, k As Integer, c As String, a As StringDim e As StringDim g As StringDim q As StringTextBox1.MultiLine = TrueRange("A10").WrapText = Truestr = Range("A4").ValueStrLen = Len(str)For i = 1 To StrLenstr1 = Mid(str, i, 1)If Asc(str1) = 45 Thenk = 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 iEnd SubhighlightSyntax('vbzU5ZjB','vb');
- Дурная голова ногам покоя не дает. А оказывается все так просто!
- Я это посмотрела все. При английском регистре этого глюка нет. И еще ,Если я ввожу через ячейку Код TextBox1.Text = Range("A11").ValuehighlightSyntax('vbMxMTYx','vb'); тоже все нормально.Из чего следует ,что копать надо в формате или вшрифте.
- VirusE, а вообщеМодератор: Пожалуйста, один топик - один вопрос.Ну и зарегись чтоли...
- В смысле, а на какой клавише в латинице знак номера? ( в кирилице на тройке) Добавлено @ 13:20 Цитата (Старуха @ 9.12.2004, 23:52)Если я ввожу через ячейкуПробывал и через range и через cells, все равно
- Кто нибудь поможет?
- Код Private Sub CommandButton2_Click() TextBox1.Text = Range("A1").Value End SubhighlightSyntax('vbGQ2ZTl','vb'); Вот это работает попробуй еще
- Попробывал, не вышло,(да и сам метод не подходит, так как значение будет выбираться из таблицы, своеобразной базы данных)
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
