1.如何利用vba程序在word中调用excel单元格中的数据

'代码已经测试过，请注意保持良好习惯，及时采纳，谢谢。

Sub PasteToWordDoc（)'' 需要引用MIcrosoft Word 12.0 Object Library（注：12.0是版本号，可以不同）'Application.ScreenUpdating = False '关闭屏幕刷新'Selection.CopyDim wdApp As Word.Application, wdDoc As Word.DocumentDim strDocPath As String '全路径文件名Dim blnNoWd As Boolean, blnNoWdd As BooleanOn Error Resume NextstrDocPath = "C:\Users\wine\Desktop\可ihikhoi年.docm" '如果与Excel工作薄同路径，采用这面的语句也可'strDocPath = ThisWorkbook.Path & "\可ihikhoi年.docm"'调用word程序对象Set wdApp = GetObject(, "Word.Application") '实例化word对象变量If wdApp Is Nothing Then '判断word程序是否正在运行Set wdApp = CreateObject("Word.Application")wdApp.Visible = FalseblnNoWd = TrueEnd If'调用word 文档对象Set wdDoc = wdApp.Documents(strDocPath)If wdDoc Is Nothing ThenSet wdDoc = wdApp.Documents.Open(Filename:=strDocPath, Visible:=flase)blnNoWdd = TrueElsewdDoc.ActivateEnd IfwdApp.Selection.PasteExcelTable False, False, FalsewdDoc.Save'恢复环境If blnNoWdd Then wdDoc.Close: Set wdDoc = NothingIf blnNoWd Then wdApp.Quit: Set wdApp = NothingApplication.ScreenUpdating = TrueOn Error GoTo 0End Sub。

2.Excel VBA 跨表 批量设置数据有效性, 急

这个不需要VBA就可以解决，HI我帮你弄 你也可以自己做，方法如下：1， 公式-定义名称2， 输入名称，比如 a ， 输入公式 =Sheet1!$A$3:INDIRECT("a" & COUNT(Sheet1!$A$3:$A$1000)+2）， 确定3， 选中a3:a1000， 数据-数据有效性，选择序列，来源输入 =a其它默认确定B\C列类推 有问题，找百度，呵呵，我给你的也是百度来的，你可以参考下别人的，还有用offset的，看你等级那么高，我就不解释了。

?si=7。

3.EXCEL办公软件的应用在EXCEL数据菜单中的有效性一般用在哪 爱问

在excel中数据有效性应用三例 [应用一]下拉菜单输入的实现 例1：直接自定义序列 有时候我们在各列各行中都输入同样的几个值，比如说，输入学生的等级时我们只输入四个值：优秀，良好，合格，不合格。

我们希望Excel2000单元格能够象下拉框一样，让输入者在下拉菜单中选择就可以实现输入。 操作步骤：先选择要实现效果的行或列；再点击"数据\有效性"，打开"数据有效性"对话框；选择"设置"选项卡，在"允许"下拉菜单中选择"序列"；在"数据来源"中输入"优秀，良好，合格，不合格"（注意要用英文输入状态下的逗号分隔！）；选上"忽略空值"和"提供下拉菜单"两个复选框。

点击"输入信息"选项卡，选上"选定单元格显示输入信息"，在"输入信息"中输入"请在这里选择"。 例2：利用表内数据作为序列源。

有时候序列值较多，直接在表内打印区域外把序列定义好，然后引用。 操作步骤：先在同一工作表内的打印区域外要定义序列填好（假设在在Z1:Z8），如“单亲家庭，残疾家庭，残疾学生，特困，低收人，突发事件，孤儿，军烈属”等，然后选择要实现效果的列（资助原因）；再点击"数据\有效性"，打开"数据有效性"对话框；选择"设置"选项卡，在"允许"下拉菜单中选择"序列"；“来源”栏点击右侧的展开按钮（有一个红箭头），用鼠标拖动滚动条，选中序列区域Z1:Z8（如果记得，可以直接输入=$Z$1:$Z$8；选上"忽略空值"和"提供下拉菜单"两个复选框。

点击"输入信息"选项卡，选上"选定单元格显示输入信息"，在"输入信息"中输入"请在这里选择"。 例3：横跨两个工作表来制作下拉菜单 用INDIRECT函数实现跨工作表 在例2中，选择来源一步把输入=$Z$1:$Z$8换成=INDIRECT（"表二！$Z$1:$Z$8"），就可实现横跨两个工作表来制作下拉菜单。

[应用二]自动实现输入法中英文转换 有时，我们在不同行或不同列之间要分别输入中文和英文。我们希望Excel能自动实现输入法在中英文间转换。

操作步骤：假设我们在A列输入学生的中文名，B列输入学生的英文名。先选定B列，点击进入"数据\有效性"，打开"数据有效性"对话框；选择"输入法"对话框，在"模式"下拉菜单中选择"关闭（英文模式）"；然后再"确定"，看看怎么样。

[应用三]数据唯一性检验 员工的身份证号码应该是唯一的，为了防止重复输入，我们用“数据有效性”来提示大家。 操作步骤：选中需要建立输入身份证号码的单元格区域（如B2至B14列），执行“数据→有效性”命令，打开“数据有效性”对话框，在“设置”标签下，按“允许”右侧的下拉按钮，在随后弹出的快捷菜单中，选择“自定义”选项，然后在下面“公式”方框中输入公式：=COUNTIF(B:B,B2)=1，确定返回。

以后在上述单元格中输入了重复的身份证号码时，系统会弹出提示对话框，并拒绝接受输入的号码。 。

4.Excel 如何利用VBA设置数据有效性

Range("H4").Select

With Selection.Validation

.Delete

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

xlBetween, Formula1:="1,2"

.IgnoreBlank = True

.InCellDropdown = True

.InputTitle = ""

.ErrorTitle = ""

.InputMessage = ""

.ErrorMessage = ""

.IMEMode = xlIMEModeNoControl

.ShowInput = True

.ShowError = True

End With

Range("I7").Select

按上面修改下

5.EXCEL数据有效性引用求助表格在附件内,下载后请先杀毒（本表格

我的做法是用数组公式，你的数据比较规则，每个选项都只有3个子项 把数据整理一下，在1、2、3、4 出现的值分别方在不同的列下，我这儿是否放在了“数据来源”表下的M、N、O、P列，在数据有效性的“序列来源”处使用数组公式 =OFFSET(data2,3*(MATCH(N2,data1)-1),,3,) =OFFSET(data3,3*(MATCH(N2,data2)-1),,3,) =OFFSET(data4,3*(MATCH(N2,data3)-1),,3,)。

6.excel vba 数据有效性问题

在你单击CommandButton1控件时，该控件被激活，Validation失效。

你可以通过激活工作表上的其他一些元素来避免该问题。'******************************************Private Sub CommandButton1_Click() Range("a1").Activate With Range("A1:A10").Validation .Delete .Add Type:=xlValidateList, _ AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, _ Formula1:="1,2,3,4" End WithCommandButton1.ActivateEnd Sub'*****************************************参考帮助：《在工作表上使用 ActiveX 控件》。

7.Excel VBA 跨表 批量设置数据有效性,悬赏100,如各位马上帮忙解

看了你的问题，不知道你的想法是采用函数还是VBA解决，我认为用函数将能解决这个问题了。

方法如下：（按数据来源在“数据有效性引用”表，输入是在“数据源”表写公式） 1.点插入——名称——定义，输入名称“数据”，在引用位置输入公式=OFFSET（数据有效性引用！E$1,0,0,MAX（（数据有效性引用！E$1:E$1000<>""）*ROW（数据有效性引用！E$1:E$1000）））后点确定。 2.在“数据源”表中A1单元格设置数据有效性——序列，在来源里输入“=数据”后确定。

3.将A1单元格的有效性复制到A、B、C……各列的相应单元格。到此OK！ 你自己试试下拉列表吧。

8.Excel 求助：VBA中单元格数据有效性设置

数据有效性性设置大致可以分成三类。

第一类：选择项比较少的，直接输入选择值。例如： 1、选择区域c1，点击数据-数据有效性，如图： 2、选择序列，如图输入男、女。

第二类：在当前工作表有个数值序列，将该区域作为选择项。 例如有数据区域G2:G5，如图： 1、选择区域D1，点击数据-数据有效性 2、选择序列，在来源选择数据区域。

如图： 三、跨表间数据序列设置。（适用于同一张工作表引用） 还是按第2项的例子 1、点击公式-名称管理器。

如图： 2、新建名称，产品名称。如图： 3、选择e1，点击数据有效性，序列中输入名称。

如图： 。

转载请注明出处51数据库 » vbaword引用excel数据有效性