当前位置: 首页 > news >正文

VBA批量设置单元格值和数据有效性

需要在excel表格中的A116单元格设置值为"柯达阳图785",然后将这个表格的单元格f2:g52的值设置为序列,来源为=$A$102:$A$116,用VBA实现。

Sub AddValidation()
Dim targetWs As Worksheet
Dim sheetIndex As Integer
Dim wsName As StringFor sheetIndex = 16 To 31wsName = "10月" & sheetIndex & "日"On Error Resume NextSet targetWs = Worksheets(wsName)On Error GoTo 0targetWs.Range("A116").Value = "柯达阳图785"If Not targetWs Is Nothing ThenWith targetWs.Range("f2:g52").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _Operator:=xlBetween, Formula1:="=$A$102:$A$116".IgnoreBlank = True.InCellDropdown = True.ShowInput = True.ShowError = TrueEnd WithEnd If
Next sheetIndex
MsgBox "运行结束"End Sub

达到预期效果,代码放这里,以后随时取用。

http://www.hskmm.com/?act=detail&tid=31266

相关文章:

  • 一个关于结构体性能和内存分配的问题
  • 乐理 -07 五线谱
  • CentOS 7.6 环境下基于 Docker 部署 PaddleOCR 源码的实践指南
  • 罗马机场 落地过关 取行李 坐私家车接机攻略
  • LGP10838 [FLA R1] 庭中有奇树 学习笔记
  • 解决Pregenerating ConTeXt MarkIV format. This may take some time...卡死问题
  • 日期相关函数、方法
  • explain
  • “[GESP202509 五级] 有趣的数字和”分块做法
  • 精确率
  • 前端知识图谱
  • 2025年振动电机厂家最新权威推荐榜:覆盖新型/高频/MV卧式/防爆/低噪声/三段式/直流/节能/侧板式振动电机的专业选购指南
  • 适度的情绪波动可以增加生活的丰富性和体验的深度
  • FBAM 论文浅析
  • 2025年上海律师服务最新权威推荐榜:经侦律师,民事纠纷律师,刑事律师,经济律师,婚姻律师,法务律师,负债律师事务所专业实力与口碑深度解析
  • 2025年冲压件厂家最新权威推荐榜:新能源/光伏/精密/异形/五金/铝/汽配/不锈钢/家具冲压件优质供应商精选
  • 10.14总结
  • UVa(紫书)做题记录
  • MyBatis 延迟加载使用及原理 - Higurashi
  • ADC-过零检测详解
  • 今日小雨
  • 内网穿透进阶:让 frpc 只代理「真正在线」的端口
  • 规则逻辑与人文逻辑的统一:AI元人文构想的演进之路
  • 2023 ICPC Jinan
  • 二叉树中和为目标值的路径
  • 动态库的调用方式
  • 校招面试官揭秘:我们到底在寻找什么样的技术人才?
  • day011
  • nginx
  • 打造一个比人类更懂 Python 的 AI 编程助手