討論群組

小惡魔市集悅遊日本活動報導

我要回覆

#excel 日曆加上日誌

f10629

114分

11樓

個人積分：114分

文章編號：74789219

還是要看資料來源長怎樣吧
若來源如1F第二張圖3/16所示
事項是以換行的方式條列
那一樣用VLOOKUP就好了

先把J5~J11合併儲存格
再將VLOOKUP的第一個參數調成J3即可

smash15

1881分

12樓

個人積分：1881分

文章編號：74790679

f10629 wrote:
還是要看資料來源長怎...(恕刪)

資料來源像這樣:

----------------------------------------------------------------------------------------------------------------
我是想到用自動篩選，然後，需能在主頁面J5~J11依J3的日期變動與條列...
(還沒試成!)
謝謝回應!

smash15

1881分

13樓

個人積分：1881分

文章編號：74791782

請問有何解決不一致的方式?
日期與日期原值

f10629

114分

14樓

個人積分：114分

文章編號：74793738

小弟Excel公式沒學好，題目改12樓這樣我就不會公式解了
用VBA解可以嗎?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [日曆!F4].Address Then
Set R1 = [日曆!F5]
Set R2 = [備忘錄!D4]
Do Until R2.Value = ""
If Target.Value = R2.Value Then
R1.Value = R2.Offset(0, 3).Value
Set R1 = R1.Offset(1, 0)
End If
Set R2 = R2.Offset(1, 0)
Loop
End If
End Sub

smash15

1881分

15樓

個人積分：1881分

文章編號：74793928

f10629 wrote:
小弟Excel公式沒...(恕刪)

可以感覺到Vba高手的思路深不可測!

等下要出門，晚上才來測!
謝謝! ...

smash15

1881分

16樓

個人積分：1881分

文章編號：74805348

f10629 wrote:
小弟Excel公式沒...(恕刪)

還是沒搞懂!

所以用自動篩選的方式處理，
但，效果有落差，好像篩選過程，無法自動選擇日期(C欄頂儲存格有日期，那是C3):

有使用
Selection.AutoFilter Field:=2, Criteria1:=Worksheets("日記簿").Range("C3")
以及 End(xldown)

f10629

114分

17樓

個人積分：114分

文章編號：74805765

1. 哪裡不懂? 可以一行行問沒關係
2. 用篩選做的話流程應該是：篩選→把篩選結果貼過來

你說無法自動選擇日期，什麼意思?

smash15

1881分

18樓

個人積分：1881分

文章編號：74807000

f10629 wrote:
1. 哪裡不懂? 可...(恕刪)

程式已經執行到下一步驟，必須手動點選日期，而不會自動!
所以，篩選後變沒資料! (必須點好日期後，想要的資料才會出現。)

程式方面若有時間，再慢慢請你指導!
謝謝你的耐心!

f10629

114分

19樓

個人積分：114分

文章編號：74807619

Selection.AutoFilter Field:=2, Criteria1:=Worksheets("日記簿").Range("C3")
你用這行篩選嗎?

改C1應該就可以了

smash15

1881分

20樓

個人積分：1881分

文章編號：74807751

f10629 wrote:
Selection.AutoFilter...(恕刪)

前面16樓就有括弧: 那日期欄是C3，不是C1.

1
2
3

小惡魔廣編特輯

比特幣 ETF 單週淨流出 6 億美元技術面現死亡交叉警訊