добавяне данни в комбобокс...
1 отговора
0 прегледа
добавяне данни в комбобокс...
Пробвах с присвояване на променлива на MSGbox,примерно dim k as string
k- Msgbox( )
if i =0 then k
if k=vbyes then ...... и тук поставям кода който ми трябва, но нещо не става ,каде бъркам
Private Sub CommandButton1_Click()
i = 0
For Each cell In Sheets("Данни").Range("a:a")
If ComboBox1.Text = cell Then i = i + 1
Next
If i = 0 Then MsgBox ("Въведеният текст") & " " & (ComboBox1.Text) & " " & ("не съществува в база данни. Натиснете бутона Yes за да го добавите, No за отказ. "), vbYesNo, ComboBox1
End Sub
Как да разпознае,че е натиснат бутона Yes, след което при натискане на бутона Yes текста да се запише в лист("данни), а ако е натиснат бутона NO, нищо .
k- Msgbox( )
if i =0 then k
if k=vbyes then ...... и тук поставям кода който ми трябва, но нещо не става ,каде бъркам
Private Sub CommandButton1_Click()
i = 0
For Each cell In Sheets("Данни").Range("a:a")
If ComboBox1.Text = cell Then i = i + 1
Next
If i = 0 Then MsgBox ("Въведеният текст") & " " & (ComboBox1.Text) & " " & ("не съществува в база данни. Натиснете бутона Yes за да го добавите, No за отказ. "), vbYesNo, ComboBox1
End Sub
Как да разпознае,че е натиснат бутона Yes, след което при натискане на бутона Yes текста да се запише в лист("данни), а ако е натиснат бутона NO, нищо .
Re: добавяне данни в комбобокс...
Private Sub CommandButton1_Click()
Dim NotFound as Boolean
NotFound = True
For Each cell In Sheets("Данни").Range("a:a")
If ComboBox1.Text = cell Then
NotFound = False
exit for ' За да не обхождаш всички редове, ако вече има съвпадение
End If
If IsEmpty(cell) Then Exit For ' Това го остави, ако нямаш празни клетки в данните в колона А - макросът ще върви _
по-бързо, защото няма да обхожда празните редове след края на таблицата
Next
If NotFound Then
Answer = MsgBox ("Въведеният текст" & " " & ComboBox1.Text & " " & _
"не съществува в база данни. Натиснете бутона Yes за да го добавите, No за отказ. ", _
vbYesNo, ComboBox1.Text)
End If
If Answer = vbYes Then
' кодът за Yes
Else
' кодът за No
End If
End Sub