找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
尊貴會員無限觀看附件圖片尊貴會員無限下載附件認識好友、聊天,分享生活趣事
海賊王fc2rionntrgd自慰
nacr 240砂漠の雪平行天堂lonarpgipzz 056シニシス

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

Hololive 5th fes. Ca

✡ 斗破蒼穹 年番/鬥

[繁]肌肉魔法使-MASHL

[繁]我獨自升級11-

[繁]最強肉盾的迷宮攻

[簡]北海道辣妹金古錐
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 5502|回復: 3

[問題] 如何在特定數字中依序選號?[複製鏈接]

Rank: 1

帖子
66
積分
91 點
潛水值
17057 米
發表於 2017-4-15 02:38 AM|顯示全部樓層

最近想做出一個選號的系統,
有四個文字方塊分別為tb1.tb2.tb3.tb4,
底下為四個清除按鈕,分別對應tb1-tb4,
在工作表2有一組數字,分別為3.4.5.10.12.14.15.19.20.24,
獲取第一次資料後,tb1-tb4能顯示前四個數字3.4.5.10,
當tb3按下底下的按鈕清除後,5會消失,
並立刻補上12做為顯示的數字。
再按下tb1下的清除鍵後,3會消失,並補上14。
該怎麼寫才能做到此功能呢?
...
瀏覽完整內容,請先 註冊登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號?註冊
分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。

使用道具檢舉

Rank: 2Rank: 2

帖子
241
積分
299 點
潛水值
22810 米
發表於 2017-4-17 08:39 AM|顯示全部樓層
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。
似乎只需要一個Queue. 自工作表2輸入, 各tb button接能輸出.
如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。

使用道具檢舉

iamhahalau 該用戶已被刪除
發表於 2017-4-23 12:12 AM|顯示全部樓層
若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。
使用 DIM A(20)這個順序來儲存所有數字,例如 A(0) = 3, A(1)=4 。。。。。。

一開始用了 4個 A(0),A(1), A(2),A(3),往後按清除

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2017-4-27 02:53 PM|顯示全部樓層
本帖最後由 tryit244178 於 2017-5-1 05:19 PM 編輯

數字放在 工作表2 的儲存格裡,宣告個索引用的變數(假設是index)
看是放直的還是橫的…
然後用 Rows(index) 或 Colums(index) 取出 工作表2 的值即可
補程式碼
  1. Private index As Integer

  2. Private Sub UserForm_Initialize()
  3.     index = 0
  4. End Sub

  5. Private Sub CommandButton1_Click()
  6.     TextBox1.Text = GetNumber
  7. End Sub

  8. Private Function GetNumber() As Integer
  9.     index = index + 1
  10.     GetNumber = 工作表2.Rows(1).Columns(index).Value '橫的用這行
  11.     GetNumber = 工作表2.Columns(1).Rows(index).Value '直的用這行
  12. End Function
複製代碼


...
瀏覽完整內容,請先 註冊登入會員
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部