VBA实战(Excel)(2)：下拉菜单实现快速输入

xwLink1996

已于 2024-08-16 13:48:40 修改

阅读量1.9k

点赞数 24

分类专栏： VBA实战文章标签： VBA Excel

于 2024-05-17 13:26:27 首次发布

本文链接：https://blog.csdn.net/nianfen/article/details/139002122

版权

1.实现效果

2.作用

实现多列内容的点选输入，适用于含有一定关联关系的两列内容，此案例为工艺路线中具体加工机床与工序名称含有关系，提前设置好关系表，在输入工序时同时选择对应机床。

3.代码实现

3.1在sheet中粘贴如下代码，设置对单元格选中的响应事件

Dim z

Private Declare PtrSafe Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32.dll" (ByVal HDC As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function ReleaseDC Lib "user32.dll" (ByVal hwnd As Long, ByVal HDC As Long) As Long

Private Const LOGPIXELSX            As Long = 88

Private Function PointsPerPixel() As Double
    Dim HDC As Long
    Dim lngPotsPerInch As Long
    HDC = GetDC(0)
    lngPotsPerInch = GetDeviceCaps(HDC, LOGPIXELSX)
    PointsPerPixel = Application.InchesToPoints(1) / lngPotsPerInch
    ReleaseDC 0, HDC
End Function


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    'If Sheets("数据").Cells(1, 5) = False Then