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

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

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

Range(a.Row & Str(1)) ?
ругается на несоответствие типов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2012, 11:02
    #37871280
frz
frz
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Range
a.Column т.е. )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2012, 11:04
    #37871286
frz
frz
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Range
Просто мне нужно именно с Range использовать этот столбец
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2012, 11:11
    #37871296
QValD
QValD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Range
А, ну можно так:
Код: 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:53
    #37871381
frz
frz
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Range
QValD,

Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.05.2013, 14:59
    #38264617
2meteor
2meteor
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Range
Код: 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
| Ответить | Цитировать | Написать  
21.05.2013, 12:59
    #38266141
2meteor
2meteor
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Range
всем спасибо за помощь )) разобрался сам. мож кому будет полезно...

Код: 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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с Range / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 254ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2156969]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 147ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 11ms
total:  254ms
x
x
Закрыть


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