Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
andman
0 / 0 / 0
Регистрация: 24.04.2014
Сообщений: 15
#1

Как перебрать ячейки строки - VBA

21.07.2015, 19:32. Просмотров 698. Ответов 4
Метки нет (Все метки)

Visual Basic
1
2
3
4
5
6
7
8
    For Each Myrow In workrange.Rows
        For Each c In Myrow
            If Not IsEmpty(c.Value) Then
                Debug.Print (c.Value.Text())
                
            End If
        Next c
    Next Myrow
Компилятор ругается на строку Debug... c вердиктом object required
Перебор мне нужен именно такой, с двумя вложенными for each.
Как получить значение ячейки?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.07.2015, 19:32
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Как перебрать ячейки строки (VBA):

Как перебрать все непустые ячейки в Excel? - VBA
Вот собственно

В заданном диапазоне перебрать строки, ограниченные этим диапазоном - VBA
В заданном диапазоне получить Range каждой отдельной строки в пределах этого диапазона. Например, имеем Range("A1:G3") Нужно...

Как удалить те строки, в которых объедены ячейки - VBA
Здравствуйте! столкнулся со следующей проблемой: Во время работы этого цикла не хотят удаляться те строки, в которых ячейки объедены? Как...

Как получит номер строки выделенной ячейки? - VBA
Подскажите как получит номер строки выделенной ячейки. Заранее благоларю за помощь!

Как по адресу ячейки определить номер соответствующей строки? - VBA
У меня программа выполняет поиск по заданному значению. Находит искомую ячейку. Определяется ее адрес. И далее мне надо как-то узнать номер...

Как узнать номер строки для активной ячейки? - VBA
Как узнать номер строки для активной ячейки? спасибо

4
pashulka
2146 / 1020 / 414
Регистрация: 01.12.2010
Сообщений: 2,155
21.07.2015, 19:41 #2
Visual Basic
1
2
3
4
5
6
7
8
9
For Each Myrow In workrange.Rows
    For Each c In Myrow.Cells
        If Not IsEmpty(c) Then
           Debug.Print c.Value   'Значение
           Debug.Print c.Text    'Текст
           Debug.Print c.Formula 'Формула
        End If
    Next c
Next Myrow
0
andman
0 / 0 / 0
Регистрация: 24.04.2014
Сообщений: 15
21.07.2015, 21:33  [ТС] #3
Debug.Print c.Value 'Значение
Debug.Print c.Text 'Текст
Debug.Print c.Formula 'Формула
Это всё не работет.
c.value : type mismatch
c.text : значение всегда null
0
pashulka
2146 / 1020 / 414
Регистрация: 01.12.2010
Сообщений: 2,155
21.07.2015, 21:37 #4
Разницу видите ?

Цитата Сообщение от andman Посмотреть сообщение
For Each c In Myrow
Цитата Сообщение от pashulka Посмотреть сообщение
For Each c In Myrow.Cells
0
andman
0 / 0 / 0
Регистрация: 24.04.2014
Сообщений: 15
22.07.2015, 06:06  [ТС] #5
Прошу прощения, не заметил сразу.
0
22.07.2015, 06:06
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.07.2015, 06:06
Привет! Вот еще темы с ответами:

Как из адреса ячейки получить просто номер строки? - VBA
Sub key() Dim rows As String Dim arr() As String rows = Range(Selection.Address).Address(0, 0) arr = Split(rows, ",") ...

Как копировать отдельные слова из ячейки в соседние строки - VBA
Подскажите пожалуйста как разбить содержимое ячейки по определенным ячейкам если слова в ячейке разделены пробелом? А то я пробовал ...

Разбить текст ячейки (строки), содержащий разделитель, на строки макросом - VBA
Необходимо разбить текст в ячейке (с разделителями "Alt+Enter") на отдельные строки

Как задать значение для ячейки в зависимости от значения другой ячейки - VBA
Здравствуйте! Подскажите, как задать значение для ячейки в зависимости от значения другой ячейки. Есть таблица с ячейками. Если значение...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.