Ввод данных на лист средствами VBA через форму

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод данных на лист средствами VBA через форму (Макросы/Sub)

combat

Дата: Пятница, 20.11.2015, 22:11 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 50

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Как реализовать, необходимо через форму средствами пяти техтбоксов набрать предложение в объединённой ячейке листа
Температура ХХ,Х гр. С, давление ХХХ,Х кПа, Влажность ХХ %, Напряжение ХХХ,Х В, частота ХХ,Х Гц
где Х данные текстбокса, причем предложение может быть из 5 параметров (всех) или меньше, если Х пусто
Пример: Температура 20 гр. С, Влажность 53 % только два параметра первый и третий
или Давление 102 кПа, частота 50,5 Гц, второй и пятый
или все 5 параметров, т.е Температура 20 гр. С, Давление 102 кПа, Влажность 53 %, Напряжение 221,5 В, частота 50,0 Гц
как вставить в текст макроса градус в виде 0 в верхнем регистре, что бы не писать гр.С

Ответить

combat

Дата: Пятница, 20.11.2015, 23:10 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 50

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Все сделал, файл 555

К сообщению приложен файл: 555.xlsm (22.1 Kb)

Ответить

_Boroda_

Дата: Пятница, 20.11.2015, 23:34 | Сообщение № 3

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Такой вариант
[vba]

Код

Private Sub CommandButton1_Click()
    If TextBox1 <> "" Then a1_ = ", Температура " & TextBox1 & "°С"
    If TextBox2 <> "" Then a2_ = ", Давление " & TextBox2 & "кПа"
    If TextBox3 <> "" Then a3_ = ", Влажность " & TextBox3 & "%"
    If TextBox4 <> "" Then a4_ = ", Напряжение " & TextBox4 & "В"
    If TextBox5 <> "" Then a5_ = ", Частота " & TextBox5 & "Гц"
    z_ = Mid(a1_ & a2_ & a3_ & a4_ & a5_, 2, 999)
    Range("B2") = z_
    Unload UserForm1
End Sub

[/vba]
° - это 176-й символ ANSI

К сообщению приложен файл: 555_1.xlsm (23.8 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995