日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 辦公軟件教程 > 詳細頁面

excel如何完成下拉框復選

excel如何完成下拉框復選

更新時間:2024-01-03 文章作者:未知 信息來源:網絡 閱讀次數:

Microsoft Excel是Microsoft為使用Windows和Apple Macintosh操作系統的電腦編寫的一款電子表格軟件。直觀的界面、出色的計算功能和圖表工具,再加上成功的市場營銷,使Excel成為最流行的個人計算機數據處理軟件。

excel如何實現下拉框復選?

EXCEL選擇下拉框實現復選

第一步:新建一個excel且設置數據有效性【選中X列--數據--有效性】

f9a678bb5fc411d5c29cd3468d7c3cd.png

第二步:開發工具--查看代碼--把代碼復制進去保存就OK了

972183b6c4b676ed0be6aed019613cb.png

代碼如下:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

Private Sub Worksheet_Change(ByVal Target As Range)

' Developed by Contextures Inc.

' www.contextures.com

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 '這里規定好哪一列的數據有效性是多選的,A列是第1列,依次類推,如3就是C列,7就是G列

????If oldVal = "" Then

??????'do nothing

??????Else

??????If newVal = "" Then

??????'do nothing

??????Else

????????If InStr(1, oldVal, newVal) <> 0 Then? '重復選擇視同刪除

??????????If InStr(1, oldVal, newVal) + Len(newVal) - 1 = Len(oldVal) Then '最后一個選項重復

????????????Target.Value = Left(oldVal, Len(oldVal) - Len(newVal) - 1)

??????????Else

????????????Target.Value = Replace(oldVal, newVal & ",", "") '不是最后一個選項重復的時候處理逗號

??????????End If

????????Else '不是重復選項就視同增加選項

????????Target.Value = oldVal & "," & newVal

'????? NOTE: you can use a line break,

'????? instead of a comma

'????? Target.Value = oldVal _

'??????? & Chr(10) & newVal

????????End If

??????End If

????End If

??End If

End If

??

exitHandler:

??Application.EnableEvents = True

End Sub


Excel整體界面趨于平面化,顯得清新簡潔。流暢的動畫和平滑的過渡,帶來不同以往的使用體驗。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 国产成人精品18 | 亚洲国产人久久久成人精品网站 | 一级仑乱免费视频 | 亚洲成人伊人网 | 国产大陆精品另类xxxx | 九九视频免费精品视频免费 | 青青草综合网 | 青青青免费视频精品99 | 久久精品这里热有精品2015 | 亚洲精品伊人 | 日本人xx视频免费视频 | 牛牛影视在线观看片免费 | 国产欧美在线观看一区 | 欧美亚洲国产色综合 | 亚洲入口无毒网址你懂的 | 亚洲欧美在线综合一区二区三区 | 激情在线播放免费视频高清 | 日韩大片在线观看 | 亚洲精品欧美精品 | 曰批免费视频播放在线看片二 | 亚洲欧美在线视频观看 | 亚洲国产成人久久一区www | 日本韩国免费 | 亚洲激情综合在线 | 欧美日韩一区二区三区在线播放 | 婷婷亚洲综合一区二区 | 成人入口网站 | 色噜噜狠狠狠综合曰曰曰 | 伊人久久艹 | 久草6| 亚洲伊人成人 | 久草国产精品视频 | 亚洲欧美日韩综合在线一区二区三区 | 国产精品九九久久精品女同 | 欧美日韩v | 国产动作大片中文字幕 | 成年人在线观看免费视频 | 欧美日韩福利视频一区二区三区 | 日日摸夜夜添夜夜添人人爽 | 黄网站色视频免费看无下截 | 国产成人综合91精品 |