Вопрос № 124313: доброй ночи.
Вопрос такой.
Какой функцией можно центрировать экран на какой нить ячейке. Поясню на примере. Я в каком нить textbox`e в форме пишу, ну скажем номер ячейки. Эта ячейка находится за скролом, в общем её не видно на экране. К...Вопрос № 124314: Доброй ночи.
VBA EXEL.
Например я использую Range("x").select ...
где х число константа. Но как сделать, что бы это число можно было изменять из программы.
грубо говоря,
x=10
Range("x").select...Вопрос № 124379: Подскажите пожалуйста, как мне из модуля изменить свойства Caption у Label объектов находящихся в тексте (работаем в Word'е), помещенных туда с помощью панели инструментов: Элементы управления. Пример: среди текста имеются Label 1, Label2..... и т.д....Вопрос № 124435: Добрый день. Столкнулся с небольшой проблемой. Суть такова: есть текстовое поле, туда вводиться любое число
X. При этом идёт проверка, что если число не введено вообще, выводиться MessageBox с предупреждением, а также, если введен недопустимый символ...
Вопрос № 124.313
доброй ночи.
Вопрос такой.
Какой функцией можно центрировать экран на какой нить ячейке. Поясню на примере. Я в каком нить textbox`e в форме пишу, ну скажем номер ячейки. Эта ячейка находится за скролом, в общем её не видно на экране. Как переместить "взор" так сказать, на ту область где находится это ячейка.
И вопрос еще, как сделать определённую ячейку активной, на которой стоит курсор
Спасибо большое заранее.
Приложение:
Отправлен: 22.02.2008, 02:17
Вопрос задал: yazzer (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Коровин Александр
Здравствуйте, yazzer!
Попробуйте Range("Z40").Select
Вообще очень помогает следующий метод: включаете запись макроса, делаете интересующее вас действие, а затем смотрите код в редакторе VBA.
Ответ отправил: Коровин Александр (статус: 2-ой класс)
Ответ отправлен: 22.02.2008, 07:52
Отвечает: Genyaa
Здравствуйте, yazzer!
см. справку VBA по методам
SmallScroll Method
LargeScroll Method
--------- Всякое решение плодит новые проблемы.
Ответ отправил: Genyaa (статус: Студент)
Ответ отправлен: 22.02.2008, 08:07
Отвечает: din
Здравствуйте, yazzer! Метод Goto объекта Application решает Вашу проблему Application.Goto Reference:=Worksheets("Имя листа").Range("A204"), scroll:=True если параметр Scroll равен True, то указанная ячейка будет в левом верхнем углу. Можно использовать прямые ссылки на ячейки текущего листа в стиле R1C1 Дальше разберетесь, удачи!
--------- Есть только одно зло - невежество, и только одно благо - знания
Ответ отправил: din (статус: Специалист)
Ответ отправлен: 22.02.2008, 11:00
Вопрос № 124.314
Доброй ночи.
VBA EXEL.
Например я использую Range("x").select ...
где х число константа. Но как сделать, что бы это число можно было изменять из программы.
грубо говоря,
x=10
Range("x").select
Отправлен: 22.02.2008, 02:28
Вопрос задал: yazzer (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Коровин Александр
Здравствуйте, yazzer!
Можно использовать альтернативную запись адреса ячейки:
Range("A3").Select или Calls(1,3).Select и вместо цифр использовать переменные.
Ответ отправил: Коровин Александр (статус: 2-ой класс)
Ответ отправлен: 22.02.2008, 08:00
Вопрос № 124.379
Подскажите пожалуйста, как мне из модуля изменить свойства Caption у Label объектов находящихся в тексте (работаем в Word'е), помещенных туда с помощью панели инструментов: Элементы управления. Пример: среди текста имеются Label 1, Label2..... и т.д., добавленные с помощью панели инструментов: Элементы управления, нажимаем выполнить, к примеру , "макрос1" а этот макрос меняет свойство Caption каждого Label. За любой ответ заранее премного благодарен!
Отправлен: 22.02.2008, 14:45
Вопрос задал: Egor533 (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Коровин Александр
Здравствуйте, Egor533!
С таким случаем я еще не сталкивался, но могу посоветовать следующий прием: включаете запись макроса, выполняете какие-то, нужные Вам действия, смотрите код. Я постоянно пользуюсь этим методом, если чего-то не получается.
Ответ отправил: Коровин Александр (статус: 2-ой класс)
Ответ отправлен: 22.02.2008, 15:19
Отвечает: Талипов А Н
Здравствуйте, Egor533!
За vba ручаться не могу, но на vb6 это делается просто.
form1.label1.caption = "новый лэйбл"
где:
form1 - имя вашей формы.
label1 - имя вашего лэйбла.
caption - соответствующее свойство.
"новый лэйбл".
- текст который вы хотели показать.
form1 и другие формы - почти теже самые классы и с ними нужно поступать так же, как и с другими объектами классов.
Если вы хотите сразу работать с несколькими элементами формы, то можно заключить в with, примерно так:
with form1
label1.caption="имя"
.label2.caption="отчество"
.label3.caption="фамилия"
end with
И не забываем про точки в начале строки. Она показывает на то, что используется именно form1, который объявлен после слова with.
Надеюсь мой ответ вам помог.
--------- Всё будет так, как должно быть, даже если будет иначе.
Ответ отправил: Талипов А Н (статус: 5-ый класс)
Ответ отправлен: 22.02.2008, 18:42
Вопрос № 124.435
Добрый день. Столкнулся с небольшой проблемой. Суть такова: есть текстовое поле, туда вводиться любое число X. При этом идёт проверка, что если число не введено вообще, выводиться MessageBox с предупреждением, а также, если введен недопустимый символ, например, буква, также выводиться MessageBox, при этом используеться функция IsNumeric. Но! Теперь дробные числа перестали восприниматься как числа. Я понял, что это свойство функции IsNumeric. Вопрос: какой функцией можно заменить IsNumeric, чтобы дробные числа
допускались? Спасибо.
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Лихацкий Виталий Игоревич!
Образец обработчика цифрового ввода в приложении.
Евгений.
Приложение:
Ответ отправил: Тесленко Евгений Алексеевич (статус: Студент)
Ответ отправлен: 23.02.2008, 23:57 Оценка за ответ: 5 Комментарий оценки: большое спасибо за помощь!
ваш ответ мне действительно помог, удовлетворив мой запрос на 100%
Отвечает: Черников Игорь Владимирович
Здравствуйте, Лихацкий Виталий Игоревич!
Dim Точка As Boolean
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And Not Chr(KeyAscii) = "." Then KeyAscii = 0
If Chr(KeyAscii) = "." Then
If Точка = True Then KeyAscii = 0
Точка = True
End If
End Sub
--------- От каждого по способностям, каждому по труду
