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

伊莉討論區

搜索
尊貴會員無限觀看附件圖片尊貴會員無限看帖不用回覆儲值後自動升級用戶組
刀劍神域三上julia中出世紀帝國rpg自慰
性癖討論妹!せい天使なのハニカム自拍暴食狂戰霍總,太

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

[繁]女王的手術刀09-

[繁]異修羅10-

[繁]藥師少女的獨語22

[簡]SHAMAN KING FLOW

[繁]治癒魔法的錯誤使

[繁]不死不運23-
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 5247|回復: 13

[求助] 圖書借閱系統借還書語法疑問[複製鏈接]

Rank: 1

帖子
66
積分
91 點
潛水值
17057 米
發表於 2017-1-22 02:28 AM|顯示全部樓層
分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。
本帖最後由 zbc231 於 2017-2-7 02:02 PM 編輯

小弟因工作上的需求,需要建立簡單的圖書借閱管理系統,
目前構想及進度如下:
以建立借書登錄的表單,借出日期與應還日期已完成。重新填寫已完成,按下後會刪除編號及書籍編號。
書籍資料已完成。後方欲否逾期一覽表中目前日期也已設定,有逾期則顯示是,並變成紅底,
後方會自動計算天數;否則是綠底。
...
瀏覽完整內容,請先 註冊登入會員

點評

tryit244178 輸入1得張3…雖然我不知道你的原始碼是什麼,不過應該用同樣的方法就可以達到你想要的效果  發表於 2017-1-22 11:15 AM
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。

使用道具檢舉

Rank: 1

帖子
66
積分
91 點
潛水值
17057 米
發表於 2017-1-23 03:56 PM|顯示全部樓層
如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。
代碼如下:
  1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  2. With 工作表1
  3. Set A = .Columns("A").Find(TextBox1.Text, lookat:=xlWhole)
  4. TextBox2.Text = A.Offset(, 1)
  5. End With
  6. End Sub
複製代碼
因為小弟對語法實在不懂,所以無法舉一反三,
請你幫忙解惑,謝謝!
如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。

使用道具檢舉

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

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2017-1-23 05:36 PM|顯示全部樓層
如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。
本帖最後由 tryit244178 於 2017-2-4 01:51 PM 編輯

把你那串原始碼的第 2 行到第 5 行貼到增加的按鈕裡
然後把 TextBox2.Text = A.Offset(, 1) 改成
  1. A.Offset(, 3).Value = "書藉編號"
  2. A.Offset(, 4).Value = "書名"
  3. A.Offset(, 5).Value = "借出日期"
  4. A.Offset(, 6).Value = "應還日期"
複製代碼
註:等號後面自已改成相對應的TextBox

而刪除鈕則是改成
  1. A.Offset(, 3).Value = ""
  2. A.Offset(, 4).Value = ""
  3. A.Offset(, 5).Value = ""
  4. A.Offset(, 6).Value = ""
複製代碼




...
瀏覽完整內容,請先 註冊登入會員
若有安裝色情守門員,可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php

使用道具檢舉

Rank: 1

帖子
66
積分
91 點
潛水值
17057 米
發表於 2017-1-24 12:47 AM|顯示全部樓層
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。
tryit244178 發表於 2017-1-23 05:36 PM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

把你那串原始碼的第 2 行到第 5 行貼到增加的按鈕裡
然後把 TextBox2.Text = A.Offset(, 1) 改成
註:等號 ...

感謝你的幫忙,目前借還書按鍵都能順利運作,
...
瀏覽完整內容,請先 註冊登入會員
若有安裝色情守門員,可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php

使用道具檢舉

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

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2017-1-24 02:36 AM|顯示全部樓層
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。
本帖最後由 tryit244178 於 2017-1-24 02:37 AM 編輯

Set A = .Columns("A").Find(13, lookat:=xlWhole)
因為A沒找到值
所以下一行的 A.Offset(, 3).Value = "書藉編號" 就會出錯。A是Nothing呀!

那麼你該加入的判斷式就在這,要判斷A是不是Nothing
  1. If A Is Nothing Then
  2.    Msgbox "資料輸入錯誤"
  3. Else
  4.    A.Offset(, 3).Value = "書藉編號"
  5.    A.Offset(, 4).Value = "書名"
  6.    .
  7.    .
  8.    .
  9. End If
複製代碼
...
瀏覽完整內容,請先 註冊登入會員





點評

tryit244178 太久沒用VB的偵錯的功能,有點忘了怎麼用XD  發表於 2017-1-24 02:40 AM
若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。

使用道具檢舉

Rank: 1

帖子
66
積分
91 點
潛水值
17057 米
發表於 2017-1-24 03:54 PM|顯示全部樓層
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。
tryit244178 發表於 2017-1-24 02:36 AM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

Set A = .Columns("A").Find(13, lookat:=xlWhole)
因為A沒找到值
所以下一行的 A.Offset(, 3).Value = "書 ...

托你的福,已經完成了整個借書系統的製作,
...
瀏覽完整內容,請先 註冊登入會員

使用道具檢舉

Rank: 1

帖子
66
積分
91 點
潛水值
17057 米
發表於 2017-2-2 08:53 AM|顯示全部樓層
tryit244178 發表於 2017-1-24 02:36 AM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

Set A = .Columns("A").Find(13, lookat:=xlWhole)
因為A沒找到值
所以下一行的 A.Offset(, 3).Value = "書 ...

不好意思,再請問一個問題,
...
瀏覽完整內容,請先 註冊登入會員

點評

tryit244178 程式碼貼來看看  發表於 2017-2-3 06:23 AM

使用道具檢舉

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

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2017-2-3 06:47 AM|顯示全部樓層
分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。
本帖最後由 tryit244178 於 2017-2-3 07:07 AM 編輯

你要拿姓名來比對?
那…直接用TextBox2.Text不就好了。口。?
(TextBox2應該是姓名的吧)
若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com

使用道具檢舉

Rank: 1

帖子
66
積分
91 點
潛水值
17057 米
發表於 2017-2-3 07:05 AM|顯示全部樓層
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。
本帖最後由 zbc231 於 2017-2-7 02:03 PM 編輯
tryit244178 發表於 2017-2-3 06:47 AM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

你要拿姓名來比對?
那…直接用TextBox2.Text不就好了。口。?
(TextBox2應該是姓名的吧)
...
瀏覽完整內容,請先 註冊登入會員

使用道具檢舉

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

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2017-2-4 12:49 PM|顯示全部樓層
若有安裝色情守門員,可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php
本帖最後由 tryit244178 於 2017-2-8 10:21 AM 編輯

要出現在工作表2的話,把下面的程式碼改成
  1.     With 工作表2
  2.         .Activate
  3.         If .Range("A2").Value = "" Then
  4.             .Range("A2").Value = TextBox1.Text
  5.             .Range("B2").Value = TextBox2.Text
  6.             .Range("C2").Value = TextBox3.Text
  7.             .Range("D2").Value = TextBox4.Text
  8.             .Range("E2").Value = TextBox5.Text
  9.         Else
  10.             .Range("A" & Range("A1").CurrentRegion.Rows.Count + 1).Select   ' 指定到空白行
  11.             ActiveCell.Offset(, 0).Value = TextBox1.Text
  12.             ActiveCell.Offset(, 1).Value = TextBox2.Text
  13.             ActiveCell.Offset(, 2).Value = TextBox3.Text
  14.             ActiveCell.Offset(, 3).Value = TextBox4.Text
  15.             ActiveCell.Offset(, 4).Value = TextBox5.Text
  16.         End If
  17.     End With
複製代碼
...
瀏覽完整內容,請先 註冊登入會員





使用道具檢舉

Rank: 1

帖子
66
積分
91 點
潛水值
17057 米
發表於 2017-2-4 05:00 PM|顯示全部樓層
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。
tryit244178 發表於 2017-2-4 12:49 PM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

要出現在工作表2的話,把下面的程式碼改成

非常感謝你,系統已經完成。
感謝你的指導!

使用道具檢舉

Rank: 1

帖子
66
積分
91 點
潛水值
17057 米
發表於 2017-3-2 01:32 AM|顯示全部樓層
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。
tryit244178 發表於 2017-2-4 12:49 PM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

要出現在工作表2的話,把下面的程式碼改成

再次請問,照上述的寫法,
如A1中沒有資料,
textbox1-5將會被填入a2,b2,c2,d2,e2中,
...
瀏覽完整內容,請先 註冊登入會員
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。

使用道具檢舉

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

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2017-3-4 11:59 AM|顯示全部樓層
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。
本帖最後由 tryit244178 於 2017-3-4 12:53 PM 編輯
zbc231 發表於 2017-3-2 01:32 AM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

再次請問,照上述的寫法,
如A1中沒有資料,
textbox1-5將會被填入a2,b2,c2,d2,e2中,
...
瀏覽完整內容,請先 註冊登入會員

使用道具檢舉

Rank: 1

帖子
66
積分
91 點
潛水值
17057 米
發表於 2017-3-13 02:06 AM|顯示全部樓層
感謝你的再次教導,
目前所有系統順利運作中。
看書學vba這件事,我會努力的!
若有安裝色情守門員,可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php

使用道具檢舉

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

Powered by Discuz!

© Comsenz Inc.

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