- 帖子
- 41
- 主題
- 7
- 精華
- 0
- 積分
- 52
- 點名
- 0
- 作業系統
- Windows10
- 軟體版本
- 2019
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-11-28
- 最後登錄
- 2025-3-4
|
[發問] (優化)請問如何對應欄位(內容為公式)，將值貼上?
本帖最後由 edmondsforum 於 2022-7-22 00:21 編輯
各位大大好，
我今天期望的 案件進度工作表 是：
每天只要我寫完各案的 "本週摘要" 下面的內容後，
當我儲存關閉後，他就會運行VBA，
根據我指定的區間日期，對應上該儲存格內容搜尋後，將 "本週摘要" 該欄下列的內容直接 貼上。
以達到能記錄到今年度每週的摘要∼
如下圖所示
簡單來說
就是能夠 每天我關閉檔案後 能自動運行
將G5:G3003 的內容，根據G4的內容，去查找AF4:CM4
如果找到了，就將其內容貼上，
例如 上面圖片就是 G4內容=BI4，因此G5:G3003 的內容 就貼到 BI5:BI3003
我自己也嘗試寫一組 測試看看- Sub 新增()
- For j = 32 To Sheets("test").UsedRange.Columns.Count '從第32欄開始到最右邊
- If Cells(4, j) = Cells(4, 7) Then 'cells(1,1) 代表第1列 第1欄 = A1 = cells(row列,column欄)
- t = 1
- For jj = 5 To 3003
- Cells(jj, j) = Cells(jj, 7)
- Next jj
- MsgBox "已記錄今天 工作摘要 "
- Exit For
- End If
- Next j
- If t = 0 Then
- MsgBox "日期可能跑掉，導致無法自動記錄 工作摘要 ，請確認"
- End If
- End Sub
這樣下來我就沒辦法時間 快速關閉儲存執行VBA了 QQ
再請各位大大協助優化
另外我這邊有個小疑問，有辦法設置一個按鈕，就讓他快速跳到 右手邊(AF4:CM4 ) 對應本週的日期(G4)呢?
附上檔案
 進度表.zip (397.36 KB)
再拜託大大了 |
|
發表於 2022-7-22 00:17
| 
