Daily report

The teacher of Algorithm reviewed the exercises that we students did in last week. After that,

she begun to teach Chapter 6 : Dynamic Programming . The idea of Dynamic Programming is

that each dividable problems can be sliced into some different sub-problems,and each sub-problem's

result is relying upon the former sub-problem's . The original problem's final result is the sum of

all those sub-problems's result . That's what distincts Dynamic Programming from Divide-and-Conquer .

She used the Tower of Number to explain the principle of the Dynamic Programming . That's all she taught us.

I only learnt that we should often backup data and do not delete data from hard disk physically but logically in

the class of Data Mining.  There were some ideas stroke a chord with me in the class of MaYuan

(The principle of Marx's Philosophy). Such as love is a ideal concept , all love in reality is impefect. And other thought

about life which I already considered before . Though I did not draw any conclusions . I just failed again and again .

I don't know . I had been changed . I cared about nothing before I attended college. I was like a free bird . Oh , yes ,

I was too naive at high school . When I thought more about the future , I was more nervous . Because I did not learn

much skills in the past three years and wasted too much time in games . I was aimless . Now , I still have no clear

picture about future. Well , maybe I should too much 'I' in this passage .

My borning college is about to end and I have to find myself a job to support my family . Keep up , where there

is hope , there is a way out . Oh no, my final goal is to achive ... See u guys .

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、付费专栏及课程。

余额充值