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

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

Airman

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2836
主題: 10
精華: 0
積分: 2892
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-30

3^#

發表於 2016-1-25 10:13 | 只看該作者

還是看不懂需求，猜一下：

tVal%, ValChk%(1 To 50)　sub 開頭先定義這２個變數

If a = Sheets(s).[R5] Then
　　tVal = 100 - Cells(a.Row, 9).Value
　　If tVal < 51 Then
　　　　If ValChk(tVal) = 0 Then
　　　　　.Cells(5, t) = Cells(a.Row, 9) 'J:P顯示R5值的I欄期數值
　　　　　.Cells(3, t) = tVal '期距
　　　　　ValChk(tVal) = 1
　
　　　　　.Cells(1, t) = "=IF(Count(offset(A7,,COLUMN()-1," & e & ")),"""",1)" 'T1~Tn公式
　　　　　.Cells(1, t + 1) = "=1"
　　　　　.Cells(1, t).Interior.ColorIndex = 6 'T1標示Color
　　　　　t = t + 1
　　　　End If
　　End If
　　q = q + 1
End If

TOP

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

4^#

發表於 2016-1-25 11:21 | 只看該作者

本帖最後由 Airman 於 2016-1-25 11:29 編輯

回復 3# 准提部林

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

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

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