自定义博客皮肤VIP专享

*博客头图：

点击选择上传的图片

格式为PNG、JPG，宽度*高度大于1920*100像素，不超过2MB，主视觉建议放在右侧，请参照线上博客头图

请上传大于1920*100像素的图片！

博客底图：

点击选择上传的图片

图片格式为PNG、JPG，不超过1MB，可上下左右平铺至整个背景

栏目图：

点击选择上传的图片

图片格式为PNG、JPG，图片宽度*高度为300*38像素，不超过0.5MB

主标题颜色：

RGB颜色，例如：#AFAFAF

Hover：

RGB颜色，例如：#AFAFAF

副标题颜色：

RGB颜色，例如：#AFAFAF

预览取消提交

自定义博客皮肤

-+

上一步保存

qq_36448758的博客

原创 Excel做下拉框单选、多选功能（多选支持取消选择）

Excel 单选、多选（含取消）下拉

2023-11-01 16:14:16 13079 7

原创 MYSQL修改报错 You can‘t specify target table ‘表名‘ for update in FROM clause

You can‘t specify target table for update in FROM clause

2023-05-26 17:21:20 595 1

原创 Maven打包，配置没问题，但是打包时profile一直指向dev配置文件

使用profile配置，需要rebuild后再打包

2023-05-07 14:18:49 383 1

原创 centos安装hadoop

linix安装hadoophadoop安装遇到了很多坑,但是收获满满,进入主题写在前面任何编辑文件的步骤一定要备份原文件.安装时要保证网络通畅可以查看ifconfig 或者 ping www.baidu.com火狐浏览器安装 sudo yum install firefox安装首先看本机有没有Java环境 java -version如果没有,官网自行下载java环境(linix版)下载hadoop (我这里用的2.10.1)http://mirrors.cnnic.c

2020-12-27 15:14:55 266

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

^似水流年^ CSDN认证博客专家 CSDN认证企业博客

码龄8年

IP 属地：北京市

IP属地以运营商信息为准，境内显示到省（区、市），境外显示到国家（地区）

4: 原创

57万+: 周排名

132万+: 总排名

1万+: 访问

: 等级

55: 积分

5: 粉丝

13: 获赞

9: 评论

32: 收藏

私信

关注

热门文章

最新评论

Excel做下拉框单选、多选功能（多选支持取消选择）
^似水流年^: 这个只能在下拉框里选择，不能手动修改单元格内容哦
Excel做下拉框单选、多选功能（多选支持取消选择）
qq_17851181: 问一下就是点进去修改的时候会出现数据不匹配怎么解决
Excel做下拉框单选、多选功能（多选支持取消选择）
^似水流年^: 以下两个评论加在一起可实现每个选项之间为换行效果 A B C
Excel做下拉框单选、多选功能（多选支持取消选择）
^似水流年^: Private Sub Worksheet_Change(ByVal Target As Range) Dim rngDV As Range Dim oldVal As String Dim newVal As String If Target.Count > 1 Then GoTo exitHandler On Error Resume Next Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation) On Error GoTo exitHandler If rngDV Is Nothing Then GoTo exitHandler If Intersect(Target, rngDV) Is Nothing Then 'do nothing Else Application.EnableEvents = False newVal = Target.Value Application.Undo oldVal = Target.Value Target.Value = newVal If Target.Column = 7 Then If oldVal = "" Then Else If newVal = "" Then Else If InStr(oldVal, newVal) = 1 Then If oldVal = newVal Then Target.Value = "" Else Target.Value = Replace(oldVal, Chr(13) & Chr(10) & newVal, "") Target.Value = Replace(Target.Value, newVal & Chr(13) & Chr(10), "") End If
Excel做下拉框单选、多选功能（多选支持取消选择）
^似水流年^: Else If InStr(oldVal, newVal) > 1 Then Target.Value = Replace(oldVal, Chr(13) & Chr(10) & newVal, "") Target.Value = Replace(Target.Value, newVal & Chr(13) & Chr(10), "") Else Target.Value = oldVal & Chr(13) & Chr(10) & newVal End If End If End If End If End If End If exitHandler: Application.EnableEvents = True End Sub

最新文章

提示

确定要删除当前文章？

取消删除