教育应用贴（分班、统计、课表等）1142楼添加运动会成绩统计表20121215

lhx120824

jxlhx97601 发表于 2012-10-31 22:30
各位大侠好，小女子急用,请帮我制作一个应用VBA的标签生成器，要求请见附件中的说明。谢谢了！在线急盼！！ ...

对不起了，vba我不会，如果用公式，我可以帮你做，只是打印时需一张一张的手动操作。

xiaoguozi2010

谢谢，怎么生成考室的座位签

jxlhx97601

lhx120824 发表于 2012-11-1 07:45
对不起了，vba我不会，如果用公式，我可以帮你做，只是打印时需一张一张的手动操作。

谢谢你，不知你做好了吗，能发上来看看吗？

lhx120824

先用公式的看一下吧，不合要求时再研究。

jxlhx97601

lhx120824 发表于 2012-11-1 15:44
先用公式的看一下吧，不合要求时再研究。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Target.Address <> "$C$2" Then Exit Sub
Dim i&, Myr&, y&, ye%, j&, aa, Arr, d, rng As Range, n%, c%, m%, mm%, nn%, xx$
Set d = CreateObject("Scripting.Dictionary")
Set rng = Sheet3.[q1:r4]
xx = [b2].Value
Myr = Sheet1.[a65536].End(xlUp).Row
Arr = Sheet1.Range("a1:d" & Myr)
For i = 2 To UBound(Arr)
    If Arr(i, 4) <> "" Then d(Arr(i, 4)) = d(Arr(i, 4)) & i & ","
Next
t = d(Target.Value)
If t = "" Then MsgBox "没有这个班级的数据！": Exit Sub
t = Left(t, Len(t) - 1)
If InStr(t, ",") Then
    aa = Split(t, ",")
    y = (UBound(aa) + 1) Mod 12
    If y = 0 Then
        ye = Int((UBound(aa) + 1) / 12)
    Else
        ye = Int((UBound(aa) + 1) / 12) + 1
    End If
    For j = 1 To ye
        Sheet3.[a1:l15].ClearContents
        Sheet3.[a1:l15].Borders.LineStyle = xlNone
        Do
        n = n + 1: nn = nn + 1
        c = n Mod 4: mm = Int(n / 4)
        If c <> 0 Then
            col = 3 * c - 1
            m = 5 * mm + 1
        If m > 11 Then n = 0: nn = nn - 1: Exit Do
        Else
            col = 11
        End If
        rng.Copy Sheet3.Cells(m, col)
        With Sheet3
            .Cells(m, col).Value = xx
            .Cells(m + 1, col + 1).Value = Arr(aa(nn - 1), 4)
            .Cells(m + 2, col + 1).Value = Arr(aa(nn - 1), 2)
            .Cells(m + 3, col + 1).Value = Arr(aa(nn - 1), 1) & "号"
        End With
        Loop While nn < UBound(aa) + 1
        Sheet3.[a1:l15].PrintPreview
        Sheet3.[a1:l15].PrintOut
    Next
End If
End Sub
谢谢版主的热心肠,用这个基本能达到要求了,但是不能反映全班的学生全部体现在"标签"中,只能显示最后一页的学生标签.请各位高手能够修改代码,进一步完善.

gdldd

利害。。支持一下。

Excel2119

经典层出不穷

zh84762538

你好：我的课表没显示出来，

hjh700913

好好好!!!!!!!!!!!!!!

zxcvbnm98777

留一个脚印，方便以后学习消化。感谢楼主的汇总。