MS Excel

něco takového ?citovat

do A2 dej vzorec:
=KDYŽ(DENTÝDNE(DATUM($C$1;$B$1;ŘÁDEK(A2)-1);2)>5;"vikend";ŘÁDEK(A2)-1)
a zkopírovat až do A32

do C1 rok, např. 2014
do B1 měsíc, např. 8
do C2 zadej požadovaný počet náhodných výběrů , např. 5

a do listu vložit makro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row = 2 Then
k = Range("C2")

Dim CisloNeduplicitni As New Collection

Range("B2:B32").ClearContents
If k < 1 Then Exit Sub
On Error Resume Next
While CisloNeduplicitni.Count < k

xx:: m = Int(Rnd() * 31) + 1
If IsNumeric(Cells(m, "A")) Then
CisloNeduplicitni.Add m, CStr(m)
Else
GoTo xx
End If
Wend
For x = 1 To k
Cells(CisloNeduplicitni(x), "B") = CisloNeduplicitni(x) - 1
Next
On Error GoTo 0
End If
End Subcitovat

upraivl jsem jen vzorec. mě to funguje nevím jak je možné, že by to mazalo B1, v kodu nic takového není.

upravený vzorec:
=KDYŽ(ŘÁDEK(A2)>DEN(EOMONTH(DATUM($C$1;$B$1;1);0));"";KDYŽ(DENTÝDNE(DATUM($C$1;$B$1;ŘÁDEK(A2)-1);2)>5;"";ŘÁDEK(A2)-1))

edit:
ještě oprava vzorce:
=KDYŽ(ŘÁDEK(A2)-1>DEN(EOMONTH(DATUM($C$1;$B$1;1);0));"";KDYŽ(DENTÝDNE(DATUM($C$1;$B$1;ŘÁDEK(A2)-1);2)>5;"";ŘÁDEK(A2)-1))citovat

Doplněné a upravené.

vzorce nebyly roztažené až do řádku 32, ale jen 29.
upravené makro, aby nebyl možný požadavek více náhodných výběrů, než je počet dnů a vyloučení vynulování B1, k čemuž opravdu mohlo dojít, ale mě se to ani jednou nestalo, až na tvém xls.citovat

tak, excel 97-2003 nezná fci EOMONTH, tedy poslední den příslušného měsíce. Vytvořil jsem ji jinak, takže tím by mělo být odstraněno to že nefunguje při změně měsíce. použito ve vzorcích A2:A32.

31 už to taky zvolí, jen jsem upravil rozsah generovaných náhodných čísel.citovat