Пронумеровать непустые строки

@slon2 · Регистрация: 22.03.2011

Студворк — интернет-сервис помощи студентам

Есть данные в строках и расположены они не подряд, а как придется.
Например, b1,b2,b7,b12,b14 и тд.
Так вот, как бы пронумировать эти заполненные строки в Excel? (номера в столбце а должны быть). что-то у меня коды уж больно корявые получаются.
Спасибо.

@mmos · 23.03.2011, 17:50

Visual Basic
1
2
3
4
5
6
7
8
Dim R As Long, N As Long
  N = 1
  For R = 1 To 65536
   If Cells(R, 2) <> '' Then
    Cells(R, 1) = N
    N = N + 1
   End If
  Next R

@Gacol · 24.03.2011, 07:02

все перебирать долго, так быстрее будет

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
   '---- номер последней строки с непустой ячейкой
   RowMax = Cells.SpecialCells(xlCellTypeLastCell).Row
   '---- номер последней колонки с непустой ячейкой
   ColMax = Cells.SpecialCells(xlCellTypeLastCell).Column
   n = 0
   For i = 1 To RowMax
      For j = 1 To ColMax
         If Not IsEmpty(Cells(i, j)) Then
            n = n + 1
            Cells(i, 1) = n
            Exit For
         End If
      Next j
   Next i

@pashulka · 24.03.2011, 07:34

Ребята, если дело пойдёт так и дальше, то VBA будут использовать, чтобы узнать сколько будет 2+2.
ВЕДЬ ВСЁ ЭТО МОЖНО РЕШИТЬ БЕЗ МАКРОСА !!!

P.S. Если кому интересно, то пишите, вышлю образец файла с готовой формулой.

@slon2 · 24.03.2011, 13:36 **[ТС]**

Почему скоро? Ты что не разу не использовал vba для подсчета 2+2? Невсегда удобно использовать формулы тем более в большой программе, а это только часть программы

@kostic · 24.03.2011, 14:25

pashulka :
а можешь здесь написать эту формулу без файла ?
Спасибо

@pashulka · 24.03.2011, 17:35

To slon2

Никогда я не использовал VBA для того, чтобы подсчитать сколько будет 2+2. Справедливости ради следует отметить, что я также не использовал стандартные функции, например СУММ или оператор + для вычисления этого сложнейшего арифметического действия. А если говорить серьёзно, то Вы сознательно или нет меняете смысл моего высказывания. А смысл его очень прост :

Если задачу можно решить без применения VBA, то это решение является наиболее приемлемым. В противном случае мы получим электронную таблицу как некий придаток к VBA. А на вопрос сколько сейчас времени, человек вместо того чтобы ввести в ячейку функцию =ТДАТА() ответит, подождите, сейчас я макрос напишу.

Примечание :
Пример с часами приведён исключительно как демонстрация, но не стоит забывать о здравом смысле, и если у Вас есть наручные часы, то лучше всего воспользоваться именно ими, впрочем некоторые люди принципиально их не носят.

To m_a_r_i_n_a

Если я её опубликую, то нарушу авторские права, так что ...

26.03.2011, 12:24

дожили... авторские права на форуме...

если б каждый заморачивался с 'авторскими правами' да еще брал с остальных участников форума плату за их использование, то либо мы бы все стали тут богачами, либо форумы вымери бы как класс...
никто ведь не просит выкладывать тут исходники коммерческого софта и т.д. Речь ведь идет о банальной нумерации строк. И не надо следовать принципу, что если (к примеру) где-то в продукте используется цикл, то это уже копирайт, и показывать его на форумах не стоит...

@pashulka · 26.03.2011, 19:31

To Messir
Во первых, авторские права это абсолютно нормально, а на форуме или нет, абсолютно не важно. Проблема скорее в людях, которые по своим неведомым никому причинам, считают форум некой помойкой, где не должно быть никаких правил.
Во вторых, разве я говорил о плате ??? Если бы Вы внимательней прочитали топик, то увидели, что я предложил выслать образец файла с этой формулой любому кому это действительно интересно. Другое дело, что автору этого вопроса она не нужна, а заказывает музыку всё-таки автор вопроса.
В третьих, я сам буду решать, что именно мне следует делать, а что нет.

26.03.2011, 19:42

>> Во первых, авторские права это абсолютно нормально, а на форуме или нет, абсолютно не важно. Проблема скорее в людях, которые по своим неведомым никому причинам, считают форум некой помойкой, где не должно быть никаких правил.

Что касается авторских прав на форуме, то это - примерно то же самое, что применять авторские права к каждой фразе при реальном общении. Когда вы слышите что-то, вы ведь не задумываетесь над тем, кто придумал эту фразу первой и где она была применена? А форум - это почти то же реальное общение, с той лишь разницей, что многие участники живут за сотни километров друг от друга, поэтому заменяют слова текстом.

>> Во вторых, разве я говорил о плате ??? Если бы Вы внимательней прочитали топик, то увидели, что я предложил выслать образец файла с этой формулой любому кому это действительно интересно. Другое дело, что автору этого вопроса она не нужна, а заказывает музыку всё-таки автор вопроса.

Нет, что вы! Пример с платой я привел просто для показа возможной перспективы такой политики распространения кода.
Если же вы готовы дать код 'за просто так' всем желающим по почте, то гораздо проще и логичнее было бы все же разместить его здесь, не находите? Ведь те, кому он нужен, и так могут его получить, а кому не нужен - не будут даже заморачиваться. А если бы вы выложили решение проблемы тут, то эффект был бы абсолютно такой же, а мороки с почтой на порядок меньше - как для вас, так и для всех остальных.

>> В третьих, я сам буду решать, что именно мне следует делать, а что нет.

Это, безусловно, ваше право.

@pashulka · 26.03.2011, 21:47

To Messir

>Что касается авторских прав на форуме, то это - примерно то же самое, что применять авторские права к каждой фразе при реальном общении. Когда вы слышите что-то, вы ведь не задумываетесь над тем, кто придумал эту фразу первой и где она была применена?

Вы смешиваете разные понятия : фраза, цитата и авторское право.

Если я употреблю высказывание/цитату, типа :

Я знаю, что я ничего не знаю. Сократ

То постараюсь не забыть напомнить об авторе.

И если в следующий раз я увижу, что кто-то называет форум информационной помойкой и возникнет необходимость вступить в общение с этим человеком, то при цитировании Ваших заблуждений я постараюсь указать, что автором был Messir (при условии что я стану дословно Вас цитировать)

Для закрепления материала можно прочитать закон об авторских и смежных правах, для того чтобы понять, что это такое. Хотя право выбора конечно почти всегда остаётся за человеком, т.е. он может оставаться в плену у своих/общих заблуждений или узнать истину, в данном случае закон РФ.

>Пример с платой я привел просто для показа возможной перспективы такой политики распространения кода.

На одном из форумов я был свидетелем, когда два “отца” устроили торг, предлагая свой код. По-моему цена была 15$ у одного и 5$ у другого. В конечном итоге оба опубликовали свои варианты абсолютно безвозмездно.

Но даже если кто-то предложит Вам купить свой код, у Вас существует право отказаться. Плюс, есть вероятность, что другой человек предложит Вам всё это бесплатно. Кстати, на этом форуме тоже были предложения написать всю программу и небесплатно, однако криков возмущения не слышал/видел.

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

>Если же вы готовы дать код ''за просто так'' всем желающим по почте, то гораздо проще и логичнее было бы все же разместить его здесь, не находите?

Нет, не нахожу и даже об’яснил почему. Но проблема XXI века, это невнимательность.

Цитата :
Другое дело, что автору этого вопроса она не нужна, а заказывает музыку всё-таки автор вопроса.

Так что всё действительно просто, автору вопроса формула не нужна, а тем кому она действительно нужна могут написать. В таком случае и овцы целы и волки сыты. В этом конкретном случае необходимо добавить, что речь идёт не о коде, а о формуле, которую в случае опубликования, нужно ещё и комментировать. Так что лучше один увидеть, чем сто раз услышать, тем более что в случае с формулами, зачастую появляются дополнительные вопросы, типа :
- а что будет если сделать так ?
- а почему у Вас указаны абсолютные ссылки ?
- и т.д.
Если образец будет, что называется перед глазами, то вероятность что человек начнёт экспериментировать сам, будет намного выше.

>А если бы вы выложили решение проблемы тут, то эффект был бы абсолютно такой же, а мороки с почтой на порядок меньше

В свете всего вышеизложенного, могу со всей уверенностью заявить, что эффект будет немного разным, и это уже проверено (на аналогичных случаях), а что касается почты, то мне нет разницы, что выходить в сеть, для того чтобы ответить Вам или отправить файл в архиве, который весит ~3-15кб.

P.S. Слово Вы, Вам и т.п. пишется с большой буквы, а для тех, кому лень переключать клавиатуру могу напомнить, что в русском языке существует обращение - ты, которое в свою очередь пишется с маленькой буквы.

30.03.2011, 19:58

To pashulka
Я поддерживаю Messir, не вижу разницы - ...Кому надо, пришлю по почте чтоб не нарушать Авторских прав и Выложить на форуме с нарушением этих же прав код...
И где гарантия, что я например не использую тот же код? Мы так до маразма дойдем.
For i=1 to 100
next i
'Просьба не использовать этот код, так как права на него ...' хех а у кого права на цыкл?
Или у вашего знакомого супер код, и у него нет аналогов? Сомневаюсь.
Тем более, что может быть такого супер крутого в простой нумерации строк?
А на счет клавишь, хех у меня например левый шифт, левый Ctrl и пробел часто не срабатывают, клава уже поизносилась :-),И когда быстро печатаешь то наверняка случаются ошибки.

30.03.2011, 20:21

To Автор
Код писать не буду, но как я вижу это.
1. найти конечную строку через CurrentRegion.Rows.Count.
2.Далее через цыкл, перебераете, строки.
вот тут фишка, выбраную строку(Range c 1 столбца до последнего) копируете вбуфер обмена, тутже присваивайте строковой переменной данные из буфера. Получается одна строка.
3.далее проверка если строка пустая(тут возможно придется проверить, системные знаки,они отображаются квадратиками, возможно LIke придется использовать или парсить) то пропуск. если нет то N=N+1 и в ячеку.

Я этим методом пользуюсь чтоб сравнить Строки, двух Range. Думаю и для нумерации можно его приспособить. При этом методе отпадает надобность проверять каждую ячейку. а проверка идет сразу строкой.

@pashulka · 31.03.2011, 00:06

To Сумрак

- Ты суслика видишь?
- Нет.
- И я Нет. А он есть.
- Понял...
(Цитата к/ф ДМБ)

И второе, что мешать двум людям опубликовать свой вариант формулы, вместо того чтобы учить жизни другого человека ?

31.03.2011, 12:41

:-))))
Оки. Щас сяду напишу... Просто все Excel макросы у меня на работе. А я из дома. Тут тока на VB все у меня :-)

31.03.2011, 16:02

Вод код рабочей процедуры :

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Public Sub Нумерация()
On Error GoTo bay
Dim WB As Workbook
Dim WS As Worksheet
Dim STR As String
Dim i As Long, ii As Long, x As Long, y As Long, N As Long
Set WB = ActiveWorkbook
Set WS = ActiveSheet
 
x = WS.UsedRange.Rows.Count + 1
y = WS.UsedRange.Columns.Count
Dim DA As DataObject
Set DA = New DataObject
 
'Если использовать Буфер, то придется парсить строку
'я отказался , времени нет, разбираться
'но код ниже показывает как переменной присвоить строку
 
'RG.Copy
'DA.GetFromClipboard
'STR = DA.GetText
 
N = 0
For i = 1 To x
    For ii = 2 To y
        If Not Trim(WS.Cells(i, ii).Value) = '' Or Not IsEmpty(WS.Cells(i, ii).Value) Then
            N = N + 1
            WS.Cells(i, 1).Value = N
            Exit For
        End If
    Next ii
Next i
Set DA = Nothing
Set WS = Nothing
Set WB = Nothing
Exit Sub
bay:
MsgBox Err.Description, vbCritical, Err.Source
End Sub

31.03.2011, 16:04

To pashulka
Ваш код...

31.03.2011, 16:45

Дополнение к выше написанному

>>Если бы Вы внимательней прочитали топик, то увидели, что я предложил выслать образец файла с этой формулой любому кому это действительно интересно. Другое дело, что автору этого вопроса она не нужна, а заказывает музыку всё-таки автор вопроса.
...

Хех.. да любому интересно, если он зашел на этот топик,тем более автору раз он создал этот его..

>> Проблема скорее в людях, которые по своим неведомым никому причинам, считают форум некой помойкой, где не должно быть никаких правил...

>>И если в следующий раз я увижу, что кто-то называет форум информационной помойкой и возникнет необходимость вступить в общение с этим человеком, то при цитировании Ваших заблуждений я постараюсь указать, что автором был Messir (при условии что я стану дословно Вас цитировать)

мда... хотелось бы глянуть на это... тихо сам с сабою, цитируя Messira

>>P.S. Слово Вы, Вам и т.п. пишется с большой буквы, а для тех, кому лень переключать клавиатуру могу напомнить, что в русском языке существует обращение - ты, которое в свою очередь пишется с маленькой буквы.

Я так понял что к Вам надо обращаться в упращенной форме в русском врианте?Или Вы думаете что люди кто делится своими знаниями, делают это из лени?

Да.. чуть не забыл с Вас код, Свой я выложил. хотя в данном случае это просто облагороженный код <Gacol>, значит код удачный получился раз 2 его предлжили. прошу извинить за Нерусское обращение к Вам.

З.Ы. Нужно быть попроще, тогда и суслики к Вам потянуться :-)

@pashulka · 31.03.2011, 22:00

To Сумрак

Невнимательность, это конечно болезнь, но не стоит ею злоупотреблять.

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

По-моему я достаточно чётко выразился, что опубликовывать формулу не буду или опять что-то непонятно ?

>>>Хех.. да любому интересно, если он зашел на этот топик,тем более автору раз он создал этот его..

Это Ваше личное личное заблуждение, но в отличие от Вас я делаю выводы на основе фактов, а не измышлений. И именно в общении с автором топика я узнал, что как образец решения, формула ему не нужна...

>>мда... хотелось бы глянуть на это... тихо сам с сабою, цитируя Messira

Не сам с собою, а в данном случае с Вами, но пока без цитирования.

>>З.Ы. Нужно быть попроще, тогда и суслики к Вам потянуться :-)

В этом вопросе простота ни причем, а суслики нужны скорее Вам, чем мне. Ведь именно Вы вступаете в полемику, возможно не зная () самых простых вещей, а выводы делаете на основе своих умозаключений, а не фактов. Но если Вы чего-нибудь не видите, то это вовсе не означает что этого нет.

@Димит · 01.04.2011, 01:09

Друзья, прошу всё таки не злоупотреблять полемикой и не забывать о том, что на форуме первая скрипка - автор вопроса.
Если у Вас есть тема для общения, выносите её за рамки (в почту, например). А то такое иногда прочтёшь про VBA - уши вянут (это я об одном топике на VBNet)

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@slon2 0 / 0 / 0 Регистрация: 22.03.2011 Сообщений: 13

	Пронумеровать непустые строки 23.03.2011, 15:30. Показов 11830. Ответов 19 Метки нет (Все метки) Есть данные в строках и расположены они не подряд, а как придется. Например, b1,b2,b7,b12,b14 и тд. Так вот, как бы пронумировать эти заполненные строки в Excel? (номера в столбце а должны быть). что-то у меня коды уж больно корявые получаются. Спасибо. 0

@pashulka 4139 / 2243 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	24.03.2011, 07:34
	Ребята, если дело пойдёт так и дальше, то VBA будут использовать, чтобы узнать сколько будет 2+2. ВЕДЬ ВСЁ ЭТО МОЖНО РЕШИТЬ БЕЗ МАКРОСА !!! P.S. Если кому интересно, то пишите, вышлю образец файла с готовой формулой. 0

@slon2 0 / 0 / 0 Регистрация: 22.03.2011 Сообщений: 13
	24.03.2011, 13:36 [ТС]
	Почему скоро? Ты что не разу не использовал vba для подсчета 2+2? Невсегда удобно использовать формулы тем более в большой программе, а это только часть программы 0

@kostic 0 / 0 / 0 Регистрация: 03.05.2010 Сообщений: 141
	24.03.2011, 14:25
	pashulka : а можешь здесь написать эту формулу без файла ? Спасибо 0

@pashulka 4139 / 2243 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	24.03.2011, 17:35
	To slon2 Никогда я не использовал VBA для того, чтобы подсчитать сколько будет 2+2. Справедливости ради следует отметить, что я также не использовал стандартные функции, например СУММ или оператор + для вычисления этого сложнейшего арифметического действия. А если говорить серьёзно, то Вы сознательно или нет меняете смысл моего высказывания. А смысл его очень прост : Если задачу можно решить без применения VBA, то это решение является наиболее приемлемым. В противном случае мы получим электронную таблицу как некий придаток к VBA. А на вопрос сколько сейчас времени, человек вместо того чтобы ввести в ячейку функцию =ТДАТА() ответит, подождите, сейчас я макрос напишу. Примечание : Пример с часами приведён исключительно как демонстрация, но не стоит забывать о здравом смысле, и если у Вас есть наручные часы, то лучше всего воспользоваться именно ими, впрочем некоторые люди принципиально их не носят. To m_a_r_i_n_a Если я её опубликую, то нарушу авторские права, так что ... 0

Messir
	26.03.2011, 12:24
	дожили... авторские права на форуме... если б каждый заморачивался с 'авторскими правами' да еще брал с остальных участников форума плату за их использование, то либо мы бы все стали тут богачами, либо форумы вымери бы как класс... никто ведь не просит выкладывать тут исходники коммерческого софта и т.д. Речь ведь идет о банальной нумерации строк. И не надо следовать принципу, что если (к примеру) где-то в продукте используется цикл, то это уже копирайт, и показывать его на форумах не стоит...

@pashulka 4139 / 2243 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	26.03.2011, 19:31
	To Messir Во первых, авторские права это абсолютно нормально, а на форуме или нет, абсолютно не важно. Проблема скорее в людях, которые по своим неведомым никому причинам, считают форум некой помойкой, где не должно быть никаких правил. Во вторых, разве я говорил о плате ??? Если бы Вы внимательней прочитали топик, то увидели, что я предложил выслать образец файла с этой формулой любому кому это действительно интересно. Другое дело, что автору этого вопроса она не нужна, а заказывает музыку всё-таки автор вопроса. В третьих, я сам буду решать, что именно мне следует делать, а что нет. 0

Messir
	26.03.2011, 19:42
	>> Во первых, авторские права это абсолютно нормально, а на форуме или нет, абсолютно не важно. Проблема скорее в людях, которые по своим неведомым никому причинам, считают форум некой помойкой, где не должно быть никаких правил. Что касается авторских прав на форуме, то это - примерно то же самое, что применять авторские права к каждой фразе при реальном общении. Когда вы слышите что-то, вы ведь не задумываетесь над тем, кто придумал эту фразу первой и где она была применена? А форум - это почти то же реальное общение, с той лишь разницей, что многие участники живут за сотни километров друг от друга, поэтому заменяют слова текстом. >> Во вторых, разве я говорил о плате ??? Если бы Вы внимательней прочитали топик, то увидели, что я предложил выслать образец файла с этой формулой любому кому это действительно интересно. Другое дело, что автору этого вопроса она не нужна, а заказывает музыку всё-таки автор вопроса. Нет, что вы! Пример с платой я привел просто для показа возможной перспективы такой политики распространения кода. Если же вы готовы дать код 'за просто так' всем желающим по почте, то гораздо проще и логичнее было бы все же разместить его здесь, не находите? Ведь те, кому он нужен, и так могут его получить, а кому не нужен - не будут даже заморачиваться. А если бы вы выложили решение проблемы тут, то эффект был бы абсолютно такой же, а мороки с почтой на порядок меньше - как для вас, так и для всех остальных. >> В третьих, я сам буду решать, что именно мне следует делать, а что нет. Это, безусловно, ваше право.

@pashulka 4139 / 2243 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	26.03.2011, 21:47
	To Messir >Что касается авторских прав на форуме, то это - примерно то же самое, что применять авторские права к каждой фразе при реальном общении. Когда вы слышите что-то, вы ведь не задумываетесь над тем, кто придумал эту фразу первой и где она была применена? Вы смешиваете разные понятия : фраза, цитата и авторское право. Если я употреблю высказывание/цитату, типа : Я знаю, что я ничего не знаю. Сократ То постараюсь не забыть напомнить об авторе. И если в следующий раз я увижу, что кто-то называет форум информационной помойкой и возникнет необходимость вступить в общение с этим человеком, то при цитировании Ваших заблуждений я постараюсь указать, что автором был Messir (при условии что я стану дословно Вас цитировать) Для закрепления материала можно прочитать закон об авторских и смежных правах, для того чтобы понять, что это такое. Хотя право выбора конечно почти всегда остаётся за человеком, т.е. он может оставаться в плену у своих/общих заблуждений или узнать истину, в данном случае закон РФ. >Пример с платой я привел просто для показа возможной перспективы такой политики распространения кода. На одном из форумов я был свидетелем, когда два “отца” устроили торг, предлагая свой код. По-моему цена была 15$ у одного и 5$ у другого. В конечном итоге оба опубликовали свои варианты абсолютно безвозмездно. Но даже если кто-то предложит Вам купить свой код, у Вас существует право отказаться. Плюс, есть вероятность, что другой человек предложит Вам всё это бесплатно. Кстати, на этом форуме тоже были предложения написать всю программу и небесплатно, однако криков возмущения не слышал/видел. В свою очередь могу добавить, что являюсь принципиальным сторонником безвозмездной помощи тем, кто в ней действительно нуждается. >Если же вы готовы дать код ''за просто так'' всем желающим по почте, то гораздо проще и логичнее было бы все же разместить его здесь, не находите? Нет, не нахожу и даже об’яснил почему. Но проблема XXI века, это невнимательность. Цитата : Другое дело, что автору этого вопроса она не нужна, а заказывает музыку всё-таки автор вопроса. Так что всё действительно просто, автору вопроса формула не нужна, а тем кому она действительно нужна могут написать. В таком случае и овцы целы и волки сыты. В этом конкретном случае необходимо добавить, что речь идёт не о коде, а о формуле, которую в случае опубликования, нужно ещё и комментировать. Так что лучше один увидеть, чем сто раз услышать, тем более что в случае с формулами, зачастую появляются дополнительные вопросы, типа : - а что будет если сделать так ? - а почему у Вас указаны абсолютные ссылки ? - и т.д. Если образец будет, что называется перед глазами, то вероятность что человек начнёт экспериментировать сам, будет намного выше. >А если бы вы выложили решение проблемы тут, то эффект был бы абсолютно такой же, а мороки с почтой на порядок меньше В свете всего вышеизложенного, могу со всей уверенностью заявить, что эффект будет немного разным, и это уже проверено (на аналогичных случаях), а что касается почты, то мне нет разницы, что выходить в сеть, для того чтобы ответить Вам или отправить файл в архиве, который весит ~3-15кб. P.S. Слово Вы, Вам и т.п. пишется с большой буквы, а для тех, кому лень переключать клавиатуру могу напомнить, что в русском языке существует обращение - ты, которое в свою очередь пишется с маленькой буквы. 0

Сумрак
	30.03.2011, 19:58
	To pashulka Я поддерживаю Messir, не вижу разницы - ...Кому надо, пришлю по почте чтоб не нарушать Авторских прав и Выложить на форуме с нарушением этих же прав код... И где гарантия, что я например не использую тот же код? Мы так до маразма дойдем. For i=1 to 100 next i 'Просьба не использовать этот код, так как права на него ...' хех а у кого права на цыкл? Или у вашего знакомого супер код, и у него нет аналогов? Сомневаюсь. Тем более, что может быть такого супер крутого в простой нумерации строк? А на счет клавишь, хех у меня например левый шифт, левый Ctrl и пробел часто не срабатывают, клава уже поизносилась :-),И когда быстро печатаешь то наверняка случаются ошибки.

Сумрак
	30.03.2011, 20:21
	To Автор Код писать не буду, но как я вижу это. 1. найти конечную строку через CurrentRegion.Rows.Count. 2.Далее через цыкл, перебераете, строки. вот тут фишка, выбраную строку(Range c 1 столбца до последнего) копируете вбуфер обмена, тутже присваивайте строковой переменной данные из буфера. Получается одна строка. 3.далее проверка если строка пустая(тут возможно придется проверить, системные знаки,они отображаются квадратиками, возможно LIke придется использовать или парсить) то пропуск. если нет то N=N+1 и в ячеку. Я этим методом пользуюсь чтоб сравнить Строки, двух Range. Думаю и для нумерации можно его приспособить. При этом методе отпадает надобность проверять каждую ячейку. а проверка идет сразу строкой.

@pashulka 4139 / 2243 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	31.03.2011, 00:06
	To Сумрак - Ты суслика видишь? - Нет. - И я Нет. А он есть. - Понял... (Цитата к/ф ДМБ) И второе, что мешать двум людям опубликовать свой вариант формулы, вместо того чтобы учить жизни другого человека ? 0

Сумрак
	31.03.2011, 12:41
	:-)))) Оки. Щас сяду напишу... Просто все Excel макросы у меня на работе. А я из дома. Тут тока на VB все у меня :-)

Сумрак
	31.03.2011, 16:45
	Дополнение к выше написанному >>Если бы Вы внимательней прочитали топик, то увидели, что я предложил выслать образец файла с этой формулой любому кому это действительно интересно. Другое дело, что автору этого вопроса она не нужна, а заказывает музыку всё-таки автор вопроса. ... Хех.. да любому интересно, если он зашел на этот топик,тем более автору раз он создал этот его.. >> Проблема скорее в людях, которые по своим неведомым никому причинам, считают форум некой помойкой, где не должно быть никаких правил... >>И если в следующий раз я увижу, что кто-то называет форум информационной помойкой и возникнет необходимость вступить в общение с этим человеком, то при цитировании Ваших заблуждений я постараюсь указать, что автором был Messir (при условии что я стану дословно Вас цитировать) мда... хотелось бы глянуть на это... тихо сам с сабою, цитируя Messira >>P.S. Слово Вы, Вам и т.п. пишется с большой буквы, а для тех, кому лень переключать клавиатуру могу напомнить, что в русском языке существует обращение - ты, которое в свою очередь пишется с маленькой буквы. Я так понял что к Вам надо обращаться в упращенной форме в русском врианте?Или Вы думаете что люди кто делится своими знаниями, делают это из лени? Да.. чуть не забыл с Вас код, Свой я выложил. хотя в данном случае это просто облагороженный код <Gacol>, значит код удачный получился раз 2 его предлжили. прошу извинить за Нерусское обращение к Вам. З.Ы. Нужно быть попроще, тогда и суслики к Вам потянуться :-)

@pashulka 4139 / 2243 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	31.03.2011, 22:00
	To Сумрак Невнимательность, это конечно болезнь, но не стоит ею злоупотреблять. А если Вы не знаете разницы между формулой и макросом, то могу посоветовать посмотреть справочник. По-моему я достаточно чётко выразился, что опубликовывать формулу не буду или опять что-то непонятно ? >>>Хех.. да любому интересно, если он зашел на этот топик,тем более автору раз он создал этот его.. Это Ваше личное личное заблуждение, но в отличие от Вас я делаю выводы на основе фактов, а не измышлений. И именно в общении с автором топика я узнал, что как образец решения, формула ему не нужна... >>мда... хотелось бы глянуть на это... тихо сам с сабою, цитируя Messira Не сам с собою, а в данном случае с Вами, но пока без цитирования. >>З.Ы. Нужно быть попроще, тогда и суслики к Вам потянуться :-) В этом вопросе простота ни причем, а суслики нужны скорее Вам, чем мне. Ведь именно Вы вступаете в полемику, возможно не зная () самых простых вещей, а выводы делаете на основе своих умозаключений, а не фактов. Но если Вы чего-нибудь не видите, то это вовсе не означает что этого нет. 0

@Димит 90 / 37 / 14 Регистрация: 03.11.2010 Сообщений: 429
	01.04.2011, 01:09
	Друзья, прошу всё таки не злоупотреблять полемикой и не забывать о том, что на форуме первая скрипка - автор вопроса. Если у Вас есть тема для общения, выносите её за рамки (в почту, например). А то такое иногда прочтёшь про VBA - уши вянут (это я об одном топике на VBNet) 0