如何判断图书是否借出未还

hhxq001

zyouong 发表于 2014-8-16 10:57
这个不是数组公式。

如果连续输入00009号，结果只在后面显示一条已借出，应该不能借的都显示已借出才好。

hhxq001

su45 发表于 2014-8-16 17:26
怎么？还给不了最佳？

当显示某一图书不能外借时，提醒最后一次借出的行数，行吗。

su45

还有什么问题，一次说出来！

hhxq001

su45 发表于 2014-8-16 20:08
还有什么问题，一次说出来！

又给高手添麻烦哦：如果想限制每个学生最多可以借5本在手，教师8本在手（不是一性次借哦），就是每人没有还回的图书最多5本，超了就提示：该人已达到借阅册数限制。

su45

当然可以做到，但这就是另外一个问题了，应另开帖子了，这个帖子的问题已解决了吧？

hhxq001

su45 发表于 2014-8-16 20:30
当然可以做到，但这就是另外一个问题了，应另开帖子了，这个帖子的问题已解决了吧？

当显示某一图书不能外借时，提醒最后一次借出的行数，行吗。这个没解决啦

要求是最后一次借出的行号。



00005此书已借出，不能再借！
最后一次借出在xx行。
是否重新输入编号？

su45

你看看，折腾了多少次！又修改了：

su45

1. Sub suwjts()
   
2. re:
   
3. sm = InputBox("请输入图书编号：", "图书编号查询：")
   
4. If sm = "" Then End
   
5. sl = Application.CountIf(Range("A:A"), sm)
   
6. If sl > 0 Then
   
7.     rng = Range("A4", Cells(Rows.Count, "A").End(3).Offset(, 13))
   
8.     For i = UBound(rng) To 1 Step -1
   
9.         If rng(i, 1) = sm Then
   
10.             If rng(i, 9) = "借出" And rng(i, 12) <> "" Then
    
11.                 a = i + 3
    
12.                 MsgBox sm & " 此书可以外借！"
    
13.                 arr = Range("A" & a).Resize(, 3)
    
14.                 Range("A" & UBound(rng) + 4).Resize(, 3) = arr
    
15.                 ActiveWindow.ScrollRow = UBound(rng) + 4
    
16.                 Cells(UBound(rng) + 3, 1).Select
    
17.                 Exit For
    
18.             ElseIf rng(i, 9) = "" Then
    
19.                 a = i + 3
    
20.                 MsgBox sm & " 此书可以外借！"
    
21.                 ActiveWindow.ScrollRow = a
    
22.                 Cells(a, 1).Select
    
23.                 Exit For
    
24.             ElseIf rng(i, 9) = "借出" And rng(i, 12) = "" Then
    
25.                 mb = MsgBox(sm & "此书已借出，不能再借！" & Chr(10) & Chr(10) & "最后一次借出在第" & i + 3 & "行！" & Chr(10) & Chr(10) & "是否重新输入编号？", 4)
    
26.                 If mb = 6 Then
    
27.                     GoTo re
    
28.                 Else
    
29.                     Cells(i + 3, 1).Select
    
30.                     End
    
31.                 End If
    
32.             End If
    
33.         End If
    
34.     Next
    
35. Else
    
36.     With Sheets("书目")
    
37.         Set d = .Range("B:B").Find(sm, , , 2)
    
38.         If d Is Nothing Then
    
39.             mb = MsgBox("没编号为" & sm & "的图书！" & Chr(10) & Chr(10) & "是否重新输入编号？", 4)
    
40.             If mb = 6 Then GoTo re
    
41.             End
    
42.         Else
    
43.             arr = .Range(d, d.Offset(, 2))
    
44.             mb = MsgBox(sm & " 此书在书目中存在，未出现在借阅表中，尚未借出！" & _
    
45.             Chr(10) & Chr(10) & "书名是：" & arr(1, 3) & Chr(10) & Chr(10) & "是否要外借？", 4)
    
46.             If mb = 6 Then
    
47.                 i = Cells(Rows.Count, 1).End(3).Row + 1
    
48.                 Cells(i, 1).Resize(1, 3) = arr
    
49.                 ActiveWindow.ScrollRow = i
    
50.                 Cells(i, 1).Select
    
51.             Else
    
52.                 GoTo re
    
53.             End If
    
54.         End If
    
55.     End With
    
56. End If
    
57. End Sub

复制代码

hhxq001

su45 发表于 2014-8-16 22:07
你看看，折腾了多少次！又修改了：

在折腾中改进、进步。离大侠又近了一点。

{:011:}

hhxq001

su45 发表于 2014-8-16 22:11

又发现一个问题：
如果一本图书未还00009，输入编号提示不能再借。但如果我先在图书编号列填入这个号00009，再查询，就提示可借呢。