» Excel VBA (часть 2)

Цитата:

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

Странно, я был уверен, что здесь всяко-разно что-то присоветуют %)

Slatsik, во-первых, учтите, не только Вы можете сообразить кинуть Ваш вопрос на другие форумы, но и мы вполне даже в состоянии увидеть на других форумах не только Ваш вопрос, но и даже ответы на него (я имею в виду planetaexсel.ru :-)
во-вторых, поймите, на VBA можно сделать что угодно - но СДЕЛАТЬ, а вот изменять системные функции, "залазить" в ядро Excel, перехватить системные сообщения — Вам никто не даст ;-( поэтому, либо всё делайте на VBA, либо забудьте о
"перехвате события "окно вывода сообщения об ошибке" "... как это ни печально.. ;(

Slatsik
Цитата:

Перехват события "окно вывода сообщения об ошибке" и ...
[...]
дано: лист заблокирован, при попытке изменить значение в защищенной ячейка высвечивается ошибка, что "лист заблокирован и т.п."

Цитата:

Странно, я был уверен, что здесь всяко-разно что-то присоветуют %)

Проще сделайте. Вместо блокировки листа и перехвата сообщения об ошибке просто отслеживайте редактирование данных на листе и изменение выделения.

Код: Private Sub Worksheet_Change(ByVal Target As Range)
...
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
...
End Sub

Всем доброго времени суток!

У меня довольно-таки глупый вопрос, но я ответа так и не нашел.
Суть такова:
На форме есть 20 TextBox'ов - TextBoxCena1, TextBoxCena2, ... , TextBoxCena20
На каждый TextBox установлен код:

Private Sub TextBoxCena1_Change()
CenaChange (Form1.TextBoxCena1)
End Sub

Общий код для обработки изменений:

Private Sub CenaChange (TextBoxControl as Control)
Dim MyString As String
Dim DecimalSymbol As String
DecimalSymbol = Application.International(xlDecimalSeparator)
MyString = TextBoxControl.Value
MyStringLenght = Len(MyString)
If Right(MyString, 1) Like "[0-9]" = True Or Right(MyString, 1) Like DecimalSymbol = True Then
If MyString Like "*" & DecimalSymbol & "*" & DecimalSymbol & "*" = True Then
MyString = Left(MyString , MyStringLenght - 1)
End If
Else
If MyString > "" Then
MyString = Left(MyString, MyStringLenght - 1)
End If
End If
MyString = Replace(MyString, ".", ",")
TextBoxControl.Value = CDbl(MyString)
End Sub

Проблема в том что "CenaChange (Form1.TextBoxCena1)" передает не "Control", а значение поля.
Подскажите пожалуйсто как реализовать эту байду?

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

подскажите, каким способом возможно удалить из листа все объекты shapes в виде линий?
т.е.
на листе есть разные объекты типа shapes
в т.ч. которые бодавлены через Shapes.Addline

код вроде этого - удаляет все объекты типа Shapes

Dim img As Object

For Each img In ActiveSheet.Shapes
'if img - ???????
img.Delete

Next

=====
заранее благодарю, если кто подскажет )

Ребята подскажите как записать такое:
Sheets(Array(1, 2, 3, 4, 5)).Select скажем если листов штук 100 а вставить все цифры в массив это ... может есть вариант ? СПС

SantOtche
Каждый контрол возвращает дефолтное значение. Для TextBox это text. Вот оно и передается в функцию. Попробуй
Код: Private Sub CenaChange (TextBoxControl msforms.TextBox)

nick7inc - спасибо!

я пробовал такой вариант - частично он позволяет решить поставленную задачу. если бы все делалось для себя, то никаких проблем - можно было бы и не заморачиваться. а так... неизвестно, кто будет работать с приложением
при проверке изменений на листе остаются след. прорехи (как минимум):
1) при множественном выделении ячеек и нажатии клавиш ctrl-enter выдается ошибка, так как событие change отслеживается для текущей ячейки, запрет на выделение более одной ячейки не проходит, потому как мне это самому (приложению) нужно. блокировка нажатий ctrl-enter - без проблем - только, боюсь, что это не одна такая комбинация: вдруг есть подобные.
2) что делать с маркером автозаполнения? тоже отключать?
3) возможно, что-то есть еще - все перекрыть сложно и путано, тем более самому нужно заполнять множество ячеек (программно), а потому будет постоянное переключение настроек, когда можно, когда нельзя

Блокировка/разблокировка листа в этом смысле безопасней

Еще раз спасибо!

sandm566

Цитата:

подскажите, каким способом возможно удалить из листа все объекты shapes в виде линий?

Так вы почти всё сделали. Надо было лишь поставить после строки 'if img оператор STOP и под отладчиком посмотреть параметры объекта img. Там есть поле Type.

Код: Private Sub CommandButton1_Click()
Dim img As Object

For Each img In ActiveSheet.Shapes
If img.Type = msoLine Then img.Delete
Next
End Sub

SantOtche
по-моему, при объявлении

Код: Private Sub CenaChange (ByRef TextBoxControl as Control)

Slatsik
Я дополнил свой предыдущий ответ. Могу дать пример с выделением и изменением.

Цитата:

Каждый контрол возвращает дефолтное значение. Для TextBox это text. Вот оно и передается в функцию. Попробуй
Код:Private Sub CenaChange (TextBoxControl msforms.TextBox)

Это не работает

Может еще что то попробовать можно?
Люди добрые, поможите советом пожалуйсто.

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

Доброго времени суток...

Нужна помощь.
Написал макрос, он прекрасно работает...
Он привязан к событию Workbook_Open

Этот макрос должен обрабатывать лист полученный из 1Cv8? для этого программер 1С в своей обработке открывает книгу, и соответственно мой макрос начинает действовать, и выгрузка данных из 1С не проходит.

Подскажите или тыкните носом, что предпринять, чтобы макрос не запускался про обращении из 1С.
За ранее спасибо.

первое что пришло в голову: договориться с программером, что по окончании выгрузки из 1С его обработка втыкает в какую нибудь ячейку какое-нить контрольное значение, а твой макрос отслеживает не открытие книги, а изменения в этой ячейке и как только оно становится равно контрольному начинает действовать.

Хорошее решение....

Спасибо...
А нет ли более красивых решений....?

Эта книга - заказ клиенту, то есть он там забивает циферки, и присылает обратно, и весь его заказ автоматом импортируется в 1С....

то есть ты говоришь о том что бы когда клиент открыл файл макрос еще раз сработал или че?? в какую сторону красоту придумывать?
может быть с программером переговорить - я вот совсем не знаю что может и что не может 1С в ексель передавать, былоб клево еслиб 1с просто макрос запускал да и все, очень красиво бы было.

SantOtche

Цитата:

Проблема в том что "CenaChange (Form1.TextBoxCena1)" передает не "Control", а значение поля.
Подскажите пожалуйсто как реализовать эту байду?

У меня передаёт Control. [more=далее]
Сделал простую форму с двумя полями для текста и кнопкой "Закрыть".

Код:
Sub start()
UserForm1.Show
End Sub

Private Sub CommandButton1_Click()
Hide
End
End Sub

Private Sub TextBox1_Change()
mysub TextBox1
End Sub

Sub mysub(v As Control)

Debug.Print TypeName(v)

End Sub


Private Sub TextBox2_Change()
mysub TextBox2
End Sub

dneprcomp

Цитата:

Dim X as Ineger

For x=1 to 100
Sheets(X).Select
Next X

СПС, но так он сделает не то что надо... он просто по порядку выделит каждый лист, а я хотел выделить все сразу ... может если не так Sheets(Array(1, 2, 3, 4, 5)).Select , то что-то другое посоветуете ?

nick7inc
Огромное спасибо, все работает.

Проблема была в том что я передавал Control:

Код: CenaChange (Form1.TextBoxCena1)

MaximuS G

Код:
Dim i As Integer, s1(1 To 3) As Integer

For i = 1 To 3
s1(i) = i
Next i

Sheets(s1).Select

nick7inc
М-да Спасибо большое... как я не додумался вообще не указывать елементы массива...

ВСЕМ
Подскажите кто знает, почему не работает код под Outlook, скорее всего ошибка синтаксиса, хотя на сайте написано что все должно работать... вот ссылка на сайт
http://www.realcoding.net/teach/outlook/4/Index30.htm
Заранее спасибо!


Код:
Sub Init_Series()
Dim inifile As Integer
Dim srv As String
inifile = FreeFile
iniPath = "C:\bookseries.ini"
Open iniPath For Input As tinifile
Do
Input tinifile(ошибка сдесь пишет expected #),tmp series.Addltem tmp
Loop Until EOF(inifile)
Series.Listlndex = 0
End Sub

MaximuS G
srv = Input(1, #1) ' Get one character.

Syntax:
Input(number, [#]filenumber)

The Input function syntax has these parts:

Part Description
number Required. Any valid numeric expression specifying the number of characters to return.
filenumber Required. Any valid file number.

dneprcomp
СПС, но все равно у меня ничего не получается... Если не тяжело, приведите пожалуйста полный код...Сделал так:

Open iniPath For Input As #1
srv = Input(1, #1) ,(теперь ошибка здесь - expected end of statement) tmp Series.AddItem tmp

И если не тяжело объясните что делает вот эта строка tmp Series.AddItem tmp
СПС

Добавлено:
dneprcomp
Все, разобрался! , не знаю как у них он работал...
Спасибо за помощь!

Доброго времени суток.

Народ подскажите есть ли метод создания формы программно из тела макроса?
А также удаление этой формы?

Вопрос
dim a as string
a= ' полный путь к папке, где лежит эта книга.

Собственно нужно получить а. В коде придется писать ссылки на другие файлы в том числе и не .xls. Подскажите, есть ли решение проблемы? Все эти файлы вместе с рабочей книгой лежат в одной папке, а вот папка может быть где попало. Вообще-то она на флешке но на разных компах диск "флешка" будет под разными буквами

CEMEH
Application.Path

dneprcomp
Не совсем то, что хотелось бы получить
а="C:\Program Files\Microsoft Office\Office12"
Хотя файл на флешке

CEMEH
ThisWorkbook.FullName - Путь до файла
ThisWorkbook.Path - до папки

q1wed
Спасибо огромное! Работает.

Еще вопросик:
Есть две кнопки. Надо сделать, что бы по их нажатию выполнялась подпрограмма

Код:
Private Sub CommandButton3_Click() ' вверх
X=X+1
go ПОДПРОГРАММА
End Sub

Private Sub CommandButton4_Click() ' вверх
X=X+1
go ПОДПРОГРАММА
End Sub

ПОДПРОГРАММА
' бла-бла-бла
return

CEMEH

Код: Private Sub CommandButton3_Click() ' вверх
X=X+1
ПОДПРОГРАММА
End Sub

Private Sub CommandButton4_Click() ' вверх
X=X+1
ПОДПРОГРАММА
End Sub

sub ПОДПРОГРАММА
' бла-бла-бла
End Sub