麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 学员信息比对与显示 [打印本頁]

作者: Farnsworth 時間: 2015-6-3 15:44 標題: 学员信息比对与显示

本帖最後由 Farnsworth 於 2015-6-3 15:46 編輯

[attach]21092[/attach]

这是最初的表格

作者: Farnsworth 時間: 2015-6-3 15:49

回復 1# Farnsworth

由于超过时限不能再编辑了，版面可能说的不是很清楚，要求及说明请各位看附件，感谢！

作者: luhpro 時間: 2015-6-4 00:06

回復 2# Farnsworth
有幾點需事先說明的:
1. 因為語系不同的關係,資料中的簡體字會變成?, 導致 .Value= ... 那行會因此無法賦值,故該行我僅能代換成固定的值來做測試.
2. 在 Excel 表格中,除非想指定文字切割位置,否則可以讓 Excel 自己換行,
此處把 (学员信息汇总统计) 工作表中的所有標題文字去除換行字元,方便程式直接取用.
3. 因應上述 2. 的直接取用需求, 你須要修改 (学员信息汇总统计) 工作表中的 G2 儲存格內容 (科目四合格) 為 (科目四合格学员) 方能順利套用.

Sub nn()
'G : 科目四合格学员 .Interior.ColorIndex=10 .font.colorindex=-4105
'H : 财务室所有交费学员 .Interior.ColorIndex=36 .font.colorindex=41
'I : 考试费710总表 .Interior.ColorIndex=47 .font.colorindex=44
'J : 学员信息汇总VIP .Interior.ColorIndex=40 .font.colorindex=53
'K : 退学C1 .Interior.ColorIndex=36 .font.colorindex=47
'L : 学员信息A2B2 .Interior.ColorIndex=6 .font.colorindex=3
'M : 退学A2B2 .Interior.ColorIndex=23 .font.colorindex=49
'N : 退学VIP .Interior.ColorIndex=4142 .font.colorindex=1
Dim iCol%
Dim lRow&
Dim sStr$
Dim vD, vInt(), vFnt()
Dim wsSou As Worksheet, wsTar As Worksheet
Set vD = CreateObject("Scripting.Dictionary")
vInt = Array(10, 36, 47, 40, 36, 6, 23, -4142)
vFnt = Array(-4105, 41, 44, 53, 47, 3, 49, 1)
Set wsSou = Sheets("学员信息汇总")
Set wsTar = Sheets("学员信息汇总统计")
lRow = 3
With wsTar
.Range(.Rows(3), .Rows(Rows.Count)).Delete
.Activate
End With
With wsSou
While .Cells(lRow, 1) <> ""
.Range(.Cells(lRow, 1), .Cells(lRow, 6)).Copy wsTar.Cells(lRow, 1)
vD(.Cells(lRow, 2) & .Cells(lRow, 3)) = lRow
lRow = lRow + 1
Wend
End With
With Sheets("学员信息汇总统计")
iCol = 7 ' G Column
Do While .Cells(2, iCol) <> ""
sStr = .Cells(2, iCol)
Set wsSou = Sheets(sStr)
lRow = 2 - (sStr = "学员信息汇总VIP")
With wsSou
Do While .Cells(lRow, 1) <> ""
If vD.Exists(.Cells(lRow, 2) & .Cells(lRow, 3)) Then
With wsTar.Cells(CInt(vD(.Cells(lRow, 2) & .Cells(lRow, 3))), iCol)
.Value = wsTar.Cells(CInt(vD(.Cells(lRow, 2) & .Cells(lRow, 3))), 2)
.Interior.ColorIndex = vInt(iCol - 7)
With .Font
.ColorIndex = vFnt(iCol - 7)
.Bold = True
End With
End With
End If
lRow = lRow + 1
Loop
End With
iCol = iCol + 1
Loop
End With
End Sub

複製代碼

作者: Farnsworth 時間: 2015-6-4 09:41

回復 3# luhpro
非常感谢您的解答，正在测试，不合适的地方我再联系您。

1. 因為語系不同的關係,資料中的簡體字會變成?, 導致 .Value= ... 那行會因此無法賦值,故該行我僅能代換成固定的值來做測試.

看过你上面第一条说明，在程序使用中我应该怎

作者: Farnsworth 時間: 2015-6-4 10:35

回復 3# luhpro

[attach]21100[/attach]
看过您这句：1. 因為語系不同的關係,資料中的簡體字會變成?, 導致 .Value= ... 那行會因此無法賦值,故該行我僅能代換成固定的值來做測試.
就是不知道这段代码应该改成什么内容，请指教，感谢！！！

作者: luhpro 時間: 2015-6-5 23:14

回復 luhpro

看过您这句：1. 因為語系不同的關係,資料中的簡體字會變成?, 導致 .Value= ...
Farnsworth 發表於 2015-6-4 10:35

原則上應該是不用改的,
那句話的意思是我不能直接以你提供的簡體字資料來做測試.

通常我給的程式都會以樓主所提供的資料實際做過測試,
確認可以達到我理解後的樓主需求才會貼上來,
除非實在是時間上來不及完成測試.

而因為此例有語系上不同的緣故,
執行你提供的資料會發生錯誤,
故而該行我只能另用固定資料做代換, (例如 : 123)
以便程式能順利執行完畢,
故而除該行執行結果未能完成測試外,
其餘已儘量測試完成.

作者: Farnsworth 時間: 2015-6-6 17:52

本帖最後由 Farnsworth 於 2015-6-6 17:54 編輯

回復 6# luhpro

能不能按照您的想法，你可以把所有的简体名称资料都改成你所需要的，且运行正确，做一份发我邮箱（[email protected]），我真的做不来的，求您了，再次感谢！！！

作者: Farnsworth 時間: 2015-6-7 10:49

回復 6# luhpro

您好，又要麻烦您，能不能做一份你运行正确的文档给我看看。你的程序式如果有几万行学员，运行起来就死机，在我这边一直没测试通过。

作者: luhpro 時間: 2015-6-9 01:05

回復 luhpro

您好，又要麻烦您，能不能做一份你运行正确的文档给我看看。你的 ...
Farnsworth 發表於 2015-6-7 10:49

你要先把裡面那一堆公式全部刪掉,
不然程式運行時一直重新計算幾乎保證死機,
或者要先把運算模式改成手動,並取消勾選儲存前自動重算.

另外公式修改一行:

.Value = wsTar.Cells(CInt(vD(wsSou.Cells(lRow, 2) & wsSou.Cells(lRow, 3))), 2)

[attach]21136[/attach]

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)