Есть столбец F c символами, и столбец G с числами: Моя задача обьеденить их.
НО! нужно проверить: сколько в Г чисел, если 6, то между обьединениями ставить "0", если 5 ставить "00", если 4 то "000". Я написал код, но чего то я делаю видимо неправильно =(. Помогите исправить и улучшить.
Sub Func02()
' Îáüåäèíåíèå 2 òåêñòîâ
'
Dim Counter As Integer
Dim string1 As String
Dim string2 As String
Dim lenGx
Counter = 0
While Counter < 20 ' ×èñëî ñòðîê îáðàáîòêè.
Counter = Counter + 1 'äëÿ öèêëà +1.
string1 = "H" & CStr(Counter)
Range(string1).Select
string2 = ActiveCell.Text
lenGx = Len(ActiveCell.Text)
If lenGx = 7 Then
ActiveCell.FormulaR1C1 = "=RC[-2]&RC[-1]"
ElseIf lenGx = 6 Then
ActiveCell.FormulaR1C1 = "=RC[-2]&""0""&RC[-1]"
ElseIf lenGx = 5 Then
ActiveCell.FormulaR1C1 = "=RC[-2]&""00""&RC[-1]"
ElseIf lenGx = 4 Then
ActiveCell.FormulaR1C1 = "=RC[-2]&""000""&RC[-1]"
ElseIf lenGx = 3 Then
ActiveCell.FormulaR1C1 = "=RC[-2]&""0000""&RC[-1]"
ElseIf lenGx = 2 Then
ActiveCell.FormulaR1C1 = "=RC[-2]&""00000""&RC[-1]"
ElseIf lenGx = 1 Then
ActiveCell.FormulaR1C1 = "=RC[-2]&""000000""&RC[-1]"
ElseIf lenGx = 0 Then ActiveCell.FormulaR1C1 = "=RC[-2]&RC[-1]"
End If
ActiveCell.Text = "RC[-2] & RC[-1]"
Wend ' ÊÎÍÅÖ WHILE(öèêëà)
End Sub
Примечание:
на послецний ActiveCell.Text = "RC[-2] & RC[-1]" не обрашайте внимания,
это было для проверки
Примечание:
М. Алексей (Алексей Матевосов): Большое спс, это работает.
тока еще вопросик: дабы автоматизировать этот продукт, можно ли сделать так, что пользователь ввел необходимые ячейки(или выделил).
спс большое
Примечание:
Когда я испльзую: СЛУЧМЕЖДУ(1,999999) в слобце "Г", то после использования макроса, значения в "Г" и "Х" разные =(,
это можно исправить?
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.