私人的？Sub？ComboBox1_Change（）？第壹個組合框發生變化
暗淡？dc？作為什麽？目標
設置？dc？=?CreateObject（“腳本。詞典》）
暗淡？我？作為什麽？長的
ComboBox2。清楚的
用什麽？Sheet1
為了什麽？我？=?1?去哪？。【a65536】。結束（三）。排
如果？。細胞（我，？1)?=?combobx 1。價值？然後
如果？不是嗎？直流存在（。細胞（我，？2).值）？然後
ComboBox2。AddItem？。細胞（我，？2).價值
華盛頓特區。補充？1。細胞（我，？2).值嗎？我
結束？如果
結束？如果
然後
結束？隨著
ComboBox2。價值？=?ComboBox2。列表（0）
結束？潛水艇
私人的？Sub？UserForm _ Initialize（）‘表單初始化
暗淡？dc？作為什麽？目標
設置？dc？=?CreateObject（“腳本。詞典》）
暗淡？我？作為什麽？長的
為了什麽？我？=?1?去哪？1。【a65536】。結束（三）。排
如果？不是嗎？DC . exists（1。細胞（我，？1).值）？然後
combobx 1。AddItem？1。細胞（我，？1).價值
華盛頓特區。補充？1。細胞（我，？1).值嗎？我
結束？如果
然後
combobx 1。價值？=?1。單元格（1，？1).價值
結束？潛水艇
私人的？Sub？command button 1 _ Click（）‘排序按鈕
暗淡？啊，啊？brr（），？crr（）
arr？=?1。範圍（“A1:B“？& amp？1。【a65536】。結束（三）。排）。價值
暗淡？我？作為什麽？龍？m？作為什麽？龍？n？作為什麽？長的
為了什麽？我？=?1?去哪？欠額
如果？arr（我，1)?& amp？arr（我，2)?=?combobx 1。價值？& amp？ComboBox2。價值？然後
n？=?n？+?1
雷迪姆？保存？brr（1？去哪？2,?1?去哪？n)
brr（1，n）？=?arr（我，1)
brr（2，？n）？=?arr（我，2)
其他
m？=?m？+?1
雷迪姆？保存？crr（1？去哪？2,?1?去哪？m)
crr（1，m）？=?arr（我，1)
crr（2，m）？=?arr（我，2)
結束？如果
然後
用什麽？Sheet1
。單元格（1，？“D”）。調整大小（n，？2)?=?工作表功能。轉置
。細胞（n？+?1,?“D”）。調整大小（m，？2)?=?工作表功能。轉置
結束？隨著
結束？關於接頭的詳細信息，請參見附件: