Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64 РАССЫЛКИ ПОРТАЛА RFPRO.RU Лучшие эксперты по данной тематике | Номер выпуска: | 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" - удаляет выделенную строку. Надо немного доработать Приложение:
Консультирует HookEst (Специалист): Здравствуйте, Johnny2000!
В приложении код, который "находит слово No difference и удаляет эту строку, а также строку выше этого слова и ниже этого слова" на первом листе.
Единственно, в случае если No difference найдется в первой строке, возникнет ошибка, т.к. нет строки выше этой. Этот случай если надо, нужно предусмотреть. Приложение:
Консультация # 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
Если же в лоб не обязательно, тогда просто скройте весь фрейм и контролы исчезнут вместе с ним;)
Консультирует Miklucho (Практикант): Здравствуйте, Александр А.А.!
Скрой сам контейнер:
frame1.visible=false - тогда скроются и все объекты находящиеся в этом контейнере.
Правда в случае формы скроется и сама форма.
Можно также поэлементно каждому изменять значение св-ва visible. Консультация # 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
Консультирует Евгений: Здравствуйте, Миронычев Виталий!
Пропишите в исходнике листа следующее:
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 макрос пошел прекрасно, чего желаю и Вам 
Оценить выпуск | Задать вопрос экспертам главная страница | стать участником | получить консультацию
техническая поддержка | восстановить логин/пароль Дорогой читатель! Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно! МЫ РАБОТАЕМ ДЛЯ ВАС!
|
Комментариев нет:
Отправить комментарий