请会VBA的朋友帮我做个准考证，问题己在三坛老窖老师帮助下己在18楼解决了，谢谢

swl1972

三坛老窖 发表于 2011-11-29 15:48
我家的狗屁妞就要参加中考了，可惜没有文体方面的特长，否则就得找你敲章了～
------------- ...

下载了,我只能说，好好
但是20楼自动生成好象不行,我只能收藏18楼的罗，望三坛老窖 大侠改进。

yclyb

三坛老窖 发表于 2011-11-29 15:48
我家的狗屁妞就要参加中考了，可惜没有文体方面的特长，否则就得找你敲章了～
------------- ...

呵呵........三坛老窖老师准考证内容入错行了。

三坛老窖

swl1972 发表于 2011-11-29 18:55
下载了,我只能说，好好
但是20楼自动生成好象不行,我只能收藏18楼的罗，望三坛老窖 大侠改进。

我自己下来试了一下，没有发现异常。{:soso_e132:}
能描述一下状况吗?

三坛老窖

yclyb 发表于 2011-12-1 09:34
呵呵........三坛老窖老师准考证内容入错行了。

在什么情况下入错行的？{:soso_e132:}

swl1972

三坛老窖 发表于 2011-12-1 15:55
在什么情况下入错行的？

三坛老窖你好，就是一点自动生成准考证后，就会象22楼图片那样

yyyyyyy

三坛老窖 发表于 2011-11-29 15:48
我家的狗屁妞就要参加中考了，可惜没有文体方面的特长，否则就得找你敲章了～
------------- ...

点自动生成准考证，编号位置生成了考生号，内容全部空白，但生成了相应数量的准考证

三坛老窖

在我的电脑上，这么也模拟不出楼上几位所描述的状况，奇了怪了！
v2.3没有办法排错，试试这个版本吧。
--------------------------------------------------
准考证v2.4.rar (77.36 KB, 下载次数: 264)

2011-12-6 16:32 上传

点击文件名下载附件

yyyyyyy

B5出现“编号：”两字，J5出现“考生号：”
B19：毕业学校：J19：考生姓名：
B31：性    别：J31：  考场名称：
B45：考试时间B71：2012年中招特长生考试
B97，J97
B109，J109
B123，J123
又依次显示，编号，考生号，毕业学校，考生姓名、性别、考场名称等内容
其余全部空白，且无图片显示

yclyb

三坛老窖 发表于 2011-12-6 16:32
在我的电脑上，这么也模拟不出楼上几位所描述的状况，奇了怪了！
v2.3没有办法排错，试试这个版本吧。
-- ...

再麻烦下老师帮忙写个VBA，根据报名表里的考生号直接把考生相片导入到相片单元格，并能自动调整相片大小，适合单元格，相片名称为考生号JPG格式。
谢谢！
体育考试报名表.rar (182.14 KB, 下载次数: 138)

2011-12-8 19:01 上传

点击文件名下载附件

问题己在zhaogang1960老师帮忙解决了。

三坛老窖

yclyb 发表于 2011-12-8 17:10
再麻烦下老师帮忙写个VBA，根据报名表里的考生号直接把考生相片导入到相片单元格，并能自动调整相片大小 ...

将下面代码复制到报名表工作表模块下，测试一下。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.    
   
3.     If Intersect(Target, Range("K2")) Is Nothing Then Exit Sub
   
4.    
   
5.     Dim photo As Picture
   
6.    
   
7.     Application.EnableEvents = False
   
8.     Application.ScreenUpdating = False
   
9.    
   
10.     On Error Resume Next
    
11.            
    
12.     Me.Pictures.Delete
    
13.    
    
14.     Set photo = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\考生相片" & Target.Value & ".jpg")
    
15.    
    
16.     If Err.Number = 0 Then
    
17.         With Range("P3:R7")
    
18.             photo.ShapeRange.LockAspectRatio = msoFalse
    
19.             photo.Top = .Top + 1
    
20.             photo.Left = .Left + 1
    
21.             photo.Width = .Width - 1
    
22.             photo.Height = .Height - 1
    
23.         End With
    
24.     Else
    
25.         MsgBox "不存在该考生的照片！", vbInformation, "提示"
    
26.     End If
    
27.    
    
28.     Application.ScreenUpdating = True
    
29.     Application.EnableEvents = True
    
30. End Sub
    

复制代码