asbo
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
' *** Лист2
Private Sub CommandButton1_Click()
Call sb_CommandButton1_Click_Proceed
End Sub
' *** Module2
Public Sub sb_CommandButton1_Click_Proceed()
Dim rng As Range
Set rng = Selection
With rng
Select Case .Column
Case 5
Select Case .Hyperlinks.Count > 0
Case True
' do something
Case False
' do something
Application.Dialogs(xlDialogInsertHyperlink).Show
End Select
Case Else
' do something
End Select
.Select
End With
End Sub |
|
Всего записей: 1805 | Зарегистр. 03-10-2006 | Отправлено: 10:40 06-06-2011 | Исправлено: asbo, 10:44 06-06-2011 |
|
