如果数据验证结果为是,我正在尝试自动填充单元格值。基本上,如果联系地址与站点地址相同,则它将把站点地址拉到联系地址。
到目前为止,我已经尝试了以下代码:
Sub PopulateSite()
Dim SiteName As Long
Dim Address1 As Long
Dim Address2 As Long
Dim Town As Long
Dim County As Long
Dim Postcode As Long
SiteName = Sheets("HV.Select Site Set Up").Range("E7")
Address1 = Sheets("HV.Select Site Set Up").Range("E17")
Address2 = Sheets("HV.Select Site Set Up").Range("E19")
Town = Sheets("HV.Select Site Set Up").Range("E21")
County = Sheets("HV.Select Site Set Up").Range("E23")
Postcode = Sheets("HV.Select Site Set Up").Range("E25")
If Sheets("HV.Select Site Set Up").Range("G29") = "Yes" Then
Sheets("HV.Select Site Set Up").Range("E31") = SiteName
Sheets("HV.Select Site Set Up").Range("E41") = Address1
Sheets("HV.Select Site Set Up").Range("E43") = Address2
Sheets("HV.Select Site Set Up").Range("E45") = Town
Sheets("HV.Select Site Set Up").Range("E47") = County
Sheets("HV.Select Site Set Up").Range("E49") = Postcode
End If
End Sub
由于某种未知的原因,这是行不通的。拜托,有人可以帮我吗?
您的类型声明(我假设基于变量名)是错误的。我猜想其中大多数值都是String
类型(Long
用于数字整数),因此,如果将类型声明更改为As String
,它应该可以根据需要工作。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句