Excel VBA[設定Commandbutton]之問題

請問如何用Commandbutton來寫入儲存格的文字如下,用For...Next也可以,

但是不要用**方法Range("").Value.....,感謝了!

----------------------------------

┌──┬──┬──┬──┬──┬──┬──┬──┐

│01│07│13│19│25│31│37│43│

├──┼──┼──┼──┼──┼──┼──┼──┤

│02│08│14│20│26│32│38│44│

├──┼──┼──┼──┼──┼──┼──┼──┤

│03│09│15│21│27│33│39│45│

├──┼──┼──┼──┼──┼──┼──┼──┤

│04│10│16│22│28│34│40│46│

├──┼──┼──┼──┼──┼──┼──┼──┤

│05│11│17│23│29│35│41│47│

├──┼──┼──┼──┼──┼──┼──┼──┤

│06│12│18│24│30│36│42│48│

└──┴──┴──┴──┴──┴──┴──┴──┘

1 個解答

評分
  • 阿戊
    Lv 7
    1 0 年前
    最佳解答

    Private Sub CommandButton1_Click()For i = 1 To 48 Cells(((i - 1) Mod 6) + 1, (i \ 7) + 1).Value = iNext iEnd Sub

    2006-09-06 22:36:45 補充:

    修正一下Private Sub CommandButton1_Click()For i = 1 To 48 Cells(((i - 1) Mod 6) + 1, ((i - 1) \ 6) + 1).Value = Format(i, "'00")Next iEnd Sub

    2006-09-06 22:37:58 補充:

    ..." 是雙引號' 是單引號

還有問題?馬上發問,尋求解答。