Вопрос № 96092: Как в Exсel-e из VBA отключить предупреждения типа:
1) "Заменить содержимое ячеек?" при исп. "Текст по столбцам"
2) "Сохранить данные в буфере обмена после закрытия приложения?"
Application.Displa...Вопрос № 96095: Ув. эксперты! Здравствуйте. Подскажите, пожалуйста:
Вопрос 1:как сохранить страницу раб.книги EXCEL в .dbf-формат.Причем сохранить со второй строки (без "шапки")?
Вопрос2: как проверить правильность заведения информации в поле с фор...
Вопрос № 96.092
Как в Exсel-e из VBA отключить предупреждения типа:
1) "Заменить содержимое ячеек?" при исп. "Текст по столбцам"
2) "Сохранить данные в буфере обмена после закрытия приложения?"
Application.DisplayAlerts не помогает
Отправлен: 23.07.2007, 14:52
Вопрос задал: S D A (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Volodimir
Здравствуйте, S D A!
2) Если вы работаете с макросами то при копировании нужно в исходном тексте макроса найти "Application.CutCopyMode = False" и поменять на "Application.CutCopyMode = True"
--------- УЧИТСЯ УЧИТСЯ УЧИТСЯ
Ответ отправил: Volodimir (статус: 1-ый класс)
Ответ отправлен: 23.07.2007, 15:38
Вопрос № 96.095
Ув. эксперты! Здравствуйте. Подскажите, пожалуйста:
Вопрос 1:как сохранить страницу раб.книги EXCEL в .dbf-формат.Причем сохранить со второй строки (без "шапки")?
Вопрос2: как проверить правильность заведения информации в поле с форматом "дата"?
Вопрос3:Как "отловить"незаполненную ячейку?
Вопрос4: как правильно сохранить имеющийся проект VBA? Что такое личная книга макросов?
Вопрос5: есть-ли какой-нибудь шаблон для документирования проекта VBA? Если есть - где можно посмотреть?
Заранее спасибо!
Отправлен: 23.07.2007, 15:08
Вопрос задала: Maychik (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Ualife
Здравствуйте, Maychik!
3) Проверка длины значения ячейки. См. макрос в приложении адреса записывает в двумерный масив
4) Я знаю способ сохранения только отдельных частей. Выбираете модуль или форму. Кликаете правой кнопкой мыши и выбираете Export File
Приложение:
--------- Нет границ - есть лишь препятствия!
Ответ отправил: Ualife (статус: 3-ий класс)
Ответ отправлен: 23.07.2007, 15:58 Оценка за ответ: 5 Комментарий оценки: Спасибо большое - буду пробовать
Отвечает: Черников Игорь Владимирович
Здравствуйте, Maychik!
Sub Макрос1()
' Вопрос 1
Rows("2:65536").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="C:Книга2.dbf", FileFormat:=xlDBF4, CreateBackup:=False
End Sub
Sub Макрос2()
' Вопрос 2
If Not IsDate(Cells(1, 1)) Then
MsgBox "В этой ячейке неправильная дата"
End If
End Sub
Sub Макрос3()
'Вопрос 3
Do
НомерСтолбца = НомерСтолбца + 1
Do
НомерСтроки = НомерСтроки + 1
temp = Cells(НомерСтроки, НомерСтолбца)
If temp = "" Then нажатая_кнопка = MsgBox("Эта ячейка не заполнена" & Chr(10) _
& "Строка - " & НомерСтроки & Chr(10) _
& "Столбец - " & НомерСтолбца & Chr(10) _
& "Продалжить?", vbOKCancel)
If нажатая_кнопка = vbCancel Then
End
End If
Loop While Not temp = ""
НомерСтроки = 0
If Cells(НомерСтроки + 1, НомерСтолбца + 1) = "" Then End
Loop
End Sub
Вопрос 4
Проекты VBA автоматически сохраняются в *.exl и в *.doc(можно посмотреть Alt+F11), но можно его экспортировать и сохранить: File - Export file в форматe *.bas, а потом импортировать в любое время (используется при переустановке Windows). При записи макроса в *.exl появляется окно, в котором можно указать где должен храниться макрос, в том часле в личной книге макросов. Если макросы записывать туда, то они будут доступны потом из любой книги *.exl. Находится она в C:Documents and Settings"Имя пользователя"Application
DataMicrosoftExcelXLSTART. Если этот файл скопировать на другой компьютер, в такую же папку, то макросы быдут доступны и там.
'Вопрос 5
http://www.mini-soft.ru/soft/vba/r_18.php
см. раздел "Протестировать программу"
это всё, что я нашёл по этому вопросу.
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 2-ой класс)
Ответ отправлен: 23.07.2007, 20:12 Оценка за ответ: 5 Комментарий оценки: многое пригодилось. Спасибо!
Отвечает: Magister
Здравствуйте, Maychik!
1. Файл->Сохранить как...-> DBF... (dBase...)
3. If Range("d1") = "" Then MsgBox ("Error")
4. Debug->Compile VBA Project, Личная книга макросов - это что-то типа библиотеки...
--------- Aquila non Capta Muscas
Ответ отправил: Magister (статус: 2-ой класс)
Ответ отправлен: 23.07.2007, 22:55 Оценка за ответ: 4 Комментарий оценки: к сожалению, не все так просто :-)) Спасибо за ответ!
