找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
感激所有對伊莉作出奉獻的人尊貴會員無限觀看附件圖片儲值後自動升級用戶組
mega無碼259luxuoverlord銀魂惡靈古堡adobe
魔子宮聖アマカノ強い子mp4@ge電車manor loblack ma

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

(4月新番)[繁]怪獸八

(4月新番)[繁]戰隊大

(4月新番)[繁]怪異與

[繁]轉生貴族憑鑑定技

[繁]戰隊大失格02-

(4月新番)[繁]夜櫻家
電腦新資訊電腦軟體討論電腦軟體資訊分享電腦硬體討論電腦硬體資訊分享電腦萌化版電腦系統 OS 討論電腦程式設計
電腦設計技術交流圖像設計及交流各類下載工具教學寬頻上網討論
查看: 1417|回復: 1
打印上一主題下一主題

[求助]EXCEL程式縮減(急需)[複製鏈接]

Rank: 2Rank: 2

帖子
271
積分
509 點
潛水值
154 米
跳轉到指定樓層
樓主
發表於 2009-10-23 10:28 AM|只看該作者|倒序瀏覽
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。
Public Sub refresh1()
     Nri2 = [N2]
     Nri3 = [N3]
     Nri4 = [N4]
     Nri5 = [N5]
     Nri6 = [N6]
     Nri7 = [N7]
     Nri8 = [N8]
     Nri9 = [N9]
     Mir2 = [M2]
     Mir3 = [M3]
     Mir4 = [M4]
     Mir5 = [M5]
     Mir6 = [M6]
     Mir7 = [M7]
     Mir8 = [M8]
     Mir9 = [M9]
   
Sheets("Status").Range("A1").QueryTable.Refresh BackgroundQuery:=False
    If [M2] = "離架" And [M3] = "離架" Then [N3] = " "
    If [M4] = "離架" And [M5] = "離架" Then [N5] = " "
    If [M6] = "離架" And [M7] = "離架" Then [N7] = " "
    If [M8] = "離架" And [M9] = "離架" Then [N9] = " "
    If [M10] = "在架" Then If [M2] = "在架" And [M3] = "在架" Then [N3] = "答對了"
    If [M10] = "在架" Then If [M2] = "在架" And [M5] = "在架" And Mir2 <> [M5] And Mir5 <> [M5] Then MsgBox "答錯了"
    If [M10] = "在架" Then If [M2] = "在架" And [M7] = "在架" And Mir2 <> [M7] And Mir7 <> [M7] Then MsgBox "答錯了"
    If [M10] = "在架" Then If [M2] = "在架" And [M9] = "在架" And Mir2 <> [M9] And Mir9 <> [M9] Then MsgBox "答錯了"
   
    If [M10] = "在架" Then If [M4] = "在架" And [M5] = "在架" Then [N5] = "答對了"
    If [M10] = "在架" Then If [M4] = "在架" And [M3] = "在架" And Mir4 <> [M3] And Mir3 <> [M3] Then MsgBox "答錯了"
    If [M10] = "在架" Then If [M4] = "在架" And [M7] = "在架" And Mir4 <> [M7] And Mir7 <> [M7] Then MsgBox "答錯了"
    If [M10] = "在架" Then If [M4] = "在架" And [M9] = "在架" And Mir4 <> [M9] And Mir9 <> [M9] Then MsgBox "答錯了"
   
    If [M10] = "在架" Then If [M6] = "在架" And [M7] = "在架" Then [N7] = "答對了"
    If [M10] = "在架" Then If [M6] = "在架" And [M3] = "在架" And Mir6 <> [M3] And Mir3 <> [M3] Then MsgBox "答錯了"
    If [M10] = "在架" Then If [M6] = "在架" And [M5] = "在架" And Mir6 <> [M5] And Mir5 <> [M5] Then MsgBox "答錯了"
    If [M10] = "在架" Then If [M6] = "在架" And [M9] = "在架" And Mir6 <> [M9] And Mir9 <> [M9] Then MsgBox "答錯了"
   
    If [M10] = "在架" Then If [M8] = "在架" And [M9] = "在架" Then [N9] = "答對了"
    If [M10] = "在架" Then If [M8] = "在架" And [M3] = "在架" And Mir8 <> [M3] And Mir3 <> [M3] Then MsgBox "答錯了"
    If [M10] = "在架" Then If [M8] = "在架" And [M5] = "在架" And Mir8 <> [M5] And Mir5 <> [M5] Then MsgBox "答錯了"
    If [M10] = "在架" Then If [M8] = "在架" And [M7] = "在架" And Mir8 <> [M7] And Mir7 <> [M7] Then MsgBox "答錯了"
...
瀏覽完整內容,請先 註冊登入會員
分享分享0收藏收藏0支持支持0
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。

使用道具檢舉

Rank: 1

帖子
1544
積分
181 點
潛水值
14659 米
頭香
發表於 2009-10-28 06:01 PM|只看該作者
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。
布太會但我會慢慢研究的  謝謝
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部