Граматика

[systemmind]

Подскажите пожалуйста, как правильно написать в VBA следующее:
Если ячейка1=ячейке2, то ячейка3=ячейка1+ячейка2

Зараннее благодарен.

[EducatedFool]

Sub test()
    ' Если ячейка1=ячейке2, то ячейка3=ячейка1+ячейка2

    ' если складываем целые числа, но может встретиться что-то другое
    If [a1] = [b1] Then [c1] = Val([a1]) + Val([b1])

    ' если складываем числа
    If [a1] = [b1] Then [c1] = [a1] + [b1]

    ' если складываем текстовые строки
    If [a1] = [b1] Then [c1] = [a1] & [b1]
    
    ' PS: есть некоторые нюансы при работе с дробными числами
End Sub

[systemmind]

Еще вопрос, помогите пожалуйста правильно записать цикл в VBA:

For i = 0 To 5
Если значение ячейки A1 равно значению i-той ячейке столбца B Then [c1]=[A1] Else [c1] = "Значение не найдено"
Next i

[EducatedFool]

Например, так:

Sub test()
    For i = 1 To 5
        If [a1] = Cells(i, "B") Then [c1] = [a1] Else [c1] = "Значение не найдено"
    Next i
End Sub

Обратите внимание, цикл начинается не с нуля, а с единицы.

Правильнее было бы так:

Sub test()
    [c1] = "Значение не найдено"
    For i = 1 To 5
        If [a1] = Cells(i, "B") Then [c1] = [a1]: Exit For
    Next i
End Sub

А то у Вас почти всегда будет результат "Значение не найдено"

Если в ячейке b3 значение совпадёт с a1, то в с1 будет записано значение из a1
Но при проверке следующей ячейки - b4 значение уже не совпадёт с a1, то в с1 будет записано "Значение не найдено"


И вообще, весь код можно записать в одну строку:

Sub test2()
    [c1] = IIf([OR(B1:B5=A1)], [a1], "Значение не найдено")
End Sub

А ещё лучше в данном случае использовать формулы вместо макросов.

[systemmind]

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

Например, так:

Если в ячейке b3 значение совпадёт с a1, то в с1 будет записано значение из a1
Но при проверке следующей ячейки - b4 значение уже не совпадёт с a1, то в с1 будет записано "Значение не найдено"

Да, спасибо большое. Но я просто очень сильно упростил вопрос. Дело в том, что у меня в случае, если и b3 и b4 равны a1, то значение b4 записывается уже в с2, так требует задача.

Но вот еще один вопрос, если нужно вложить IF в IF? т.е.
If ... then If ... then ... else ... else. Не будет ли путаницы в If и else? И есть ли в VBA какой-нибудь оператор, наподобие begin-а в паскале?

[EducatedFool]

если нужно вложить IF в IF

Посмотрите здесь: http://bit.pirit.info/forum/viewtopic.php?t=1497
Подробнее можно поискать здесь.

И есть ли в VBA какой-нибудь оператор, наподобие begin-а в паскале?

Нет. В VB / VBA вместо конструкции Begin ... End используется переход на новую строку (внутри конструкций типа if then else)

Дело в том, что у меня в случае, если и b3 и b4 равны a1, то значение b4 записывается уже в с2, так требует задача.

Вы бы сразу изложили условие задачи - давно бы получили ответ из нескольких строк кода, и уже изучали бы готовый макрос.

[systemmind]

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

Вы бы сразу изложили условие задачи - давно бы получили ответ из нескольких строк кода, и уже изучали бы готовый макрос.

Да)Действительно попросить кого-то было бы легче, но нет. Я не могу спихнуть свою проблему на других, не попытавшись хоть чуть-чуть в ней разобраться) Но вот, наконец, благодаря вашему форуму я, хоть немного поняв VBA, сделал следующее творение.

Задача: Есть таблица со значениями. Нужно чтобы во время ввода данных в ячейку эти данные мгновенно проверялись на наличие в этой таблице, и если таковы имеются, то они выводятся справа в столбик. При нажатии Энтер, значение из ячейки, в которую производится ввод записывалось в конец таблицы. Что у меня не выходит, так это то, что после выполнения TextBox1_KeyUp процедура TextBox1_Change() не реагирует на изменения в столбце G. Подскажите почему? И еще, как можно сделать так, что бы при условии несовпадения значения в ячейке b4 и в ячейках столбца h, ячейка с4 содержала в себе "Значение отсутствует"??

[EducatedFool]

Задание понял лишь частично.

Что у меня не выходит, так это то, что после выполнения TextBox1_KeyUp процедура TextBox1_Change() не реагирует на изменения в столбце G. Подскажите почему?

А с какой стати TextBox1 должен реагировать на изменения в ячейках столбца G ?
При изменениях на листе срабатывает Worksheet_Change, но никак не TextBox1_Change.


Посмотрите вложение.
Введите в ячейку b4 (точнее, в TextBox, расположенный над этой ячейкой), число 256

[systemmind]

Все отлично! Спасибо! Впринципе мне это и требовалось. Для меня не понятно только то, каким образом производится запись адресов в столбец d? Может в этих строчках:

Set newcell = Cells(Rows.Count, 3).End(xlUp).Offset(1)
newcell = cell: newcell.Next = cell.Address

если нет, то скажите пожалуйста, что они означают?

И еще 2 вопроса.

1. у меня еще заполнены столбцы H и I. Так вот как сделать так, чтобы значения ячеек столбца H записывлись вместо адресов ячеек слобца С? (cо столбцом I, думаю сам разберусь).

2. Как мне поступить с текстбоксом, если понадобится его перенести в другую ячейку?

Зараннее, очередной раз, спасибо)

[EducatedFool]

каким образом производится запись адресов в столбец d? Может в этих строчках:

Да, именно в этих строках.

Как мне поступить с текстбоксом, если понадобится его перенести в другую ячейку?

Перетащить его мышкой в другую ячейку, и изменить его размеры при необходимости.

Чтобы выделить текстбокс (для перетаскивания): (в Excel 2003)
1) Отображаем панель инструментов Visual Basic
2) На этой панели нажимаем кнопку Режим конструктора
3) Щёлкаем по ячейке B4
Текстбокс будет выделен.

Не забывайте, что значения из текстбокса пишутся в ячейку под ним. Так что, после переноса текстбокса, необходимо заменить все ссылки на ячейку [b4] на адрес новой ячейки.

у меня еще заполнены столбцы H и I. Так вот как сделать так, чтобы значения ячеек столбца H записывлись вместо адресов ячеек слобца С?

Для этого надо заменить строку

newcell = cell: newcell.Next = cell.Address

на строку

newcell = cell: newcell.Next = cell.Next & "  " & cell.Next.Next

Пример во вложении: