refedit



Vba refedit

Автор Ольга Марова задал вопрос в разделе Другие языки и технологии

VBA Excel. Мелочь. Исправить границы цикла. Диапазон вводится с помощью RefEdit с пользовательско формы. Есть файл!!! и получил лучший ответ

Ответ от Mr.D[гуру]
Private Sub CommandButton1_Click()
Dim summ As Double
summ = 0
num_stolbca = 1
While num_stolbca <= Val(TextBox1.Value)
If num_stolbca Mod 2 <> 0 Then
num_stroki = 1
While num_stroki <= Val(TextBox2.Value)
summ = summ + Val(Cells(num_stroki, num_stolbca))
num_stroki = num_stroki + 1
Wend
End If
num_stolbca = num_stolbca + 1
Wend
MsgBox (summ)
End Sub
Mr.D
Просветленный
(36745)
без понятия ))
поищите на форумах примеры работы с RefEdit... я даже не знаю что это такое ))

Ответ от Пьяный пират[гуру]
ну вот так тогда.. ))
Private Sub CommandButton1_Click()
Dim summ As Double
Dim MyRange As Range
If RefEdit1.Value = "" Then
MsgBox "Пожалуйста, выделите диапазон"
Else
Set MyRange = Range(RefEdit1.Value)
Start_stroka = MyRange.Item(1, 1).Row
Start_stolbec = MyRange.Item(1, 1).Column
End_stroka = (Start_stroka - 1) + MyRange.Rows.Count
End_stolbec = (Start_stolbec - 1) + MyRange.Columns.Count
summ = 0
num_stolbca = Start_stolbec
While num_stolbca <= End_stolbec
If num_stolbca Mod 2 <> 0 Then
num_stroki = Start_stroka
While num_stroki <= End_stroka
summ = summ + Val(Cells(num_stroki, num_stolbca))
num_stroki = num_stroki + 1
Wend
End If
num_stolbca = num_stolbca + 1
Wend
MsgBox (summ)
End If
End Sub

Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: VBA Excel. Мелочь. Исправить границы цикла. Диапазон вводится с помощью RefEdit с пользовательско формы. Есть файл!!!
спросили в LibreOffice
Народ подскажите! чем отличаются VBA и VBS 🙂
Visual Basic Application (VBA)
входит в состав Excel, Word, Access, MS Outlook, Power Point,
подробнее...
спросили в GNOME Office
VBA EXCEL. Где найти список формул по английски??? чтоб потом вписывать формулы через VBA.
в справке VBA строка поиска: list function

Excel 2007 Developer Reference > Concepts
подробнее...

Pinnacle Studio 17.6 Ultimate VPP 2014 Установка
да это установочный файл неполноценный... найди другой, а лучше поставь Авид студию, это тот же
подробнее...
спросили в RFID Rhabditida
Привет всем! soooooos!!! подскажите, пожалуйста, знаете ли что-нибудь о программе Twitch robot и им подобные?
Когда вы все поймете раз и навсегда, что деньги из воздуха не делаются. Они делаются только за счет
подробнее...
спросили в Порше
Ваш топ 5 машин?
1)Бугати
2)Лаборджини
3)Ферари
4)Порш
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:

Как устроиться в салон красоты без опыта работы после курсов? Мастер маникюра, педикюра, наращивания ногтей.
Таких вакансий полно! Просто это будет не VIP-салон, а парикмахерская эконом класса. Поработаете
подробнее...

Работа администратором в клубе.
в каком клубе? Ночник? Интернет клуб? итп

Ночник: в задачи администратора ночного клуба
подробнее...
спросили в Интернет
кинокопилка (залить фильм)
Во первых это не сайт, а торрент трекер. Чтобы получить статус uploader, необходимо обратиться к
подробнее...
спросили в Интернет Denuvo
Не работает JavaScript
Cамая полная коллекция скриптов для браузера Opera 9.6 удобное скачивание с файлообменниковподробнее...
спросили в Другое
как правильно заполнить анкету при трудоустройстве?
Что написано в резюме… и что вы узнаете
на собеседовании

Образование: высшее.
подробнее...

Почему интернет на windows 8 не работает
....интернет-то на Windows 8 RP работает, если установить драйвер сетевой карты и настроить
подробнее...

Как запустить whatsapp web на компьютере?!
Привет!
А разве нужна камера именно для WhatsApp Web?...
Вот статья
Там просто нужно
подробнее...

WhatsApp Web не работает?
Добрый день.
Думаю, просто стерлась синхронизация. Вы же все почистили в браузере, а
подробнее...

Веб-камера SVEN IC-525. Не устанавливаются драйвера.
драйвера хр несовместимы с 7ой. винда ставит подходящие по типу. поставьте Driver Booster илиподробнее...
спросили в Borland Бейсик
помогите скачать бейсик!!!!1
В первую очередь - какой нужен Бейсик!! !

1986 BASIC-86 (\"Вильнюс\" для БК-0010/БК-0011 и
подробнее...
 

Ответить на вопрос:

Имя*

E-mail:*

Текст ответа:*
Проверочный код(введите 22):*