Поменять стоимость выбранного значения
ant6729
Дата: Вторник, 28.03.2017, 23:45 |
Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация:
2
±
Замечаний:
40% ±
Excel 2010
В таблице нужно поменять стоимость выбранного значения Результат я уже достиг более удобным путем Но для понимания языка прошу подсказать, как в таблице можно поменять стоимость выбранного значения , используя в коде InputBox Вот мой код, который я не могу доработать Прошу помочь довести его до ума И меня тоже) [vba]Код
Sub yyy() Dim i& Dim Produce As String Dim Price As Variant Produce = InputBox("Какое название продукта?") Price = InputBox("На какую стоимость менять?") For Each cell In Sheets("Лист1").Range("A2:A" & i) Sheets("Лист1").Cells(i, 2) = Price Next cell End Sub
[/vba]
В таблице нужно поменять стоимость выбранного значения Результат я уже достиг более удобным путем Но для понимания языка прошу подсказать, как в таблице можно поменять стоимость выбранного значения , используя в коде InputBox Вот мой код, который я не могу доработать Прошу помочь довести его до ума И меня тоже) [vba]Код
Sub yyy() Dim i& Dim Produce As String Dim Price As Variant Produce = InputBox("Какое название продукта?") Price = InputBox("На какую стоимость менять?") For Each cell In Sheets("Лист1").Range("A2:A" & i) Sheets("Лист1").Cells(i, 2) = Price Next cell End Sub
[/vba] ant6729
К сообщению приложен файл:
333.xlsx
(8.4 Kb)
Сообщение отредактировал ant6729 - Среда, 29.03.2017, 06:58
Ответить
Сообщение В таблице нужно поменять стоимость выбранного значения Результат я уже достиг более удобным путем Но для понимания языка прошу подсказать, как в таблице можно поменять стоимость выбранного значения , используя в коде InputBox Вот мой код, который я не могу доработать Прошу помочь довести его до ума И меня тоже) [vba]Код
Sub yyy() Dim i& Dim Produce As String Dim Price As Variant Produce = InputBox("Какое название продукта?") Price = InputBox("На какую стоимость менять?") For Each cell In Sheets("Лист1").Range("A2:A" & i) Sheets("Лист1").Cells(i, 2) = Price Next cell End Sub
[/vba] Автор - ant6729 Дата добавления - 28.03.2017 в 23:45
KuklP
Дата: Среда, 29.03.2017, 07:21 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
[vba]Код
Sub yyy() Dim i& Dim Produce As String Dim Price, cell As Range Produce = InputBox("Какое название продукта?") Price = InputBox("На какую стоимость менять?") For Each cell In Sheets("Лист1").Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) If cell.Value = Produce Then cell(1, 2) = Price Next cell End Sub
[/vba]
[vba]Код
Sub yyy() Dim i& Dim Produce As String Dim Price, cell As Range Produce = InputBox("Какое название продукта?") Price = InputBox("На какую стоимость менять?") For Each cell In Sheets("Лист1").Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) If cell.Value = Produce Then cell(1, 2) = Price Next cell End Sub
[/vba] KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение [vba]Код
Sub yyy() Dim i& Dim Produce As String Dim Price, cell As Range Produce = InputBox("Какое название продукта?") Price = InputBox("На какую стоимость менять?") For Each cell In Sheets("Лист1").Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) If cell.Value = Produce Then cell(1, 2) = Price Next cell End Sub
[/vba] Автор - KuklP Дата добавления - 29.03.2017 в 07:21
K-SerJC
Дата: Среда, 29.03.2017, 08:13 |
Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация:
86
±
Замечаний:
0% ±
Excel 2013
KuklP , может так? [vba]Код
If cell.Value = Produce Then Sheets("Лист1").cells(cell.row, 2) = Price
[/vba] чисто теоретически, сам не пробовал, но подумал что cell(1, 2) значение запишет в первой строке, 2 колонки
KuklP , может так? [vba]Код
If cell.Value = Produce Then Sheets("Лист1").cells(cell.row, 2) = Price
[/vba] чисто теоретически, сам не пробовал, но подумал что cell(1, 2) значение запишет в первой строке, 2 колонкиK-SerJC
Благими намерениями выстелена дорога в АД.
Ответить
Сообщение KuklP , может так? [vba]Код
If cell.Value = Produce Then Sheets("Лист1").cells(cell.row, 2) = Price
[/vba] чисто теоретически, сам не пробовал, но подумал что cell(1, 2) значение запишет в первой строке, 2 колонкиАвтор - K-SerJC Дата добавления - 29.03.2017 в 08:13
KuklP
Дата: Среда, 29.03.2017, 08:15 |
Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Так попробуйте, что мешает?
Так попробуйте, что мешает? KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Так попробуйте, что мешает? Автор - KuklP Дата добавления - 29.03.2017 в 08:15
Pelena
Дата: Среда, 29.03.2017, 08:23 |
Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19211
Репутация:
4427
±
Замечаний:
±
Excel 365 & Mac Excel
Я вот тоже не поняла, все цены с одинаковым названием продукта менять или только стоимость выбранного значения
На всякий случай такой вариант с выбором названия [vba]Код
Sub yyy() Dim i& Dim Produce As Range Dim Price As Variant Dim Cel As Range Set Produce = Application.InputBox(Prompt:="Выберите название продукта?", Type:=8) If Produce.Column <> 1 Then MsgBox "это не название": Exit Sub Price = InputBox("На какую стоимость менять?") Produce.Offset(, 1) = Price End Sub
[/vba]
Я вот тоже не поняла, все цены с одинаковым названием продукта менять или только стоимость выбранного значения
На всякий случай такой вариант с выбором названия [vba]Код
Sub yyy() Dim i& Dim Produce As Range Dim Price As Variant Dim Cel As Range Set Produce = Application.InputBox(Prompt:="Выберите название продукта?", Type:=8) If Produce.Column <> 1 Then MsgBox "это не название": Exit Sub Price = InputBox("На какую стоимость менять?") Produce.Offset(, 1) = Price End Sub
[/vba] Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Я вот тоже не поняла, все цены с одинаковым названием продукта менять или только стоимость выбранного значения
На всякий случай такой вариант с выбором названия [vba]Код
Sub yyy() Dim i& Dim Produce As Range Dim Price As Variant Dim Cel As Range Set Produce = Application.InputBox(Prompt:="Выберите название продукта?", Type:=8) If Produce.Column <> 1 Then MsgBox "это не название": Exit Sub Price = InputBox("На какую стоимость менять?") Produce.Offset(, 1) = Price End Sub
[/vba] Автор - Pelena Дата добавления - 29.03.2017 в 08:23
KuklP
Дата: Среда, 29.03.2017, 08:27 |
Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Привет, Леночек. Я так понял, что все. Иначе смысл огород городить с инпутбоксами да вводами, проще в ячейке одну цифру вписать
Привет, Леночек. Я так понял, что все. Иначе смысл огород городить с инпутбоксами да вводами, проще в ячейке одну цифру вписать KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Привет, Леночек. Я так понял, что все. Иначе смысл огород городить с инпутбоксами да вводами, проще в ячейке одну цифру вписать Автор - KuklP Дата добавления - 29.03.2017 в 08:27
Pelena
Дата: Среда, 29.03.2017, 08:29 |
Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19211
Репутация:
4427
±
Замечаний:
±
Excel 365 & Mac Excel
Привет, Сергей) Автору надо
Привет, Сергей) Автору надо Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Привет, Сергей) Автору надо Автор - Pelena Дата добавления - 29.03.2017 в 08:29
ant6729
Дата: Среда, 29.03.2017, 11:16 |
Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация:
2
±
Замечаний:
40% ±
Excel 2010
K-SerJC нет, не работает.... я вроде, тем путем ходил уже Да, спасибо, Pelena, работает! Но все равно объясните, пожалуйста Потому что я меняю в dim с Range на String, а в Type ставлю 2 - выдает ошибку (это я хотел не ссылкой вставлять в Inputbox, а все таки руками писать, ну, хочется мне уот так!)) А msgbox выдаёт, что он обджект хочет Отсюда вопросs Почему мои манипуляции не сработали Как сделать, чтобы я вносил руками название продукта всё ж таки
K-SerJC нет, не работает.... я вроде, тем путем ходил уже Да, спасибо, Pelena, работает! Но все равно объясните, пожалуйста Потому что я меняю в dim с Range на String, а в Type ставлю 2 - выдает ошибку (это я хотел не ссылкой вставлять в Inputbox, а все таки руками писать, ну, хочется мне уот так!)) А msgbox выдаёт, что он обджект хочет Отсюда вопросs Почему мои манипуляции не сработали Как сделать, чтобы я вносил руками название продукта всё ж таки ant6729
Ответить
Сообщение K-SerJC нет, не работает.... я вроде, тем путем ходил уже Да, спасибо, Pelena, работает! Но все равно объясните, пожалуйста Потому что я меняю в dim с Range на String, а в Type ставлю 2 - выдает ошибку (это я хотел не ссылкой вставлять в Inputbox, а все таки руками писать, ну, хочется мне уот так!)) А msgbox выдаёт, что он обджект хочет Отсюда вопросs Почему мои манипуляции не сработали Как сделать, чтобы я вносил руками название продукта всё ж таки Автор - ant6729 Дата добавления - 29.03.2017 в 11:16
ant6729
Дата: Среда, 29.03.2017, 11:28 |
Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация:
2
±
Замечаний:
40% ±
Excel 2010
Стойте... просмотрел я что ли или что KuklP Ваш первый код работает, могу печатать руками, спасибо!!! Всем спасибо!)
Стойте... просмотрел я что ли или что KuklP Ваш первый код работает, могу печатать руками, спасибо!!! Всем спасибо!) ant6729
Сообщение отредактировал ant6729 - Среда, 29.03.2017, 11:30
Ответить
Сообщение Стойте... просмотрел я что ли или что KuklP Ваш первый код работает, могу печатать руками, спасибо!!! Всем спасибо!) Автор - ant6729 Дата добавления - 29.03.2017 в 11:28
KuklP
Дата: Среда, 29.03.2017, 11:29 |
Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Я уж подумал, что я невидимка..
Я уж подумал, что я невидимка.. KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Я уж подумал, что я невидимка.. Автор - KuklP Дата добавления - 29.03.2017 в 11:29
K-SerJC
Дата: Среда, 29.03.2017, 14:02 |
Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация:
86
±
Замечаний:
0% ±
Excel 2013
Так попробуйте, что мешает? :)
да... сколько раз говорил себе неторописька... cell и cells в данном случае разные вещи...
Так попробуйте, что мешает? :)
да... сколько раз говорил себе неторописька... cell и cells в данном случае разные вещи...K-SerJC
Благими намерениями выстелена дорога в АД.
Ответить
Сообщение Так попробуйте, что мешает? :)
да... сколько раз говорил себе неторописька... cell и cells в данном случае разные вещи...Автор - K-SerJC Дата добавления - 29.03.2017 в 14:02
KuklP
Дата: Среда, 29.03.2017, 14:11 |
Сообщение № 12
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Они во всех случаях разные вещи. cell - это переменная, может быть любого типа и обозначать все, что угодно, а cells - зарезервированное слово, обозначающее объект типа Range
Они во всех случаях разные вещи. cell - это переменная, может быть любого типа и обозначать все, что угодно, а cells - зарезервированное слово, обозначающее объект типа Range KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Они во всех случаях разные вещи. cell - это переменная, может быть любого типа и обозначать все, что угодно, а cells - зарезервированное слово, обозначающее объект типа Range Автор - KuklP Дата добавления - 29.03.2017 в 14:11