Страница: 1 |
Вопрос: VBA, excel и формы | Добавлено: 16.01.08 23:11 |
Автор вопроса: ![]() |
Уважаемые, ВНЕЗАПНО столкнулся с принеприятнейшей проблемой.
Мне необходимо из одного листа перенести значения в другой, используя свою форму. Предварительно значения в лист заношу опят-таки через свою форму и сохраняю в файл, чтобы потом через другую форму выбрать какое-то значение, и оно бы вставилось в определенные ячейки в другом листе. Данные пользовательского типа - одно string, другое integer. На форме в combobox'е должно отображаться текстовое значение из файла, значения в который мы записывали ранее, после выбора и нажатии кнопки оно вставляется в определенную ячейку и соответствующее ему численное значение в другую (было бы здорово, чтобы на каком-нибудь лейбле, перед нажатием кнопки, отображалось это самое численное значение соответствующее выбранному текстовому). Этот как бы образно проблема. Локально нужно решить ЕЩЕ точно такую же, из файла только определенной строки данных, а просто, чтобы из файла в определенные ячейки вставилось значение (опять-таки текстовое и численное) и формула, одинаковая для всех в эту же строку, но другой столбец. Очень надеюсь, что достаточно ясно отобразил проблему, надеюсь на вашу СКОРУЮ ПОМОЩ. |
Ответы | Всего ответов: 5 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 1 Ответов: 3 |
Профиль | Цитата | #1 | Добавлено: 16.01.08 23:14 |
из файла только определенной строки данных, а просто, чтобы из файла в определенные ячейки вставилось значение (опять-таки текстовое и численное) и формула, одинаковая для всех в эту же строку, но другой столбец
Извиняюсь. Из файла вставляются все значение и в третий столбик обычная экселевская формула. |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 17.01.08 09:30 |
А в чем сложность? Ни строчки кода из форм, ни примера таблиц/листов/формул/вычислений ничего конкретного. Как будто ты ничего ещё не реализовал и хочешь получить решение своей задачи "под ключ". В таком случае есть много желающих оказать тебе эту услугу за деньги и только после того, как ты дашь Нормальное техническое задание. Если просто нужна помощь с VBA-кодом, тогда учисть правильно задавать вопросы. Удачи! |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 1 Ответов: 3 |
Профиль | Цитата | #3 | Добавлено: 17.01.08 10:45 |
Да я и сам в состоянии все реализовать.
Нужна помощь с кодом. Как из файла взять данные и добавить: текстовый - в комбобокс, а числовой - на лейбл. Так, чтобы они соответственн менялись. Так поняней? |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 17.01.08 11:56 |
Если предположить, что Лист1 выглядит так
+---------A---------B-------- 1 Строка 1 1 2 Строка 2 2 3 Строка 3 3 4 Строка 4 4 5 Строка 5 5 Делается примерно так: Option Explicit
Private Sub ComboBox1_Change() Dim s As Worksheet Set s = ThisWorkbook.Worksheets("Лист1" ![]() Label1.Caption = CStr(s.Cells(ComboBox1.ListIndex + 1, 2).Value) Set s = Nothing End Sub Private Sub CommandButton1_Click() Dim s As Worksheet Dim i As Long Set s = ThisWorkbook.Worksheets("Лист1" ![]() ComboBox1.Clear i = 1 Do While Not s.Cells(i, 1).Value = Empty ComboBox1.AddItem s.Cells(i, 1).Value i = i + 1 Loop Set s = Nothing End Sub |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 1 Ответов: 3 |
Профиль | Цитата | #5 | Добавлено: 17.01.08 14:10 |
Спасибо, вы очень помогли. |
Страница: 1 |
|