/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 533
от 21.05.2007, 21:35

Вопрос № 87.068

Здраствуйте, Уважаемые ЭКСПЕРТЫ! Помогите создать отключение заданных строк по всей книге, если в одном листе строка находится на 5 позиции на другом в 6 на третьем в 7 или 25 и т.д. Допустим на Лист1 есть некая таблица "оптового склада" из 3 колонок: "Товар", "Сколько на складе", "Цена". "Товар": чай А2 Кофе А3, Сок А4. На Лист2 и Лист3 "магазин1" и "Магазин2" с тойже самой таблицей но строки могут быть смещены то есть у "Магазина1" "Товар": ЧайА4, КофеА5 СокА6, и точно такаяже ситуация у "Магазина2" "Товар": ЧайА7, КофеА8 СокА9, Как постовить чекбокс на Лист1 напротив каждого товара что бы при установки флажка на Лист1 напротив допустим ЧайА2 автоматически скрывались строки на Лист2 ЧайА4 и Лист3 ЧайА7. Заранее благодарен.

Отправлен: 15.05.2007, 21:41 Вопрос задал: Алексей Леонидович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: HookEst Здравствуйте, Алексей Леонидович! Один из вариантов: От checkbox-ов отказался, их сложно добавлять и обрабатывать события, использовал эмуляцию(значение меняется ДВОЙНЫМ щелчком). на первом листе таблица: заголовок:| |ТОВАР|КОЛ-ВО|ЦЕНА... столбец A - для "checkbox-ов;" столбец B - наименование товара, уникальное для каждой позиции остальные столбцы не имеют значения остальные листы: столбец A - наименование товара, для каждой позиции из первого листа остальные столбцы и порядок товаров - не имеют значения после двойного клика на любой ячейке первого столбца первого листа: если значение ячейки на равно "X", значение этой ячейки становится "X", а строки на остальных листах с наименованием текущего товара - скрываются; если значение ячейки равно "X", то все наоборот. дополнительно сделал так, что двойной щелчок на ячейке A1, отмечает(скрывает) или снимает отметку(отображает) все товары. смотрите, пример с комментариями. Если что, пишите. Успехов. Приложение: <code> 'модуль первого листа, склад Option Explicit 'эти константы можно менять, для конкретных таблиц Private Const CHECKBOX_COL = 1 'столбец склада для "checkbox-ов" Private Const CHECKALL_ROW = 1 'строка "checkbox-а" - Отметить Все Private Const GOODS_NAME_COL = 2 'столбец склада с наименованиями товаров Private Const FIRST_GOODS_ROW = 2 'первая строка склада с товаром(после заголовка таблицы) Private Const MATCH_COL = 1 'столбец на листах магазинов, с наименованиями товаров 'обработчик двойного клика Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim first As Long Dim r As Long Dim last As Long Dim x As String Dim chkd As Boolean If Target.Column = CHECKBOX_COL Then 'обрабатываем клик только на "checkbox-ах" chkd = Target.Value = "X" 'логическое значение "checkbox-а" x = IIf(chkd, "", "X") 'новое значение для ячейки If Target.row = CHECKALL_ROW Then 'если Выделить Все first = FIRST_GOODS_ROW 'первая строка с товаром last = Cells(65536, GOODS_NAME_COL).End(xlUp).row 'последняя строка с товаром For r = first To last 'для каждого товара If CheckRow(r, chkd) Then Cells(r, CHECKBOX_COL).Value = x Next r Target.Value = x Cancel = True ElseIf Target.row >= FIRST_GOODS_ROW Then 'строка с товаром If CheckRow(Target.row, chkd) Then Target.Value = x Cancel = True End If End If End If End Sub 'для всех магазинов, скрывает(checked=true) или отображает(checked=false) строку с товаром из строки row 'возвращает true если строка row - строка с товаром, иначе false Private Function CheckRow(ByVal row As Long, ByVal checked As Boolean) As Boolean Dim goods As String Dim sh As Worksheet Dim r As Long On Error Resume Next goods = Trim(Cells(row, GOODS_NAME_COL).Value) 'наименование товара If goods <> "" Then 'любые строки со значением во второй ячейке - считаются "с товаром", здесь можно добавить дополнительную проверку For Each sh In Worksheets 'для каждого листа книги If Not sh Is Me Then 'лист "склад" нас не интересует 'для поиска соответствующего товара использовал Match(), русский аналог - ПОИСКПОЗ() 'если найдет - вернет номер строки, если не найдет - возникнет ошибка r = Application.WorksheetFunction.Match(goods, sh.Columns(MATCH_COL), 0) If Err.Number = 0 Then 'все OK, строка найдена sh.Rows(r).Hidden = Not checked Else 'строка не найдена, ничего не делаем Err.Clear End If End If Next sh CheckRow = True Else CheckRow = False End If End Function </code>

Ответ отправил: HookEst (статус: Студент) Ответ отправлен: 17.05.2007, 08:59

Вопрос № 87.107

Здравствуйте, уважаемые эксперты! Помогите, пожалуйста, новичку! Как загнать в переменную SQL запрос? Грубо хотелось бы так: Msgbox = SELECT Employees.MedExpDate FROM Employees WHERE Employees.LastName = "ivanov". Если возможно пошагово. Заранее благодарен!!!

Отправлен: 16.05.2007, 04:46 Вопрос задал: Malex (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: PsySex Здравствуйте, Malex! Алгоритм примерно такой: пусть rRecordset есть выборка SQL запросом, sMessSQL - текстовая перемення. См. приложение. Приложение: 'запускаем цикл от начала до конца рекорсета sMessSQL="" Do While rRecordset.EOF = False 'читаем данные из полей sFamilia=rRecordset.Fields("Fam") sIma=rRecordset.Fields("Name") sExpDate=rRecordset.Fields("MedExpDate") 'все соединяем в одну строку и добавляем переход на следующую строку sMessSQL=sMessSQL+sFamilia+" "+sIma+" "+sExpDate+vbCrLf 'переходим на следующую запись в выборке rRecordset.MoveNext Loop MsgBox sMessSQL --------- Bom Shankar!

Ответ отправил: PsySex (статус: Практикант) Ответ отправлен: 16.05.2007, 13:26

Отвечает: Тесленко Евгений Алексеевич Здравствуйте, Malex! Вопрос, я так Если Вам необходимо "загнать" в переменную не рекордсет, как описал PsySex, а "текст самого запроса", это будет выглядеть так: sSQL=" SELECT Employees.MedExpDate FROM Employees WHERE Employees.LastName = 'ivanov' " текстовые значения внутри запроса заключаются в апострофы (') и тогда MsgBox sSQL будет работать. Кажется вопрос в этом, простите если ошибся. Евгений. P.S. Если же я ошибся, то рекомендую в конструкции предложеной PsySex использовать сборку переменной не с помощью "+" ( "...+sFamilia+..." ) , а с помощью "&" ( "...& sFamilia &..." ) это защитит конструкцию от "Null"

Ответ отправил: Тесленко Евгений Алексеевич (статус: 8-ой класс) Ответ отправлен: 16.05.2007, 18:56

Вопрос № 87.143

Уважаемые эксперты. Пишу программу на Ms Access. и возникло 2 вопроса. 1. Как сделать что бы в объекте поле когда туда вводят данные и нажимают enter. Выволнялась обработка. 2. Есть график в объкте excel.chart поставлено по двойному щелчку мыши увеличение графика. Но когда он увеличиваеть то еще фокус соответственно становиться на него, и открываеться доступ к листам книги. Пробовал передать фокус не получаеться. Не подскажете как избаваться от этого эффекта.

Отправлен: 16.05.2007, 11:35 Вопрос задал: Сазанов Вячеслав Игоревич (статус: 10-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Тесленко Евгений Алексеевич Здравствуйте, Сазанов Вячеслав Игоревич! Вопрос 1. Попробуйте воспользоваться обработчиком события "KeyDown". Евгений. Приложение: Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 13 'код нажатия Enter 'код "обработки" End If End Sub

Ответ отправил: Тесленко Евгений Алексеевич (статус: 8-ой класс) Ответ отправлен: 16.05.2007, 19:13 Оценка за ответ: 5

Вопрос № 87.175

Уважаемые спецы! У меня такой вопрос. Как программно, в VBA Excel, прочитать логический диск с его каталогами и файлами, чтобы затем удалить определенные папки с их содержимым? С удалением каталогов и файлов я разобрался, а вот прочесть содержимое диска не получается. Заранее благодарен.

Отправлен: 16.05.2007, 15:18 Вопрос задал: Игорь Иванович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: NRJ Здравствуйте, Игорь Иванович! FSO вам в помощь. Вот инфа http://www.citforum.ru/programming/digest/fsovb6.shtml с его помощью можно удалять даже ReadOnly только пользуйтесь аккуратно А для обхода всех папок диска используйте рекурсию. а вообще то вот тут было http://www.rusfaq.ru/info/question/85224 Приложение: Dim fso As Object Dim fldr As Folder Dim fil As File Dim drv As Drive dim exl as object sub main() Set exl = CreateObject("excel.application") initDir="c:" Set fso = CreateObject("Scripting.FileSystemObject") Set fldr = fso.GetFolder(InitDir) recurs fldr exl.Visible = True end sub 'рекурсивный обход всех папок Sub recurs(tfldr As Folder) For Each fldr In tfldr.SubFolders For Each fil In fldr.Files ex = ext(fil.Name) ' здесь задаётся типа маска If ex = "tif" Or ex = "jpg" Or ex = "gif" Or ex = "tiff" Or ex = "jpeg" Or ex = "jpe" Or ex = "bmp" Or ex = "psd" Then row = row + 1 exl.Cells(row, 1).Value = FileEd(fil) exl.Cells(row, 3).Value = fil.Name exl.Cells(row, 4).Value = fil.ParentFolder End If Next recurs fldr Next End Sub 'расширение Function ext(fn As String) As String For i = 1 To Len(fn) If Mid(Right(fn, i), 1, 1) = "." Then ext = LCase(Right(fn, i - 1)) Exit For End If Next End Function

Ответ отправил: NRJ (статус: 2-ой класс) Ответ отправлен: 16.05.2007, 17:52

Вопрос № 87.186

Подскажите пожалуйста. Есть три таблицы. Одна = "Привоз товара", другая = "Продажа товара", третья = "Склад" Нужен модуль, который при занесении данных из накладной в форму "Прием товара" добавлял бы количество привезенного товара в таблицу "Склад" (причем может быть привезено по однойй накладной много разного товара). То есть на складе есть запись о товаре (данные о поставщике, описание товара и т.п.). В этой записи есть поле "Количество на складе". Надо, чтоб при нажатии кнопки, например, "Подтвердить заказ" (в форме "Привоз") по каждому привезенному товару в таблице "Склад" добавилось его привизенное количество к уже существующему. И еще чтобы принажатии кнопки в другой форме (Продажа товара) количество товара вычиталось (так же может быть много разного товара сразу).

Отправлен: 16.05.2007, 16:30 Вопрос задал: WakeDown (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Lemeshev Konstantin Здравствуйте, WakeDown! Могу предложить следующее решение. Имеем три таблицы (на мой взглад не стоит хранить в базе то, что можно вычислить): 1. "Приход" - содержит данные от том, какой товар привезли поставщики и сколько поля (Kod_tovara и kolichestvo_tovara) 2. "Уход" - содержит данные от том, какой товар заказали и сколько поля (Kod_tovara и kolichestvo_tovara) 3. "Товары" - содержит номенклатуру товаров поля (Kod_tovara и Naimenovanie_tovara) Тогда задача учета товаров на складе решаеться запросом в приложении При этом если получено отрицательное число, то объем заказа превышает остатки на складе. Приложение: select tov_name,sum(raznica) as Ostatok from Товары left join ( SELECT Приход.Kod_tovara as Kod_tovara , Приход.kolichestvo_tovara as raznica FROM Приход union all SELECT Уход.Kod_tovara , -Уход.kolichestvo_tovara FROM Уход) as A on (Товары.Kod_tovara = A.Kod_tovara ) group by Naimenovanie_tovara;

Ответ отправил: Lemeshev Konstantin (статус: 4-ый класс) Ответ отправлен: 17.05.2007, 12:23

Отвечает: Тесленко Евгений Алексеевич Здравствуйте WakeDown . Если Вы пытаетесь создать продукт, изучение области его будущего применения обязательно. "Привоз" - название рынка в Одессе, а в складской терминологии используется "Приход" и "Расход". Если это "учебная база данных", то для решения я рекомендую Вам использовать не три а одну таблицу. В поле "кол-во" которой, будет регистрироваться движение (расход со знаком минус). Остальные поля такие как: "ДатаДвижения", "Поставщик/Получатель", "ЗаявкаВыполнена_Да/Нет"... я полагаю Вы придумаете. Конструкция запроса при этом существунно упростится, а "учебная" база данных будет вполне работоспособна. Удачи. Евгений.

Ответ отправил: Тесленко Евгений Алексеевич (статус: 8-ой класс) Ответ отправлен: 18.05.2007, 18:10

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.52 от 02.05.2007