VBA转C# 来个大神帮忙。 20
SubMacro2()''Macro2Macro''Columns("A:A").SelectApplication.CutCopyMode=FalseActiveWor...
Sub Macro2()
'
' Macro2 Macro
'
'
Columns("A:A").Select
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="单位", RefersToR1C1:="=Sheet2!C1"
ActiveWorkbook.Names("单位").Comment = ""
Sheets("Sheet1").Select
Columns("A:A").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=单位"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
End Sub
主要完成的工作是把Excel 表中的第二页 第一列数据定义名称为“单位”
然后在第一页 设置数据有效性 为序列 然后在来源地方录入 ="单位" 展开
'
' Macro2 Macro
'
'
Columns("A:A").Select
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="单位", RefersToR1C1:="=Sheet2!C1"
ActiveWorkbook.Names("单位").Comment = ""
Sheets("Sheet1").Select
Columns("A:A").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=单位"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
End Sub
主要完成的工作是把Excel 表中的第二页 第一列数据定义名称为“单位”
然后在第一页 设置数据有效性 为序列 然后在来源地方录入 ="单位" 展开
2个回答
展开全部
没看懂什么意思,excel导入了就是一个datatable了,datatable 都是内存操作了,跟vba没有关系了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询