excel 大樂透二星,印出組數,三種不同的結果

Function 大樂二星組數()
    Set shtTmp = Sheets("temp1")
    For i = 1 To 48
        For j = i + 1 To 49
            'shtTmp.Cells(i, j - 1) = i & "組" & j
            'shtTmp.Cells(j - 1, i) = i & "組" & j
            shtTmp.Cells(j - i, i) = i & "組" & j
        Next j
    Next i
End Function

留言

這個網誌中的熱門文章

歐姆龍 HEM-7600T 評價,購買心得分享(打臉文)

超任 三國志3代,登入武將金手指

年青人眼鏡評價(負評),辛酸血淚史分享文