Excel

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

методом активного гугления узнал, что в екселе есть вба

и вот тогда я охуел от того, насколько эксель охуенен

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

в мс офисе возможно ВСЕ

но я спать, завтра вечером мб отпишусь

nrr вба скрипт-гуру ^_^

извращенец правда, но тем не менее

(x*100)/60

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

 

 

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

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

умнажай еще на 1к

(x*100)/60

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

 

 

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

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

умнажай еще на 1к

например, 89,71833 и 89,71944

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

методом активного гугления узнал, что в екселе есть вба

и вот тогда я охуел от того, насколько эксель охуенен

 

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

в мс офисе возможно ВСЕ

но я спать, завтра вечером мб отпишусь

1

2

3

4

5

6

7

8

9

10

Sub bb()

Dim s$(0 To 51), i&, n&

n = ActiveDocument.Words.Count - 1

For i = 1 To 50

Do

s(i) = Trim(ActiveDocument.Words(1 + Rnd * n))

Loop Until Len(s(i)) > 1

Next

Selection.TypeText Join(s, Chr(13))

End Sub

сам сделал?

nrr вба скрипт-гуру ^_^

 

извращенец правда, но тем не менее

спросил на киберфорум.руКонечно, я же энштейн

=IF(ROW()<=50+1;VLOOKUP(ROUND(RAND()*(COUNT(A:A)-1)+1;0);A:B;2;FALSE);"")

а что с аттачами? они утонулине работают?

я так понял что нужно из столбца в 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

 

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

макросы для нубов

нет