|
Тема |
Re: Моля за помощ [re: Hoвa] |
|
Автор | Mишo (Нерегистриран) | |
Публикувано | 16.03.02 22:05 |
|
|
Здрасти.
Няма директен начин да го направиш.
Все пак с макрос може да стане.
Ето една процедура написана на ВБ. Тя ще свърши работа.
Въведи я в списъка с макроси на Ексела.
След това избери колоната с имената и стартирай макроса.
(Всичко това го направи в копие на оригиналния файл!)
Когато избираш имената, не избирай цялата колона, а само полетата, където има записи.
Процедурата е валидна само, ако в една клетка са и името и фамилията на човека. В противен случай ще създаде лист за името и лист за фамилията.
Успех.
'**************************************************************
Sub AddSheets()
Dim strName as string
For Each c In Selection
If Not c.Value = "" Then
strName = c.Value
Sheets.Add
On Error GoTo ErrHandle
ActiveSheet.Name = strName
Cells(1, 1) = strName
End If
Next
Exit Sub
ErrHandle:
Resume Next
End Sub
'****************************************************************
|
| |
|
|
|