如何在Excel中用VBA实现在下拉列表中选中一个值,然后为其他单元格赋值的操作
发布网友
发布时间:2022-05-14 02:08
我来回答
共2个回答
热心网友
时间:2023-11-22 22:35
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$13" Then
Select Case Target.Value
Case "上海": [G38] = 1: [G51] = 1: [G55] = 1
Case "北京": [G38] = 2: [G51] = 2: [G55] = 2
Case "天津": [G38] = 3: [G51] = 3: [G55] = 3
Case "武汉": [G38] = 27: [G51] = 27: [G55] = 27
End Select
End If
End Sub
详见附件,修改起来应该不复杂吧!
热心网友
时间:2023-11-22 22:35
你只讲了上海,没有说其他,这里以上海为例,你可以加上其他的。如果有数据可以引用,直接引用即可。这里是直接赋值
代码如下(单元格事件)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$13" Then Exit Sub '不是G13单元格,退出程序
If Target.Value = "上海" Then
[G38] = 1
[G51] = 1
[G55] = 1
End If
End Sub
如何在Excel中用VBA实现在下拉列表中选中一个值,然后为其他单元格赋值的...
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$13" Then Select Case Target.Value Case "上海": [G38] = 1: [G51] = 1: [G55] = 1 Case "北京": [G38] = 2: [G51] = 2: [G55] = 2 Case "天津": [G38] = 3: [G...
请问excel中如何利用VBA,实现利用选中复选框(下拉框?)的内容,然后在指 ...
将控件与单元格关联即可。右键设置控件格式。控制里,看到源数据区域,和单元格链接了么?分别指定即可。由于返回的是序号,用vlookup函数再查一下源数据区域表即可。
VBA代码实现在excel中勾选某个单元格,另一个单元格自动勾选的功能(单...
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address <> "$A$6" Then Exit Sub'---[A8] = [A6]End Sub
使用vba实现下面的功能:在excel表中,A1里是一个复选下拉框控件,希望在...
思路:查下这个控件的属性,其中有个就是值属性,赋值给单元格即可。
如何用VBA去实现EXCEL的表中找到符合条件的单元格,然后再整行复制到...
Row y = y + 1 .Range(x & ":" & x).Copy Destination:=Sheets(3).Range("A" & y)End If Next End With End If Application.ScreenUpdating = True End Sub 这个代码的功能是在表1的A列输入数值,自动查找表二中对应A列数值然后事先复制到表三。欢迎到Excel Home论坛学习、交流”。
用Excel vba做一个下拉列表框,根据单元格输入内容匹配数据列里面包含...
用单元格事件就可以了
如何实现Excel表格中在一个单元格输入任意内容后,另一个单元格自动填充...
要实现Excel表格中在一个单元格输入任意内容后,另一个单元格自动填充设定的内容,可以通过使用Excel的“如果”函数或者VBA宏来实现。在Excel中,IF函数可以用来进行条件判断,并根据判断结果返回不同的值。如果你想在A1单元格输入任意内容后,B1单元格自动填充你设定的内容,可以在B1单元格中...
VBA代码:用excel的VBE编辑器如何用代码实现提取某个单元格(如A1)所属...
DIM AA AA=Sheet1.Range("A1")或者 K=1 AA= Sheet1.Range("A"& K)
excel2003 如何用VBA编程选定若干单元格区域?
第一种方法:Ctrl+G调出定位对话框,在【引用位置】处输入A1:E5000,点击【确定】即可。第二种方法:在程序左上角的【名称框】处输入A1:E5000,然后回车即可。第三种方法:在单元格区域中选中任意一个单元格,按Ctrl+Shift+*即可选定单元格所在整个区域。第四种方法:按Ctrl+End跳转到区域最右下角...
在excel中如何使用VBA插入一个按钮,使其点击按钮实现在表格中单元格输入...
永远都是弄到 查询表的 E1?Sub AA()[AA1] = [AA1] + 1 MsgBox "第:" & [AA1] & "次"Sheets("查询").[E1] = Cells([D1], "a")End Sub