Чистка полей
Чтобы закончить рассмотрение вопросов, связанных с приданием интерактивности той части документа, где речь идет о реквизитах заказчика, нам осталось рассмотреть самую простую задачу - чистки соответствующих полей документа. Эта задача является частью более общей задачи чистки всех полей документа, но она может возникать и в процессе работы с разделом "Реквизиты заказчика". Понятно, что с программистской точки зрения особых проблем здесь возникать не может. Тем не менее, приведу текст обработчика события Click командной кнопки "Очистить":
Private Sub CommandButton4_Click() 'Чистка полей бланка с реквизитами заказчика ClearCustomerFields End Sub Public Sub ClearCustomerFields() 'Чистка полей бланка с реквизитами заказчика Dim curField As Range Set curField = Range("D19:J22") curField.ClearContents Set curField = Range("D21") curField = "tel: Email: " End Sub
Единственное, о чем стоит упомянуть, это то, что при чистке сохраняется формат, который следует выдерживать при задании новой информации в поле, отведенном для указания телефона и Email адреса.
