还是请教关于VFP操控EXCEL，下拉选项的问题 - 编程论坛

#2

wengjl2020-12-07 12:32

可通过录制宏后进行研究一翻

#3

wengjl2020-12-08 13:07

录取宏后进行了测试没成功。

但可以事先做好一个模板EXCEL文档，VF导出时复制粘贴到模板中，于是你打开来看就有了下拉选项了

#4

wengjl2020-12-09 14:50

恭请坛中高手赐教

#5

gs25367856782020-12-26 08:19

难了，这样难度的工作，估计没有人接招

#6

sostemp2020-12-30 10:20

应该是可以吧

#7

厨师王德榜2020-12-30 10:47

我记得是设置单元格的数据有效性这里,对吧 .

#8

wengjl2020-12-30 13:01

以下是引用厨师王德榜在2020-12-30 10:47:30的发言：

我记得是设置单元格的数据有效性这里,对吧 .

是的。手工做是在数据/有效性/序列　里设置。

现在难的是用VF的代码　　恭请王大厨出手

#9

厨师王德榜2020-12-30 17:37

Range("F5").Validation.Add 3, 1, 1, "=$A$2:$A$5"
在vfp中调用,可能需要用括号包裹起来:
Range("F5").Validation.Add(3, 1, 1, "=$A$2:$A$5")
完成后效果:

只有本站会员才能查看附件，请登录

#10

wengjl2021-01-06 13:08

以下是引用厨师王德榜在2020-12-30 17:37:47的发言：

Range("F5").Validation.Add 3, 1, 1, "=$A$2:$A$5"
在vfp中调用,可能需要用括号包裹起来:
Range("F5").Validation.Add(3, 1, 1, "=$A$2:$A$5")
完成后效果:

     MyExcel.ActiveSheet.Range("F3").validation.add(3, 1, 1, "=sheet2!$A$2:$A$5")   &&& 测试成功

　换成

     MyExcel.ActiveSheet.Range("F3").validation.add(3, 1, 1, "=优秀,良好,合格,不合格")   &&& 测试　不　成功
　
　　换成
　
　　MyExcel.ActiveSheet.Range("F3").validation.add(3, 1, 1, "优秀,良好,合格,不合格")   &&& 测试成功
　
　　非常感谢厨师王德榜的指导！！！

为什么括号里　要　3，1，1，　呢？