圖書借閱系統借還書語法疑問

zbc231

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

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

zbc231

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

tryit244178

zbc231 發表於 2017-3-2 01:32 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

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

...

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

zbc231

tryit244178 發表於 2017-2-4 12:49 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

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

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

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

zbc231

tryit244178 發表於 2017-2-4 12:49 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

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

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

tryit244178

要出現在工作表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

複製代碼

...

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

zbc231

tryit244178 發表於 2017-2-3 06:47 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

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

...

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

tryit244178

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

zbc231

tryit244178 發表於 2017-1-24 02:36 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

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

不好意思，再請問一個問題，
...

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

zbc231

tryit244178 發表於 2017-1-24 02:36 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

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

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

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

tryit244178

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

複製代碼

...

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

zbc231

tryit244178 發表於 2017-1-23 05:36 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

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

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

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

tryit244178

把你那串原始碼的第 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 = ""

複製代碼

...

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

zbc231

代碼如下：

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

複製代碼

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