使用宏插入图片如何固定图片大小

蓝桥玄霜

请见附件。

jxlhx97601

蓝桥玄霜 发表于 2012-11-1 11:01

能不能上传人附件来看看

jxlhx97601

蓝桥玄霜 发表于 2012-11-1 11:04
请见附件。

谢谢，刚看到，如果标签中的A列删除了，VBA应在哪个地方修改，帮一下忙

jxlhx97601

蓝桥玄霜 发表于 2012-11-1 11:04
请见附件。

刚才试了一下，很不错，如果要把标签中的第一列删除，怎样修改代码？能不能在号数的数字后加上“号”字。如果说要把同一班的学生先列出来，再打印，要修改哪些代码？现在在标签中只显示最后一页的学生，我想打印后也能看到刚打印的整班学生。

蓝桥玄霜

A列删除之后就没有座位号了？
增加一个停顿：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target = "" Then Exit Sub
   
4. If Target.Address <> "$C$2" Then Exit Sub
   
5. Dim i&, Myr&, y&, ye%, j&, aa, Arr, d, rng As Range, n%, c%, m%, mm%, nn%, xx$
   
6. Set d = CreateObject("Scripting.Dictionary")
   
7. Set rng = Sheet3.[q1:r4]
   
8. xx = [b2].Value
   
9. Myr = Sheet1.[a65536].End(xlUp).Row
   
10. Arr = Sheet1.Range("a1:d" & Myr)
    
11. For i = 2 To UBound(Arr)
    
12.     If Arr(i, 4) <> "" Then d(Arr(i, 4)) = d(Arr(i, 4)) & i & ","
    
13. Next
    
14. t = d(Target.Value)
    
15. If t = "" Then MsgBox "没有这个班级的数据！": Exit Sub
    
16. t = Left(t, Len(t) - 1)
    
17. If InStr(t, ",") Then
    
18.     aa = Split(t, ",")
    
19.     y = (UBound(aa) + 1) Mod 12
    
20.     If y = 0 Then
    
21.         ye = Int((UBound(aa) + 1) / 12)
    
22.     Else
    
23.         ye = Int((UBound(aa) + 1) / 12) + 1
    
24.     End If
    
25.     For j = 1 To ye
    
26.         Sheet3.[a1:l15].ClearContents
    
27.         Sheet3.[a1:l15].Borders.LineStyle = xlNone
    
28.         Do
    
29.         n = n + 1: nn = nn + 1
    
30.         c = n Mod 4: mm = Int(n / 4)
    
31.         If c <> 0 Then
    
32.             col = 3 * c - 1
    
33.             m = 5 * mm + 1
    
34.         If m > 11 Then n = 0: nn = nn - 1: Exit Do
    
35.         Else
    
36.             col = 11
    
37.         End If
    
38.         rng.Copy Sheet3.Cells(m, col)
    
39.         With Sheet3
    
40.             .Cells(m, col).Value = xx
    
41.             .Cells(m + 1, col + 1).Value = Arr(aa(nn - 1), 4)
    
42.             .Cells(m + 2, col + 1).Value = Arr(aa(nn - 1), 2)
    
43.             .Cells(m + 3, col + 1).Value = Arr(aa(nn - 1), 1) & "号"
    
44.         End With
    
45.         Loop While nn < UBound(aa) + 1
    
46.         Sheet3.[a1:l15].PrintPreview
    
47.         Sheet3.[a1:l15].PrintOut
    
48.     Next
    
49. End If
    
50. End Sub
    

复制代码

jxlhx97601

谢谢蓝桥玄霜 ，我想打印后也能看到刚打印的整班学生，最好的做法就是先把符合要求的全班学生COPY到Sheet3
，然后再执行打印任务。这样我们就能看到全班学生的标签了。

mjzxlmg

jxlhx97601 发表于 2012-11-1 15:52
谢谢蓝桥玄霜 ，我想打印后也能看到刚打印的整班学生，最好的做法就是先把符合要求的全班学生COPY到Sheet3
...

有时间给你做一个。

jhzghua

刚好有用！

mjzxlmg

jxlhx97601 发表于 2012-11-1 15:52
谢谢蓝桥玄霜 ，我想打印后也能看到刚打印的整班学生，最好的做法就是先把符合要求的全班学生COPY到Sheet3
...

给你做了一个
1、可自定义一行几个标签，如你的要求是4个，也可是5、6个等
2、做成窗体形式，班级根据表中数据添加，没有的班级不会出现在下拉框中，
3、下拉中增加全校选项，可直接生成全校的标签
4、做成容易修改的代码，以快速适应不同的标签


附件：
标签生成器.rar (26.95 KB, 下载次数: 102)

2013-4-14 19:35 上传

点击文件名下载附件

manbuhaibian

蓝桥玄霜 发表于 2012-10-30 19:31
请见附件。

老师，您设计的这个代码，单击导入图片后，照片都堆在一起了。并没有与名称行一一对应。请问是什么原因。