自定义函数--提取单元格内多个被分开的数字

YZC51

判断系统语言
http://club.excelhome.net/thread-1522262-1-1.html
5楼，转载 【microyip】老师作品，谢谢老师！
Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Sub 判断语言()
    Select Case GetSystemDefaultLCID
        Case &H404
            MsgBox "当前系统为：中文繁体", , "语言"
        Case &H804
            MsgBox "当前系统为：中文简体", , "语言"
        Case &H409
            MsgBox "当前系统为：英文", , "语言"
    End Select
End Sub

YZC51

全自动值班表-V2.2
全自动值班表-V3.0.rar (86.77 KB, 下载次数: 25)

2020-2-27 22:14 上传

点击文件名下载附件

浮生若梦~~~

YZC51 发表于 2020-1-10 10:34
全国地市行政区县查询系统2018

楼主真有心,好东西啊

YZC51

浮生若梦~~~ 发表于 2020-2-28 19:45
楼主真有心,好东西啊

谢谢老师花花鼓励！

YZC51

单击公式所在单元格，光标就会自动定位到指定位置
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    myr = Range("J6:J65536").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    If Target.Address = "$J$4" Then Cells(myr, 10).Select
    If Target.Address = "$I$4" Then Target(2, 2).Select
End Sub


Public Sub ss()
MsgBox Range("J6:J11118").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End Sub

YZC51

简化下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'    myr = Range("J6:J65536").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    myr = Range("J6:J65535").Find("*", SearchDirection:=xlPrevious).Row
    If Target.Address = "$J$4" Then Cells(myr, 10).Select
    If Target.Address = "$I$4" Then Target(2, 2).Select
End Sub

Public Sub ss()
MsgBox Range("J6:J65535").Find("*", SearchDirection:=xlPrevious).Row
End Sub

YZC51

定位函数
Public Function dw()
    myr = Range("J6:J65535").Find("*", SearchDirection:=xlPrevious).Row
    Range("J" & myr).Select
End Function

YZC51

Sub 复制列宽()
    Range("A1:C1").Copy
    Sheet2.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
End Sub

YZC51

再者
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$J$4" Then Sheet1.dw
    If Target.Address = "$I$4" Then Target(2, 2).Select
End Sub

Public Function dw()
    myr = Range("J6:J65536").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("J" & myr).Select
End Function

YZC51

附件备查