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

Вход

Регистрация

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

 

= Мир MS Excel/Как оптимизировать базу? - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Как оптимизировать базу?
6ukhrat Дата: Воскресенье, 31.08.2014, 14:59 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Заранее благодарю!
excel 2003
Создал макрос для добавления новых листов по текущей дате, только каждый раз приходится:
1. Курсором протягивать (дублируя верхнюю часть)
2. В столбце "Название" выравнивать все по левому краю
3. В листе "Касса" в ячейках "Общая сумма, сумма себ-ст" так же редактирую в ручную
Вопрос в следующем, как сделать это автоматически, и что бы в листах прихода товара общее количество отнималось от количества продаж, тем самым показывая остаток на складе?
К сообщению приложен файл: 5877551.rar (31.9 Kb)


Сообщение отредактировал 6ukhrat - Воскресенье, 31.08.2014, 15:01
 
Ответить
СообщениеЗаранее благодарю!
excel 2003
Создал макрос для добавления новых листов по текущей дате, только каждый раз приходится:
1. Курсором протягивать (дублируя верхнюю часть)
2. В столбце "Название" выравнивать все по левому краю
3. В листе "Касса" в ячейках "Общая сумма, сумма себ-ст" так же редактирую в ручную
Вопрос в следующем, как сделать это автоматически, и что бы в листах прихода товара общее количество отнималось от количества продаж, тем самым показывая остаток на складе?

Автор - 6ukhrat
Дата добавления - 31.08.2014 в 14:59
Rioran Дата: Понедельник, 01.09.2014, 10:13 | Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
6ukhrat, здравствуйте.

1. Курсором протягивать (дублируя верхнюю часть)
Что откуда берётся и куда вставляется? Нужны точные координаты.

3. В листе "Касса" в ячейках "Общая сумма, сумма себ-ст" так же редактирую в ручную
Откуда берутся изначальные цифры? Вбиваются вручную?

Предварительно переделал Ваш макрос, пункт 2 учтён:

[vba]
Код
Private Sub Workbook_Open()

Dim Otvet As String
Dim NewSheet As Worksheet

Otvet = MsgBox("Внимательно просмотрите вашу дату, если она верна не задавайте одинаковую дату !!! Задать дату?", vbOKCancel, "Выход")
If Otvet <> vbOK Then Exit Sub

Set NewSheet = Worksheets.Add
NewSheet.Name = Date

Columns("A:A").HorizontalAlignment = xlLeft

With Range("A1:H1")
     .Font.ColorIndex = 5
     .Interior.ColorIndex = 6
     .HorizontalAlignment = xlCenter
     Range("E1:G1").Clear
End With

Cells(1, 1).Value = "Название"
Cells(1, 2).Value = "Кол-во"
Cells(1, 3).Value = "Цена"
Cells(1, 4).Value = "Сумма"
Cells(1, 8).Value = "Расход"

End Sub
[/vba]
К сообщению приложен файл: TormentSample.xlsm (62.4 Kb)


Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
Сообщение6ukhrat, здравствуйте.

1. Курсором протягивать (дублируя верхнюю часть)
Что откуда берётся и куда вставляется? Нужны точные координаты.

3. В листе "Касса" в ячейках "Общая сумма, сумма себ-ст" так же редактирую в ручную
Откуда берутся изначальные цифры? Вбиваются вручную?

Предварительно переделал Ваш макрос, пункт 2 учтён:

[vba]
Код
Private Sub Workbook_Open()

Dim Otvet As String
Dim NewSheet As Worksheet

Otvet = MsgBox("Внимательно просмотрите вашу дату, если она верна не задавайте одинаковую дату !!! Задать дату?", vbOKCancel, "Выход")
If Otvet <> vbOK Then Exit Sub

Set NewSheet = Worksheets.Add
NewSheet.Name = Date

Columns("A:A").HorizontalAlignment = xlLeft

With Range("A1:H1")
     .Font.ColorIndex = 5
     .Interior.ColorIndex = 6
     .HorizontalAlignment = xlCenter
     Range("E1:G1").Clear
End With

Cells(1, 1).Value = "Название"
Cells(1, 2).Value = "Кол-во"
Cells(1, 3).Value = "Цена"
Cells(1, 4).Value = "Сумма"
Cells(1, 8).Value = "Расход"

End Sub
[/vba]

Автор - Rioran
Дата добавления - 01.09.2014 в 10:13
6ukhrat Дата: Вторник, 02.09.2014, 20:00 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Огромное спасибо за второй пункт!
По поводу остального: при нажатие на кнопку добавить дату, открывается новый лист. И вот тут, приходится копировать с предыдущей даты-листа, начиная с А4 до М4, что бы вставить на текущий лист, далее удалять А2-А5 и С2-С5, что бы формула осталась, а данные вводятся вручную.
Как то так...
 
Ответить
СообщениеОгромное спасибо за второй пункт!
По поводу остального: при нажатие на кнопку добавить дату, открывается новый лист. И вот тут, приходится копировать с предыдущей даты-листа, начиная с А4 до М4, что бы вставить на текущий лист, далее удалять А2-А5 и С2-С5, что бы формула осталась, а данные вводятся вручную.
Как то так...

Автор - 6ukhrat
Дата добавления - 02.09.2014 в 20:00
gling Дата: Вторник, 02.09.2014, 21:12 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2643
Репутация: 739 ±
Замечаний: 0% ±

2010
А может сразу создавать копию листа и на нем удалять что не нужно?
К сообщению приложен файл: 7673883.xls (43.0 Kb)


ЯД-41001506838083
 
Ответить
СообщениеА может сразу создавать копию листа и на нем удалять что не нужно?

Автор - gling
Дата добавления - 02.09.2014 в 21:12
6ukhrat Дата: Среда, 03.09.2014, 05:04 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
В принципе я и удаляю после копии данных, но это не то.
 
Ответить
СообщениеВ принципе я и удаляю после копии данных, но это не то.

Автор - 6ukhrat
Дата добавления - 03.09.2014 в 05:04
6ukhrat Дата: Среда, 03.09.2014, 05:19 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
gling, Ваш пример впринципе работает как нужно, только кнопка значительно мешает (лучше оставить добавление даты, по месседж боксу), и ячейки "Расхода и Кассы желательно делать пустыми"...
 
Ответить
Сообщениеgling, Ваш пример впринципе работает как нужно, только кнопка значительно мешает (лучше оставить добавление даты, по месседж боксу), и ячейки "Расхода и Кассы желательно делать пустыми"...

Автор - 6ukhrat
Дата добавления - 03.09.2014 в 05:19
gling Дата: Среда, 03.09.2014, 09:26 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2643
Репутация: 739 ±
Замечаний: 0% ±

2010
Вариант без кнопки.
К сообщению приложен файл: 6601486.xls (35.5 Kb)


ЯД-41001506838083
 
Ответить
СообщениеВариант без кнопки.

Автор - gling
Дата добавления - 03.09.2014 в 09:26
6ukhrat Дата: Среда, 03.09.2014, 10:48 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
gling, У вас идет ошибка out of range, но не суть столь важна, то что у меня выходит месседж бокс, меня устраивает, мне бы только после принятого условия по дате, получить открытие готового листа с формулами...
В первом вашем случае, если не трогать условие оставить мой месседж, и ваш макрос на заполнение ячеек От А2 до D2 чтоб было пусто, а D2-D200 (B2*C2), G2-G200 (D2-F2*B2), H2 (sum D2-d200)
 
Ответить
Сообщениеgling, У вас идет ошибка out of range, но не суть столь важна, то что у меня выходит месседж бокс, меня устраивает, мне бы только после принятого условия по дате, получить открытие готового листа с формулами...
В первом вашем случае, если не трогать условие оставить мой месседж, и ваш макрос на заполнение ячеек От А2 до D2 чтоб было пусто, а D2-D200 (B2*C2), G2-G200 (D2-F2*B2), H2 (sum D2-d200)

Автор - 6ukhrat
Дата добавления - 03.09.2014 в 10:48
gling Дата: Среда, 03.09.2014, 12:18 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2643
Репутация: 739 ±
Замечаний: 0% ±

2010
Цитата
Создал макрос для добавления новых листов по текущей дате,
Значит знаете где находятся макросы. Уберите макрос из книги и уберите знаки ' в макросе НовЛист. В листе пропишите все формулы как нужно его с этими формулами будет копировать. Можно вообще создать лист шаблон только с формулами и пусть его копирует, тогда и очищать ничего не надо будет. Шаблон можно скрыть его видно не будет.
К сообщению приложен файл: 0868238.xls (41.0 Kb)


ЯД-41001506838083
 
Ответить
Сообщение
Цитата
Создал макрос для добавления новых листов по текущей дате,
Значит знаете где находятся макросы. Уберите макрос из книги и уберите знаки ' в макросе НовЛист. В листе пропишите все формулы как нужно его с этими формулами будет копировать. Можно вообще создать лист шаблон только с формулами и пусть его копирует, тогда и очищать ничего не надо будет. Шаблон можно скрыть его видно не будет.

Автор - gling
Дата добавления - 03.09.2014 в 12:18
6ukhrat Дата: Четверг, 04.09.2014, 05:02 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
gling, Вам большое спасибо за тестовый пример! Тут еще один ньюанс, по поводу остатков, если у меня в листе "Поступление товара" имеется какойто товар по артиклу в столбце А, то как мне связать текущий лист добавленной даты, что б этот же артикул отнимался на складе, тем самым показывая сколько остатка на складе?
 
Ответить
Сообщениеgling, Вам большое спасибо за тестовый пример! Тут еще один ньюанс, по поводу остатков, если у меня в листе "Поступление товара" имеется какойто товар по артиклу в столбце А, то как мне связать текущий лист добавленной даты, что б этот же артикул отнимался на складе, тем самым показывая сколько остатка на складе?

Автор - 6ukhrat
Дата добавления - 04.09.2014 в 05:02
gling Дата: Четверг, 04.09.2014, 18:23 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2643
Репутация: 739 ±
Замечаний: 0% ±

2010
Что то про склад и про товар на складу в файле не видно. Для ответа на Ваш вопрос нужен файл с близкими к реальность данными. Попробуем совместно оптимизировать базу.
Есть и у меня на работе такая проблема, но я не заморачивался и показывал сколько есть на складе (выписал не значить взял), если нет на складе то этого товара нет и в списке выбора.


ЯД-41001506838083
 
Ответить
СообщениеЧто то про склад и про товар на складу в файле не видно. Для ответа на Ваш вопрос нужен файл с близкими к реальность данными. Попробуем совместно оптимизировать базу.
Есть и у меня на работе такая проблема, но я не заморачивался и показывал сколько есть на складе (выписал не значить взял), если нет на складе то этого товара нет и в списке выбора.

Автор - gling
Дата добавления - 04.09.2014 в 18:23
  • Страница 1 из 1
  • 1
Поиск:

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