2003/XP/2000 - [архив] Microsoft Excel 2003 и более ранние версии

[a_axe]

Я так думаю, что речь идет о меню "Данные"=>"Фильтр=>автофильтр" (только надо эту таблицу выделить)

С макросом сложнее, он будет типа того что ниже, только посложнее:



Public Sub Workbook_SheetCalculate(ByVal Sh As Object)

Dim intSt, intEnd, intCt, intCol As Integer

'со строки N3

intSt = 3

'до строки N17

intEnd = 17

'со смотрим колонку N7

intCol = 7



For intCt = intSt To intEnd



If Cells(intCt, intCol) = 0 Then

Rows(intCt).Hidden = True

ElseIf Cells(intCt, intCol) > 0 Then

Rows(intCt).Hidden = False

End If

Next intCt



End Sub

[AceM]

Помогите пожалуйста!!! Как отсортировать данные в столбце по количеству букв в слове? Надо ли использовать макрос или все проще?

[Dimanella]

Можно макросом, можно проще, все зависит от того, что вы хотите получить. Если без VBA, самый простой вариант: в соседнем столбце вбиваем функцию =ДЛСТР("ячейка"), кторая возвращает длину строки текста ячейки. Затем выделяете столбец данных и новый столбец, заходите в меню "данные" ->"сортировка" и сортируете по значениям нового столбца. После сортировки столбец удаляете.

На всякий пожарный - выкладываю скрины.

Вложения

[Расширение jpg было запрещено, вложение больше недоступно.]

Вложения

[Расширение jpg было запрещено, вложение больше недоступно.]

[Dimanella]

Cпасибо за совет - сейчас испытаю. Мне нужно получить два вида сортировки. По количестве букв в строке и по второй букве в слове.

Я нашел где находятся различные функции, но понять смысл пока не могу.

[Dimanella]

Такой вопрос. В екселе есть два столбца и порядка 14к строк. как сделать так, что бы эксель обрезал все строки первого столбца до 100 символов?

[Lord NightGhost]

Точно! Спасибо. Хотя в 2007 и маленькие mm работают...

[a_axe]

'первая прога проверяет ячейки 1 столбца до первой пустой, вторая - все ячейки первого столбца

Код:

Код: Выделить всё

------------------------------------------------------------------------------------
Public Sub TruncCell()
Dim WBK As Workbook
Dim WSHT As Worksheet
Dim i As Integer
Set WBK = Application.ActiveWorkbook
Set WSHT = WBK.ActiveSheet
i = 1
    Do While WSHT.Cells(i, 1)  "" And i  65536
        WSHT.Cells(i, 1).Value = Left(WSHT.Cells(i, 1).Value, 100)
        i = i + 1
    Loop
End Sub
--------------------------------------------------------------------------------
Public Sub TruncCellALL()
Dim WBK As Workbook
Dim WSHT As Worksheet
Dim i As Long
Set WBK = Application.ActiveWorkbook
Set WSHT = WBK.ActiveSheet
For i = 1 To 65536
        WSHT.Cells(i, 1).Value = Left(WSHT.Cells(i, 1).Value, 100)
Next i
End Sub

[guskov]

проблема :

50 пользователей одновремено открывают один и тот же файл, и начинают его править и пытаться сохранять, получается огромная каша с временными файлами, ни чего не сохраняется, получается ерунда. это все лежит на файловом сервере в общем доступе , опубликовано в AD, офис 2003\ХР на рабочих станциях. Посоветуйте что можно сделать !?

[Vadikan]

guskov

А чего вы хотите добиться?

[vai1019]

Первый раз на форуме, поэтому простите если попал не туда.

Создал в документе Excel расчетные формулы и этот документ (файл) надо отдавать на обработку в другой отдел. Но сотрудники второго отдела берут открывают мой документ и внаглую копируют формулы, вставляя их в свои документы.

Вопрос: Как защитить содержимое документа Excel от полного (любого) копирования, если документ должен быть полностью читаем, т.е. открываться и никакого пароля при открытии не было (никто этого бы не обнаружил, что с документом не все просто...)?