繁體瀏覽工具設為首頁收藏本站
 找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
請尊重及感激所有版主付出和奉獻感激所有對伊莉作出奉獻的人尊貴會員無限看帖不用回覆
伊莉討論區 › 論壇 › 電腦資訊 › 電腦程式設計 › Visual Basic 語言 › Textbox輸入資料後，如何儲存在特定位置？ ...
上原亞衣ge鬼父進擊的巨母按摩國中
在監獄都mg無碼不登校妹ekdv 683hjmo 665ntrレrpg殭屍
休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁]BLEACH 死神 千年
[簡]莫名成為邪龍的五
[繁]機械臂05-

【高清繁】✡ 霹靂英
[繁]亂馬½ 05-
日清咚兵衛「裏どん兵
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
返回列表發新帖

查看: 4113|回復: 2
打印上一主題下一主題

[求助]Textbox輸入資料後，如何儲存在特定位置？[複製鏈接]

zbc231

Rank: 1

帖子
66
積分
91 點
潛水值
17587 米
跳轉到指定樓層
樓主
發表於 2018-6-29 05:09 AM|只看該作者|倒序瀏覽
如果你忘記伊莉的密碼，請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出，系統就會把密碼寄到你的E-Mail。
之前做的一表單，裡面有textbox1-textbox6,
textbox1-textbox6輸入資料後，會存放在A2-F2，
相關的寫法如下，但最近刪除textbox2-6，只留下textbox1，
寫入資料的方式改成填滿A2-A31後，變成B2-B31，如果再寫滿，就跳至C2-C31，最多到F2-F31，
請問大家，在刪除textbox2-6後，要怎麼改寫才會達成跳行儲存的效果。
謝謝大家！

  1. With 工作表1
  2.     If .Range("A2") = "" Then
  3.        .Range("A2") = TextBox1.Text
  4. .Range("B2") = TextBox2.Text
  5. .Range("C2") = TextBox3.Text
  6. .Range("D2") = TextBox4.Text
  7. .Range("E2") = TextBox5.Text
  8. .Range("F2") = TextBox6.Text
  9.     Else
  10.     .Range("A1").Select
  11.     Selection.Range("A" & Range("A1:F30").CurrentRegion.Rows.Count + 1).Select
  12.     ActiveCell.Offset(0, 0).Range("A1").Value = TextBox1.Text
  13. ActiveCell.Offset(0, 1).Range("A1").Value = TextBox2.Text
  14. ActiveCell.Offset(0, 2).Range("A1").Value = TextBox3.Text
  15. ActiveCell.Offset(0, 3).Range("A1").Value = TextBox4.Text
  16. ActiveCell.Offset(0, 4).Range("A1").Value = TextBox5.Text
  17. ActiveCell.Offset(0, 5).Range("A1").Value = TextBox6.Text
  18.     End If
  19. End With
複製代碼


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

使用道具檢舉

tryit244178

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

帖子
155
積分
1282 點
潛水值
47975 米
頭香
發表於 2018-7-11 04:54 PM|只看該作者
若對尊貴或贊助會員有任何疑問，歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com
本帖最後由 tryit244178 於 2018-7-11 04:56 PM 編輯

把程式碼改為
  1.     Dim r As Range, i As Range, j As Range
  2.    
  3.     Set r = Range("A2:F31")
  4.    
  5.     For Each i In r.Columns
  6.         For Each j In i.Rows
  7.             If j.value = "" Then
  8.                 j.value = TextBox1.Text
  9.                 Exit Sub
  10.             End If
  11.         Next j
  12.     Next i
複製代碼


...
瀏覽完整內容，請先 註冊 或 登入會員
如果瀏覽伊莉時速度太慢或無法連接，可以使用其他分流瀏覽伊莉，www01.eyny.com(02,03)。

使用道具檢舉

zbc231

Rank: 1

帖子
66
積分
91 點
潛水值
17587 米
3樓
發表於 2018-7-11 05:12 PM|只看該作者
若新密碼無法使用，可能是數據未更新。請使用舊密碼看看。
本帖最後由 zbc231 於 2018-7-12 03:31 AM 編輯

終於可以了，謝謝你解決我的苦惱。
再次地感謝你的幫忙！


若有安裝色情守門員，可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php

使用道具檢舉

返回列表發新帖
高級模式
BColorImageLinkQuoteCodeSmilies
您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

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