關於資料比對的寫法

帖子: 364
主題: 39
精華: 0
積分: 404
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-4-18

31^# 跳轉到 »

發表於 2016-7-21 11:17 | 只看該作者

本帖最後由藍天麗池於 2016-7-21 11:25 編輯

http://forum.twbts.com/viewthrea ... pageD1&page=13b]
回復 30# c_c_lai

哇！不能個別判段嗎？這樣我設定1秒變動就執行可能會來不及看

c大，不能像上次寫的那個程式一樣有變動才紀錄，其他不變嗎？
如果用上次的邏輯寫也無法嗎？

TOP

jackyq

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

32^#

發表於 2016-7-21 11:47 | 只看該作者

回復 31# 藍天麗池

大大要自己試著學啊

TOP

藍天麗池

中學生 Rank: 2

帖子: 364
主題: 39
精華: 0
積分: 404
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-4-18

33^#

發表於 2016-7-21 11:58 | 只看該作者

回復 32# jackyq

j大，我有阿，從跟你們的對談中一點一點學阿，只是我還沒有很厲害就是了，所以很感謝論壇這邊有這麼多好前輩

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

34^#

發表於 2016-7-21 12:42 | 只看該作者

回復 31# 藍天麗池
明天早上你用這支程式試試看。

資料暫存A.rar (81.92 KB)

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

35^#

發表於 2016-7-21 12:46 | 只看該作者

回復 31# 藍天麗池

ThisWorkbook:
Private Sub Workbook_Open()
Dim rng As Variant, rnt As Range
With Sheets(1)
Set rnt = [AD2]
For Each rng In Range(.[D2], .[D2].End(xlDown))
rng.Offset(, 1) = IIf(IsNumeric(rng.Offset(, -1)), rng.Offset(, -1), 0)
rnt.FormulaR1C1 = "=RC[-26]"
Set rnt = rnt.Offset(1)
Next
End With
End Sub

複製代碼

工作表1:
Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets(1)
If Left(Target.Address, 3) = "$AD" And IsNumeric(Target) Then
.Cells(Target.Row, 6) = .Cells(Target.Row, 5)
' Debug.Print "Target.Address = " & Target.Address
ElseIf Left(Target.Address, 2) = "$F" Then
.Cells(Target.Row, 5) = IIf(IsNumeric(.Cells(Target.Row, 3)), .Cells(Target.Row, 3), 0)
Else
End If
End With
End Sub
Private Sub Worksheet_Calculate()
' [K1] = [K1] + 1
End Sub