Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Basic


Ответ
 
Опции темы Опции просмотра
Старый 21.02.2010, 16:37   #1 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
По умолчанию Нужна помощь с Visual Basic

Ситуация следующая: имеется лист MS Excel. В редакторе MS Visual Basic необходимо написать скрипт, что бы при нажатии на кнопку (кнопка расположена на листе, а не на форме) выполнялись сл.действия:

если выделенная (активная) ячейка находится в диапазоне A1:A15, то
если ячейка пуста,
то эту ячейку необходимо заполнить цифрой (например, 8);
иначе ничего не делать;
иначе ничего не делать;

Методом тыка и копирования текстов макроса, удалось написать сл. код:
Код:
Private Sub CommandButton1_Click()
ActiveCell.Select
ActiveCell.FormulaR1C1 = "8"
Selection.AutoFill Destination:=ActiveCell.Range("A1:A15"), Type:= _
        xlFillDefault
ActiveCell.Range("A1:A15").Select
End Sub
он заполняет 15 ячеек, начиная с активной, цифрами. Выполнить проверку на адрес выделенной ячейки не удалось.
Вопрос: Как реализуется проверка адреса?
Кроме этого, буду благодарен за любую помощь по данному вопросу
Вложения
Тип файла: zip VB 1.zip (10.6 Кб, 0 просмотров)
MrSTEP вне форума   Ответить с цитированием

Старый 21.02.2010, 16:37
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Наверняка вам будет полезна информация которая содержится в данных обсуждениях

Создание программ в среде Visual Basic 6.0
Задача по Visual Basic
Visual Basic 2008 программирование очень нужна помощь

Старый 07.03.2010, 16:24   #2 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
По умолчанию

Жалко, что никто из форумчан не знаком с ВБ. Но время на сдачу задания истекло, и за то, что я сделал, получил оценку. Вопрос более не актуален, хотя ради собственного интереса посмотрел бы на решение задачи
MrSTEP вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 14:42.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.