[繁]最狂輔助職業【話	[繁]精靈幻想記第二	[繁]嘆氣的亡靈想隱退
[簡]重啟人生的千金小	[繁]青春之箱05-	[繁]香格里拉・開拓異

查看: 5433|回復: 13

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

zbc231

高級幼兒生(30/200)

Rank: 1

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

電梯直達

樓主

發表於 2017-1-22 02:28 AM|只看該作者|倒序瀏覽

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

本帖最後由 zbc231 於 2017-2-7 02:02 PM 編輯

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

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

點評

tryit244178 輸入1得張3…雖然我不知道你的原始碼是什麼，不過應該用同樣的方法就可以達到你想要的效果發表於 2017-1-22 11:15 AM

工作表, 管理系, 如何, 姓名

分享0收藏0支持0

如果發覺自己無法使用一些功能或出現問題，請按重新整理一次，並待所有網頁內容完全載入後5秒才進行操作。

使用道具檢舉

zbc231

高級幼兒生(30/200)

Rank: 1

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

頭香

發表於 2017-1-23 03:56 PM|只看該作者

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

代碼如下：

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With 工作表1
Set A = .Columns("A").Find(TextBox1.Text, lookat:=xlWhole)
TextBox2.Text = A.Offset(, 1)
End With
End Sub

複製代碼

因為小弟對語法實在不懂，所以無法舉一反三，
請你幫忙解惑，謝謝！

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

使用道具檢舉

tryit244178

尊貴會員

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

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

3樓

發表於 2017-1-23 05:36 PM|只看該作者

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

本帖最後由 tryit244178 於 2017-2-4 01:51 PM 編輯

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

A.Offset(, 3).Value = "書藉編號"
A.Offset(, 4).Value = "書名"
A.Offset(, 5).Value = "借出日期"
A.Offset(, 6).Value = "應還日期"

複製代碼

註：等號後面自已改成相對應的TextBox

而刪除鈕則是改成

A.Offset(, 3).Value = ""
A.Offset(, 4).Value = ""
A.Offset(, 5).Value = ""
A.Offset(, 6).Value = ""

複製代碼

...

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

如果你忘記伊莉的密碼，請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出，系統就會把密碼寄到你的E-Mail。

使用道具檢舉

zbc231

高級幼兒生(30/200)

Rank: 1

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

4樓

發表於 2017-1-24 12:47 AM|只看該作者

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

tryit244178 發表於 2017-1-23 05:36 PM
下載: 訪客無法瀏覽下載點，請先註冊或登入會員

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

感謝你的幫忙，目前借還書按鍵都能順利運作，
...

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

分享使你變得更實在，可以使其他人感到快樂，分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。

使用道具檢舉

tryit244178

尊貴會員

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

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

5樓

發表於 2017-1-24 02:36 AM|只看該作者

若瀏覽伊莉的時侯發生問題或不正常情況，請使用Internet Explorer(I.E)。

本帖最後由 tryit244178 於 2017-1-24 02:37 AM 編輯

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

那麼你該加入的判斷式就在這，要判斷A是不是Nothing

If A Is Nothing Then
Msgbox "資料輸入錯誤"
Else
A.Offset(, 3).Value = "書藉編號"
A.Offset(, 4).Value = "書名"
.
.
.
End If

複製代碼

...

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

點評

tryit244178 太久沒用VB的偵錯的功能，有點忘了怎麼用XD 發表於 2017-1-24 02:40 AM

如果你覺得伊莉做得不錯，那就不要再猶疑了。今天就贊助和支持我們，立即行動！我們需要你的一點力量喔。

使用道具檢舉

zbc231

高級幼兒生(30/200)

Rank: 1

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

6樓

發表於 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 = "書 ...

托你的福，已經完成了整個借書系統的製作，
...

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

如果重複性登入後自動登出，請先刪除所有Cookie和舊網頁再登入。

使用道具檢舉

zbc231

高級幼兒生(30/200)

Rank: 1

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

7樓

發表於 2017-2-2 08:53 AM|只看該作者

如果你忘記伊莉的密碼，請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出，系統就會把密碼寄到你的E-Mail。

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

如果重複性登入後自動登出，請先刪除所有Cookie和舊網頁再登入。

使用道具檢舉

tryit244178

尊貴會員

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

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

8樓

發表於 2017-2-3 06:47 AM|只看該作者

伊莉影片

本帖最後由 tryit244178 於 2017-2-3 07:07 AM 編輯

你要拿姓名來比對？
那…直接用TextBox2.Text不就好了。口。？
(TextBox2應該是姓名的吧)

如果發覺自己無法使用一些功能或出現問題，請按重新整理一次，並待所有網頁內容完全載入後5秒才進行操作。

使用道具檢舉

zbc231

高級幼兒生(30/200)

Rank: 1

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

9樓

發表於 2017-2-3 07:05 AM|只看該作者

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

本帖最後由 zbc231 於 2017-2-7 02:03 PM 編輯

tryit244178 發表於 2017-2-3 06:47 AM
下載: 訪客無法瀏覽下載點，請先註冊或登入會員

你要拿姓名來比對？
那…直接用TextBox2.Text不就好了。口。？
(TextBox2應該是姓名的吧)

...

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

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

使用道具檢舉

tryit244178

尊貴會員

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

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

10樓

發表於 2017-2-4 12:49 PM|只看該作者

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

本帖最後由 tryit244178 於 2017-2-8 10:21 AM 編輯

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

With 工作表2
.Activate
If .Range("A2").Value = "" Then
.Range("A2").Value = TextBox1.Text
.Range("B2").Value = TextBox2.Text
.Range("C2").Value = TextBox3.Text
.Range("D2").Value = TextBox4.Text
.Range("E2").Value = TextBox5.Text
Else
.Range("A" & Range("A1").CurrentRegion.Rows.Count + 1).Select ' 指定到空白行
ActiveCell.Offset(, 0).Value = TextBox1.Text
ActiveCell.Offset(, 1).Value = TextBox2.Text
ActiveCell.Offset(, 2).Value = TextBox3.Text
ActiveCell.Offset(, 3).Value = TextBox4.Text
ActiveCell.Offset(, 4).Value = TextBox5.Text
End If
End With

複製代碼

...

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

伊莉影片

使用道具檢舉

zbc231

高級幼兒生(30/200)

Rank: 1

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

11樓

發表於 2017-2-4 05:00 PM|只看該作者

上傳頭像立即獲得 1 點積分。

tryit244178 發表於 2017-2-4 12:49 PM
下載: 訪客無法瀏覽下載點，請先註冊或登入會員

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

非常感謝你，系統已經完成。
感謝你的指導！

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

使用道具檢舉

zbc231

高級幼兒生(30/200)

Rank: 1

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

12樓

發表於 2017-3-2 01:32 AM|只看該作者

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

tryit244178 發表於 2017-2-4 12:49 PM
下載: 訪客無法瀏覽下載點，請先註冊或登入會員

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

再次請問，照上述的寫法，
如A1中沒有資料，
textbox1-5將會被填入a2,b2,c2,d2,e2中，
...

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

如果你忘記伊莉的密碼，請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出，系統就會把密碼寄到你的E-Mail。

使用道具檢舉

tryit244178

尊貴會員

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

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

13樓

發表於 2017-3-4 11:59 AM|只看該作者

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

本帖最後由 tryit244178 於 2017-3-4 12:53 PM 編輯

zbc231 發表於 2017-3-2 01:32 AM
下載: 訪客無法瀏覽下載點，請先註冊或登入會員

再次請問，照上述的寫法，
如A1中沒有資料，
textbox1-5將會被填入a2,b2,c2,d2,e2中，

...

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

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

使用道具檢舉

zbc231

高級幼兒生(30/200)

Rank: 1

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

14樓

發表於 2017-3-13 02:06 AM|只看該作者

伊莉影片

感謝你的再次教導，
目前所有系統順利運作中。
看書學vba這件事，我會努力的！

若瀏覽伊莉的時侯發生問題或不正常情況，請使用Internet Explorer(I.E)。

使用道具檢舉

返回列表

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

GMT+8, 2024-11-5 04:05 AM

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