ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с Range
10 сообщений из 10, страница 1 из 1
Проблема с Range
    #37871237
frz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
frz
Гость
Добрый день!
Есть строка
Set a = Rows(1).Find("Сумма", , xlValues, xlWhole)
Как мне использовать найденный номер столбца в Range? К примеру, если слово будет найдено в столбце EF, как мне записать это все в формате Range("EF1")
...
Рейтинг: 0 / 0
09.07.2012, 10:44
| Ответить | Цитировать | Написать  
Проблема с Range
    #37871244
QValD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QValD
Участник
frzДобрый день!
Как мне использовать найденный номер столбца в Range?

a.row
...
Рейтинг: 0 / 0
09.07.2012, 10:48
| Ответить | Цитировать | Написать  
Проблема с Range
    #37871245
QValD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QValD
Участник
QValDfrzДобрый день!
Как мне использовать найденный номер столбца в Range?

a.row
ой, .column ))
...
Рейтинг: 0 / 0
09.07.2012, 10:48
| Ответить | Цитировать | Написать  
Проблема с Range
    #37871278
frz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
frz
Гость
QValD,

Range(a.Row & Str(1)) ?
ругается на несоответствие типов
...
Рейтинг: 0 / 0
09.07.2012, 11:02
| Ответить | Цитировать | Написать  
Проблема с Range
    #37871280
frz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
frz
Гость
a.Column т.е. )
...
Рейтинг: 0 / 0
09.07.2012, 11:02
| Ответить | Цитировать | Написать  
Проблема с Range
    #37871286
frz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
frz
Гость
Просто мне нужно именно с Range использовать этот столбец
...
Рейтинг: 0 / 0
09.07.2012, 11:04
| Ответить | Цитировать | Написать  
Проблема с Range
    #37871296
QValD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QValD
Участник
А, ну можно так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
    Dim ws As Excel.Worksheet
    Set ws = Worksheets(1)
    
    Dim r As Range
    Set r = ws.Range("A1")
    
    ws.Range(ws.Cells(r.Column, 1), ws.Cells(r.Column, 2)).Select
...
Рейтинг: 0 / 0
09.07.2012, 11:11
| Ответить | Цитировать | Написать  
Проблема с Range
    #37871381
frz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
frz
Гость
QValD,

Спасибо!
...
Рейтинг: 0 / 0
09.07.2012, 11:53
| Ответить | Цитировать | Написать  
Проблема с Range
    #38264617
2meteor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
2meteor
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Function finClass(rng As Range)
Dim myCell As Range
For Each myCell In rng.Cells
    If myCell.Value = 0 Then
        finClass = "не все значения!"
        Exit Function
    ElseIf UCase(myCell.Value) > finClass Then
        finClass = UCase(myCell.Value)
    End If
Next myCell
End Function



всё работает, НО! как правильно записать строку
Код: vbnet
1.
rng As Range

что бы можно было выделять НЕ связанные диапазоны? т.е. что бы была возможность добавлять новую ячейку динамически. этот алгоритм реализован в стандартной функции СУММ() когда табом добавляется новое поле в форме для ввода...

надеюсь понятно объяснил суть проблемы
...
Рейтинг: 0 / 0
20.05.2013, 14:59
| Ответить | Цитировать | Написать  
Проблема с Range
    #38266141
2meteor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
2meteor
Гость
всем спасибо за помощь )) разобрался сам. мож кому будет полезно...

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Function finClass$(ParamArray rng())
Dim myCell As Range, i%
For i = LBound(rng) To UBound(rng)
    If TypeName(rng(i)) = "Range" Then
        For Each myCell In rng(i).Cells
            If myCell.Value = 0 Then
                finClass = "не все значения!"
                Exit Function
            ElseIf UCase(myCell.Value) > finClass Then
                finClass = UCase(myCell.Value)
            End If
        Next myCell
    End If
Next i
End Function
...
Рейтинг: 0 / 0
21.05.2013, 12:59
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с Range
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37871280&tid=2156969]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 44ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 15ms
total:  157ms
созд. / загр.: 157ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]