返回列表 上一主題 發帖

[發問] VBA_各工作表的T3(含)右邊各數字~有重複者只取第1個之語法。

Airman

帖子
315 
主題
51 
精華
0 
積分
367 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-29 
最後登錄
2021-10-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-1-24 16:20 | 顯示全部帖子

[發問] VBA_各工作表的T3(含)右邊各數字~有重複者只取第1個之語法。

2016-0124-Q-1 -.rar (142.35 KB)
說明︰
T3=100- (J:P有顯示R5值)的I欄期數且T3<51

因為每一期共有7個不重複的號碼(即=R5值)，所以Sheet1~ Sheet49的T3(含)右邊各數字會有7個相同的數字~
EX1︰TEST_1(目前)~42=100-58~
Sheet1的T3=42，Sheet11的V3=42，Sheet15的T3=42，Sheet24的U3=42，Sheet27的V3=42，Sheet37的U3=42，Sheet46的U3=42
(Sheet n即為I欄58期的開獎號碼)

EX2︰TEST_1(目前) )~43=100-57~
Sheet2的U3=43，Sheet3的U3=43，Sheet6的U3=43，Sheet7的V3=43，Sheet26的T3=43，Sheet30的U3=43，Sheet49的W3=43
(Sheet n即為I欄57期的開獎號碼)

其餘...類推。

需求︰
想在列31增加下列的語法~
Sheet1~ Sheet49的T3(含)右邊的各重複數字數字只取第1個，其餘的6個相同數字略過~
EX1︰TEST_1(需求)
Sheet1的T3=42，其餘(後)的各Sheet的第3列不再顯示42
EX2︰TEST_1(需求)
Sheet1的U3=41，其餘(後)的各Sheet的第3列不再顯示41
其餘...類推。

EX3︰TEST_1(需求)
Sheet2的T3=44，其餘(後)的各Sheet的第3列不再顯示44
EX4︰TEST_1(需求)
Sheet2的U3=43，其餘(後)的各Sheet的第3列不再顯示43
其餘...類推。

詳如附件圖示。

請問︰列31之後的語法要如何編撰?

以上  懇請各位先進、前輩不吝賜教!  謝謝!
收藏 分享

Airman

帖子
315 
主題
51 
精華
0 
積分
367 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-29 
最後登錄
2021-10-12 
2#
發表於 2016-1-25 00:47 | 顯示全部帖子
本帖最後由 Airman 於 2016-1-25 00:51 編輯

回復 1# Airman
呵~呵~不好意思，想到一個最簡單且能達到需求的方法~
If a = Sheets(s).[R5] Then
假設︰.Cells(5, t) = Cells(a.Row, 9)    '即T5=J欄︰P欄有顯示R5值的I欄期數值
如果要改為
T5=P欄有顯示R5值的I欄期數值
請問︰
.Cells(5, t) = P欄有顯示R5值的I欄期數值之語法要如何編撰?

以上  懇請各位先進、前輩不吝賜教!  謝謝!

TOP

Airman

帖子
315 
主題
51 
精華
0 
積分
367 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-29 
最後登錄
2021-10-12 
3#
發表於 2016-1-25 11:21 | 顯示全部帖子
本帖最後由 Airman 於 2016-1-25 11:29 編輯

回復 3# 准提部林

准大:
測試結果答案和原主檔相同。

可能是因小弟的說明太冗長，所以令您混淆。
小弟的需求簡扼的說:
將Sheet1~ Sheet49的T3(含)右邊各重複的數字，只取其一(第1個)，其餘重複數字的各欄移除。
以上   敬請惠予賜教為禱!謝謝您!

倘對敝說明尚有不明瞭之處 ，亦請您再次提出~小弟當再詳加補充~感恩  

或者是~請您賜教如何將~
.Cells(5, t) = Cells(a.Row, 9)
有顯示R5值的當列之I欄期數值
改為
P欄有顯示R5值的I欄期數值
~亦可~謝謝您

TOP

Airman

帖子
315 
主題
51 
精華
0 
積分
367 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-29 
最後登錄
2021-10-12 
4#
發表於 2016-1-25 15:53 | 顯示全部帖子
回復 5# 准提部林
准大:您好!
謝謝您於百忙中撥冗賜教~
測試OK了~感恩

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題