daily report

1. Learing English, such as voa spec (no less than 2 ).

2. learn .net develop document.

3. how many tasks i have finished today?

4. connect with Remond US

Sub JumpToProposalSummary() Dim dailyWB As Workbook Dim propWB As Workbook Dim dailyWS As Worksheet Dim propWS As Worksheet Dim searchValue As String Dim propPath As String ' 设置工作簿和工作表对象 Set dailyWB = ThisWorkbook Set dailyWS = dailyWB.Sheets("Engines") ' 获取点击的单元格值(C列) searchValue = dailyWS.Cells(Selection.Row, "C").Value ' 检查是否为空值 If Trim(searchValue) = "" Then MsgBox "选中的单元格没有有效值", vbExclamation Exit Sub End If ' 设置Proposal Summary工作簿路径(根据实际位置修改) propPath = "C:\Users\faye.chen\OneDrive - Taikoo Engine Services (Xiamen) Company Limited\Daily report\Proposal Summary.xlsm" ' 修改为实际路径 ' 尝试访问Proposal Summary工作簿 On Error Resume Next Set propWB = Workbooks("proposal summary.xlsm") On Error GoTo 0 ' 如果未打开,则尝试打开 If propWB Is Nothing Then Workbooks.Open propPath Set propWB = Workbooks("proposal summary.xlsm") End If ' 设置目标工作表(根据实际名称修改) Set propWS = propWB.Sheets("ZSTRM001") ' 修改为实际工作表名 ' 激活目标工作簿 propWB.Activate propWS.Select ' 清除现有筛选 If propWS.AutoFilterMode Then propWS.AutoFilterMode = False End If ' 设置筛选范围(假设数据从A1开始) Dim lastRow As Long lastRow = propWS.Cells(propWS.Rows.Count, "S").End(xlUp).Row propWS.Range("A1:S" & lastRow).AutoFilter ' 应用筛选(S列对应字段19) propWS.Range("A1:S" & lastRow).AutoFilter Field:=19, Criteria1:=searchValue ' 滚动到筛选结果 propWS.Cells(1, 19).Select ActiveWindow.ScrollColumn = 19 End Sub 在这个代码的基础上实现点击engine 中C 列的某一个单元格就能自动跳转到ZSTRM001中的界面数据,而不需要手动运行宏,请修改代码
08-17
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值