Вывод текста ячеек случайным образом.

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

Вывод текста ячеек случайным образом. (Формулы/Formulas)

kvlar

Дата: Воскресенье, 18.10.2026, 20:47 | Сообщение № 1

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

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

Сообщений: 59

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

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

Здравствуйте. Нужно реализовать следующее:
На листе2 имеются ячейки А1-А10 с произвольным текстом.
Нужно сделать, чтобы в ячейки А1,А2,А3 листа1 выводился случайным образом текст из А1-А10 листа2.
Еще нужна возможность (кнопка или еще как) этот текст обновлять, если предложенный вариант вывода не понравился.

Также необходим случайный вывод текста из А1-А10 листа2 в текстовое поле к цифрам 1., 2., 3. (может проще вывод к цифрам сделать вместо букв а,б,в?).
Если я задал два разных вопроса (не хотелось плодить темы), то в приоритете вывод в текстовое поле.

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

Ответить

gling

Дата: Воскресенье, 18.10.2026, 21:52 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2740

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

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

2010

Здравствуйте.
Посмотрите вариант в файле. Кнопка обновления F9.

Цитата kvlar, 18.10.2026 в 20:47, в сообщении № 1 (

)

поле к цифрам 1., 2., 3. (может проще вывод к цифрам сделать вместо букв а,б,в?).

Не понял, это о чем?

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

ЯД-41001506838083

Ответить

kvlar

Дата: Понедельник, 19.10.2026, 07:55 | Сообщение № 3

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

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

Сообщений: 59

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

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

Как вариант попробую использовать. F9 обновляет данные сразу в трех ячейках. Нужно чтобы обновлялась каждая ячейка отдельно. (выделенная, например)

Цитата gling, 18.10.2026 в 21:52, в сообщении № 2 (

)

Не понял, это о чем?

Либо рядом с цифрами
1.
2.
3.

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

Ответить

Nic70y

Дата: Понедельник, 19.10.2026, 11:50 | Сообщение № 4

Группа: Друзья

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

Сообщений: 9298

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

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

Excel 2010

Лист2 A1

Код

=ЕСЛИ(ЕНД(ПОИСКПОЗ(A1;Лист1!A:A;));1;)

A2:A10

Код

=ЕСЛИ(ЕНД(ПОИСКПОЗ(A2;Лист1!A:A;));B1+1;B1)

Лист1 Модуль
[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    aa = Target.Column
    ab = Target.Row
    'a = Cells(Rows.Count, "a").End(xlUp).Row
    a = 3
    If aa = 1 And ab <= a Then
        Cancel = True
        Application.ScreenUpdating = False
        'b = Sheets("Лист2").Cells(Rows.Count, "a").End(xlUp).Row
        b = 10
        'f = b - a
        f = 7
        h = Application.RandBetween(1, f)
        'k = Application.Match(h, Sheets("Лист2").Range("b1:b10"), 0)
        k = Application.Match(h, Sheets("Лист2").Range("b1:b" & b), 0)
        Range("a" & ab) = Sheets("Лист2").Range("a" & k).Value
        j = ""
        d = ""
        For i = 1 To a
            c = Range("a" & i).Value
            If i > 1 Then d = Chr(13)
            j = j & d & i & ". " & c
        Next
        With ActiveSheet.Shapes.Range(Array("TextBox 1"))
            .TextFrame2.TextRange.Characters.Text = j
        End With
        Application.ScreenUpdating = True
    End If
End Sub

[/vba]двойной клик по ячейкам A1:A3 Листа1

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

Ответить

Вывод текста ячеек случайным образом. (Формулы/Formulas)

Страница 1 из 1
1