ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / с Excell работаю
13 сообщений из 13, страница 1 из 1
с Excell работаю
    #32379905
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
Код: plaintext
1.
Set c = ActiveWorkbook.Sheets( "такойто" ).Range( "такойто" ).Find( "нужноевалуе" , LookIn:=xlValues)
fadr = c.Address(ReferenceStyle:=xlR1C1)

как из адреса получить строку и столбец в раздельных переменных?
или как правильно сдвинуть найденный адрес на например 1 столбец?
...
Рейтинг: 0 / 0
19.01.2004, 11:19
| Ответить | Цитировать | Написать  
с Excell работаю
    #32380001
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Участник
Вопросы за первый класс.

авторкак из адреса получить строку и столбец в раздельных переменных?

Дано s="R4C2".

dim i as integer
i=instr(s,"C")
строка=mid(s,2,i-2)
столбец=mid(s,i+1)

авторили как правильно сдвинуть найденный адрес на например 1 столбец?

left(s,i) & cstr(столбец+1)
...
Рейтинг: 0 / 0
19.01.2004, 11:56
| Ответить | Цитировать | Написать  
с Excell работаю
    #32380026
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
спасибо, я чего то строками не подумал оперировать :)
...
Рейтинг: 0 / 0
19.01.2004, 12:07
| Ответить | Цитировать | Написать  
с Excell работаю
    #32380028
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
1. авторкак из адреса получить строку и столбец в раздельных переменных?

sRow = Range(fadr).Cells(1,1).Row ' номер строки первой ячейки диапазона
sCol = Range(fadr).Cells(1,1).Column ' номер колонки первой ячейки диапазона

2. авторили как правильно сдвинуть найденный адрес на например 1 столбец

Range(fadr).Offset(0,1)
...
Рейтинг: 0 / 0
19.01.2004, 12:08
| Ответить | Цитировать | Написать  
с Excell работаю
    #32380052
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
Кстати, Привет!!! Артист!!! Уже в Москве Ексель терзаешь?
...
Рейтинг: 0 / 0
19.01.2004, 12:21
| Ответить | Цитировать | Написать  
с Excell работаю
    #32380065
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
ага, тока в аське пока не буду, позже :)
малясь запутался, хоть и делал по твоёму :)
как ДР ?
...
Рейтинг: 0 / 0
19.01.2004, 12:28
| Ответить | Цитировать | Написать  
с Excell работаю
    #32380071
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
ДР еще активно продолжается. Пока еще не просох и не предвидиться в ближайшие дни! :о)))

А в чем запутался?
...
Рейтинг: 0 / 0
19.01.2004, 12:30
| Ответить | Цитировать | Написать  
с Excell работаю
    #32380078
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
Offset.Resize меня с толку сбило ...
щас разобрался, спасибо! а вот через строки как Саныч, честно и в
голову не пришла такая мысль :)
...
Рейтинг: 0 / 0
19.01.2004, 12:36
| Ответить | Цитировать | Написать  
с Excell работаю
    #32380113
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
Напрасно я не вник сразу в твою задачу. Все проще. Не надо вычислять адрес и по нему номер строки:

Код: plaintext
1.
2.
Set c = ActiveWorkbook.Sheets( "такойто" ).Range( "такойто" ).Find( "нужноевалуе" , LookIn:=xlValues)
c.Cells( 1 , 1 ).Value ' значение найденной ячейки
c.Cells(1,2).Value ' значение ячейки справа от найденной
...
Рейтинг: 0 / 0
19.01.2004, 12:58
| Ответить | Цитировать | Написать  
с Excell работаю
    #32380169
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
спасибо,
как нить с меня пиво :)
...
Рейтинг: 0 / 0
19.01.2004, 13:24
| Ответить | Цитировать | Написать  
с Excell работаю
    #32380193
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
Прокиснет пока до Питера доедет!
...
Рейтинг: 0 / 0
19.01.2004, 13:34
| Ответить | Цитировать | Написать  
с Excell работаю
    #32380219
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
прокиснет то нет,
а вот кончится может
...
Рейтинг: 0 / 0
19.01.2004, 13:43
| Ответить | Цитировать | Написать  
с Excell работаю
    #32380284
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
Тогда бегу в соседний магазин и... "Твое здоровье!!!"
...
Рейтинг: 0 / 0
19.01.2004, 14:07
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / с Excell работаю
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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