Нужно написать макрос

@Vadim1919 · Регистрация: 25.02.2020

Author24 — интернет-сервис помощи студентам

Пользователь задает позицию слов. Вывести слова по данным позициям.
С помощью VBA для exel
Три дня никак не выходит сделать

@Narimanych · 22.05.2022, 16:31

Vadim1919
Свой файл прикрепите,

@Vadim1919 · 22.05.2022, 16:45 **[ТС]**

Visual Basic

Private Sub CommandButton1_Click()
 
 
Dim rangeToSearch As Range
Dim cellWithvalue As Range
 
Set rangeToSearch = Range("A1:C10")
Set cellWithvalue = rangeToSearch.Find("bbc")
 
If cellWithvalue Is Nothing Then
MsgBox prompt:="No value found!", Buttons:=vbInformation
Else
MsgBox cellWithvalue.Address
End If
 
End Sub

@Narimanych · 22.05.2022, 16:47

Vadim1919,

Это не файл, это код. Здесь нужен файл....

Добавлено через 28 секунд
Архивируйте файл и выкладывайте сюда.

@Vadim1919 · 22.05.2022, 16:52 **[ТС]**

lab-2.2.rar

@Narimanych · 22.05.2022, 17:33

Vadim1919,

Сообщение от Vadim1919

Пользователь задает позицию слов.

Это у вас в задании, будем исходить, что позиция - это порядковый номар ячейки в диапазоне.

Visual Basic

Sub MMM()
    Set r = [a1].Parent.Cells(1, [a1].Column).End(xlDown).CurrentRegion
    x = InputBox("Введите позицию слова  от 1 до " & r.Cells.Count)
    MsgBox r(x).Address(0, 0)
End Sub

@Vadim1919 0 / 0 / 0 Регистрация: 25.02.2020 Сообщений: 83
		1
	Excel Нужно написать макрос 22.05.2022, 16:29. Показов 494. Ответов 5 Метки нет (Все метки) Пользователь задает позицию слов. Вывести слова по данным позициям. С помощью VBA для exel Три дня никак не выходит сделать 0

@Narimanych 2741 / 1716 / 778 Регистрация: 23.03.2015 Сообщений: 5,434
	22.05.2022, 16:31	2
	Vadim1919 Свой файл прикрепите, 0

@Narimanych 2741 / 1716 / 778 Регистрация: 23.03.2015 Сообщений: 5,434
	22.05.2022, 16:47	4
	Vadim1919, Это не файл, это код. Здесь нужен файл.... Добавлено через 28 секунд Архивируйте файл и выкладывайте сюда. 0

@Vadim1919 0 / 0 / 0 Регистрация: 25.02.2020 Сообщений: 83
	22.05.2022, 16:52 [ТС]	5
	lab-2.2.rar 0

	22.05.2022, 17:33