這個程式本來是用玩賓果 想請各位高手幫忙改成6x7的座位表 號碼請勿超過42 Dim I, K, n As Integer Randomize str1 = "" n = 5 For K = 1 To n For I = 1 To n Cells(K, I) = Fix(n * n * Rnd) + 1 While InStr(str1, "_" & Cells(K, I) & "_") Cells(K, I) = Fix(n * n * Rnd) + 1 Wend str1 = str1 & "_" & Cells(K, I) & "_" Next I Next K End Sub
This entry passed through the Full-Text RSS service — if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers.
You are receiving this email because you subscribed to this feed at blogtrottr.com.