Excel

[D^String]

Есть 2000 строк, нужно что бы в отдельном столбце появлялось 50 этих рандомных строк

 

в гугле хуета

[SPYHunter]

Excel>F1

[GRIMM]

Данные-Анализ данных-генератор случайных чисел

 

если нет кнопы анализ данных,через опции нужно установить пакет анализа или как там

[vidurr]

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

[SPYHunter]

(x*100)/60

[vidurr]

(x*100)/60

а целые градусы куда девать

 

 

так, я придумал, как это организовать

но результат *100/60 почему-то стабильно меньше на тысячную от результата функции на калькуляторе

Изменено 22 июля 2012 пользователем vidurr

[Ramil]

я так понял что нужно из столбца в 2к строк рандомно выбрать 50 и захуярить в новый столбец, если так то вот:

 

Sub AvtorUebok()
 Dim Row, RandomRow, i As Integer
 Dim S1, S2 As Worksheet
    Const Col1 As Integer = 1, Col2 As Integer = 1, SNum1 As Integer = 1, SNum2 As Integer = 2, Rws As Integer = 2000
	  Set S1 = Sheets(SNum1)
	  Set S2 = Sheets(SNum2)
	  For i = 1 To 50
		   Randomize
		   RandomRow = Int((Rws * Rnd) + 1)
		   S1.Cells(i, Col1) = S2.Cells(RandomRow, Col2)
	  Next i
End Sub

 

если надо целую строку захуярить в один столбец то там по-другому будет, и формат будет только текстовый

Изменено 22 июля 2012 пользователем Ramil

[D^String]

А куда это пихать? И что потом нажимать что бы вызвать этот макрос?

[Ramil]

alt+f11

ПКМ на листе - insert - module

справа пустое окно будет, туда вставляй

вызывать - alt+f8

[D^String]

Альт ф 11 открывает новый лист ( а нахуй он мне если у меня все данные в другом листе в стобце А1? )

 

ПКМ на листе нихуя не выдает инсерт модуль

 

ты имел в виду в бейсик редакторе инсерт модуль?

 

жму альт ф8 выдает вот это

 

жму выполнить нихера не происходит

[Ramil]

ну ты дно ебаное

да, в вба редакторе надо вставлять модуль

 

Col1, SNum1 = номер столбца и листа куда надо вставить

Col2, SNum2 = номер столбца и листа откуда брать данные

Rws = количество строк, из которых нужно выбрать рандомные

 

alt+f11 никак не может открыть новый лист, просто открывает редактор вба

по alt+f8 вызывается макрос по названию

 

можно применить конструкцию Sheets("Название_листа"), тогда будут браться данные из листа с названием "Название_листа"

Изменено 22 июля 2012 пользователем Ramil

[D^String]

 

 

данные в столбце А на 1 листе, вставлять в столбец I тоже на 1 листе

Изменено 22 июля 2012 пользователем D^String

[Ramil]

Run-reset

посчитай какой по счету столбец I и измени col1

Изменено 22 июля 2012 пользователем Ramil

[iNaJke]

Рамиль тонкий троль

[Ramil]

в смысле? чо не так?

AvtorUebok? так это стандарт

Изменено 22 июля 2012 пользователем Ramil

[D^String]

Ааа заработало вообще шикарно Спасибо

Последний вопрос - щас он делает выборку только из 2000 строк столбца А1 ( начиная с 1 и до 2000 )

 

Т.е. когда у меня будет 3000 строк я просто поменяю 2000 на 3000 и все?

 

ну это наверное очевидно

Изменено 22 июля 2012 пользователем D^String

[iNaJke]

в смысле? чо не так?

первая строчка

 

Ааа заработало вообще шикарно Спасибо

Последний вопрос - щас он делает выборку только из 2000 строк столбца А1 ( начиная с 1 и до 2000 )

 

Т.е. когда у меня будет 3000 строк я просто поменяю 2000 на 3000 и все?

 

ну это наверное очевидно

da

[Ramil]

Ааа заработало вообще шикарно Спасибо

Последний вопрос - щас он делает выборку только из 2000 строк столбца А1 ( начиная с 1 и до 2000 )

 

Т.е. когда у меня будет 3000 строк я просто поменяю 2000 на 3000 и все?

 

ну это наверное очевидно

да ты просто эйнштейн мать его!

[vidurr]

(x*100)/60

а целые градусы куда девать

 

 

так, я придумал, как это организовать

но результат *100/60 почему-то стабильно меньше на тысячную от результата функции на калькуляторе

[D^String]

А можно еще макрос для ворда который берет из документа 50 случайных слов и расставляет их столбцом там где стоит курсор?