返回列表 上一主題 發帖

[發問] 請教如何做特殊排列

ericpeja

帖子
9 
主題
3 
精華
0 
積分
10 
點名
0  
作業系統
WIN 8 
軟體版本
OFFICE2003 
閱讀權限
10 
註冊時間
2019-7-20 
最後登錄
2020-9-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-11-11 09:35 | 顯示全部帖子

[發問] 請教如何做特殊排列

本帖最後由 ericpeja 於 2019-11-11 09:37 編輯

請問小弟有兩工作表分別為
SHEET1                                                                                                             SHEET2
學生號碼    成績     補考1       補考2       過關                                                學生號碼   1   2   3   4   5  6   7    8   9   10
1                   75                                           是                                                   過關          是 是 是 否  是 是 否  是  否  是   
2                   65                                           是                                                   補考1                       否           是        是
3                   66                                           是                                                   補考2                       否        
4                   35                                           否
4                                45                              否
4                                                56              否
5                   98                                           是
6                   76                                           是
7                   35                                           否
7                              60                                是
8                   77                                           是
9                   49                                           否
9                              69                                是
10                 90                                           是

如附件
請問我該如何用sheet1的條件(不過關須補考1再不過補考2)
讓sheet2的學生號碼的做橫向的排列(直向為是否過關及補考是否通過)
由於初學VBA 想不到較好的方法 故請教版上各位前輩們~感激不盡

sheet1.png (18.59 KB)

sheet1.png

sheet2.png (17.81 KB)

sheet2.png

測試用.rar (7.76 KB)

收藏 分享

ericpeja

帖子
9 
主題
3 
精華
0 
積分
10 
點名
0  
作業系統
WIN 8 
軟體版本
OFFICE2003 
閱讀權限
10 
註冊時間
2019-7-20 
最後登錄
2020-9-6 
2#
發表於 2019-11-12 10:09 | 顯示全部帖子
回復 2# hcm19522
謝謝大大的回復 不過小弟資質愚鈍 執行VBA好像無法使用 可否註解此值的內容 以便小弟方便解讀

TOP

ericpeja

帖子
9 
主題
3 
精華
0 
積分
10 
點名
0  
作業系統
WIN 8 
軟體版本
OFFICE2003 
閱讀權限
10 
註冊時間
2019-7-20 
最後登錄
2020-9-6 
3#
發表於 2019-11-12 17:18 | 顯示全部帖子
回復 5# 准提部林

非常感謝您的幫忙
但我使用函數後結果為結果與我想要的不太一樣
可能是我敘述的不夠完整
我想把sheet 1的A行直接轉為sheet2的第1列(學生號碼不可重覆1,2,3,4,5,6,7,8,9,10)
補考及格並不代表過關(您給的好像是補考1或補考2有過就算過關)

我附上我欲想修改的狀況

我附上我欲想修改的狀況

Sheet1的A行僅取第一筆學生號碼(不論補考)然後在Sheet2的第2行對比其過關結果
如需補考1(不過關)之學生號碼的第二筆資料對應Sheet2的第3行
最後補考2(不過關)之學生號碼的第三筆資料對應Sheet2的第3行
請問這樣是否還有辦法解呢???
感激不盡

TOP

ericpeja

帖子
9 
主題
3 
精華
0 
積分
10 
點名
0  
作業系統
WIN 8 
軟體版本
OFFICE2003 
閱讀權限
10 
註冊時間
2019-7-20 
最後登錄
2020-9-6 
4#
發表於 2019-11-13 23:02 | 顯示全部帖子
回復 7# 准提部林

感謝大大~成功了
不知道您可否分享這幾段函數所包含的意義??看起來好複雜的感覺
感謝您~~:)

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題