Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / количество слов / 13 сообщений из 13, страница 1 из 1
10.11.2006, 12:50:33
    #34119175
ого
ого
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
количество слов
ПОМОГИТЕ!!! очень надо подсчитать количество символов в документе Excel. ни фига не шарю в Excel :( а надо...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2006, 13:15:46
    #34119303
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
количество слов
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub Temp()
    On Error Resume Next
    Dim lngRow&, lngCol&, lngLastRow&, lngLastCol&
    Dim strTemp$, lngCharactersAmount&
    lngLastRow =  0 : lngLastCol =  0 
    strTemp = "": lngCharactersAmount =  0 
    lngLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
    lngLastCol = Cells.SpecialCells(xlCellTypeLastCell).Column
    For lngRow =  1  To lngLastRow
        For lngCol =  1  To lngLastCol
            strTemp = Cells(lngRow, lngCol).Text
            lngCharactersAmount = lngCharactersAmount + Len(strTemp)
        Next
    Next
    MsgBox lngCharactersAmount
End Sub
В связи с неточной формулировкой задачи, привожу код процедуры, которая считает все символы во всех ячейках текущего листа, правильнее здесь нужно будет включить и цикл по всем листам
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2006, 13:45:00
    #34119420
ого
ого
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
количество слов
Огромное спасибо!!! Правда, ещё не попробавала. Для уточнения: есть Excel'евский файл, нужно посчитать количество знаков в нем, пусть с запятыми и т.д. Но желательно без пробелов... Листов в файле может быть сколько угодно. Сама никогда не программировала на VB, но вот позарез надо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2006, 18:03:24
    #34120414
ого
ого
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
количество слов
И все-таки, пожалуйста подскажите, как просмотреть по всему документу(по всем листам)?? Наверное, это тривиальный вопрос, но я действительно не знаю VB... :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2006, 18:04:59
    #34120423
ого
ого
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
количество слов
А ещё, как не учитывать пробелы и знаки перпинания? Ну очень-очень надо....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2006, 13:16:17
    #34121136
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
количество слов
orunbek
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Sub Temp()
    On Error Resume Next
    Dim i&,lngChars&,lngRow&, lngCol&, lngLastRow&, lngLastCol&
    Dim strTemp$, lngCharactersAmount&
    lngLastRow =  0 : lngLastCol =  0 
    strTemp = "": lngCharactersAmount =  0 
    lngLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
    lngLastCol = Cells.SpecialCells(xlCellTypeLastCell).Column
    For lngRow =  1  To lngLastRow
        For lngCol =  1  To lngLastCol
            strTemp = Cells(lngRow, lngCol).Text
            lngChars= 0 
            For i= 1  To Len(strTemp)
                 If Asc(Mid(strTemp,i, 1 ))<> 32  Then lngChars=lngChars+ 1 
            Next
            lngCharactersAmount = lngCharactersAmount + lngChars
        Next
    Next
    MsgBox lngCharactersAmount
End Sub
В связи с неточной формулировкой задачи, привожу код процедуры, которая считает все символы во всех ячейках текущего листа, правильнее здесь нужно будет включить и цикл по всем листам
здесь 32 - код пробела, добавьте другие коды для запятых и т.д.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2006, 15:29:35
    #34121237
ого
ого
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
количество слов
Огромное спасибо!!! Вы очень мне помогли! Прямо не знаю как отблагодарить :*)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2007, 16:51:11
    #34674067
mafusail
mafusail
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
количество слов
Помогите пожалуйста с скриптом для например выдленной ячейки, или диапазона ячеек. Учитывать можно все: и пробели, и знаки препинания.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2007, 18:45:27
    #34674440
Pavel55
Pavel55
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
количество слов
Точно не знаю, но может так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub CountSelection()
    Dim iSel As Range, iCell As Range, lngChars&, i&, lngCharactersAmount&, strTemp$
    Set iSel = Selection
    For Each iCell In iSel
        strTemp = iCell.Text
        lngChars =  0 
            For i =  1  To Len(strTemp)
                 '32 - пробел, 44 - запятая, 46 - точка
                 If Asc(Mid(strTemp, i,  1 )) <>  32  And _
                    Asc(Mid(strTemp, i,  1 )) <>  44  And _
                    Asc(Mid(strTemp, i,  1 )) <>  46  Then lngChars = lngChars +  1 
            Next i
            lngCharactersAmount = lngCharactersAmount + lngChars
    Next iCell
    MsgBox "Выделенный диазапазон содержит " & lngCharactersAmount & " символов.",  64 , "Info"
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2007, 18:47:25
    #34674446
Pavel55
Pavel55
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
количество слов
А если вам можно всё учитывать, то можно вопспользоваться функцией Excel =ДЛСТР(A1), где A1 ссылка на ячейку с текстом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.07.2007, 00:45:40
    #34674763
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
количество слов
Считаем кол-во символов формулой:

Всего символов в диапазоне
=СУММПРОИЗВ(ДЛСТР(A1:D4))

Всего символов в диапазоне кроме пробелов
=СУММПРОИЗВ(ДЛСТР(ПОДСТАВИТЬ(A1:D4;" ";"")))

Всего символов в диапазоне кроме пробелов
=СУММПРОИЗВ(ДЛСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1:D4;" ";"");",";"")))

Но это будут считаться именно значения ячеек

А если нужно именно кол-во вводимых символов
например выражение =12*2 : ввели 5 символов, а значение 24 только 2 символа
Чтобы считать с формулами нваерное что-то типа этого
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub Макрос1()
Dim x As Long, iCel As Range
For Each iCel In Range("A1:D4")
 x = x + Len(iCel.Formula)
Next iCel
Debug.Print x
End Sub

Но всё рвно даты не будет нормально считать : например 10.10.2010 в формате даты всего 5 символов во всеъх вариантах. Вообщем тут нужно с методой определится!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.07.2007, 00:47:11
    #34674764
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
количество слов
Deggasad

Всего символов в диапазоне кроме пробелов
=СУММПРОИЗВ(ДЛСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1:D4;" ";"");",";"")))


конечно же
Всего символов в диапазоне кроме пробелов и запятых
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2007, 11:14:44
    #34679314
mafusail
mafusail
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
количество слов
Pavel55 Спасибо, подошел ваш скрипт.
Именно это и нужно для нашего контент-менеджера - знать количество знаков в каждой ячейке, просто для того, чтобы не превышать допустимый лимит.
Потому что копировать содержимое из ячейки в Ворд - считать там и корректировать - дело хлопотное.
Еще раз спасибо)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / количество слов / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 358ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2182567]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 86ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 207ms
total:  358ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]