在Excel中輸入壹些數據(使用VBA)，可以自動調用匯總表中相應行的數據。

嘗試以下代碼:

私有子工作表_Change(ByVal目標作為範圍)

申請。EnableEvents = False

Dim str1為字符串，I為整數，d為範圍，firstaddress為字符串

如果目標。地址= "$D$3 "或目標。地址= "$E$3 "

行數(" 5:65536 ")。清楚的

if[D3]& lt；& gt""和[E3]& lt；& gt”“那麽

str1 = Trim([d3])。值)

使用工作表(“出站”)

集合d =。範圍(" b4 "，[b65536]。End(xlUp))。Find(str1，looking:= XL values)

如果不是d，那麽什麽都不是

第壹地址= d .地址

i = 5

做

如果【e3】。Value = "all "然後

範圍(" b " & amp我& amp":M " & ampi) = d.Resize(1，12)。價值

i = i + 1

其他

If Month(d(1，2)) = [e3]。那就值了

範圍(" b " & amp我& amp":M " & ampi) = d.Resize(1，12)。價值

i = i + 1

如果…就會結束

集合d =。範圍(" b4 "，[b65536]。End(xlUp))。FindNext(d)

循環，而Not d是Nothing和d . Address & lt& gt第壹地址

如果…就會結束

以…結尾

如果…就會結束

申請。EnableEvents = True

末端接頭

示例: