Народ подскажите как сделать чтобы по нажатию на одну кнопку выводились в поле Рандомом данные из ячеек Листа1 а по нажатию на другую уже из другого листа2 и т.д.?
Использую вот этот Макросс но он выводит данные только из листа1 ?:
[vba]
Код
Sub Макрос1() ' ' Макрос1 Макрос ' ' Range("A1").Select ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1,90)" Range("A2").Select End Sub
[/vba] Вот мой Макросс с таблицами: Внешняя ссылка удалена администрацией - это нарушение п.3 Правил форума
Народ подскажите как сделать чтобы по нажатию на одну кнопку выводились в поле Рандомом данные из ячеек Листа1 а по нажатию на другую уже из другого листа2 и т.д.?
Использую вот этот Макросс но он выводит данные только из листа1 ?:
[vba]
Код
Sub Макрос1() ' ' Макрос1 Макрос ' ' Range("A1").Select ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1,90)" Range("A2").Select End Sub
[/vba] Вот мой Макросс с таблицами: Внешняя ссылка удалена администрацией - это нарушение п.3 Правил форумаVRoy
Сообщение отредактировал VRoy - Вторник, 28.11.2017, 15:06
- Прочитайте Правила форума - Приложите файл в формате Excel размером до 100кб согласно п.3 Правил форума - Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь) - Вопрос в ветке VB, VBS, VB.net сознательно?
- Прочитайте Правила форума - Приложите файл в формате Excel размером до 100кб согласно п.3 Правил форума - Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь) - Вопрос в ветке VB, VBS, VB.net сознательно?_Boroda_
Ваш макрос вставляет случайное число в интервале от 1 до 90 в ячейку А1 того листа, с которого запущен. А надо что?
Надо чтобы на одном Листе было несколько кнопок и каждая кнопка по нажатию выдавала Случайное слово из своего листа! Например по нажатию первой кнопки выдавалось случайное слово из Листа1 а вторая из Листа2 и т.д.!
Ваш макрос вставляет случайное число в интервале от 1 до 90 в ячейку А1 того листа, с которого запущен. А надо что?
Надо чтобы на одном Листе было несколько кнопок и каждая кнопка по нажатию выдавала Случайное слово из своего листа! Например по нажатию первой кнопки выдавалось случайное слово из Листа1 а вторая из Листа2 и т.д.!VRoy
Добрый день. сделал Вам пример, для других кнопок в коде меняете индекс листа (или название листа пропишите) ну и адрес ячейки куда выводить результат (в моем примере I46) [vba]
Код
Sub ran_() With Sheets(1) arr_ = Range(.Cells(1), .Cells(Rows.Count, 1).End(xlUp)).Value End With i = WorksheetFunction.RandBetween(1, UBound(arr_)) [I46] = arr_(i, 1) End Sub
[/vba]
Добрый день. сделал Вам пример, для других кнопок в коде меняете индекс листа (или название листа пропишите) ну и адрес ячейки куда выводить результат (в моем примере I46) [vba]
Код
Sub ran_() With Sheets(1) arr_ = Range(.Cells(1), .Cells(Rows.Count, 1).End(xlUp)).Value End With i = WorksheetFunction.RandBetween(1, UBound(arr_)) [I46] = arr_(i, 1) End Sub
Излишнее цитирование удалено администрацией - это нарушение п.5j Правил форума
Как я понял индекс Листа менять где у вас выделено красными единицами?? А если ячейка куда нужно выводить объединена с другими? какую ячейку тогда указывать?
Излишнее цитирование удалено администрацией - это нарушение п.5j Правил форума
Как я понял индекс Листа менять где у вас выделено красными единицами?? А если ячейка куда нужно выводить объединена с другими? какую ячейку тогда указывать?VRoy
для объединённой ячейки - адрес верхний левый угол
Когда меняю номер Листа - With Sheets(2) то он меняется на всех кнопках, а как сделать чтобы он менялся в Макросе только на одной кнопке а на другие не распространялся?
для объединённой ячейки - адрес верхний левый угол
Когда меняю номер Листа - With Sheets(2) то он меняется на всех кнопках, а как сделать чтобы он менялся в Макросе только на одной кнопке а на другие не распространялся?VRoy
Сообщение отредактировал VRoy - Суббота, 02.12.2017, 12:13