ScorpionS Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ppch Дело в том, что этот вариант подходит только в случае если все кнопки находяться на одном листе. А в моем случае (пардон, не сказал сразу) все кнопки на разных листах. И поэтому программа ругается. Я так пробовал прежде, чем обратиться на форум. Результат таков: Compile Error: Sub or Function not defined Как конкретизировать местонахождение этих самых кнопок? Всего записей: 141 | Зарегистр. 24-02-2003 | Отправлено: 15:33 19-12-2003 | Исправлено: ScorpionS, 16:48 19-12-2003

ScorpionS Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Прошу прощения за оффтоп. vserd Решение проблемы с Цитата: А вот как избавиться от цифр я сам написал на предыдущей странице. Кстати, к чему эта буква T? И если уж на то дело пошло, то надо не Цитата: НАЙТИ("лицензия";A1))   , а НАЙТИ(" (лицензия";A1)), иначе будет отображаться "Фирма (л"   Что касается   Цитата: CommandButton9_Click   я тоже решил эту задачу, но по другому: Application.Run "'Имя файла.xls'!Лист1.CommandButton1_Click" Application.Run "'Имя файла.xls'!Лист2.CommandButton2_Click" Application.Run "'Имя файла.xls'!Лист3.CommandButton32_Click" и т.д. Вроде работает как надо. Всего записей: 141 | Зарегистр. 24-02-2003 | Отправлено: 19:38 19-12-2003

GeMini333 Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Здравствуйте! Не могли бы вы мне подсказать как можно прочитать все IP пакеты присылаемые и отсылаемые с локал.компа.   Заранее большое спасибо!   Добавлено :) Всего записей: 5 | Зарегистр. 13-08-2003 | Отправлено: 14:46 20-12-2003

mmt Junior Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Всем прив.  Можно совсем глупый вопрос? Пришлось копаться в скрипте vbs, времени мало, а бейсик я изучал ох как давно, так что помню почти ничего    Проблема в следующем.  Есть команда, которая выдает ошибку(да любая) и прога вываливается. Есть ли оператор(али функция Api ) который бы проверил строку команды типа "     IfError(************)     then  " не прекращая программу?  Позарез надо! Проверка должна быть именно в работе проги и от ее резалта будет зависеть ряд переменных и обращение к разным функциям. ---------- Все страньше и страньше... Всего записей: 1058 | Зарегистр. 25-09-2001 | Отправлено: 18:07 22-12-2003

mmt Junior Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ppch  Спасибо! Причем большое!    Err.Numver  можно применить IsEmpty() - аля If IsEmpty(Err.Numver) ****? Просто мне необходимо лишь узнать, выдает ли команда ошибку и при таком раскладе поменять переменную и продолжить скрипт с этой же команды(эта команда должна отработать нормально в конечном итоге - в этом вся суть).   Хелпа по коммандам у меня ессно нет, потому и спрашиваю. MSDN нет тем более ---------- Все страньше и страньше... Всего записей: 1058 | Зарегистр. 25-09-2001 | Отправлено: 20:50 22-12-2003

mmt Junior Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Старею. Забыл даже это Цитата: Err.Numver . Все понял(вспомнил) и разобрался. Еще раз спасибо ppch - вовремя и точно. ---------- Все страньше и страньше... Всего записей: 1058 | Зарегистр. 25-09-2001 | Отправлено: 10:01 23-12-2003

filmax Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Подскажите как в Excel(VBA) искать адреса всех изменнёных ячеек? Всего записей: 220 | Зарегистр. 12-10-2002 | Отправлено: 12:28 24-12-2003

TuMBLer Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору а где можно скачать Visual Studio или как том оно называется... вощем среда разработки от Мелкомягких ? Всего записей: 58 | Зарегистр. 20-05-2004 | Отправлено: 08:56 18-06-2004

ScorpionS Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Хочется через Word создать макрос, который будет сохранять файл, придавая ему название, используя текст в буфере. Например, я копирую заголовок документа, нажимаю "Сохранить как...", в имя файла вставляю текст из буфера и сохраняю с этим именем. Текст макроса в Visual Basic выглядит следующим образом:       Selection.HomeKey Unit:=wdStory     Selection.EndKey Unit:=wdLine, Extend:=wdExtend     Selection.Copy     ChangeFileOpenDirectory "С:\Аналитика\"     ActiveDocument.SaveAs FileName:="FFFFFFF.doc", FileFormat:= _         wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _         True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _         False, SaveNativePictureFormat:=False, SaveFormsData:=False, _         SaveAsAOCELetter:=False End Sub   Так вот проблема в том, что я не могу придать имя файла - текст, скопированный в буфер обмена. Как мне вместо "FFFFFFF.doc" присвоить текст из буфера, как это записать? Через Excel как то все понятно, присваиваешь имя определенной ячейки и все. А как поступить в данном случае? Всего записей: 141 | Зарегистр. 24-02-2003 | Отправлено: 12:29 02-08-2004

GoodRobin Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Как сделать звуковое сопровождение в ? Всего записей: 344 | Зарегистр. 16-11-2004 | Отправлено: 22:02 09-02-2005

Troitsky Водник Водкин Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Например, так, чтобы звуковое сопровождение не прерывалось: Код: Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _      (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Private Const SND_LOOP = &H8 Private Const SND_ASYNC = &H1 Dim yoursound yoursound = sndPlaySound("твой звуковой файл", SND_ASYNC Or SND_LOOP) Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 23:53 09-02-2005 | Исправлено: Troitsky, 23:53 09-02-2005

Memfivosfey Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Привет всем! Я смотрю здесь собрались все такие олдовые программеры, что я вообще мало что понимаю...  Может мне тоже поможете, у меня есть серъёзная проблемма, даже пол-литры не помогают     Вообщем вопрос в следующем:   Мне оч. нуна заставить читать мою прогу все файлы с диска по очереди, как это делает ну например касперский при проверке. ????????????     (Скрытые, системные и т.д.)     Помогите ПлИз! Всего записей: 352 | Зарегистр. 11-02-2005 | Отправлено: 15:16 11-02-2005

dneprcomp Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Memfivosfey Один из способов: Используй функцию Dir Dir("путь", VbSystem) Смотри описание и примеры для этой функции в хелпе VB Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 01:56 12-02-2005 | Исправлено: dneprcomp, 02:05 12-02-2005

Katiusha Рулевая по Ru-Board Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору нашла ужо. ---------- Я не сдурела. Я вообще такая Всего записей: 1117 | Зарегистр. 26-01-2002 | Отправлено: 01:52 31-07-2005 | Исправлено: Katiusha, 02:01 31-07-2005

ghost3k Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Давайте задавать общие вопросы по Visual Basic 6 здесь   А по Visual Basic .NET где вопросы задавать? Вобщем попробую...   Только собрался так сказать выучить какой нить язык программирования, начать решил с NS Visual Studio .NET/ VB .NET etc., для начала... Вопрос вот в чем: подкиньте плиз кусок кода(код) для выполнения следующего -   ну в самом простом случае есть объект "текстовое поле", с вбитыми туда директориями типа X:\01.02.05,01.03.05, etc., и "кнопка" Delete, при нажатиии на которую на этом самом X:\ потротся ВСЁ (!) КРОМЕ ТОГО что указанно В "текстовое поле"!     Во как! Как замутить? Если кто все же решит помочь заранее благодарю!   Всего записей: 264 | Зарегистр. 07-04-2005 | Отправлено: 19:49 06-08-2005

dneprcomp Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ghost3k Все примеры взяты из хелпа. Комбинируй и учись. А домашние задания за тебя никто делать не будет.   Для того, что бы найти все директории на диске, используй функцию DIR Подробнее... Убиение директорий Подробнее... Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 00:08 07-08-2005 | Исправлено: dneprcomp, 00:12 07-08-2005

ScorpionS Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Помогите реализовать через VisualBasic.   Имеются два Excel' евских файла: "Организации.xls" и "Метода.xls". В файле "Организации.xls" есть список организаций (столбец А), каждому из которых присвоен свой балл (столбец С). В файл "Метода.xls" ежемесячно рассчитывается этот балл для каждой организации. После расчета в ячейке A1 указывается название организации, а в ячейке O73 - расчитанный балл. После этого я копирую O73, перехожу в файл "Организации.xls", в столбце A нахожу строку с нужной организацией (ее название указано в ячейке A1 файла "Метода.xls") и в эту строку по столбцу С вставляю скопированный балл. Хотелось бы автоматизировать этот процесс (создать кнопку, по нажатию на которую выполняются сразу все эти действия), т.к. он очень часто повторяется. Проблему для меня составляет процесс поиска нужной организации, чтобы скопированный балл вставить именно для него.       Range("O73").Select     Selection.Copy     Windows("Организации.xls").Activate     Здесь и должен быть описан процесс поиска организации (название - значение в ячейке A1 файла "Метода.xls") в столбце А файла "Организации.xls", чтобы затем присвоить ячейке (в этой же строке и столбце С) скопированное значение.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False Всего записей: 141 | Зарегистр. 24-02-2003 | Отправлено: 16:43 12-09-2005 | Исправлено: ScorpionS, 16:55 13-09-2005

Страницы: 1 2 3 4 5 6 7 8 9

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Visual Basic 6

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование