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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.824 RSS
←   Август 2012   →
 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
31


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


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

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

Статистика

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

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


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

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

Лучшие эксперты по данной тематике

Асмик Гаряка
Статус: Советник
Рейтинг: 10900
∙ повысить рейтинг » 		Роман Селиверстов
Статус: Советник
Рейтинг: 5091
∙ повысить рейтинг » 		Гуревич Александр Львович
Статус: Профессионал
Рейтинг: 4659
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Basic/VBA

Номер выпуска:1080
Дата выхода:27.08.2012, 11:00
Администратор рассылки:Кочетков Василий [Vasiliy83] (Профессионал)
Подписчиков / экспертов:92 / 44
Вопросов / ответов:3 / 6

Консультация # 140960: Здравствуйте уважаемые эксперты! Помогите, пожалуйста, с VBA для Excel 2003-2007. Необходим макрос чтобы он находил слово No difference и удалял эту строку, а также стоку выше этого слова и ниже этого слова. Заранее спасибо. ...

Консультация # 17701: Уважаемые эксперты! Как скрыть все элементы управления (не объединённых в массив) в пределах одного контейнера?...
Консультация # 181046: Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос: Как запретить ввод букв в ячейку в Excel?? ( необходим макрос на VBA) спасибо)...

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

Здравствуйте уважаемые эксперты!
Помогите, пожалуйста, с VBA для Excel 2003-2007. Необходим макрос чтобы он находил слово No difference и удалял эту строку, а также стоку выше этого слова и ниже этого слова.

Заранее спасибо.

Дата отправки: 29.07.2008, 10:18
Вопрос задал: Johnny2000
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Пахолюк Артем Владимирович:

Здравствуйте, Johnny2000!
Примерно вот так, но если нет "No difference" - удаляет выделенную строку. Надо немного доработать

Приложение:

Консультировал: Пахолюк Артем Владимирович
Дата отправки: 29.07.2008, 15:41
Рейтинг ответа:

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

Консультирует HookEst (Специалист):

Здравствуйте, Johnny2000!
В приложении код, который "находит слово No difference и удаляет эту строку, а также строку выше этого слова и ниже этого слова" на первом листе.
Единственно, в случае если No difference найдется в первой строке, возникнет ошибка, т.к. нет строки выше этой. Этот случай если надо, нужно предусмотреть.

Приложение:

Консультировал: HookEst (Специалист)
Дата отправки: 31.07.2008, 03:27
Рейтинг ответа:

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

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

Уважаемые эксперты! Как скрыть все элементы управления (не объединённых в массив) в пределах одного контейнера?

Дата отправки: 02.03.2005, 13:39
Вопрос задал: Александр А.А.
Всего ответов: 2
Страница онлайн-консультации »

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

Здравствуйте, Александр А.А.!
А обязательно решать задачу лоб?:) Если да, то присвойте каждому элементу имя Tag, одинаковое для всех элементов (например, myelements), и впишите код:

For ind = 0 To Me.Controls.Count - 1
If Me.Controls(ind).Tag = "myelements" Then Me.Controls(ind).Visible = False
Next

Если же в лоб не обязательно, тогда просто скройте весь фрейм и контролы исчезнут вместе с ним;)

Консультировал: Licvidator
Дата отправки: 02.03.2005, 18:52
Рейтинг ответа:

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

Консультирует Miklucho (Практикант):

Здравствуйте, Александр А.А.!
Скрой сам контейнер:
frame1.visible=false - тогда скроются и все объекты находящиеся в этом контейнере.
Правда в случае формы скроется и сама форма.
Можно также поэлементно каждому изменять значение св-ва visible.

Консультировал: Miklucho (Практикант)
Дата отправки: 03.03.2005, 10:38
Рейтинг ответа:

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

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

Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос:
Как запретить ввод букв в ячейку в Excel?? ( необходим макрос на VBA)

спасибо)

Дата отправки: 30.11.2010, 20:13
Вопрос задал: Миронычев Виталий (5-й класс)
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Измалков Эдуард Леонидович (Студент):

Здравствуйте, Миронычев Виталий!
в модуле "ЭтаКнига" нужно написать следующее

Код :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i As Integer
Const letters As String = "qwertyuiopasdfghjklzxcvbnmёйцукенгшщзхъфывапролджэячсмитьбю"

For i = 1 To Len(Target.Value)
If InStr(1, letters, Mid(Target.Value, i, 1), vbTextCompare) > 0 Then
MsgBox "Нельзя вводить буквы", vbExclamation
Target.Clear
Target.Select
Exit Sub
End If
Next i

End Sub

Консультировал: Измалков Эдуард Леонидович (Студент)
Дата отправки: 30.11.2010, 21:43
Рейтинг ответа:

НЕ одобряю +2 одобряю!

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

Здравствуйте, Миронычев Виталий!
Пропишите в исходнике листа следующее:

Dim TolkoTzifra As String
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Rows.Count = 1) And (Target.Columns.Count = 1) Then
Application.EnableEvents = False
If IsNumeric(Target.Value) <> True Then
TolkoTzifra = MsgBox("Вводите только цифры", vbOKOnly + vbCritical, "Ошибка")
Cells(Target.Row, Target.Column).Select
Selection.ClearContents
Selection.NumberFormat = "0.0"
Else:
Cells(Target.Row, Target.Column + 1).Select
End If
Application.EnableEvents = True
End If
End Sub

У меня в Excel макрос пошел прекрасно, чего желаю и Вам smile

Консультировал: Евгений
Дата отправки: 30.11.2010, 22:30
Рейтинг ответа:

НЕ одобряю +3 одобряю!

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

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

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

© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А. | Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2011.6.36 от 26.01.2012
В избранное