| Вопрос: Помощь нужна | Добавлено: 10.05.08 08:56 |
Автор вопроса:  Настена
|
| Ответы | Всего ответов: 48 |
|
Номер ответа: 31 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #31 | Добавлено: 17.05.08 09:03 |
| В оригинале был "злой чечен" | ||
|
Номер ответа: 32 Автор ответа: J. Smith ICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #32 | Добавлено: 17.05.08 15:43 |
Это для страдающих шовинизмом аристократов 
|
||
|
Номер ответа: 33 Автор ответа: Anny ICQ: 285767413 Вопросов: 0 Ответов: 15 |
Профиль | | #33 | Добавлено: 19.05.08 00:53 |
| У меня вопросы)) Можешь дать комментарии к первой кнопке...к вводу данных!? И еще with sheets - что это за команда? Зачем нужна точка перед Cells? И что такое "General" в 6 кнопке? Вроде все))) | ||
|
Номер ответа: 34 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #34 | Добавлено: 19.05.08 03:25 |
|
Private Sub CommandButton1_Click() Dim RowIndex As Integer, ColIndex As Integer, ферма As Integer 'с переменными думаю знакома MainWnd.Tag = MainWnd.Top 'запомнить в тэге окна его координату Y MainWnd.Top = -300 'сдвинуть окно вверх, за границу экрана With Sheets(1) 'работаем с листом №1 For ферма = 2 To 14 Step 3 'перебираем фермы, строки со 2 по 14 с шагом в 3 строки For ColIndex = 3 To 9 'перебираем столбцы с 3 по 9 For RowIndex = ферма To ферма + vbNull 'перебираем две верхние строки текущей фермы .Cells(RowIndex, ColIndex) = Val(InputBox(.Cells(1, ColIndex) & " - " & .Cells(RowIndex, 2), .Cells(ферма, 1))) ' .ячейка(строка, столбец) = знач.(ввод(название столбца - название вводимого параметра, в заголовке окна название текущей фермы) Next .Cells(RowIndex, ColIndex) = .Cells(RowIndex - 2, ColIndex) * .Cells(RowIndex - 1, ColIndex) 'сумма за текущий год Next ColIndex, ферма 'закрываем циклы столбцов и ферм End With 'заканчиваем работу с листом MainWnd.Top = MainWnd.Tag 'вернуть окно в запомненную координату Y End Sub И ещё, пятый макрос не перечисляет наименее прибыльные если их несколько одинаковых. ---------------------------------------------- Engl. Русс. With С sheets листы Cells Ячейки General Общее Sheets(Index).Cells(Row, Column) Sheets(Index).Cells(Row, Column) Sheets(Index).Cells(Row, Column) = With Sheets(Index) .Cells(Row, Column) .Cells(Row, Column) .Cells(Row, Column) End With NumberFormat <> "General" НомерФормата не "Общий" Для кого-то элементарные вещи, а тебе пока в диковинку. Хочеш знать VBA, учи, я тут уже пару раз давал ссылку на книжку для чайников. |
||
|
Номер ответа: 35 Автор ответа: AnnyICQ: 285767413 Вопросов: 0 Ответов: 15 |
Профиль | | #35 | Добавлено: 27.05.08 21:42 |
| Привет! Smith, у меня тут изменения в задаче сможешь мне помочь? | ||
|
Номер ответа: 36 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #36 | Добавлено: 28.05.08 01:19 |
|
Посмотрим, может и помогу.
Книгу ты конечно не скачала и учить VBA не будешь пока помощники есть. Вообще официально на кого учишься? |
||
|
Номер ответа: 37 Автор ответа: AnnyICQ: 285767413 Вопросов: 0 Ответов: 15 |
Профиль | | #37 | Добавлено: 29.05.08 16:53 |
| Привет! У меня есть уже одно учебное пособие "программирование на VB" надо пока там что-нить понять! Я смотрю у тебя уже интерес ко мне возрос))) Учусь на экономиста, с программированием у меня совсем туго...так что помощь мне необходима...и я буду очень рада если она будет от тебя) | ||
|
Номер ответа: 38 Автор ответа: AnnyICQ: 285767413 Вопросов: 0 Ответов: 15 |
Профиль | | #38 | Добавлено: 29.05.08 16:56 |
| А книжка мне пригодится....дашь ссылку? | ||
|
Номер ответа: 39 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #39 | Добавлено: 30.05.08 06:15 |
|
Книга VBA для чайников, так что может и чайничек подходящий придётся прикупить
http://rapidshare.de/files/11204069/VBA_for_dummers.rar.html Даже судя по названию VBA от VB отличается, а экономистам надо учить 1с предприятие с его встроенным "языком". |
||
|
Номер ответа: 40 Автор ответа: AnnyICQ: 285767413 Вопросов: 0 Ответов: 15 |
Профиль | | #40 | Добавлено: 30.05.08 11:42 |
| Я смотрю, ты умный, да еще и с чувством юмора...мечта прост))) | ||
|
Номер ответа: 41 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #41 | Добавлено: 30.05.08 15:17 |
| Вот и моя жена так говорит, вы походу сговорились. | ||
|
Номер ответа: 42 Автор ответа: AnnyICQ: 285767413 Вопросов: 0 Ответов: 15 |
Профиль | | #42 | Добавлено: 30.05.08 16:37 |
| Да...сплетничаем о тебе иногда))) | ||
|
Номер ответа: 43 Автор ответа: AnnyICQ: 285767413 Вопросов: 0 Ответов: 15 |
Профиль | | #43 | Добавлено: 30.05.08 16:38 |
| Так что скидываю свои изменения? | ||
|
Номер ответа: 44 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #44 | Добавлено: 30.05.08 19:12 |
| maxpotas@mail.ru | ||
|
Номер ответа: 45 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #45 | Добавлено: 31.05.08 15:14 |
|
Почитал и сравнил новое описание с заданием, которое я делал.
Это не «изменения в задаче», кажется это совсем «другая задача». А это уже, как говорят в Одессе, две большие разницы. Или ты уже решила, что можешь таки водить меня за нос? |
||