количество слов / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / количество слов

13 сообщений из 13, страница 1 из 1

количество слов

#34119175

ого

Гость

ПОМОГИТЕ!!! очень надо подсчитать количество символов в документе Excel. ни фига не шарю в Excel :( а надо...

...

Рейтинг:

0 / 0

10.11.2006, 12:50:33

| Ответить | Цитировать | Написать

количество слов

#34119303

orunbek

Участник

Откуда: Гималай

Сообщения: 2 066

Рейтинг: 0 / 0

Код: 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:15:46

| Ответить | Цитировать | Написать

количество слов

#34119420

ого

Гость

Огромное спасибо!!! Правда, ещё не попробавала. Для уточнения: есть Excel'евский файл, нужно посчитать количество знаков в нем, пусть с запятыми и т.д. Но желательно без пробелов... Листов в файле может быть сколько угодно. Сама никогда не программировала на VB, но вот позарез надо!

...

Рейтинг:

0 / 0

10.11.2006, 13:45:00

| Ответить | Цитировать | Написать

количество слов

#34120414

ого

Гость

И все-таки, пожалуйста подскажите, как просмотреть по всему документу(по всем листам)?? Наверное, это тривиальный вопрос, но я действительно не знаю VB... :(

...

Рейтинг:

0 / 0

10.11.2006, 18:03:24

| Ответить | Цитировать | Написать

количество слов

#34120423

ого

Гость

А ещё, как не учитывать пробелы и знаки перпинания? Ну очень-очень надо....

...

Рейтинг:

0 / 0

10.11.2006, 18:04:59

| Ответить | Цитировать | Написать

количество слов

#34121136

orunbek

Участник

Откуда: Гималай

Сообщения: 2 066

Рейтинг: 0 / 0

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

...

Рейтинг:

0 / 0

11.11.2006, 13:16:17

| Ответить | Цитировать | Написать

количество слов

#34121237

ого

Гость

Огромное спасибо!!! Вы очень мне помогли! Прямо не знаю как отблагодарить :*)

...

Рейтинг:

0 / 0

11.11.2006, 15:29:35

| Ответить | Цитировать | Написать

количество слов

#34674067

mafusail

Гость

Помогите пожалуйста с скриптом для например выдленной ячейки, или диапазона ячеек. Учитывать можно все: и пробели, и знаки препинания.

...

Рейтинг:

0 / 0

20.07.2007, 16:51:11

| Ответить | Цитировать | Написать

количество слов

#34674440

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:45:27

| Ответить | Цитировать | Написать

количество слов

#34674446

Pavel55

Гость

А если вам можно всё учитывать, то можно вопспользоваться функцией Excel =ДЛСТР(A1), где A1 ссылка на ячейку с текстом

...

Рейтинг:

0 / 0

20.07.2007, 18:47:25

| Ответить | Цитировать | Написать

количество слов

#34674763

Deggasad

Участник

Откуда: Воронеж

Сообщения: 3 509

Рейтинг: 0 / 0

Считаем кол-во символов формулой:

Всего символов в диапазоне
=СУММПРОИЗВ(ДЛСТР(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:45:40

| Ответить | Цитировать | Написать

количество слов

#34674764

Deggasad

Участник

Откуда: Воронеж

Сообщения: 3 509

Рейтинг: 0 / 0

Deggasad

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

конечно же
Всего символов в диапазоне кроме пробелов и запятых

...

Рейтинг:

0 / 0

21.07.2007, 00:47:11

| Ответить | Цитировать | Написать

количество слов

#34679314

mafusail

Гость

Pavel55 Спасибо, подошел ваш скрипт.
Именно это и нужно для нашего контент-менеджера - знать количество знаков в каждой ячейке, просто для того, чтобы не превышать допустимый лимит.
Потому что копировать содержимое из ячейки в Ворд - считать там и корректировать - дело хлопотное.
Еще раз спасибо)

...

Рейтинг:

0 / 0

24.07.2007, 11:14:44

| Ответить | Цитировать | Написать

13 сообщений из 13, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / количество слов

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&fpage=273&tid=2182567]:	0ms
get settings:	7ms
get forum list:	12ms
check forum access:	2ms
check topic access:	2ms
track hit:	27ms
get topic data:	7ms
get forum data:	2ms
get page messages:	29ms
get tp. blocked users:	1ms
others:	202ms

total:	291ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы