如何將每個時段內的指定數值抽出 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何將每個時段內的指定數值抽出

返回列表下一主題上一主題發帖

[發問] 如何將每個時段內的指定數值抽出

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

11^# 跳轉到 »

發表於 2013-9-5 15:13 | 顯示全部帖子

請問如果要處理的檔案A.xls已經打開，以上的VBA檔案在B.xlsm，如何寫才能對A.xls作自動變動，謝謝!

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

12^#

發表於 2013-9-5 18:15 | 顯示全部帖子

這個不行

Sub Ex()
Dim D As Variant, E As Range, b As Date
Windows("A.xls").Activate
Sheets("Sheet1").Select
With ActiveWorkbook.Sheets(1)
For Each E In Range("b1", [b1].End(xlDown))
D = Split(E.Offset(, -1), "/")
b = E + #12:01:00 AM#
E.Value = E + #12:01:00 AM#
E.Offset(, 6) = D(0) & D(1) & Application.Text(b, "hhmm")
Next
End With
End Sub

複製代碼

B.rar (11.78 KB)

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

13^#

發表於 2013-9-5 23:25 | 顯示全部帖子

回復 19# GBKEE
明白了，感謝GBKEE版大教導!

靜思自在 : 虛空有盡．我願無窮，發願容易行願難。

返回列表下一主題上一主題