Добре дошли!

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

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

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

Последователи

Нова тема
Отговор в тази тема

21 април 200917 г.

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

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

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

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

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

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

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

Цитирай

21 април 200917 г.

Задачката е следната:
Имаме колонка 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

Цитирай

22 април 200917 г.

Автор

Това ми прилича на програмиране а на мен ми трябва функция

Цитирай

22 април 200917 г.

Това ми прилича на програмиране а на мен ми трябва функция

:wub:

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

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

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

Цитирай

22 април 200917 г.

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

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

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

haah LOL

Цитирай

22 април 200917 г.

Допиши си останалото.

Цитирай

26 април 200917 г.

Автор

Допиши си останалото.

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

Цитирай

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

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

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

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