Занесение в ячейку - случайного значение из столбцов.

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

Занесение в ячейку - случайного значение из столбцов. (Макросы/Sub)

RipVanWinkel

Дата: Среда, 27.09.2017, 12:17 | Сообщение № 1

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

Ранг: Участник

Сообщений: 65

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

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

Excel 2010

Добрый день, уважаемые специалисты.
помогите с разрешением проблемы.

На листе находится четыре фигуры-кнопки с определенным вписанным в них текстом.
Правее находятся столбцы с заголовками - соответствующими тексту, вписанному в фигуры.

Как макросом - занести в ячейку D2 - случайный текст из того столбца, который соответствует тексту в нажатой фигуре.
(К примеру - если нажимается первая кнопка с текстом "Текст-12" - то в ячейку D2 выбирается случайный текст из столбца с заголовком "Текст-12".)
(пустые ячейки в столбцах - игнорируются)

К сообщению приложен файл: 111.xls (43.5 Kb)

Ответить

iMrTidy

Дата: Среда, 27.09.2017, 16:05 | Сообщение № 2

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

Ранг: Участник

Сообщений: 85

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

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

NO

RipVanWinkel, так нужно?

К сообщению приложен файл: 6327529.xls (56.5 Kb)

Вышенаписанное мной не является истиной, но лишь моя точка зрения, которая скорее всего ошибочна.

Ответить

RipVanWinkel

Дата: Среда, 27.09.2017, 16:16 | Сообщение № 3

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

Ранг: Участник

Сообщений: 65

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

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

Excel 2010

iMrTidy, не совсем.
В вашем коде - указан диапазон T6:T9
А в моем файле - диапазон - это T6:T16.

Но данный код не обрабатывает правильно диапазон T6:T16, поскольку рассматривает и пустые ячейки тоже.

Ответить

nilem

Дата: Среда, 27.09.2017, 17:07 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

или вот как-то так:
[vba]

Код

Sub ertert()
Dim s$, r As Range

On Error Resume Next
With ActiveSheet
    s = .Shapes(Application.Caller).TextFrame2.TextRange.Characters.Text
    Set r = .Cells.Find(s, LookIn:=xlValues, lookat:=xlWhole).CurrentRegion
    If Not r Is Nothing Then
        With r.Offset(1).Resize(r.Rows.Count - 1)
            Range("D2").Value = .Item(Int(.Rows.Count * Rnd + 1), 1)
        End With
    Else
        MsgBox "not found " & s, 48
    End If
End With
End Sub

[/vba]
на все 4 кнопки нужно назначить это макрос

Яндекс.Деньги 4100159601573

Ответить

iMrTidy

Дата: Среда, 27.09.2017, 17:25 | Сообщение № 5

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

Ранг: Участник

Сообщений: 85

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

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

NO

RipVanWinkel, Вы что даже диапазон не можете поменять самостоятельно? Там одно число заменить на другое...

Вышенаписанное мной не является истиной, но лишь моя точка зрения, которая скорее всего ошибочна.

Ответить

RipVanWinkel

Дата: Среда, 27.09.2017, 17:46 | Сообщение № 6

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

Ранг: Участник

Сообщений: 65

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

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

Excel 2010

iMrTidy, на листе несколько десятков столбцов.
В них постоянно - то добавляются то удаляются данные (количество заполненных ячеек - постоянном меняется).

И каждый раз - при пересчете листа лезть в макрос и менять вручную диапазон - это очень тяжело.
К тому же в следующую секунду - при пересчете - диапазон опять изменится (поскольку будут добавлены или удалены те или иные ячейки)