中文

高中

rpg

國中

催堕のエ

無敵身材的Piano師-이	Hoshimachi Suisei 日	[繁]雖然是公會的櫃檯
[繁]我獨自升級19-	[繁]SAKAMOTODAYS 06-	[繁]薬師少女的獨語28

查看: 5330|回復: 4

[求助]vba輸入視窗可否輸入自定義的編號[複製鏈接]

zbc231

高級幼兒生(30/200)

Rank: 1

帖子: 66
積分: 91 點
潛水值: 17717 米

電梯直達

樓主

發表於 2017-1-5 01:57 AM|只看該作者|正序瀏覽

升級為尊貴會員或贊助會員，讓你擁有自由、暢通無阻、應有盡有及所有資源任你使用的無窮快感。

本帖最後由 zbc231 於 2017-1-8 06:25 AM 編輯

想做一個VBA視窗來輸入資料，如圖右側，
輸入的順序為項目，
再來是項目與編號的交會的點-結果，
最後才是編號的部分。
如上圖希望輸入9-60-6，
即可完成如上圖所示的狀態。
其中編號部分不是excel最上方編碼的A-Z，而希望改成自己自定義的1-25，
再加上之前爬文有人的做法順序是9-H-60或是H-9-60，
...

瀏覽完整內容，請先註冊或登入會員

附件: 你需要登錄才可以下載或查看附件。沒有帳號？註冊

如何

分享0收藏0支持0

成為伊莉的版主，你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛，那種滿足感等著你來嚐嚐喔。

使用道具檢舉

zbc231

高級幼兒生(30/200)

Rank: 1

帖子: 66
積分: 91 點
潛水值: 17717 米

5樓

發表於 2017-1-22 04:50 PM|只看該作者

升級為尊貴會員或贊助會員，讓你擁有自由、暢通無阻、應有盡有及所有資源任你使用的無窮快感。

zbc231 發表於 2017-1-22 08:37 AM
下載: 訪客無法瀏覽下載點，請先註冊或登入會員

偵錯的部分我已修正，原來是要打excel本來定義的工作表名稱。
修正之後現在不會再跳出偵錯視窗了。
但現在 ...

...

瀏覽完整內容，請先註冊或登入會員

升級為尊貴會員或贊助會員，讓你擁有自由、暢通無阻、應有盡有及所有資源任你使用的無窮快感。

使用道具檢舉

zbc231

高級幼兒生(30/200)

Rank: 1

帖子: 66
積分: 91 點
潛水值: 17717 米

4樓

發表於 2017-1-22 08:37 AM|只看該作者

如果瀏覽伊莉時速度太慢或無法連接，可以使用其他分流瀏覽伊莉，www01.eyny.com(02,03)。

偵錯的部分我已修正，原來是要打excel本來定義的工作表名稱。
修正之後現在不會再跳出偵錯視窗了。
但現在按照上述的框格順序輸入，9-60-6，
項目是準確的，60卻是指編號60的意思，6則變為結果，
現在該怎麼修改才對呢？謝謝！

點評

tryit244178 這樣 sheet1.Cells(CInt(TextBox1.Text),CInt(TextBox2.Text)+2).Value=TextBox3.Text 發表於 2017-1-22 09:25 AM

tryit244178 你把 TextBox3.Text 跟 TextBox2.Text 互換看看發表於 2017-1-22 09:22 AM

伊莉影片

使用道具檢舉

zbc231

高級幼兒生(30/200)

Rank: 1

帖子: 66
積分: 91 點
潛水值: 17717 米

3樓

發表於 2017-1-22 01:31 AM|只看該作者

若登入不正常或變回訪客狀態，請先刪除COOKIE再登入。

感謝你的回應，我想要的就是這個方式，
但是我照你的方法執行之後，
excel跑出視窗叫我偵錯，如附件所示，
我是哪裡沒有修正到或是打錯嗎？
謝謝你！

附件: 你需要登錄才可以下載或查看附件。沒有帳號？註冊

點評

tryit244178 如果你想用你自已設的名稱的話，可以把 sheet1 改成 Worksheets("你設的名字") 發表於 2017-1-22 06:25 PM

若新密碼無法使用，可能是數據未更新。請使用舊密碼看看。

使用道具檢舉

tryit244178

尊貴會員

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

帖子: 155
積分: 1282 點
潛水值: 47955 米

頭香

發表於 2017-1-20 11:54 PM|只看該作者

所有積分大於負-100的壞孩子，將可獲得重新機會成為懲罰生，權限跟幼兒生一樣。

本帖最後由 tryit244178 於 2017-1-21 12:52 PM 編輯

其實我看好久看不懂，不過我猜是這樣…

在按鍵裡寫上

Sheet1.Cells(CInt(Item.Text), CInt(Number.Text) + 2).Value = Result.Text

複製代碼

編號開始的位置是C，第3欄。所以把編號加2就是你要的欄位
CInt(Number.Text) + 2
...

瀏覽完整內容，請先註冊或登入會員

附件: 你需要登錄才可以下載或查看附件。沒有帳號？註冊

成為伊莉的版主，你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛，那種滿足感等著你來嚐嚐喔。

使用道具檢舉

返回列表

Archiver|手機版|廣告|聯絡我們|廣告查詢|廠商合作|伊莉

GMT+8, 2025-2-23 10:18 PM

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