|
|
|
Вопрос!
|
|||
|---|---|---|---|
|
#18+
В общем тут такое задание, не могу реализовать никак, прошу помощи ))) Суть состоит в том, чтобы в TextBox1 (текстовом окне) отображалась информация в виде "Да" или "Нет" а это зависит от того, будет ли ячейка B1<B5 и наоборот, я поступил так: Private Sub TextBox1_Change() If Cells(1, 2) < Cells(5, 2) Then TextBox1.Text = "Yoh" ElseIf Cells(1, 2) > Cells(5, 2) Then TextBox1.Text = "No" End If End Sub Но что-то не получется, я знаю, что я ньюб, но всё же, кажется что проблема в Private Sub TextBox1_Change(), вроде так, помогите найти аналог, чтоб всё грамотно выводилось и обьсните пожалуйста ))) Заранее благодарен! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.06.2006, 12:45 |
|
||
|
Вопрос!
|
|||
|---|---|---|---|
|
#18+
Вам нужно разместить код в обработчике листа, а не TexBox . Код: plaintext 1. 2. 3. 4. 5. 6. 7.  ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.06.2006, 14:25 |
|
||
|
Вопрос!
|
|||
|---|---|---|---|
|
#18+
big-duke спасибо за макрос, но я так уже пытался, он выдаёт ошибку - Ambiguous name detected : Woerksheet_Change Т.к. у меня есть ещё один макрос, с которым это вот надо было обьединить, он ищет процент по моему и выглядит так: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$4" Then SpinButton1.Value = CInt(100 * Range("B4").Value) End If End Sub Нужно как то синтезировать то, что ты написал, с этим? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.06.2006, 14:55 |
|
||
|
Вопрос!
|
|||
|---|---|---|---|
|
#18+
ААААААААААА, всё вставил, всё работает, выглядит так: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$4" Then SpinButton1.Value = CInt(100 * Range("B4").Value) End If If Cells(1, 2) < Cells(5, 2) Then TextBox1.Text = "Yoh" ElseIf Cells(1, 2) > Cells(5, 2) Then TextBox1.Text = "No" End If End Sub Ещё раз спасибо, и если не трудно, посните вот эту строку: Private Sub Worksheet_Change(ByVal Target As Range) И оператор ByVal ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.06.2006, 14:58 |
|
||
|
Вопрос!
|
|||
|---|---|---|---|
|
#18+
FeanorЕщё раз спасибо, и если не трудно, посните вот эту строку: Private Sub Worksheet_Change(ByVal Target As Range) И оператор ByVal Change - это событие объекта Worksheet, которое генерируется при изменении данных. При передаче параметра с помощью ключевого слова ByVal (передача параметра по значению), в процедуру попадает не сама переменная, а ее значение, в отличие от передачи по ссылке. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.06.2006, 08:56 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=33770462&tid=2165767]: |
0ms |
get settings: |
9ms |
get forum list: |
25ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
169ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
55ms |
get tp. blocked users: |
2ms |
| others: | 219ms |
| total: | 497ms |
| 0 / 0 |
