Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 42, средняя оценка - 4.76
VIG
193 / 9 / 0
Регистрация: 05.10.2010
Сообщений: 309
#1

Вывод данных в Textbox - VBA

27.11.2011, 00:09. Просмотров 6436. Ответов 20
Метки нет (Все метки)

Задать фамилии, имена и возраст с помощью функциями функции InputBox.
Вывести их на форму в столбик:по возрастанию числа согласных букв в фамилии.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2011, 00:09
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вывод данных в Textbox (VBA):

Вывод текста из textbox в label - VBA
Столкнулся с такой проблемой. Есть textbox, в который вводится слово и при нажатии кнопки должно выводиться в label. Dim a As String ...

Вывод полей Combobox в Textbox - VBA
Здравствуйте. Как можно вывести в Textbox'ы поля выбранной записи Combobox? Например, у меня есть Combobox с 3-мя полями: ФИО, Должность,...

Чтение и вывод информации с диапозона в textbox - VBA
Добрый день, есть диапазон ячеек A1:G1 и 7 textbox нужно при нажатии на кнопку он перешел на следующий диапазон, А2:G2, соотвественно так...

Вывод в TextBox при выборе значения в Combobox - VBA
Всем здравствуйте! Кто может подсказать макрос для того, чтобы при выборе значения в combobox(Например, в комбокосе выпадающий список с...

Вывод одномерного массива на экран через TextBox - VBA
Прошу помощи с выводом одномерного массива через TextBox. Манаюсь второй день. Делаю так: Private Sub CommandButton1_Click() Dim n As...

Вывод значения ячейки, соседней найденной, в TextBox - VBA
Есть таблица: Код Количество L2. 49 Я сделал поиск по коду: Текст бокс = Range(диапозон).Find(текст).Text Как вывести...

20
Памирыч
Почетный модератор
20614 / 8654 / 1029
Регистрация: 11.04.2010
Сообщений: 11,008
27.11.2011, 00:32 #2
VIG, точно VBA?
0
Апострофф
Заблокирован
27.11.2011, 11:14 #3
Цитата Сообщение от VIG Посмотреть сообщение
с помощью функциями функции InputBox
А зачем нужен InputBox, если проще и быстрее непосредственно заполнить сам TextBox1?
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
 
Private Sub UserForm_Click()
Const bukvy = "БВГДЖЗКЛМНПРСТФХЦЧШЩ"
Dim a$(), i&, j&, c&, t$
a = Split(TextBox1.Text, vbLf)
For i = 0 To UBound(a)
  c = 0
  For j = 1 To Len(a(i))
    If Mid$(a(i), j, 1) = " " Then Exit For
    c = c - (InStr(1, bukvy, Mid$(a(i), j, 1), vbTextCompare) > 0)
  Next j
  a(i) = Format$(c, "000") & a(i)
Next i
For i = 0 To UBound(a) ' - 1
  For j = UBound(a) To i + 1 Step -1
    If a(i) > a(j) Then
      t = a(i)
      a(i) = a(j)
      a(j) = t
    End If
  Next j
  a(i) = Mid$(a(i), 4)
Next i
TextBox1.Text = Join(a, vbLf)
End Sub
 
Private Sub UserForm_Initialize()
Me.Width = 800
Me.Height = 600
TextBox1.Left = 0
TextBox1.Top = 0
TextBox1.Width = Me.Width - 20
TextBox1.Height = Me.Height - 20
TextBox1.MultiLine = True
TextBox1 = "Введите фамилии, имена и возраст." & vbLf & "[Shift]+[Enter] - новая строка" & vbLf & "Клик по форме - сортировка"
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End Sub
0
VIG
193 / 9 / 0
Регистрация: 05.10.2010
Сообщений: 309
27.11.2011, 17:29  [ТС] #4
А если при нажатии кнопки "Ввод данных", данные (фамилия, имя, дата рождения) при помощи функции InputBox занести в текстовое поле TextBox1, а затем фамилии вывести в TextBox2 по возрастанию. Как это сделать?
0
Ципихович Эндрю
1357 / 315 / 16
Регистрация: 10.04.2009
Сообщений: 4,810
27.11.2011, 17:43 #5
Цитата Сообщение от VIG Посмотреть сообщение
а затем фамилии вывести в TextBox2 по возрастанию. Как это сделать?
одним кликом не получится, или нужен Ричтекстбокс, или одним кликом, но появляться будут через время, или на лист, что не нравится??
0
VIG
193 / 9 / 0
Регистрация: 05.10.2010
Сообщений: 309
27.11.2011, 18:04  [ТС] #6
Точно. Там ещё одна кнопка для вывода фамилий по возрастанию в компонент TextBox2.

Добавлено через 12 минут
Если так сделать?
0
Ципихович Эндрю
1357 / 315 / 16
Регистрация: 10.04.2009
Сообщений: 4,810
27.11.2011, 18:05 #7
сделайте, расскажите, ОК??
0
VIG
193 / 9 / 0
Регистрация: 05.10.2010
Сообщений: 309
27.11.2011, 18:19  [ТС] #8
А может вы подскажите как сделать? А то я эту тему только в первый раз начал проходить.
0
Ципихович Эндрю
1357 / 315 / 16
Регистрация: 10.04.2009
Сообщений: 4,810
27.11.2011, 18:33 #9
Цитата Сообщение от VIG Посмотреть сообщение
Задать фамилии, имена и возраст с помощью функциями функции InputBox
это муторно, ладно бы одну, а то фамилии, имена, сколько 100 или 120??
0
VIG
193 / 9 / 0
Регистрация: 05.10.2010
Сообщений: 309
27.11.2011, 18:37  [ТС] #10
До 10 фамилий достаточно.
0
Ципихович Эндрю
1357 / 315 / 16
Регистрация: 10.04.2009
Сообщений: 4,810
27.11.2011, 18:39 #11
поднимите мне веки..., мне две тяжко вводить, а Вы про 10-ть
0
Апострофф
27.11.2011, 19:30
  #12

Не по теме:

Театр абсурда для слепоглухонемых?
Зачем InputBox, TextBox2?
Всё сделано было на одном TextBox1

0
VIG
193 / 9 / 0
Регистрация: 05.10.2010
Сообщений: 309
27.11.2011, 19:33  [ТС] #13
Там надо так сделать: нажал на кнопку Ввод данных выходит окошко от InputBox "введите фамилию" ввели, затем "введите имя" ввели, "введите дату рождения" опять ввели. И фамилия, имя, дата рождения должны выводиться через пробел в компонент TextBox1, затем при нажатии кнопки "Вывод фамилий по возрастанию" вывести фамилии(введенные в компоненте TextBox1) по возрастанию числа согласных букв в компонент TextBox2. Помогите пожалуйста сделать. Очень буду благодарен.
0
Ципихович Эндрю
1357 / 315 / 16
Регистрация: 10.04.2009
Сообщений: 4,810
27.11.2011, 19:42 #14
1 это ВБ или ВБА?
если ВБА выкладывайте файл с формой, если ВБ - проект
0
VIG
193 / 9 / 0
Регистрация: 05.10.2010
Сообщений: 309
27.11.2011, 19:47  [ТС] #15
Это ВБА
0
Вложения
Тип файла: 7z Лабораторная работа №7.7z (17.9 Кб, 32 просмотров)
27.11.2011, 19:47
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.11.2011, 19:47
Привет! Вот еще темы с ответами:

Сравнение элементов с данными в TextBox и вывод строки(строк) - VBA
Товарищи, объявилась следующая проблема, не знаю как провернуть такую задачку: пользователь вводит в 2 поля textbox свои значения. Далее...

Редактирование данных в TextBox - VBA
Люди добрые, помогите понять, как реализовать такую штуку: Есть таблица на рабочем листе, в ней колонка с временем приема врачей. В форме...

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

Ввод числовых данных в TextBox - VBA
Подскажите пожалуйста, как сделать так чтобы в поле TextBox можно было вводить числа от -999 до 999. В случае если число меньше -999 и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.