ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как сделать красивее обращение к диапазону?
11 сообщений из 11, страница 1 из 1
Как сделать красивее обращение к диапазону?
    #35643692
Nebo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nebo
Участник
Использую следующий код для объединения двух ячеек.


Код: plaintext
1.
2.
3.
4.
5.
6.
        With xlWs.Range("A" & CStr(nRow) & ":B" & CStr(nRow) + "")
            .HorizontalAlignment = xlRight
            .VerticalAlignment = xlTop
            .MergeCells = True
            .Font.Bold = True
            .Value = "ИТОГО: "
        End With

Вопрос такой: Можно ли сделать более элегантным обращение к диапазону?
Можно ли как-то обойтись без CStr(nRow)? Но заранее номер строки неизвестен.

Код: plaintext
 xlWs.Range("A" & CStr(nRow) & ":B" & CStr(nRow) + "")
...
Рейтинг: 0 / 0
10.11.2008, 12:50:23
| Ответить | Цитировать | Написать  
Как сделать красивее обращение к диапазону?
    #35643962
Aster32
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aster32
Гость
With Range(Cells(nRow, 1), Cells(nRow, 2))
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
.MergeCells = True
.Font.Bold = True
.Value = "ИТОГО: "
End With
...
Рейтинг: 0 / 0
10.11.2008, 13:58:47
| Ответить | Цитировать | Написать  
Как сделать красивее обращение к диапазону?
    #35644139
Nebo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nebo
Участник
Aster32,


СУПЕР:) Спасибо:)

Я сделал так, вместо цифр поставил буквы:

Код: plaintext
       With xlWs.Range(xlWs.Cells(nRow, "A"), xlWs.Cells(nRow, "B"))
...
Рейтинг: 0 / 0
10.11.2008, 14:51:09
| Ответить | Цитировать | Написать  
Как сделать красивее обращение к диапазону?
    #35644682
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
NeboAster32,


СУПЕР:) Спасибо:)

Я сделал так, вместо цифр поставил буквы:

Код: plaintext
       With xlWs.Range(xlWs.Cells(nRow, "A"), xlWs.Cells(nRow, "B"))


Код: plaintext
With xlWs.Cells(nRow, "A").Resize(, 2 )
...
Рейтинг: 0 / 0
10.11.2008, 17:32:45
| Ответить | Цитировать | Написать  
Как сделать красивее обращение к диапазону?
    #35644769
Nebo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nebo
Участник
KL (XL),

Ещё раз спасибо:)
...
Рейтинг: 0 / 0
10.11.2008, 17:56:54
| Ответить | Цитировать | Написать  
Как сделать красивее обращение к диапазону?
    #35645408
Nebo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nebo
Участник
А как сделать лучше формирование формулы =СУММ(R1:R10) .

Сейчас формирую формулу strFormula , наверное, несколько громоздко.

А как проще сделать?

Вот мой код:

Код: plaintext
1.
2.
3.
4.
5.
    'декабрь
        strFormula = "=SUM(R" + CStr(nRowStart) + ":R" + CStr(nRowStart + ((nRow -  1 ) - nRowStart)) + ")"
        xlWs.Cells(nRow, nCol).Font.Bold = True
        xlWs.Cells(nRow, nCol).NumberFormat = "#,##0"
        xlWs.Cells(nRow, nCol).Formula = strFormula
        strFormula = ""
...
Рейтинг: 0 / 0
11.11.2008, 02:47:34
| Ответить | Цитировать | Написать  
Как сделать красивее обращение к диапазону?
    #35645829
Aster32
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aster32
Гость
авторА как проще сделать?

Код: plaintext
Cells(nRow, nCol).Formula = "=Sum(R1C18:R10C18)"
...
Рейтинг: 0 / 0
11.11.2008, 10:54:52
| Ответить | Цитировать | Написать  
Как сделать красивее обращение к диапазону?
    #35646883
Nebo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nebo
Участник
Aster32авторА как проще сделать?

Код: plaintext
Cells(nRow, nCol).Formula = "=Sum(R1C18:R10C18)"



я вот не совсем понимаю инструкцию:

R1C18:R10C18


R1 и R10 - понимаю. Это ячейки. А С18 - что это?
...
Рейтинг: 0 / 0
11.11.2008, 15:08:09
| Ответить | Цитировать | Написать  
Как сделать красивее обращение к диапазону?
    #35647506
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
NeboAster32авторА как проще сделать?

Код: plaintext
Cells(nRow, nCol).Formula = "=Sum(R1C18:R10C18)"



я вот не совсем понимаю инструкцию:

R1C18:R10C18


R1 и R10 - понимаю. Это ячейки. А С18 - что это?Нет, R1 и R10 это не ячейки.
Ячейки это R1C18 и R10C18.
R - номер строки, C - номер колонки.
"R1C18:R10C18" это тоже самое что "R1:R10". Тебе просто повезло что R - это восемнадцатая колонка на листе.
...
Рейтинг: 0 / 0
11.11.2008, 18:04:44
| Ответить | Цитировать | Написать  
Как сделать красивее обращение к диапазону?
    #35647508
Aster32
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aster32
Гость
R1 и R10 - это не ячейки. В этой записи R - означает сокращение от Row - строка, а С - сокращение от Column - столбец. Запись R1C18 - означает ячейку на пересечении 1-й строки и 18 столбца (он же столбец R). Запись R10C18 - ячейка на пересечении 10-й строки и 18 столбца.

(R1C18:R10С18) - блок ячеек в 18 столбце (столбце R), включающий 10 ячеек (R1:R10).
...
Рейтинг: 0 / 0
11.11.2008, 18:06:07
| Ответить | Цитировать | Написать  
Как сделать красивее обращение к диапазону?
    #35648089
Nebo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nebo
Участник
Ребята, понял науку:) Всем мой Respect:)
...
Рейтинг: 0 / 0
12.11.2008, 03:04:46
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как сделать красивее обращение к диапазону?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=35644139&tid=2180172]:
 0ms
get settings:
 4ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 189ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 188ms
total:  460ms
созд. / загр.: 460ms
x
x
Закрыть


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