ГђГ Г§ГЈГ®ГўГ®Г°Г» Г®ГЎ ГЂГ¬ГҐГ°ГЁГЄГҐ :: Просмотр темы

Сайт Андрея Герасимова

ГђГ Г§ГЈГ®ГўГ®Г°Г» Г®ГЎ ГЂГ¬ГҐГ°ГЁГЄГҐ
www.gerasimov.org

Правила

FAQ

Поиск

Пользователи

Группы

Регистрация

Профиль

Войти и проверить личные сообщения

Вход

Microsoft Excel
На страницу Пред. 1, 2

Список форумов ГђГ Г§ГЈГ®ГўГ®Г°Г» Г®ГЎ ГЂГ¬ГҐГ°ГЁГЄГҐ -> ГЏГ°Г® ГЄГ®Г¬ГЇГ»

Предыдущая тема :: Следующая тема

Автор

Сообщение

Oleg_Msk
Г†ГЁГІГҐГ«Гј ГґГ®Г°ГіГ¬Г

Зарегистрирован: 30.09.2004
Сообщения: 1000

Добавлено: Пятница, Ноября 25, 2005 4:54pm Заголовок сообщения:

White Owl писал(а):

Oleg_Msk писал(а):

ГЂ Г¬Г®Г¦ГГ® Г«ГѕГЎГ®Г© ГЇГ°ГЁГ¬ГҐГ° Г°Г Г§Г®ГЎГ°Г ГІГј? ГЏГ°Г®Г±ГІГ® Гї Г®ГІГЄГ°Г»Г« VB ГЇГ® F11..

ГЌГҐ ГЇГіГІГ Г©. VB ГЁ VBA ГЅГІГ® Г®Г·ГҐГГј Г°Г Г§ГГ»ГҐ ГўГҐГ№ГЁ.
VB ГЅГІГ® Г±Г Г¬Г®Г±ГІГ®ГїГІГҐГ«ГјГГ»Г© ГїГ§Г»ГЄ Visual Basic. ГЌГ ГГҐГ¬ Г¬Г®Г¦ГГ® Г¤ГҐГ«Г ГІГј ГўГ±ГҐ Г·ГІГ® ГіГЈГ®Г¤ГГ®.
VBA - Visual Basic for Applications. Г‚Г±ГІГ°Г ГҐГўГ»Г¬Г»Г© ГїГ§Г»ГЄ. Г…ГЈГ® ГўГ®Г§Г¬Г®Г¦ГГ®Г±ГІГЁ Г®ГЈГ°Г ГГЁГ·ГҐГГ» ГІГ®Г«ГјГЄГ® Г°Г ГЎГ®ГІГ®Г© Г± Г¤Г®ГЄГіГ¬ГҐГГІГ®Г¬ ГІГ®ГЈГ® ГЇГ°ГЁГ«Г®Г¦ГҐГГЁГї Гў ГЄГ®ГІГ®Г°Г»Г© ГҐГЈГ® ГўГ±ГіГГіГ«ГЁ. ГЌГ® ГІГ Г¬ Г®Г Г¶Г Г°Гј ГЁ ГЎГ®ГЈ. Г€ГГ®ГЈГ¤Г ГІГ® Г·ГІГ® Г¬Г®Г¦ГГ® Г±Г¤ГҐГ«Г ГІГј ГГ VBA Гў ГЇГ°ГЁГГ¶ГЁГЇГҐ ГГҐГўГ®Г§Г¬Г®Г¦ГГ® Г±Г¤ГҐГ«Г ГІГј ГГ VB.
Г“ VB ГЁ VBA Г±Г®ГўГ°ГҐГёГҐГГГ® Г°Г Г§ГГ»ГҐ ГЇГ®Г¤ГµГ®Г¤Г». ГЌГ VB ГЈГ«Г ГўГҐГГ±ГІГўГіГҐГІ ГЇГ°Г®ГЈГ°Г Г¬Г¬Г , ГГ VBA - Г¤Г®ГЄГіГ¬ГҐГГІ.
ГЏГіГІГ ГІГј VB ГЁ VBA ГЅГІГ® ГЄГ ГЄ Г±ГЄГ«Г Г¤Г±ГЄГ®Г© ГЇГ®ГЈГ°ГіГ§Г·ГЁГЄ ГЇГіГІГ ГІГј Г± ГЄГ Г°ГјГҐГ°ГГ»Г¬ Г±Г Г¬Г®Г±ГўГ Г«Г®Г¬ Г“Г«Г»ГЎГЄГ

ГЂ ГЇГ°ГЁГ¬ГҐГ°... ГГі Г¤Г ГўГ Г© ГГ Г·ГГҐГ¬ Г± Г·ГҐГЈГ®-ГГЁГЎГіГ¤Гј ГЇГ°Г®Г±ГІГҐГГјГЄГ®ГЈГ®. ГЌГ ГЇГ°ГЁГ¬ГҐГ° ГЇГ®Г¤Г±Г·ГЁГІГ ГІГј ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® ГіГЇГ®Г¬ГЁГГ ГГЁГ© ГЄГ ГЄГ®ГЈГ® ГГЁГЎГіГ¤Гј ГЇГ°ГҐГ¤Г¬ГҐГІГ ГГ Г«ГЁГ±ГІГҐ. Г„ГҐГ«Г ГҐГёГј Гў ГќГЄГ±ГҐГ«ГҐ Г±ГІГ°Г ГГЁГ·ГЄГі Г± ГГ Г§ГўГ ГГЁГҐГ¬ "Fruits" ГЁ ГГ ГГҐГ© Гў Г±ГІГ®Г«ГЎГЁГЄ ГЇГЁГёГҐГёГј:

Код:

ГџГЎГ«Г®ГЄГ®
ГѓГ°ГіГёГ
ГџГЎГ«Г®ГЄГ®
ГџГЎГ«Г®ГЄГ®
ГѓГ°ГіГёГ
Г‹ГЁГ¬Г®Г

Г’ГҐГЇГҐГ°Гј ГІГ»ГЄГ ГҐГёГј Alt+F11 ГЁ Гў ГЈГ«Г ГўГГ®Г¬ Г¬ГҐГГѕ ГўГ»ГЎГЁГ°Г ГҐГёГј Insert->Module.
Г‚ Г®ГІГЄГ°Г»ГўГёГҐГ¬Г±Гї Г®ГЄГ®ГёГЄГҐ ГЇГЁГёГҐГёГј:

Код:

Sub CountFruits()
Dim wsSrc As Worksheet, wsDest As Worksheet
Dim rSrc As Range, rDest As Range

Set wsSrc = ThisWorkbook.Worksheets("Fruits")
Set wsDest = ThisWorkbook.Worksheets.Add
wsDest.Range("A1") = "Fruit"
wsDest.Range("B1") = "Count"

For Each rSrc In wsSrc.UsedRange
Set rDest = wsDest.Columns(1).Find(rSrc.Text)
If rDest Is Nothing Then
Set rDest = wsDest.Cells(wsDest.UsedRange.Rows.Count + 1, 1)
rDest.Value = rSrc.Text
End If
rDest.Offset(0, 1).Value = rDest.Offset(0, 1).Value + 1
Next
End Sub

Г’ГҐГЇГҐГ°Гј Г§Г ГЄГ°Г»ГўГ ГҐГёГј VBA, Гў Г®Г±ГГ®ГўГГ®Г¬ Г®ГЄГГҐ Excel ГГ Г¦ГЁГ¬Г ГҐГёГј Alt+F8, ГўГ»ГЎГЁГ°Г ГҐГёГј ГЁГ§ Г±ГЇГЁГ±ГЄГ Г¬Г ГЄГ°Г®Г±Г®Гў ГГ Гё CountFruits ГЁ ГГ Г¦ГЁГ¬Г ГҐГёГј Run. Г€ ГўГ±ГҐ. ГЌГі ГҐГ±Г«ГЁ Г§ГГ ГҐГёГј VB, ГІГ® Г°Г Г§Г®ГЎГ°Г ГІГјГ±Гї ГЎГіГ¤ГҐГІ ГГҐ Г±Г«Г®Г¦ГГ® Г“Г«Г»ГЎГЄГ

ГЂ Г¤Г Г«ГјГёГҐ, Г§Г Г¤Г ГўГ Г© ГЄГ®ГГЄГ°ГҐГІГГ»ГҐ ГўГ®ГЇГ°Г®Г±Г», ГЎГіГ¤ГҐГ¬ Г¤Г ГўГ ГІГј ГЄГ®ГГЄГ°ГҐГІГГ»ГҐ Г®ГІГўГҐГІГ».

Г‚Г®ГІ ГЅГІГ®:

Oleg_Msk писал(а):

ГГі ГГ ГЇГ°ГЁГ¬ГҐГ°, Г±ГІГ°Г®ГЄГ ГҐГ±ГІГј Гі Г¬ГҐГГї Г± ГЇГ«ГѕГ±ГЁГЄГ®Г¬ ГўГЇГҐГ°ГҐГ¤ГЁ, ГЄГ®ГЈГ¤Г Г¬Г» ГГ Г¦ГЁГ¬Г ГҐГ¬ ГГ ГЇГ«ГѕГ±ГЁГЄ, Г°Г Г±ГЄГ°Г»ГўГ ГҐГІГ±Гї Г¤Г®ГЇГ®Г«ГГЁГІГҐГ«ГјГГ Гї ГЁГГґГ®Г°Г¬Г Г¶ГЁГї, ГўГГЁГ§ Г®ГІ ГЅГІГ®Г© Г±ГІГ°Г®ГЄГЁ, ГўГ°Г®Г¤ГҐ ГЄГ ГЄ Г¬ГҐГГѕ Г°Г Г±ГЄГ°Г»ГўГ ГѕГ№ГҐГЈГ®Г±Гї...

ГЏГ°ГЁГ¬ГҐГ° Г®Г·ГҐГГј ГГҐГЄГ®ГГЄГ°ГҐГІГГ®ГЈГ® ГўГ®ГЇГ°Г®Г±Г . Г€ ГўГ®Г®ГЎГ№ГҐ ГГҐ ГЇГ®ГГїГІГГ®, ГўГ®ГЇГ°Г®Г± Г«ГЁ ГЅГІГ®? ГЌГі ГҐГ±ГІГј Гі ГІГҐГЎГї Г±ГІГ°Г®ГЄГ Г± ГЇГ«ГѕГ±ГЁГЄГ®Г¬ ГЁ Г·ГІГ®?

Г‚ГЋ!!Г‘ГЇГ Г±ГЁГЎГ®!Г‚ГГЁГЄГ Гѕ ГЇГ®Г±ГІГҐГЇГҐГГГ®, Г±ГЄГ Г·Г Г« ГІГ°ГЁ ГЄГГЁГЈГЁ Г®Г±Г«Г®Г¬.......ГЏГ°Г ГўГ¤Г ГЄГ®Г¤ ГГҐ Г°Г ГЎГ®ГІГ ГҐГІ, ГГҐ Г§ГГ Гѕ ГЇГ®Г·ГҐГ¬Гі, Г¬Г®Г¦ГҐГІ Гї Г·ГІГ® ГЄГ°ГЁГўГ® Г¤ГҐГ«Г Гѕ.....

Вернуться к началу

Helen_NJ
Г†ГЁГІГҐГ«Гј ГґГ®Г°ГіГ¬Г

Зарегистрирован: 13.11.2003
Сообщения: 1539
Откуда: NC, USA

Добавлено: Суббота, Ноября 26, 2005 5:53am Заголовок сообщения:

Oleg_Msk писал(а):

ГўГ®ГІ Гў Г¤Г ГГГ»Г© Г¬Г®Г¬ГҐГГІ ГЅГІГ® Г¤ГҐГ«Г ГҐГІГ±Гї Г°ГіГЄГ Г¬ГЁ ГЁ Г ГЄГІГіГ Г«ГјГГ® ГЎГ»Г«Г® ГЎГ» Г±Г¤ГҐГ«Г ГІГј Г¬Г ГЄГ°Г®Г±.....ГЁ Г§Г Г®Г¤ГГ® ГЇГ«Г®ГІГГҐГГјГЄГ® Г± ГЅГІГЁГ¬ Г°Г Г§Г®ГЎГ°Г ГІГјГ±Гї, ГЁГЎГ® Гі Г¬ГҐГГї ГІГіГІ ГЇГ°Г®ГЎГҐГ«.....

ГЌГі ГІГ ГЄ Г§Г ГЇГЁГёГЁГІГҐ ГІГ®, Г·ГІГ® Г¤ГҐГ«Г ГҐГІГ±Гї Г°ГіГЄГ Г¬ГЁ, ГЄГ ГЄ Г¬Г ГЄГ°Г® (Macro -> Record) ГЁ ГЇГ®ГІГ®Г¬ ГЄГ°Г®ГЁГІГҐ ГЅГІГ®ГІ ГЄГ®Г¤ ГЄГ ГЄ ГГ Г¤Г®. ГЌГҐ Г§ГГ Гѕ

ГЌГ Г±Г·ГҐГІ "ГЇГ°Г®ГЎГҐГ«Г " ГГҐ ГЇГ®ГГїГІГГ® - ГІГ ГЄ ГўГ» VB/VBA Г§ГГ ГҐГІГҐ ГЁГ«ГЁ ГГҐГІ? ГЉГ ГЄ ГІГіГІ ГЇГ°Г ГўГЁГ«ГјГГ® Г§Г Г¬ГҐГІГЁГ«ГЁ, ГЅГІГ® Гў ГЇГ°ГЁГГ¶ГЁГЇГҐ Г°Г Г§ГГ»ГҐ ГўГҐГ№ГЁ, ГГ®, Г§ГГ Гї Г®Г¤ГГ®, Г± Г¤Г°ГіГЈГЁГ¬ Г°Г Г§Г®ГЎГ°Г ГІГјГ±Гї Г¬Г®Г¦ГГ® ГГ Г°Г Г§.

Вернуться к началу

White Owl
ГГІГ ГІГГ»Г© Г§Г ГГіГ¤Г

Зарегистрирован: 10.03.2003
Сообщения: 2452
Откуда: USA, New York City

Добавлено: Воскресенье, Ноября 27, 2005 8:43pm Заголовок сообщения:

ГЂГ°ГІГҐГ¬ писал(а):

Г€ ГўГ®ГІ ГҐГ±Г«ГЁ Г¬ГГҐ ГГ Г¤Г® ГЎГіГ¤ГҐГІ ГЅГІГі Г§Г Г¤Г Г·Гі Г±Г¤ГҐГ«Г ГІГј, ГІГ® ГўГ®ГІ ГЅГІГ® ГГ Г¤Г® ГЄГ Г·Г ГІГј. ГЂ ГҐГ±Г«ГЁ ГўГ®Г ГІГі Г§Г Г¤Г Г·Гі, ГІГ® ГўГ®ГІ ГЅГІГ® ГЄГ Г·Г ГІГј? Гџ ГІГ ГЄ ГІГ®Г«ГјГЄГ® ГЁ ГЎГіГ¤Гі - ГЄГ Г·Г ГІГј.

ГЌГі ГЇГ®Г·ГҐГ¬Гі ГЎГ» ГЁ ГГҐГІ? Г…Г±Г«ГЁ Гі ГІГҐГЎГї ГҐГ±ГІГј Г§Г Г¤Г Г·Г ГЁ ГІГ» Г§ГГ ГҐГёГј Г·ГІГ® ГЈГ¤ГҐ-ГІГ® ГҐГ±ГІГј ГЁГГ±ГІГ°ГіГ¬ГҐГГІ ГЅГІГі Г§Г Г¤Г Г·Гі Г°ГҐГёГ ГѕГ№ГЁГ© ГГ ГіГ°Г . ГЏГ®Г·ГҐГ¬Гі ГЎГ» ГГҐ ГЇГ®Г©ГІГЁ ГЁ ГГҐ ГўГ§ГїГІГј ГЅГІГ®ГІ ГЁГГ±ГІГ°ГіГ¬ГҐГГІ? Г’ГҐГ¬ ГЎГ®Г«ГҐГҐ Г§Г ГЎГҐГ±ГЇГ«Г ГІГГ®? Г“Г«Г»ГЎГЄГ

Г…Г±Г«ГЁ Г®Г Г±Г«ГЁГёГЄГ®Г¬ ГІГїГ¦ГҐГ«Г»Г© Г¤Г«Гї ГІГўГ®ГҐГЈГ® ГЄГ ГГ Г«Г , Г¬Г®Г¦ГГ® Г§Г ГЇГ®Г¬ГГЁГў ГІГ®Г·ГГ»Г© Г Г¤Г°ГҐГ± Г±ГµГ®Г¤ГЁГІГј ГЄ ГЄГ®Г¬Гі-ГГЁГЎГіГ¤Гј Г± ГІГ®Г«Г±ГІГ»Г¬ ГЄГ ГГ Г«Г®Г¬. Гџ Г®ГЎГ»Г·ГГ® ГµГ®Г¤ГЁГ« Гў Г®ГґГЁГ± ГЇГ°Г®ГўГ Г©Г¤ГҐГ°Г ГЄГ ГЄГ®ГЈГ®-ГГЁГЎГіГ¤Гј Г±ГІГ ГўГЁГ« ГЇГЁГўГ® ГІГ Г¬Г®ГёГГЁГ¬ Г Г¤Г¬ГЁГГ Г¬ ГЁ ГЇГ®Г«ГіГ·Г Г« ГўГ±ГҐ Г·ГІГ® ГГіГ¦ГГ® Г“Г«Г»ГЎГЄГ

Вернуться к началу

White Owl
ГГІГ ГІГГ»Г© Г§Г ГГіГ¤Г

Зарегистрирован: 10.03.2003
Сообщения: 2452
Откуда: USA, New York City

Добавлено: Воскресенье, Ноября 27, 2005 8:46pm Заголовок сообщения:

Oleg_Msk писал(а):

ГЏГ°Г ГўГ¤Г ГЄГ®Г¤ ГГҐ Г°Г ГЎГ®ГІГ ГҐГІ, ГГҐ Г§ГГ Гѕ ГЇГ®Г·ГҐГ¬Гі, Г¬Г®Г¦ГҐГІ Гї Г·ГІГ® ГЄГ°ГЁГўГ® Г¤ГҐГ«Г Гѕ.....

ГЂ Г±Г«Г ГЎГ® Г±ГЄГ Г§Г ГІГј Г·ГІГ® ГЄГ®ГГЄГ°ГҐГІГГ® ГГҐ Г°Г ГЎГ®ГІГ ГҐГІ? Г‚ ГЄГ ГЄГ®Г¬ Г¬ГҐГ±ГІГҐ? Г‘ ГЄГ ГЄГ®Г© Г¤ГЁГ ГЈГГ®Г±ГІГЁГЄГ®Г©? Г“ Г¬ГҐГГї Г®ГГ® Г°Г ГЎГ®ГІГ ГҐГІ. ГЂ ГҐГ±Г«ГЁ Г±ГЄГ Г¦ГҐГёГј Г·ГІГ® ГЁГ¬ГҐГГГ® Гі ГІГҐГЎГї ГГҐ ГЇГ®Г«ГіГ·Г ГҐГІГ±Гї - Г±ГЄГ Г¦Гі ГЈГ¤ГҐ Г®ГёГЁГЎГЄГ Г§Г ГЄГ°Г Г«Г Г±Гј.

Вернуться к началу

ГЂГ°ГІГҐГ¬
ГЊГ®Г¤ГҐГ°Г ГІГ®Г°

Зарегистрирован: 10.03.2003
Сообщения: 8295
Откуда: Russia, Ufa

Добавлено: Воскресенье, Ноября 27, 2005 9:08pm Заголовок сообщения:

White Owl писал(а):

ГЂГ°ГІГҐГ¬ писал(а):

ГЊГГҐ ГГҐГЈГ¤ГҐ ГЎГ°Г ГІГј "ГІГ®Г«Г±ГІГ»Г© ГЄГ ГГ Г«".

Вернуться к началу

Oleg_Msk
Г†ГЁГІГҐГ«Гј ГґГ®Г°ГіГ¬Г

Зарегистрирован: 30.09.2004
Сообщения: 1000

Добавлено: Воскресенье, Ноября 27, 2005 10:13pm Заголовок сообщения:

White Owl писал(а):

Oleg_Msk писал(а):

ГЋГІГ·ГҐГўГ® Г¦ ГГҐ Г±ГЄГ Г¦Гі -Г±ГЄГ Г¦Гі:
Run-time error '9':
Subscript out of range

Вернуться к началу

Зарегистрирован: 10.03.2003
Сообщения: 2452
Откуда: USA, New York City

Добавлено: Понедельник, Ноября 28, 2005 12:47am Заголовок сообщения:

Oleg_Msk писал(а):

Run-time error '9':
Subscript out of range

ГЂ ГҐГ±Г«ГЁ Гў ГЅГІГ®Г¬ Г¤ГЁГ Г«Г®ГЈГҐ ГГ Г¦Г ГІГј ГЄГГ®ГЇГ®Г·ГЄГі Debug, ГІГ® Г®ГГ® ГЇГ®ГЄГ Г¦ГҐГІ ГҐГ№ГҐ ГЁ Гў ГЄГ ГЄГ®Г© Г±ГІГ°Г®ГЄГҐ Г®ГёГЁГЎГЄГ ГЇГ°Г®ГЁГ§Г®ГёГ«Г ....
ГЂ Г±ГЄГ®Г°ГҐГҐ ГўГ±ГҐГЈГ® Г®ГёГЁГЎГЄГ ГЇГ°Г®ГЁГ§Г®ГёГ«Г Гў Г±ГІГ°Г®ГЄГҐ

Код:

Set wsSrc = ThisWorkbook.Worksheets("Fruits")

ГЏГ®ГІГ®Г¬Гі Г·ГІГ® ГІГ» ГЇГ®Г«ГҐГГЁГ«Г±Гї ГЇГҐГ°ГҐГЁГ¬ГҐГГ®ГўГ ГІГј Г«ГЁГ±ГІ Г± ГґГ°ГіГЄГІГ Г¬ГЁ Гў "Fruits" Г Г®Г±ГІГ ГўГЁГ« ГҐГЈГ® ГЄГ ГЄ Г®Г ГЎГ»Г« "Г‹ГЁГ±ГІ1" ГЁГ«ГЁ ГЇГҐГ°ГҐГЁГ¬ГҐГГ®ГўГ Г« Г± Г®ГёГЁГЎГЄГ®Г©. Гџ ГіГЈГ Г¤Г Г«?

Вернуться к началу

Oleg_Msk
Г†ГЁГІГҐГ«Гј ГґГ®Г°ГіГ¬Г

Зарегистрирован: 30.09.2004
Сообщения: 1000

Добавлено: Понедельник, Ноября 28, 2005 7:11am Заголовок сообщения:

White Owl писал(а):

Oleg_Msk писал(а):

Run-time error '9':
Subscript out of range

Код:

Set wsSrc = ThisWorkbook.Worksheets("Fruits")

Г’Г®Г·ГГ®!Г’Г» ГЇГ°Г Гў!
/ГіГёГҐГ« ГЇГ®Г±Г»ГЇГ ГІГј ГЈГ®Г«Г®ГўГі ГЇГҐГЇГ«Г®Г¬/ Г‘Г¬ГҐГµ

Вернуться к началу

Показать сообщения:

	Список форумов ГђГ Г§ГЈГ®ГўГ®Г°Г» Г®ГЎ ГЂГ¬ГҐГ°ГЁГЄГҐ -> ГЏГ°Г® ГЄГ®Г¬ГЇГ»	Часовой пояс: GMT На страницу Пред. 1, 2
Страница 2 из 2

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