难道没人会？

iseelxj 2005-11-01 03:40:23

在excel中实现
1. 在sheet1中生成一个combobox
2. 在生成的combobox中加入“1”“2”“3”三条。

...全文

119 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2005-11-03

打赏
举报

回复

并不是很难：

下面的代码可以使你在单元格变动时都加一个含1，2，3 选项的combobox:

Sub createcombo()
Dim obj As OLEObject
Set obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, DisplayAsIcon:=False, Left:=ActiveCell.Left, Top:=ActiveCell.Top, Width:=ActiveCell.Width, Height:=ActiveCell.Height)
obj.Visible = True
Dim num As Integer
On Error Resume Next
For Each obj In ActiveSheet.OLEObjects
If InStr(obj.Name, "ComboBox") > 0 Then num = num + 1
Next
ActiveSheet.OLEObjects("ComboBox" & num).Object.List = Array(0, 1, 2)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
createcombo
End Sub

而要满足你的要求，这就够了：
Private Sub Worksheet_Activate()
Dim obj As OLEObject
Set obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, DisplayAsIcon:=False, Left:=ActiveCell.Left, Top:=ActiveCell.Top, Width:=ActiveCell.Width, Height:=ActiveCell.Height)
obj.Visible = True
ActiveSheet.OLEObjects("ComboBox1").Object.List = Array(0, 1, 2)
End Sub

xinliangyu 2005-11-03

打赏
举报

回复

第二步做不来

viena 2005-11-01

打赏
举报

回复

没有~

相信很多人都这么想过：“我文章写的这么好，怎么就没人看呢？”；或者这样想过：“这文章写得明明比我烂很多，凭什么这么多浏览量？”；虽然在我看来这是极其严重的内耗，对自己一点帮助都没有，但是自己认认...

1、大周老师，我一直坚持做原创视频内容，怎么没有人看？ 2、大周老师，我很认真的做每个视频作品，为什么没有人看呢？ 3、大周老师帮我看看视频，看看有哪些问题，为什么没有人看？想要知道视频作品为什么没有人看...

甚至在某些方面已经超过人的识别能力，那么它会自己写程序取代开发它的人么? 看到这图，应该很多人并不陌生，科学家威尔遭到一群反科学恐怖分子暗杀，妻子艾芙林将他的神经思想数据化上传到智能电脑中，奇妙...

本系列文章将会以通俗易懂的对话方式进行教学，对话中将涵盖了新手在学习中的一般问题。此系列将会持续更新，包括别的语言以及实战都将使用对话的方式进行教学，基础编程语言教学适用于零基础小白，之后实战课程也将...

前端面试宝典没有工作经验？没有项目经验？首先我必须声明一点，工作经验工作年限不等于这个...难道只是看视频吗？这样能找到工作才怪。掌握以下内容可以找到Web前端工作：最基本的内容，你需要把静态网页写好

2,462

社区成员

10,807

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章