VBA TextBox

@aqroog · Регистрация: 14.12.2017

Author24 — интернет-сервис помощи студентам

Добрый день уважаемые форумчане!
Помогите пожалуйста решить проблему..

Как сделать так, чтобы из одного Textbox'a..
..выводились данные не повторяясь(осуществлялась проверка растущего диапазона столбца).

Вот немножко кода, может можно его исправить

И как-то сюда нужно правильно запихнуть цикл FOR, но не имею понятия даже

Visual Basic

Dim k As Integer
Private Sub UserForm_Activate()
Dim i As Integer
i = 1
Do While ThisWorkbook.Sheets(1).Cells(i, 1).Text <> ""
i = i + 1
Loop
 
k = i
 
End Sub
Private Sub CommandButton1_Click()
 
Cells(k, 2).Value = TextBox1.Text
k = k + 1
 
If Cells(k - 1, 2).Value = Cells(k, 2).Value = TextBox1.Text Then
MsgBox "Одинаковые"
Else
Cells(k, 2).Value = TextBox1.Text
End If
End Sub

~~Остап Бонд~~ · 30.10.2018, 15:37

Сообщение от aqroog

запихнуть цикл FOR

а зачем?
В Эксель есть Find.
Если найдено то
MsgBox "Одинаковые"
иначе
k = k + 1 '!!!!!
Cells(k, 2).Value = TextBox1.Text
конец если.

@aqroog · 30.10.2018, 16:09 **[ТС]**

Хорошо, спасибо большое, теперь он работает правильно, но мне нужно, чтобы он проверял весь столбец.. Который постепенно увеличивается, с добавлением нового значения. Как это можно осуществить, если не через цикл FOR? А так, он проверяет только предыдущее значение.

Visual Basic

Private Sub CommandButton1_Click()
 
Cells(k, 2).Value = TextBox1.Text
 
If (Cells(k - 1, 2).Value = TextBox1.Text) = _
            (Cells(k, 2).Value = TextBox1.Text) Then
Cells(k, 2).Delete
Else
k = k + 1
End If
 
End Sub

~~Остап Бонд~~ · 30.10.2018, 16:28

aqroog,
почему в Private Sub UserForm_Activate() смотрите первый столбец первого листа, _
а на кнопке Private Sub CommandButton1_Click() - второй активного?
1<>2 и первый лист далеко не всегда активен.

@Narimanych · 30.10.2018, 16:29

aqroog,

Если важно

Сообщение от aqroog

через цикл FOR

, то как вариант для столбца "А"

Visual Basic

Private Sub CommandButton1_Click()
LR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LR
If TextBox1.Text = Cells(i, 1).Value Then
MsgBox " THIS TEXT ALREADY EXISTS"
TextBox1.Text = ""
Exit Sub
Else
Cells(LR + 1, 1).Value = TextBox1.Text
End If
Next
 
End Sub

~~Остап Бонд~~ Заблокирован
	30.10.2018, 15:37	2
	Сообщение от aqroog запихнуть цикл FOR а зачем? В Эксель есть Find. Если найдено то MsgBox "Одинаковые" иначе k = k + 1 '!!!!! Cells(k, 2).Value = TextBox1.Text конец если. 1

~~Остап Бонд~~ Заблокирован
	30.10.2018, 16:28	4
	aqroog, почему в Private Sub UserForm_Activate() смотрите первый столбец первого листа, _ а на кнопке Private Sub CommandButton1_Click() - второй активного? 1<>2 и первый лист далеко не всегда активен. 0

	30.10.2018, 16:29