Lv 31,953 points

愛瑞克

最佳解答40%
解答57

我會很認真的回答我會回答的每一題我盡可能給你我手邊最好的答案 尤其是桌球的問題

  • 急!excel vba寫訂單問題 訂單需要用亂數產生而不重複

    我的題目是這樣的...

    1. 20筆訂單

    2. 每張訂單有1~20由亂數跑出的品項

    3. 有100種商品,必須按照品項的數目亂數產生商品的編號

    4. 商品編號不能重複

    5. 請勿使用bingo之類的語法

    Sub 訂單()

    Worksheets("sheet5").Cells.Clear

    Worksheets("sheet5").Cells(1, 1).Value = "訂單"

    Worksheets("sheet5").Cells(1, 2).Value = "品項"

    Randomize

    Dim i As Integer

    Dim j As Integer

    Dim k As Integer

    For i = 1 To 20

    Cells(i + 1, 1) = i

    Cells(1, i + 2) = i

    Next i

    For j = 1 To 20

    Cells(j + 1, 2) = Int(Rnd() * 20 + 1)

    For k = 1 To Cells(j + 1, 2)

    Cells(j + 1, k + 2) = Int(Rnd() * 100 + 1)

    If Cells(k + 1, 24) = "" Then

    Cells(k + 1, 24) = Cells(j + 1, k + 2)

    ElseIf Cells(k + 1, 24) <> Cells(j + 1, k + 2) Then

    Cells(k + 1, 24) = Cells(j + 1, k + 2)

    ElseIf Cells(k + 1, 24) = Cells(j + 1, k + 2) Then

    Cells(k + 1, k + 2) = Int(Rnd() * 100 + 1)

    End If

    Next k

    Next j

    End Sub

    3 個解答程式設計1 0 年前
  • vba骰子程式的問題

    我想用excel的vba寫一個有關骰子的程式如下

    Sub t()

    Dim ans As Integer

    Randomize

    ans = Int((6 * Rnd) + 1)

    Range("a1:a6") = ans

    End Sub

    我希望他在a1~a6格子裡出現的是不一樣的點數

    可是現在出來的都是一樣的

    我該怎麼修改?

    懇請賜教

    1 個解答程式設計1 0 年前
  • 游泳可以戴隱型眼鏡嗎?

    游泳可以戴隱型眼鏡嗎?

    不想花大錢去買有度數的眼鏡

    但是我希望在水裡能看的清楚點

    7 個解答游泳與潛水1 0 年前
  • 國際專利分類號的詳細分類在哪裡?

    請問國際專利分類號的詳細分類在哪裡可以找的到?

    我要中文的

    聽說在經濟部智慧財產局網站裡有

    可是我怎麼找也找不到

    我有找到一個是找有到第三階的

    可是我想要所有的

    拜託各位檢索高手囉~

    2 個解答法律與道德1 0 年前
  • club head 和 putter head差在哪裡?

    高爾夫球裡的

    club head 和 putter head差在哪裡?

    可以po圖的話最好...

    1 個解答高爾夫球1 0 年前
  • 哪裡可以買到便宜的西裝?

    新竹哪裡可以買到便宜的西裝?

    正式的西裝外套

    拜託各位幫幫我囉

    隨便在哪裡都好

    只要在新竹就行

    3 個解答時尚與流行配件1 0 年前
  • 請問怎麼在ftp上解壓縮阿?

    怎麼在ftp上解壓縮阿?

    我存的是zip的檔

    但是好像解不開...

    1 個解答軟體1 0 年前