Вывод значения первой ячейки активного столбца

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод значения первой ячейки активного столбца (Макросы/Sub)

halfcat

Дата: Вторник, 19.09.2017, 13:59 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте. Снова прошу помощи. Перечитал описание объектов Range, Cells но не понял как применить к моей задаче

Суть такова(смотреть пример):

В дипазоне ячеек, залитым серым цветом, есть активная ячейка.
Необходим макрос, при запуске которого будет выводиться сообщение со значением желтой или зеленой ячейки в этом же столбце. или синей в этой же строке

Как обратиться к ячейке ниже/выше/правее/левее активной я понял, но как к первой или второй сверху в активном столбце не понимаю

К сообщению приложен файл: 6780338.xlsx (12.7 Kb)

Сообщение отредактировал halfcat - Вторник, 19.09.2017, 13:59

Ответить

_Boroda_

Дата: Вторник, 19.09.2017, 14:11 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

первая строка столбец с_[vba]

Код

cells(1,с_)

[/vba]
первый столбец строка r_[vba]

Код

cells(r_,1)

[/vba]
[vba]

Код

range("A" & r_)

[/vba]

==============Добавлено
А в целом как-то так
[vba]

Код

Sub tt()
    Dim d_ As Range
    If Selection.Count <> 1 Then Exit Sub 'если выделено больше одной ячейки - выход
    Set d_ = Intersect(Selection, Range("B3:J10")) 'd_=пересечению серого и выделенного
    If Not d_ Is Nothing Then ' если d_ существует
        r_ = d_.Row
        c_ = d_.Column
        t_ = "Первая строка - " & Cells(1, c_) & vbLf
        t_ = t_ & "Вторая строка - " & Cells(2, c_) & vbLf
        t_ = t_ & "Первый столбец - " & Cells(1, r_) & vbLf
        MsgBox t_
    End If
End Sub

[/vba]

К сообщению приложен файл: 6780338_1.xlsm (19.3 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

and_evg

Дата: Вторник, 19.09.2017, 14:16 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 452

Репутация: 78 ±

Замечаний: 0% ±

Excel 2007

[vba]

Код

Public Sub qwerty()
MsgBox "синяя ячейка= " & Cells(ActiveCell.Row, 1).Value & Chr(13) _
& "Желтая ячейка= " & Cells(1, ActiveCell.Column).Value & Chr(13) _
& "Зеленая ячейка= " & Cells(2, ActiveCell.Column).Value
End Sub

[/vba]

Ответить

Kuzmich

Дата: Вторник, 19.09.2017, 14:17 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 711

Репутация: 156 ±

Замечаний: 0% ±

Excel 2003

Цитата

Как обратиться к ячейке

[vba]

Код

  MsgBox "Значение в синей ячейке в этой же строке: " & Cells(ActiveCell.Row, 1)
  MsgBox "Значение в желтой ячейке в этом же столбце: " & Cells(1, ActiveCell.Column)
  MsgBox "Значение в зеленой ячейке в этом же столбце: " & Cells(2, ActiveCell.Column)

[/vba]

Ответить

китин

Дата: Вторник, 19.09.2017, 14:21 | Сообщение № 5

Группа: Модераторы

Ранг: Экселист

Сообщений: 7015

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Ну и я попробую
[vba]

Код

Sub TTT()
Dim S&
S = ActiveCell.Column
MsgBox Cells(1, S).Value & Cells(2, S).Value
End Sub

[/vba]

К сообщению приложен файл: _6780338.xlsm (16.0 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

_Boroda_

Дата: Вторник, 19.09.2017, 14:22 | Сообщение № 6

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Дописал там выше у себя и файл добавил

Ответить

halfcat

Дата: Вторник, 19.09.2017, 15:11 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Большое спасибо, господа! Решение Kuzmich самое подходящее мне. Мне нужно было лишь знать как обратиться к нужным ячейкам, Msgbox я приписал для теста.
В дальнейшем значения этих ячеек будут использоваться как параметры для автофильтра на новом листе