帖子: 248
主題: 55
精華: 0
積分: 314
點名: 181
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-9-29

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-11-26 10:42 | 只看該作者

[發問] 兩個問題：比對迴圈 & 儲存格閃爍

Q1:
假設我有一組資料要比對
EX: 工作簿A 比對工作簿B  在工作簿A上顯示 111,222,333,..的值
<工作簿A>
B 222
A 111
C 333
D 444
C 333

<工作簿B>(對照表)
A 111
B 222
C 333
D 444
E 555
F 666
G 777

目前我都是用最直覺的For迴圈(跑2個-> 一個為工作簿A的數量(i)，另一為工作簿B的數量(j))來處理
但如果資料量大比對很耗時
請問大大有什麼更有效率的方式嗎???
(用函數vlookup會比較快嗎?? 但我不太會將函數應用在VBA語法上，而且vlookup必須多拉一個欄位來放值吧?)

Q2:
我想讓紅色底的儲存格閃爍
當作警示作用
以下這是很笨的想法哈哈
而且程式會一直執行，卡住無法做其他事

Do
If Range("B2").Interior.ColorIndex = 3 Then
Application.Wait (Now + TimeValue("0:00:01"))
Range("B2").Interior.ColorIndex = -4142
End If
If Range("B2").Interior.ColorIndex = -4142 Then
Application.Wait (Now + TimeValue("0:00:01"))
Range("B2").Interior.ColorIndex = 3
End If
Loop

複製代碼

想說一次將2問題放一個提問，才不占論壇版面
內文有點冗長，麻煩各位大大謝謝 : )

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-11-26 11:24 | 只看該作者

回復 1# li_hsien
試試看

Option Explicit
Sub ex()
Dim Ar As Variant, e As Range, Rng As Range, T As Date
Ar = Sheet2.[A5:A15].Value '工作簿B
Ar = Application.Transpose(Ar) '轉換為一維陣列
Ar = "," & Join(Ar, ",") & "," 'Join(傳回字串):以","字串,連結一維陣列的元素為字串
For Each e In Sheet1.[A3:A10] '工作簿A
If InStr(Ar, "," & e & ",") Then '"," & e & "," => 唯一的字串,Ar中尋找這"唯一字串"的位置
If Rng Is Nothing Then 'InStr(Ar, "," & e & ",")<>0 (False) => 有找到這"唯一字串"的位置
Set Rng = e
Else
Set Rng = Union(e, Rng)
End If
End If
Next
Rng.Parent.Activate '工作簿A
Rng.Interior.Color = vbRed
T = Time
Do
DoEvents
If Time - T > #12:00:01 AM# Then '間隔 1秒
T = Time
If Rng.Interior.Color = vbRed Then
Rng.Interior.Color = vbYellow
Else
Rng.Interior.Color = vbRed
End If
End If
Loop
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 181
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-9-29

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2013-11-26 13:36 | 只看該作者

回復 2# GBKEE

測試了閃爍部分的語法，真的是我想要的執行方式耶

不過我想要閃爍的部分，是只有原來紅色底的儲存格
(紅->無填滿，無填滿->紅，都是同一個儲存格)

因為我表單內有各種顏色，還有無填滿的空白格，我只要讓原本是紅色的那幾個閃爍

想請問板大，如果加入這條件該怎麼寫???

另外我想了解一下
是因為DeEvents的關係，所以能讓程式持續運行且可以執行其他動作嗎???
還想請問 If Time - T > #12:00:01 AM# Then 為什麼是間隔 1秒呀??? 不太懂

感謝大大的幫忙謝謝 : )

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-11-26 15:24 | 只看該作者

回復 3# li_hsien
要有時間的間隔,來改變儲存格的底色,才會造成儲存格閃爍的視覺效果.
DeEvents : 交回控制權回給系統,
只要讓原本是紅色的那幾個閃爍 : 你就指定哪些儲存格

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

5^#

發表於 2013-11-26 16:50 | 只看該作者

回復 1# li_hsien
參考

Static Sub SetRangeFlashing(Optional Target, Optional ColorIndex, Optional bQuit As Boolean)
'使用方法:
' 要開始閃爍請呼叫：SetRangeFlashing Target:=Range("A1:B2,C3"), ColorIndex:=3
' 要停止閃爍請呼叫：SetRangeFlashing bQuit:=True
Dim dteNextTime As Date
Dim bStatus As Boolean
Dim RecordColor
Dim rngFlash As Range
If bQuit Then
rngFlash.Interior.ColorIndex = RecordColor
Application.OnTime dteNextTime, "SetRangeFlashing", , False
Else
If Not IsMissing(Target) Then Set rngFlash = Target
If Not IsMissing(ColorIndex) Then RecordColor = ColorIndex
rngFlash.Interior.ColorIndex = IIf(bStatus, RecordColor, xlColorIndexNone)
bStatus = Not bStatus
dteNextTime = Now + TimeValue("00:00:01")
Application.OnTime dteNextTime, "SetRangeFlashing"
End If
End Sub

複製代碼

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 181
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-9-29

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

6^#

發表於 2013-11-26 18:34 | 只看該作者

回復 4# GBKEE

謝謝板大的解釋

不過我還是不太清楚該如何指定特定儲存格閃爍
以下是我的做法，是可以閃爍XDD
不過他陣列好像會一直倍數增加@@

Private Sub twinkle()
Dim Rng As Range
Dim Ar() As Integer
T = Time
T2 = Time
Do
DoEvents
If Time - T > TimeValue("00:00:01") Then
T = Time
For i = 6 To Worksheets(2).Range("M65536").End(xlUp).Row
If Range("M" & i).Interior.Color = 255 Then
Range("M" & i).Interior.ColorIndex = -4142
j = j + 1
ReDim Preserve Ar(j)
Ar(j) = i
End If
Next
'MsgBox j
Debug.Print j
End If
'If Time - T > #12:00:05 AM# Then
If Time - T2 > TimeValue("00:00:01") Then
T2 = Time
'Application.Wait Now + TimeValue("00:00:01")
For k = 1 To j
Range("M" & Ar(k)).Interior.Color = 255
Next
End If
Loop
End Sub

複製代碼

不知該怎麼修

麻煩大大幫我看看謝謝 : )

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 181
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-9-29

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

7^#

發表於 2013-11-26 18:36 | 只看該作者

回復 5# stillfish00

stillfish00 大大
我不知該怎麼執行耶...

直接COPY 可是他不能RUN

是因為static嗎? 還是我需要有什麼前置的語法??

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

8^#

發表於 2013-11-26 21:37 | 只看該作者

回復 7# li_hsien
我只是單純回答Q2的問題，插入程式碼後，1樓Q2的代碼可換為
SetRangeFlashing Target:=Range("B2"), ColorIndex:=3
使B2儲存格閃爍。

不適用迴圈中，而是用在最後要指定範圍閃爍的時候。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2013-11-27 07:02 | 只看該作者

回復 6# li_hsien
請附檔說明你的範圍

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 181
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-9-29

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

10^#

發表於 2013-11-27 09:40 | 只看該作者

回復 9# GBKEE

這是我的測試檔案

主要想法是先跑一次整列，將儲存格為紅底的變成無填滿
並且將欄位記下來，再過一秒鐘，讀取陣列中的欄位
把儲存格再變成紅色

不過我跑起來好像閃爍的不穩定XDD
而且陣列會一直倍數成長
有想說重跑就erase一次
可是他就不行跑了

麻煩大大幫我看看謝謝

Test-1127_twinkle.zip (10.33 KB)

TOP