Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вывод диалогово окна с возмодностью ввода столбца и значений - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Вывод диалогово окна с возмодностью ввода столбца и значений
timo64uk Дата: Пятница, 15.11.2024, 08:18 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация: 1 ±
Замечаний: 0% ±

Office16
Добрый день.
Переделал код, который мне предоставили на данном форуме из удаления под копировать-вставить как 123.
[vba]
Код
       'Если D35 и ниже до последней содержит *Iskomoe*, то столбец Stolbec копировать и вставить как 123
        Dim PS As Variant, i As Variant, Iskomoe As Variant, Stolbec As Variant
        PS = Cells(Rows.Count, 1).End(xlUp).Row
        For i = PS To 35 Step -1
'       Iskomoe = InputBox("Выберите значение в столбце D", "Запрос данных", "")
'       Set Iskomoe = Application.InputBox("Выберите значение в столбце D")
        If Cells(i, 4).Value Like "*Iskomoe*" Then
'       Set Stolbec = Application.InputBox("Выберите номер столбца")
        Cells(i, Stolbec).Copy
        Cells(i, Stolbec).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If
        Next
[/vba]
Если переменных нет, то все работает, однако хочется наладить диалог пользователя с кодом через переменные.
Прошу вашей помощи:
Если в столбце 4 в ячейке содержится значение допустим 500, то в столбце допустим 9 (I) в соседней ячейке происходит копирование и вставка как значения (а не формулы). Самое сложное, это то, что значение 500 и столбец 9 выбирает пользователь через диалоговые окна или окно.
К сообщению приложен файл: 5858585.xlsx (11.6 Kb)


Сообщение отредактировал timo64uk - Пятница, 15.11.2024, 08:49
 
Ответить
СообщениеДобрый день.
Переделал код, который мне предоставили на данном форуме из удаления под копировать-вставить как 123.
[vba]
Код
       'Если D35 и ниже до последней содержит *Iskomoe*, то столбец Stolbec копировать и вставить как 123
        Dim PS As Variant, i As Variant, Iskomoe As Variant, Stolbec As Variant
        PS = Cells(Rows.Count, 1).End(xlUp).Row
        For i = PS To 35 Step -1
'       Iskomoe = InputBox("Выберите значение в столбце D", "Запрос данных", "")
'       Set Iskomoe = Application.InputBox("Выберите значение в столбце D")
        If Cells(i, 4).Value Like "*Iskomoe*" Then
'       Set Stolbec = Application.InputBox("Выберите номер столбца")
        Cells(i, Stolbec).Copy
        Cells(i, Stolbec).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If
        Next
[/vba]
Если переменных нет, то все работает, однако хочется наладить диалог пользователя с кодом через переменные.
Прошу вашей помощи:
Если в столбце 4 в ячейке содержится значение допустим 500, то в столбце допустим 9 (I) в соседней ячейке происходит копирование и вставка как значения (а не формулы). Самое сложное, это то, что значение 500 и столбец 9 выбирает пользователь через диалоговые окна или окно.

Автор - timo64uk
Дата добавления - 15.11.2024 в 08:18
timo64uk Дата: Пятница, 15.11.2024, 09:18 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация: 1 ±
Замечаний: 0% ±

Office16
С вводом искомого значения вроде получилось (случайно). Остается дело за номером столбца (и As Variant явно не везде верно указал)


Сообщение отредактировал timo64uk - Пятница, 15.11.2024, 09:20
 
Ответить
Сообщение
С вводом искомого значения вроде получилось (случайно). Остается дело за номером столбца (и As Variant явно не везде верно указал)

Автор - timo64uk
Дата добавления - 15.11.2024 в 09:18
_Boroda_ Дата: Пятница, 15.11.2024, 10:32 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16728
Репутация: 6524 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
[vba]
Код
Dim Stolbec As Integer
    Stolbec = Application.InputBox("Выберите номер столбца")
    Cells(2, Stolbec) = Cells(2, Stolbec).Value
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение[vba]
Код
Dim Stolbec As Integer
    Stolbec = Application.InputBox("Выберите номер столбца")
    Cells(2, Stolbec) = Cells(2, Stolbec).Value
[/vba]

Автор - _Boroda_
Дата добавления - 15.11.2024 в 10:32
timo64uk Дата: Пятница, 15.11.2024, 10:43 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация: 1 ±
Замечаний: 0% ±

Office16
.Value
Спасибо большое.
 
Ответить
Сообщение
.Value
Спасибо большое.

Автор - timo64uk
Дата добавления - 15.11.2024 в 10:43
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!