[已解决]代码求修改

zhangjian0622

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B5").Formula = "姓名★" ' 项目列
Range("B6").Formula = "性别★"
Range("B7").Formula = "出生日期★"
Range("E6").Formula = "身份证件类型★"
Range("E7").Formula = "身份证件号★"
Range("B8").Formula = "出生地行政区划代码★"
Range("B10").Formula = "民族★"
Range("E5").Formula = "国籍/地区★"
Range("E8").Formula = "港澳台侨外★"
Range("E13").Formula = "户口性质★"
Range("E12").Formula = "户口所在地行政区划★"
Range("B25").Formula = "现住址★"


If Cells(53, 3) <> "" Then '父亲区位代码
Range("C54") = Left(Range("C53"), 6) & "000000"

If Cells(67, 3) <> "" Then '母亲区位代码
Range("C68") = Left(Range("C67"), 6) & "000000"


If Cells(5, 3) <> "" Then
   Range("C30") = "是"
   Range(" C31,C33") = "是"
   Range("C34") = "是"

End If
End Sub

最佳答案

月排行榜 / 总排行榜

望帝春心

2021-8-18 20:37

1. 试试

复制代码

跳转到最佳答案楼层

望帝春心

1. 试试

复制代码

zhangjian0622

谢谢