• <label id="pxtpz"><meter id="pxtpz"></meter></label>
      1. <span id="pxtpz"><optgroup id="pxtpz"></optgroup></span>

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

        excel如何完成下拉框復選

        excel如何完成下拉框復選

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

        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整體界面趨于平面化,顯得清新簡潔。流暢的動畫和平滑的過渡,帶來不同以往的使用體驗。

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

        本類教程下載

        系統下載排行

        主站蜘蛛池模板: 和老外3p爽粗大免费视频| 亚洲一区二区三区国产精华液| 美女视频黄a视频全免费网站一区| 美女视频黄的全免费视频网站| 麻豆亚洲AV永久无码精品久久| 两个人看的www高清免费视频| 久久亚洲AV无码西西人体| WWW免费视频在线观看播放| 亚洲香蕉成人AV网站在线观看| 免费国产怡红院在线观看| 亚洲日本国产综合高清| 岛国av无码免费无禁网站| 亚洲精品天堂成人片AV在线播放 | 日韩免费精品视频| 亚洲人成77777在线播放网站不卡| 一个人免费观看视频www| 亚洲AV无码一区二区一二区| 免费国产成人午夜电影| 两个人的视频www免费| 亚洲gv猛男gv无码男同短文| 99久久久国产精品免费牛牛四川| 亚洲AV日韩精品一区二区三区| 成在线人直播免费视频| 亚洲高清国产AV拍精品青青草原 | 成人网站免费大全日韩国产| 亚洲成熟xxxxx电影| 国产精品美女午夜爽爽爽免费| 香蕉视频亚洲一级| 亚洲日韩v无码中文字幕 | 中文字幕免费视频精品一| 亚洲国产精品第一区二区| 一个人免费高清在线观看| 免费一级毛片在线播放放视频| 亚洲精品国产精品乱码视色| 91青青青国产在观免费影视| 亚洲国产成人综合精品| 亚洲精品自产拍在线观看| 皇色在线视频免费网站| sihu国产精品永久免费| 久久精品国产亚洲av麻豆蜜芽| 免费人成视网站在线观看不卡|