|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub 生成函证()
With Sheets("廉政鉴定")
r = .Cells(Rows.Count, 2).End(xlUp).Row
If r < 3 Then MsgBox "廉政鉴定为空!": End
ar = .Range("a3:h" & r)
End With
w = InputBox("请输入要打印的序号", "序号", "3")
With Sheets("打印模板")
.[F3] = ar(w, 4)
.[a4] = "关于" & ar(w, 5) & "同志廉政情况的复函"
.[a6] = " 《" & ar(w, 2) & "》收悉。经核,我委" & ar(w, 7) & "以来没有收到关于" & ar(w, 5) & "同志(" & ar(w, 6) & ")的举报材料。目前我委未发现" & ar(w, 5) & "同志有违纪违法问题,也没有单位和个人向我委反映该同志有其他党风廉政问题。"
.[e11] = ar(w, 8)
.PrintOut
End With
MsgBox "OK!"
End Sub
|
|