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
ну вот так тогда.. ))
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,
подробнее...
Народ подскажите! чем отличаются 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
подробнее...
VBA EXCEL. Где найти список формул по английски??? чтоб потом вписывать формулы через VBA.
в справке VBA строка поиска: list function
Excel 2007 Developer Reference > Concepts
подробнее...
Pinnacle Studio 17.6 Ultimate VPP 2014 Установка
да это установочный файл неполноценный... найди другой, а лучше поставь Авид студию, это тот же
подробнее...
спросили в RFID Rhabditida
Привет всем! soooooos!!! подскажите, пожалуйста, знаете ли что-нибудь о программе Twitch robot и им подобные?
Когда вы все поймете раз и навсегда, что деньги из воздуха не делаются. Они делаются только за счет
подробнее...
Привет всем! soooooos!!! подскажите, пожалуйста, знаете ли что-нибудь о программе Twitch robot и им подобные?
Когда вы все поймете раз и навсегда, что деньги из воздуха не делаются. Они делаются только за счет
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
Как устроиться в салон красоты без опыта работы после курсов? Мастер маникюра, педикюра, наращивания ногтей.
Таких вакансий полно! Просто это будет не VIP-салон, а парикмахерская эконом класса. Поработаете
подробнее...
Работа администратором в клубе.
в каком клубе? Ночник? Интернет клуб? итп
Ночник: в задачи администратора ночного клуба
подробнее...
спросили в Интернет
кинокопилка (залить фильм)
Во первых это не сайт, а торрент трекер. Чтобы получить статус uploader, необходимо обратиться к
подробнее...
кинокопилка (залить фильм)
Во первых это не сайт, а торрент трекер. Чтобы получить статус uploader, необходимо обратиться к
подробнее...
спросили в Интернет Denuvo
Не работает JavaScript
Cамая полная коллекция скриптов для браузера Opera 9.6 удобное скачивание с файлообменников
подробнее...
Не работает 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 и
подробнее...
помогите скачать бейсик!!!!1
В первую очередь - какой нужен Бейсик!! !
1986 BASIC-86 (\"Вильнюс\" для БК-0010/БК-0011 и
подробнее...