Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как определить границы видимой части листа, исключая закрепленную область
 
#1
28.01.2019 05:05:25
Доброго времени суток всем.

Ответьте если кто разбирается в этой непростой проблеме.
Как макросом - определить границы видимой части листа, исключая закрепленную область - занеся параметры границ в ячейки G1,G2,J1,J2 ?

В ячейках G1,G2 - по идее должны отобразится номера строк (которые являются крайними границами видимой области - по вертикали).
В ячейках J1,J2 -  номера столбцов (которые являются крайними границами видимой области - по горизонтали).

Текущую границу обозначил желтым цветом в файле.
 
 
 
#2
28.01.2019 07:28:16
Цитата
SkyGreen написал: определить границы видимой части листа
Что имеете ввиду под выражением 'видимой части'? Непонятно, потому что в файле, на мониторе моего ноутбука диапазон, ограниченный желтым цветом, весь не вмещается. Или имеется ввиду диапазон видимый на каком-то конкретном мониторе? В таком случае для разных мониторов/разрешений/масштабов видимая область будет различной.
Вы лучше задайте вопрос по ЗАДАЧЕ, а не по СПОСОБУ, которым ее пытаетесь решить. Не думаю, что определение видимой части экрана, является самоцелью, для чего-то Вы же ее определяете :) . Возможно Ваша задача решатся совсем другими, более простыми способами.
По этому конкретному вопросу - почитайте про ActiveWindow.VisibleRange
Например
Изменено: Sanja - 28.01.2019 07:42:23
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
28.01.2019 08:26:25
Цитата
Sanja написал:
на мониторе моего ноутбука диапазон, ограниченный желтым цветом, весь не вмещается.
Ну так мониторы у всех разные - у вас видимая часть будет другой.

Насчет ActiveWindow.VisibleRange - получился вот такой макрос:
Код
Sub Макрос1()
Dim rng As Range
Set rng = ActiveWindow.VisibleRange
X = rng.Left
Y = rng.Top

[O1] = X
[O2] = Y

X2 = rng.Left + rng.Width
Y2 = rng.Top + rng.Height

[R1] = X2
[R2] = Y2

End Sub
Но этот макрос возвращает численные координаты, а мне нужны номера строк и названия столбцов - соответствующие этим координатам.
Как их получить ?
 
 
 
#4
28.01.2019 08:36:43
Ну если вас эти координаты устраивают, то временно поставить маленький обьект и потом, взяв его топлефтцелл удалить. Не проверял.
По вопросам из тем форума, личку не читаю.
 
 
 
#5
28.01.2019 08:38:52
БМВ, я спрашивал - как определить названия столбцов и номера строк.
Вы про какой объект говорите ?
Изменено: SkyGreen - 28.01.2019 08:39:24
 
 
 
#6
28.01.2019 09:13:29
Вариант: rng.Address вы получите диапазон в виде текста и тяните из него что вам нужно с помощью MID
 
 
 
#7
28.01.2019 09:14:47
Я про такой вариант
Код
Set con = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, X2, Y2, X2, Y2)
Debug.Print con.TopLeftCell.Offset(-1, -1).Address
con.Delete


Все зависит от того что вы хотите, как написал V может и просто rng.address устроит.
Изменено: БМВ - 28.01.2019 09:22:46
По вопросам из тем форума, личку не читаю.
 
 
 
#8
28.01.2019 09:20:45
БМВ, да это я понял.
Я думал просто более легкий способ есть.
 
 
 
#9
28.01.2019 09:24:34
Цитата
V написал:
rng.Address вы получите диапазон в виде текста и тяните из него что вам нужно с помощью MID
А как это сделать ?
Вот я получил адрес ячейки:

Adres1 = shp1.TopLeftCell.Address(0, 0)

Как из нее извлечь название столбца и номер строки ?
Там же количество символов может быть разным - как в обозначении строки, так и в обозначении столбца.
 
 
 
#10
28.01.2019 09:28:27
Цитата
SkyGreen написал:
Там же количество символов может быть разным
да это усложнит MID
тогда такой подход
Код
[G1] = Split(Replace(rng.Address, ":", ""), "$")(2)
[G2] = Split(rng.Address, "$")(4)
[J1] = Split(rng.Address, "$")(1)
[J2] = Split(rng.Address, "$")(3)
 
 
 
#11
28.01.2019 09:31:17
V,это что-то очень мудреное.

Вот смотрите я определяю таким образом:
Код
   MsgBox Range(Range("O1")).Row
   MsgBox Range(Range("O1")).Column
Но Range(Range("O1")).Column   выдает название столбца - цифрой.
Как сделать так, чтобы он выдавал название столбца - буквой ?
 
 
 
#12
28.01.2019 09:35:23
V, все я понял.
Ваше решение - удобнее.
Спасибо за совет.
 
 
 
#13
28.01.2019 09:37:30
Код
With ActiveWindow.VisibleRange
    Debug.Print .Offset(.Rows.Count, .Columns.Count).Resize(1, 1).Address
End With

ну а отделить столбец не сложно

Range("O1").address(,false) и все что до двоеточия взять
По вопросам из тем форума, личку не читаю.
 
 
 
#14
28.01.2019 09:41:02
БМВ, а обычной формулой как можно отделить столбец от адреса ?
 
 
 
#15
28.01.2019 10:13:12
В общем - во всем разобрался.
Всем помогающим - спасибо за помощь.
 
 
 
#16
28.01.2019 10:16:59
Цитата
SkyGreen написал:
а обычной формулой как можно отделить столбец от адреса ?
=ПОДСТАВИТЬ(АДРЕС(СТРОКА();СТОЛБЕЦ();4);СТОЛБЕЦ();"")
 
 
 
Страницы: 1
Наверх