请教大神老师帮忙写代码

ykcbf1100

jkjinad 发表于 2024-2-29 14:19
关键是没有学过呀，学过就不用这样了

哦，那在论坛里多学点。

313667354

请参考，这里我把成绩表和学员分为两个表。

3190496160

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then MsgBox "未填姓名": Exit Sub
If TextBox3.Value = "" Then MsgBox "未填班别": Exit Sub
If TextBox2.Value = "" Then MsgBox "未填英语成绩": Exit Sub
If TextBox4.Value = "" Then MsgBox "未填学号": Exit Sub
If TextBox6.Value = "" Then MsgBox "未填计算机成绩": Exit Sub
If TextBox5.Value = "" Then MsgBox "未填语文成绩": Exit Sub
Dim rn As Range
r = Cells(Rows.Count, 1).End(xlUp).Row
zd = TextBox4.Value
Set rn = Range("a1:a" & r).Find(zd, , , , , , 1)
If Not rn Is Nothing Then MsgBox "学号重复！": Exit Sub
zf = Val(TextBox5.Value) + Val(TextBox2.Value) + Val(TextBox6.Value)
rr = Array(TextBox4.Value, TextBox1.Value, TextBox3.Value, TextBox5.Value, TextBox2.Value, TextBox6.Value, zf)
Cells(r + 1, 1).Resize(1, 7) = rr
For i = 1 To 6
    Me.Controls("TextBox" & i).Value = ""
Next
End Sub

3190496160

学生成绩登记.rar (56.2 KB, 下载次数: 11)

2024-2-29 15:43 上传

点击文件名下载附件

jkjinad

3190496160 发表于 2024-2-29 15:42
Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then MsgBox "未填姓名": Exit Sub
If Text ...

谢谢，老师，能不能再给我一个查询的代码，按学号查询，姓名，班别，各科成绩在窗口显示出来

jkjinad

3190496160 发表于 2024-2-29 15:43

谢谢，老师

3190496160

Private Sub CommandButton1_Click()
If TextBox2.Value = "" Then MsgBox "未填姓名": Exit Sub
If TextBox3.Value = "" Then MsgBox "未填班别": Exit Sub
If TextBox5.Value = "" Then MsgBox "未填英语成绩": Exit Sub
If TextBox1.Value = "" Then MsgBox "未填学号": Exit Sub
If TextBox6.Value = "" Then MsgBox "未填计算机成绩": Exit Sub
If TextBox4.Value = "" Then MsgBox "未填语文成绩": Exit Sub
Dim rn As Range
r = Cells(Rows.Count, 1).End(xlUp).Row
zd = TextBox4.Value
Set rn = Range("a1:a" & r).Find(zd, , , , , , 1)
If Not rn Is Nothing Then MsgBox "学号重复！": Exit Sub
ZF = Val(TextBox4.Value) + Val(TextBox5.Value) + Val(TextBox6.Value)
For i = 1 To 6
    Cells(r + 1, i) = Me.Controls("TextBox" & i).Value
    Me.Controls("TextBox" & i).Value = ""
Next i
Cells(r + 1, 7) = ZF
End Sub
Private Sub CommandButton2_Click()
Dim rn As Range
rS = Cells(Rows.Count, 1).End(xlUp).Row
zd = TextBox1.Value
Set rn = Range("a1:a" & rS).Find(zd, , , , , , 1)
If rn Is Nothing Then MsgBox "学号不存在！": Exit Sub
r = rn.Row
For i = 1 To 6
    Me.Controls("TextBox" & i).Value = Cells(r, i)
Next i
End Sub

3190496160

学生成绩登记.rar (53.3 KB, 下载次数: 8)

2024-2-29 20:15 上传

点击文件名下载附件