Excel双击单元格自动填定某对应单元格的内容,怎么设置?
展开全部
1.点菜单的“工具”——“选项”——“编辑”——在“单元格拖放功能”前要打钩——“确定”,之后选中单元格单元格右下角就有有一个拖放点。
2.Excel双击单元格自动填充的前提:
(1)该列的相邻列存在【连续】的数据,则双击单元格右下角就有有一个拖放点,往下的单元格的内容就会填充;如果相邻列【不是连续】的数据,只会到第一个断了的数据;
(2)只能实现向下填充,其他方向不行
3.使用该方法,未双击前选中的单元格的格式也会带到之后的单元格
希望帮到你~
2.Excel双击单元格自动填充的前提:
(1)该列的相邻列存在【连续】的数据,则双击单元格右下角就有有一个拖放点,往下的单元格的内容就会填充;如果相邻列【不是连续】的数据,只会到第一个断了的数据;
(2)只能实现向下填充,其他方向不行
3.使用该方法,未双击前选中的单元格的格式也会带到之后的单元格
希望帮到你~
更多追问追答
追问
谢谢你的回答!但还是达不到我的要求。
追答
不知道你想要什么 - -!
如果你说好像按钮实现双击即填指定的几个单元格内容,excel没有这个功能。
你可以通过控件的按钮和vba实现。。。
展开全部
可以使用VBA的事件操作。
ALT+F11
点击要运行代码的sheet
复制拷贝如下代码到代码栏
回到sheet操作测试
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$A$1" Then
Target.Value = Cells(1, 1).Value
Application.SendKeys ("{ENTER}")
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim Wrow As Integer
Dim Wcol As Integer
Wrow = Range(Target.Address).Row '行位置
Wcol = Range(Target.Address).Column '列位置
If (Wrow >= 8 And Wrow <= 47 And Wcol >= 21 And Wcol <= 40) Then ' 设定的范围
Cells(Wrow, Wcol).Value = "要填写的内容"
end if
End Sub
Dim Wrow As Integer
Dim Wcol As Integer
Wrow = Range(Target.Address).Row '行位置
Wcol = Range(Target.Address).Column '列位置
If (Wrow >= 8 And Wrow <= 47 And Wcol >= 21 And Wcol <= 40) Then ' 设定的范围
Cells(Wrow, Wcol).Value = "要填写的内容"
end if
End Sub
追问
谢谢你的回答!但还是达不到我的要求。因为VBA只能设置单个单元格,设置很多单元格时就不行了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在工具栏-数据、有效性中设置好有效数据就可以出现下拉菜单填定了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用vba可能可以解决,但是有这个必要吗?输入一个数字而已,就按一下键盘,也不比鼠标双击费事啊。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询