日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

web下拉列表代码_你做的Excel下拉菜单已Out,更好用的多列显示来了

發布時間:2024/9/27 编程问答 27 豆豆
生活随笔 收集整理的這篇文章主要介紹了 web下拉列表代码_你做的Excel下拉菜单已Out,更好用的多列显示来了 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

在excel中設置下拉菜單很簡單,直接用數據有效性-序列就可以實現。

今天我們介紹的下拉菜單:

  • 可以顯示多列內容
  • 選取后只輸入其中一列的內容。

制作步驟:

一、 生成多列下拉列表

1、添加輔助列,用&把兩列連接起來

2、數據有效性 - 序列,引用C列合并后的數據生成下拉菜單

二、有選擇性的顯示列內容

1、在工作表標簽上右鍵 - 查看代碼 - 點擊新打開窗口中右上角的sheet1(當前生成下拉菜單的工作表名稱),然后把下面的代碼粘貼到右側的窗口中(不需要此功能時刪除代碼保存即可)

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Target.Row > 1 And Target.Column = 5 And Target <> "" Then

'1 表示下拉列表從1行下面開始, 5 是下拉列表所在的列數

Application.EnableEvents = False

Target = Split(Target, " ")(0)

'顯示第1列用0,第2列用1,以此類推

Application.EnableEvents = True

End If

End Sub

2、當前文件另存為“Excel 啟用宏的工作簿" (2003版此步忽略)

完工!下面用動畫展示我們的成果吧!

選取后顯示第一列內容

?

通過修改代碼(把0改為1),選取后顯示第二列內容

總結

以上是生活随笔為你收集整理的web下拉列表代码_你做的Excel下拉菜单已Out,更好用的多列显示来了的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。