[VBA ] 獻醜，簡陋的定便當 Excel VBA

看板EZsoft (小軟體)作者yinjing (青)時間17年前 (2008/12/11 22:29)推噓2(2推 0噓 0→)

留言2則, 2人參與討論串1/1

※ [本文轉錄自 Visual_Basic 看板] 作者: yinjing (青) 站內: Visual_Basic 標題: [VBA ] 獻醜，簡陋的定便當 Excel VBA 時間: Thu Dec 11 22:28:54 2008 載點：http://yvesjing.miroko.tw/BadonVBA.xls (聽說這空間只能外連到年底，反正到年底這文章也沉了沒差 XD) 說明：目前只有弄定便當並統計、隨機建議要定啥便當、清除所有資料，還有一些防呆 (不過這篇主要功能只是給人參考些函式基本用法囧) 雖然不怎麼好用，但是是為了拿來練習一下VB = =|| 不過由於偷懶，便當廠商跟菜單寫死的 XD 要新增可以，不過請自行放到 Sheet2 裡面並在程式碼裡面修改 XD 要用巨集必須將 [工具] -> [巨集] -> [安全性] 改成中或以下 @@ 由於沒啥基礎，只是拿來練習用，所以函式用的蠻亂的，結構不良之類的就別鞭我了 Orz 下面簡單介紹怎麼進去Excel的VBA編輯畫面騙點P幣 (￣ε(#￣) #○=(一-一o) -- 首先開啟 Excel [工具] -> [巨集] -> [Visual Basic 編輯器]，[滑鼠左鍵]單擊在跳出Visual Basic 編輯器視窗中 [插入] -> [自訂表單]，[滑鼠左鍵]單擊然後就跟VB的介面差不多了 (￣▽￣＃)﹏﹏如果想要Excel開啟時就啟動先前設計的VBA 在Visual Basic 編輯器視窗中左上的[專案]視窗的[ThisWorkBook]上[滑鼠左鍵]點兩下然後在[Book1 - ThisWorkBook (程式碼)]視窗裡貼上以下內容 Private Sub Workbook_Open() UserForm1.Show End Sub [自訂表單] 一開始預設名稱應該是 [UserForm1]，不是的話再自己改囉 -- 不過第一次使用這東西當就出現很多問題了一個是下拉式不方便看，也許以後改列表比較好然後打電話時發現有些賣完了 =口= 要聯絡哪些人改餐很不方便，更OX的是有些還有漲價 Orz 總之一整個手忙腳亂 ˋ(′_‵||)ˊ 等哪天想不開再來改吧...... 對了，如果有人想拿去修改玩玩甚至交作業的請自取，不用先徵得我同意不要拿去賣這種也賣不出去吧 XD 或宣稱原著就好了 (老師問例外囧附註：本著作依據 Creative Commons 姓名標示-非商業性-相同方式分享授權條款為授權 http://creativecommons.org/licenses/by-nc-sa/2.0/tw/ -- ︴尼普藍得的守護靈托那魯啊. ﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎︴這裡有一位獲得你完整加護的勇士. ﹎﹎﹎﹎﹎﹎﹎︴請你回顧記憶亞妮莉夏美菈蓓死亡並立下誓約的瞬間, ﹎﹎﹎﹎﹎﹎﹎︴這裡有證明你們存在的言語, ﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎︴歐半婆羅羅貝易險萊貝雅﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎ ╔╕ ┌╥ ︴現在開啟道路吧... ╘╝ └╯ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.126.52.79 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.126.52.79