Премини към съдържанието
  • Добре дошли!

    Добре дошли в нашите форуми, пълни с полезна информация. Имате проблем с компютъра или телефона си? Публикувайте нова тема и ще намерите решение на всичките си проблеми. Общувайте свободно и открийте безброй нови приятели.

    Моля, регистрирайте се за да публикувате тема и да получите пълен достъп до всички функции.

     

каква фунция да използвам в Excel


Препоръчан отговор


Задачката е следната:

Имаме колонка A и колонка Б

в колонка А има стойности А,В,С.....Z

в колонка Б числа от 1 до 10

в двете колонки няма никаква последователност просто стойности.

Във втория лист имаме таблица, в първата колонка в азбучен ред по клетки са наредени буквите от А до Z а в първия ред числата от 1 до 10.

Целта е в тази таблица да връща стойности като брои колко пъти се среща А1 от първата таблица, после А2, А3.... В1, В2..... на един ред естествено т.е. в таблицата да има бройка за всяка комбинация.

Линк към този отговор
Сподели в други сайтове
Задачката е следната:

Имаме колонка A и колонка Б

в колонка А има стойности А,В,С.....Z

в колонка Б числа от 1 до 10

в двете колонки няма никаква последователност просто стойности.

Във втория лист имаме таблица, в първата колонка в азбучен ред по клетки са наредени буквите от А до Z а в първия ред числата от 1 до 10.

Целта е в тази таблица да връща стойности като брои колко пъти се среща А1 от първата таблица, после А2, А3.... В1, В2..... на един ред естествено т.е. в таблицата да има бройка за всяка комбинация.

Sub count1()


LastRow = Worksheets("Sheet1").Cells.SpecialCells(xlCellTypeLastCell).Row


If LastRow = 0 Then Exit Sub


For cRow = 1 To LastRow

  lRow = Asc(UCase(Worksheets("Sheet1").Cells(cRow, 1))) - Asc("A") + 2

  lCol = Worksheets("Sheet1").Cells(cRow, 2) + 1

	Worksheets("Sheet2").Cells(lRow, lCol) = Worksheets("Sheet2").Cells(lRow, lCol) + 1

Next cRow


End Sub

Линк към този отговор
Сподели в други сайтове
Това ми прилича на програмиране а на мен ми трябва функция

:wub:

Ми нали това е точно това, което искаш ?

Това е "функцията" .

Просто си стартираш Visual Basic for Applications и поставяш даденият ти от Кен код там.

Линк към този отговор
Сподели в други сайтове
:sobbing:

smile.jpg

Ми нали това е точно това, което искаш ?

Това е "функцията" .

Просто си стартираш Visual Basic for Applications и поставяш даденият ти от Кен код там.

biggrin.gifbiggrin.gif haah LOL


Линк към този отговор
Сподели в други сайтове
Допиши си останалото.

Специални благодарности, колкото и да им е смешно на момчетата по горе не можах да се оправя. Твоя пост ми помогна макар че не го направих по същия начин защото функцията address така и не ми стана много ясна но това за обединяването на клетките ми свъши страхотна работа. ползвам антетката на клетките

Линк към този отговор
Сподели в други сайтове

Добавете отговор

Можете да публикувате отговор сега и да се регистрирате по-късно. Ако имате регистрация, влезте в профила си за да публикувате от него.

Гост
Напишете отговор в тази тема...

×   Вмъкнахте текст, който съдържа форматиране.   Премахни форматирането на текста

  Разрешени са само 75 емотикони.

×   Съдържанието от линка беше вградено автоматично.   Премахни съдържанието и покажи само линк

×   Съдържанието, което сте написали преди беше възстановено..   Изтрий всичко

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Добави ново...

Информация

Поставихме бисквитки на устройството ви за най-добро потребителско изживяване. Можете да промените настройките си за бисквитки, или в противен случай приемаме, че сте съгласни с нашите Условия за ползване