Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.825 RSS
←   Ноябрь 2016   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.825 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

Sergey V. Gornostaev
Статус: Специалист
Рейтинг: 83
∙ повысить рейтинг » 		Megaloman
Статус: Академик
Рейтинг: 40
∙ повысить рейтинг » 		PsySex
Статус: Профессионал
Рейтинг: 27
∙ повысить рейтинг »

∙ Basic

Номер выпуска:1112
Дата выхода:13.11.2016, 18:15
Администратор рассылки:Андреенков Владимир (Профессор)
Подписчиков / экспертов:13 / 10
Вопросов / ответов:3 / 10

Консультация # 55951: Здравствуйте уважаемые коллеги! В контроле ListBox есть свойство Columns. Чё с ним можно сделать? По логике оно устанавливает количество колонок, причем если его установить через окно Свойств например в 2, то да контрол делится на 2 колонки, а если вызвать из кода List1.Columns = 2, то ошибка Консультация # 36008: Здравствуйте. Вопросы по Visual Basic 6.0. 1. Нужно удалить содержимое папки. Именно содержимое, а не папку. Как это сделать? 2. Нужно не большую прогу написать, чтоб она до провайдера дозванивалась. С чего начать, даже ума не приложу. Подкиньте кодик небольшой. ..
Консультация # 102736: Уважаемые эксперты, не могу решить один важный для меня вопрос. У меня есть список подразделений организации, достаточно длинный. Он находится в столбце А. В столбцах В и С содержатся данные по этим подразделениям. В столбце D напротив каждого филиала мне нужно автоматически проставлять слово "филиал", напротив ...

Консультация # 55951:

Здравствуйте уважаемые коллеги!
В контроле ListBox есть свойство Columns. Чё с ним можно сделать? По логике оно устанавливает количество колонок, причем если его установить через окно Свойств например в 2, то да контрол делится на 2 колонки, а если вызвать из кода List1.Columns = 2, то ошибка smile Ну даже если я разделил на две колонки, как добавить строку во вторую колонку?

Дата отправки: 19.09.2006, 13:35
Вопрос задал: PsySex (Профессионал)
Всего ответов: 5
Страница онлайн-консультации »

Консультирует ADSota:

Здравствуйте, PsySex!

Это свойство только для чтения... Строки делятся по колонкам самим контролом в зависимости от их видимого количества.

Консультировал: ADSota
Дата отправки: 19.09.2006, 13:50
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Макаренко Е.В.:

Здравствуйте, PsySex!
Вот Вам вариант рабочего кода. Содран из хелпа по листбоксу. У меня работал.
Скорей всего Вы перепутали Culumn и ColumnCount.
Запустите код - сразу все станет ясно.
Если глюки обнаружаться - пишите в личку.

Приложение:

Консультировал: Макаренко Е.В.
Дата отправки: 19.09.2006, 14:12
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Тесленко Евгений Алексеевич:

Здравствуйте, PsySex!
В VB свойство ListBox.Columns=0 устанавливает отображение списка вертикально в одну колонку, программно не изменяется. Свойство ListBox.Columns = i устанавливает горизонтальное отображение списка числом колонок равным i. Число i можно изменять (только не на 0), будет изменяться отображаемое колличество колонок, но это только отображение, работа с ListBox не изменяется.

Удачи.
Евгений

Консультировал: Тесленко Евгений Алексеевич
Дата отправки: 19.09.2006, 20:52
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Митрофанов Артем Борисович:

Здравствуйте, PsySex!
Используйте метод addNew("Текст")
Удачи!

Консультировал: Митрофанов Артем Борисович
Дата отправки: 21.09.2006, 14:09
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Кокорич Вадим Леонидович:

Здравствуйте, PsySex!

Не знаю, в чем у Вас проблема. Я использую VB 6.0 в составе Microsoft Visual Studio SP5 - все нормально. Я просто создал форму, поместил ListBox, TextBox и Command1.
Свойства контролов вообще не трогал, за исключением одного: сразу ввел 7 значений в List1.List. Размер контрола на форме установил таким образом, чтобы помещалось по высоте только 5 значений. Запустил на выполнение - появились значения в 2 столбца. Фактически, вся программа состоит всего из одной строки:

Command1_Click()
List1.AddItem Text1.Text
End sub

Ввожу сколько угодно значений - и контрол помещает их в несколько столбцов.

Консультировал: Кокорич Вадим Леонидович
Дата отправки: 21.09.2006, 17:37
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 36008:

Здравствуйте.
Вопросы по Visual Basic 6.0.
1. Нужно удалить содержимое папки. Именно содержимое, а не папку. Как это сделать?
2. Нужно не большую прогу написать, чтоб она до провайдера дозванивалась. С чего начать, даже ума не приложу. Подкиньте кодик небольшой.

Дата отправки: 22.02.2006, 23:22
Вопрос задал: Неизвестнов Том
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Not Defined:

Здравствуйте, Неизвестнов Том!
1. Для получения имен файлов в каталоге воспользуйтесь ф-цей Dir.
StrFileName = dir (c:\Path\*.*) \'вернет первый файл, для получения имен следующих файлов вызываем Dir без параметров.

Примерно так

StrFileName = dir (c:\Path\*.*)
Убиваем файл StrFileName, по моему Kill
While dir<>""
StrFileName = dir
Kill StrFileName
Wend

2. Начните с Microsoft Comm Control 6.9

Консультировал: Not Defined
Дата отправки: 22.02.2006, 23:53
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 102736:

Уважаемые эксперты,

не могу решить один важный для меня вопрос.

У меня есть список подразделений организации, достаточно длинный. Он находится в столбце А. В столбцах В и С содержатся данные по этим подразделениям.

В столбце D напротив каждого филиала мне нужно автоматически проставлять слово "филиал", напротив каждого агентства - слово "агенство", в случае если это подразделение не является ни агенством, ни филиалом, то проставлять ничего не нужно.

То есть мне нужно реализовать программу, которая будет проверять, содержится ли в тексте ячейки столбца А текст "филиал" или "агенство", и если содержится, проставлять в данные в столбец D.

Просто пределением значения ячейки проблему решить не удастся, так как каждый филиал и каждое агенство имеет уникальное имя и совпадают в них только слова "агентство" и "филиал".

Кроме того, надо, чтобы программа заканчивала своё действие, как только наткнётся на первую пустую ячейку в столбце А.

Заранее благодарен за ответы

С уважением, Александр

Дата отправки: 20.09.2007, 10:25
Вопрос задал: Икрамов Александр Павлович
Всего ответов: 4
Страница онлайн-консультации »

Консультирует Alexander N. Monastyrsky:

Здравствуйте, Икрамов Александр Павлович!

Зачем так сложно. Можно решить гораздо проще.
Вставляем в ячейку D1 формулу:
см. Приложение.

А потом применяем умное копирование на столько строк, сколько нужно.
В крайнем случае, можно разобрать конструкцию и склепать макрос-модуль.
Логику я показал.

Часть ответа удалена, как неимеющая отношения к вопросу.


-----
∙ Отредактировал: Maxim V. Tchirkine (Академик)
∙ Дата редактирования: 20.09.2007, 11:34

Приложение:

Консультировал: Alexander N. Monastyrsky
Дата отправки: 20.09.2007, 10:55
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Черников Игорь Владимирович:

Здравствуйте, Икрамов Александр Павлович!
Sub Макрос1()
Dim Наименование As String
Dim счётчик As Integer
Do
счётчик = счётчик + 1
Наименование = Worksheets("Лист1").Range("A" & счётчик)
If Наименование = "" Then Exit Do
If InStr(Наименование, "агентство") <> 0 Then Worksheets("Лист1").Range("D" & счётчик).Value = "Агентство"
If InStr(Наименование, "филиал") <> 0 Then Worksheets("Лист1").Range("D" & счётчик).Value = "Филиал"
Loop
End Sub

Можно и без макроса:
=ЕСЛИ(ЕОШИБКА(ПОИСК("агентство";A1)>0)=ИСТИНА;ЕСЛИ(ЕОШИБКА(ПОИСК("филиал";A1)>0)=ИСТИНА;"";"филиал");"агентство")

Консультировал: Черников Игорь Владимирович
Дата отправки: 20.09.2007, 18:48
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Тесленко Евгений Алексеевич:

Здравствуйте, Икрамов Александр Павлович!
Совсем случайно (как рояль в кустах:)) у меня есть готовое решение для Вас.
http://ifolder.ru/3435362
Это надстройуа Excel. После ее подключения, появляется пункт меню, вызывающий диалог. В диалоге указываете столбец поиска, искомый текст, целевой столбец и отобращаемую метку - "Выполнить" и все готово.
Удачи.
Евгений.

Консультировал: Тесленко Евгений Алексеевич
Дата отправки: 21.09.2007, 22:05
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Архипов Александр Леонидович:

Здравствуйте, Икрамов Александр Павлович!
Попробуй вот так:
=ЕСЛИ(ЕОШИБКА(ПОИСК("филиал";A1)>0);ЕСЛИ(ЕОШИБКА(ПОИСК("агенство";A1)>0);"";"агенство");"филиал")

Консультировал: Архипов Александр Леонидович
Дата отправки: 24.09.2007, 13:59
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!
В избранное