WPS协作文档，超链接到当天日期

zjwxmtr

如附件所示，是下半年的生产订单进度表，日作工作中，要经常筛选某个单号，然后回到当天日期的前后进行编辑。每次一筛选要的数据后，清除条件后，就会回到第五行，然后要再翻到当天日期行好麻烦，有没有办法在A1建个超链接，只要点击A1就到达A列当天日期单元格。因为是WPS协作文档，有些功能还不能用。

autohotey

你这表格塞了什么鬼东西？才几百行就能把我EXCEL卡死机？

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     If Target.Address = "$A$1" Then
   
4.         Dim todayDate As Date
   
5.         todayDate = Date
   
6.         Dim findRange As Range
   
7.         Set findRange = Range("A:A").Find(what:=todayDate)
   
8.         If Not findRange Is Nothing Then
   
9.             findRange.Select
   
10.         Else
    
11.             MsgBox "今天的日期未在 A 列中找到。"
    
12.         End If
    
13.     End If
    
14. End Sub
    

复制代码

zjwxmtr

autohotey 发表于 2024-10-11 11:03
你这表格塞了什么鬼东西？才几百行就能把我EXCEL卡死机？

没有什么啊，可能是条件格式。

zjwxmtr

autohotey 发表于 2024-10-11 11:03
你这表格塞了什么鬼东西？才几百行就能把我EXCEL卡死机？

这个怎么用？VBA不会用

zpy2

zjwxmtr 发表于 2024-10-11 12:40
这个怎么用？VBA不会用

为是WPS协作文档
在线文档吗？
如果是在线文档不能用VBA

你是那块小饼干

打不开你的表格

溺水鱼

=HYPERLINK("#sheet1!"&TOCOL(SCAN("",A5:A791,LAMBDA(x,y,IF(y=TODAY(),ADDRESS(ROW(y),COLUMN(y),4,1),NA()))),3),"今天")

zjwxmtr

zpy2 发表于 2024-10-11 13:52
为是WPS协作文档
在线文档吗？
如果是在线文档不能用VBA

是在线文档

zjwxmtr

溺水鱼 发表于 2024-10-11 16:21
=HYPERLINK("#sheet1!"&TOCOL(SCAN("",A5:A791,LAMBDA(x,y,IF(y=TODAY(),ADDRESS(ROW(y),COLUMN(y),4,1),NA ...

搞定了，感谢！！厉害啊！！

zjwxmtr

zjwxmtr 发表于 2024-10-11 16:52
搞定了，感谢！！厉害啊！！

另外还想请教一下，这套函数，尝试用在别的表上，虽然也能用，但是显示不了“今天”，试了一下，是因为有两个以上单元格是当天的日期，请问如何解决啊？
想到解决办法了，谢谢！！