Замена данных по условию - VB

  1. Помогите доработать Макрос. Посмотрите Пожалуйста, может кто знает как сделать. Буду благодарен за любую помощь. Спасибо Здравствуйте! Вот такой вопрос. Есть файл Протокол в нем есть Лист Перечень, в который входят: - шифр продукции - цена - сотрудник - кто поставляет - кто изготовил - протокол Также есть лист Цены в котором также отражается эта информация, только с учетом обновленных данных Я написал макрос для замены данных из Листа Цены в Лист Перечень, по определенным критериям, а точнее вот так:


textual

Код к задаче: «Замена данных по условию - VB»

Sub Замена_цен()
 
Dim a1 as long
Dim a2 as long
Dim a3 as long
Dim a4 as long
Dim a7 as long 
 
For a1 = 2 To 65000
If Cells(a1, 1) <> "" Then st = a1
Next a1
 
'''a2 = ActiveWorkbook.Name ???
 
Workbooks("Протокол.xls").Activate
Sheets("Цены").Select
 
For a3 = 2 To 65000
If Cells(a3, 1) <> "" Then stt = a3
Next a3
 
For a4 = 2 To stt
a11 = "A" & a4
Range(a11).Select
a5 = Cells(a4, 1)
a6 = Cells(a4, 2)
a10 = Cells(a4, 4)
a13 = Cells(a4, 3)
a14 = Cells(a4, 5)
a15 = Cells(a4, 6)
Workbooks(a2).Activate
Sheets("Перечень").Select
For a7 = 2 To st
a12 = "A" & a7
Range(a12).Select
If Cells(a7, 1) = a5 Then GoTo 1
2
Next a7
Workbooks("Протокол.xls").Activate
Sheets("Цены").Select
Next a4
 
Workbooks(a2).Activate
Sheets("Перечень").Select
 
MsgBox "Цены Заменены"
GoTo 3
1
Cells(a7, 3) = a6
Cells(a7, 4) = a13
Cells(a7, 5) = a10
Cells(a7, 8) = a14
Cells(a7, 7) = a15
 
GoTo 2
 
3
 
End Sub

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 3.857 из 5



Похожие ответы
  1. Доброго времени суток, Излагаю суть проблемы: в программе используются ГОСТы для распила древесины, на случай необходимости их корректировки решил разместить их в txt'шном файле. Теперь пытаюсь выяснить как загрузить данные из этого самого файла и как загрузить, чтобы можно было из программы внести изменения на форме и сохранить. На скрине форма с TextBox'ами , из которой и в которую надо грузить данные. Предполагаю, что вопрос не впервые возник, поэтому буду признателен как хорошим ответам, так и дельным ссылкам на похожие темы. Заранее спасибо.

  1. Только недавно начал работать в VB и создавать программу. Мне нужно что бы по нажатию кнопки, программа сохраняла данные которые находятся в TextBox и PictureBox в файл, а потом по нажатие другой кнопки, загружала их. Пытался разобраться, но ничего не понял. Помогите пожалуйста.

  1. На вход подаётся число и четыре вида преобразования, выглядит это так: Если введено 0 - умножить число на 1.5 Если введено 1 - умножить на 1 На вывод программа должна выдать сумму всех четырёх преобразований входного числа. Пример работы: Ввод: 2 1 1 0 1 Вывод: 9 А теперь самое интересное, нельзя использовать условные операторы, никаких. Только линейный алгоритм. Есть какие-нибудь идеи?

  1. итак, есть код найденный тут на форуме

  1. а может кто то подсказать как при открытии программы используя ComboBox или ListBox загрузить информацию из Excel, а в Excel была таблица не важно сколько строк но один столби чтобы было возможно выбрать любой ряд и его афишировать, а в стоках будут написаны целые предложения

  1. Имеется столбец в котором написаны числа. Числа написаны с 1 по 30 строку. В этих строках встречается несколько раз цифра 5. Нужно найти самую последнюю строку с этим значением и заменить её на текст, к примеру ОК. Пробовал с помощью application max. Но находил только последнюю строку, а заменить не получалось!

  1. Здравствуйте. Помогите пожалуйста сделать программку на VB 6.0, в которой можно добавить, удалить, редактировать, поиск по полям БД. И выводит данные БД в MS Flex Grid или Data Grid.

  1. Нужно ввести два слова, каждое из равного количества букв. Образовать новое слово, перемешивая буквы данных слов. Как организовать перемешивания без сложных конструкций? Всё-таки задание по информатике. Сделал, но со случайными числами. А они повторятся, что не пойдет.

  1. Прошу помощи!!! Я новичек, поэтому сильно не ругайте и не переводите тему типа "вон там посмотри". Хотелось бы увидеть конкретный код. Задача: есть два поля textbox1 и textbox2, кнопка button1 "Записать". Необходимо при нажатии кнопки выполнить запись из textbox1 и textbox2 в таблицу excel (например файл 1.xlsx). Причем textbox1 в столбец "В", а textbox2 в столбец "С", но в свободную строку (не заполненную), например 1, 2, 3 строки заполнены, а 4 пустая - так вот в нее! Надеюсь понятно изложил. Пожалуйста!

  1. помогите пожалуйста,очень нужно. 1. Описать тип данных с именем TRAIN , содержащий следующие поля: - название пункта назначения - номер поезда - время отправления 2. Написать программу, выполняющую следующие действия: - ввод с клавиатуры данных в массив , состоящий из 6-и эле- ментов типа TRAIN; записи должны быть упорядочены по времени отправления поездов. - вывод на экран информации о поездах, направляющихся в пункт,название которого введено с клавиатуры. - если таких поездов нет - выдать на дисплей соответствующее со- общение.