三年前《富比士》有一篇文章觀察到「誰才夠格被快速升遷」，這是真實的故事，有兩個都很想升遷的人，兩位都從商學院畢業，來到一家投資公司，兩個人都想好好大幹一場！於是處心積慮，想辦法升升升、升升升，不過最後的結果是，其中一位在短短一年內被升為資深分析師，而另一個卻爬得很～慢～，為什麼？
第一位叫Ted，他是爬的比較慢的那位，但其實，他各方面能力都比人家強，一開始就知道，如果想爬快一點，就應該讓自己「和別人不同」，上班族通常讓自己和別人不同就只有兩種方法，一種是「卓越工作」，在自己份內的工作做的比其他人都還好，另一種是「加強社交」，也就是努力的去和一些高層打好關係，在老闆那邊可以美言幾句。以上兩點，Ted都努力的進行中，Ted資質聰穎、口才便給，又不怕加班、耐操耐練，份內工作做得很好，老闆都很喜歡。
不過，Ted後來卻發現，還另有一位叫做Mark的同事，和他同期進公司，工作表現沒他好，卻硬就是「爬」得比、他、還、快？
怎麼可能？
不夠「資格」的Mark，竟然爬得比資格更夠的Ted還快？原來，Mark用了「第三種方法」來讓自己與眾不同，還有什麼方法呢？Mark一進公司後就發現自己和同儕相比，並不是這麼有幹勁的人，也不確定自己的能力是否可以做到，這麼競爭激烈的場所，他這樣競爭也沒用。或許，就是因為Mark有這樣難得的「先見之明」，因此Mark做了一些別的很拚的年輕人不會做的事。這些事，因為大家都忙在自己的電腦裡把自己的事做得很好很好，因此都「忽略」了──
到底是什麼事呢？
Mark一邊做自己份內工作，一邊將剩下的時間拿來研究「別人在做什麼」，這一點，就是許多忙著競爭的小同事，不肯花時間去做的事了！他積極的跑去問他的同事，無論是小秘書，還是小經理，或是其他部門的人，只要碰面到的，他就跑去問問看他們在做什麼、他們怎麼安排一天時間，如何將他們被指定的事情做完……。慢慢的，當他問了「夠多人」以後，Mark也很快察覺「同事之間」、「部門之間」有什麼地方可以被改進的，於是他先開始做一些看似瑣碎的事，幫忙周會訂便當，幫忙確認辦公室用品在用光之前就被訂足……他的主管很快就發現Mark正在做的事。於是，Mark雖然並不是表現最好的，也不是最有領導魅力的，並非人緣最好的，但大家都蠻感謝他。
後來，Mark開始自修Excel的程式語法，來幫忙「補」一個同事做不到的洞。很快的，他們發現，除了Mark以外，在公司裡已經沒有人比Mark還懂得內內外外這麼「廣」的資訊，如果要找人來開會，找Mark就對了！於是他開始被允許越級參加愈來愈多的會議、各式各樣的會議都會參加。一年還沒到終，他已經被升為資深研究員，而他所獲得的獎金比別人多50%！雖然Ted比他厲害好幾倍，但和其他同事相比並沒有傑出太多，而且天天累得像狗一樣，相較之下，Mark比Ted還輕鬆的就得到升遷機會。
Mark雖然「資格」不夠，但so what？
什麼叫「資格」？資格是誰訂的呢？
Mark心裡已經不是按照一般分析師的「資格」在想自己，它想的資格自成一套，或許他根本就是「沒格」（沒去想任何資格的事）！大部份的上班族都以為，「資格」就是自己本身的工作能力，或許是EQ或社交或人緣或語言能力…但其實，「資格」的定義根本就沒有絕對，我們真的需要的不是硬碰硬比「資格」，而是比「沒格」。
三年前《富比士》有一篇文章觀察到「誰才夠格被快速升遷」，這是真實的故事，有兩個都很想升遷的人，兩位都從商學院畢業，來到一家投資公司，兩個人都想好好大幹一場！於是處心積慮，想辦法升升升、升升升，不過最後的結果是，其中一位在短短一年內被升為資深分析師，而另一個卻爬得很～慢～，為什麼？
第一位叫Ted，他是爬的比較慢的那位，但其實，他各方面能力都比人家強，一開始就知道，如果想爬快一點，就應該讓自己「和別人不同」，上班族通常讓自己和別人不同就只有兩種方法，一種是「卓越工作」，在自己份內的工作做的比其他人都還好，另一種是「加強社交」，也就是努力的去和一些高層打好關係，在老闆那邊可以美言幾句。以上兩點，Ted都努力的進行中，Ted資質聰穎、口才便給，又不怕加班、耐操耐練，份內工作做得很好，老闆都很喜歡。
不過，Ted後來卻發現，還另有一位叫做Mark的同事，和他同期進公司，工作表現沒他好，卻硬就是「爬」得比、他、還、快？
怎麼可能？
不夠「資格」的Mark，竟然爬得比資格更夠的Ted還快？原來，Mark用了「第三種方法」來讓自己與眾不同，還有什麼方法呢？Mark一進公司後就發現自己和同儕相比，並不是這麼有幹勁的人，也不確定自己的能力是否可以做到，這麼競爭激烈的場所，他這樣競爭也沒用。或許，就是因為Mark有這樣難得的「先見之明」，因此Mark做了一些別的很拚的年輕人不會做的事。這些事，因為大家都忙在自己的電腦裡把自己的事做得很好很好，因此都「忽略」了──
到底是什麼事呢？
Mark一邊做自己份內工作，一邊將剩下的時間拿來研究「別人在做什麼」，這一點，就是許多忙著競爭的小同事，不肯花時間去做的事了！他積極的跑去問他的同事，無論是小秘書，還是小經理，或是其他部門的人，只要碰面到的，他就跑去問問看他們在做什麼、他們怎麼安排一天時間，如何將他們被指定的事情做完……。慢慢的，當他問了「夠多人」以後，Mark也很快察覺「同事之間」、「部門之間」有什麼地方可以被改進的，於是他先開始做一些看似瑣碎的事，幫忙周會訂便當，幫忙確認辦公室用品在用光之前就被訂足……他的主管很快就發現Mark正在做的事。於是，Mark雖然並不是表現最好的，也不是最有領導魅力的，並非人緣最好的，但大家都蠻感謝他。
後來，Mark開始自修Excel的程式語法，來幫忙「補」一個同事做不到的洞。很快的，他們發現，除了Mark以外，在公司裡已經沒有人比Mark還懂得內內外外這麼「廣」的資訊，如果要找人來開會，找Mark就對了！於是他開始被允許越級參加愈來愈多的會議、各式各樣的會議都會參加。一年還沒到終，他已經被升為資深研究員，而他所獲得的獎金比別人多50%！雖然Ted比他厲害好幾倍，但和其他同事相比並沒有傑出太多，而且天天累得像狗一樣，相較之下，Mark比Ted還輕鬆的就得到升遷機會。
Mark雖然「資格」不夠，但so what？
什麼叫「資格」？資格是誰訂的呢？
Mark心裡已經不是按照一般分析師的「資格」在想自己，它想的資格自成一套，或許他根本就是「沒格」（沒去想任何資格的事）！大部份的上班族都以為，「資格」就是自己本身的工作能力，或許是EQ或社交或人緣或語言能力…但其實，「資格」的定義根本就沒有絕對，我們真的需要的不是硬碰硬比「資格」，而是比「沒格」。
閱讀全文： http://mr6.cc/?p=8165
訂便當excel 在 [VBA ] 獻醜，簡陋的定便當Excel VBA - 看板Visual_Basic 的推薦與評價
載點：https://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 姓名標示-非商業性-相同方式分享 授權條款為授權
https://creativecommons.org/licenses/by-nc-sa/2.0/tw/
--
'補一下程式碼
Dim number As Integer
Dim total As Integer
Private Sub UserForm_Activate() '先載入點餐者名單與店家名稱等
number = 2
While Cells(number, 1) <> "" And Cells(number, 1) <> "共計"
number = number + 1
Wend
total = 2
While Cells(total, 6) <> ""
total = total + 1
Wend
Label2.Caption = "今天: " & Date & " 星期" & Weekday(Date)
ComboBox1.AddItem "老師"
For i = 2 To 31
ComboBox1.AddItem i - 1
Next
ComboBox1.AddItem "其他"
For i = 1 To 9
ComboBox2.AddItem Sheet2.Cells(1, i)
i = i + 1
Next
ComboBox3.Clear
End Sub
Private Sub ComboBox1_Change() '選學號後才可以點餐
If ComboBox2.Text <> "今天挑哪家呢" Then
ComboBox3.Locked = False
ComboBox3.Text = "菜單"
End If
If ComboBox3.Text = "菜單" Then
CommandButton1.Caption = "等候點餐"
CommandButton1.Enabled = False
CommandButton1.Locked = True
End If
End Sub
Private Sub ComboBox2_Change() '選店家名稱後載入菜單
ComboBox3.Clear
If ComboBox2.Text = "寬中港" Then
For i = 2 To 18
ComboBox3.AddItem Sheet2.Cells(i, 1) & Sheet2.Cells(i, 2)
Next
ElseIf ComboBox2.Text = "佳佳" Then
For i = 2 To 15
ComboBox3.AddItem Sheet2.Cells(i, 3) & Sheet2.Cells(i, 4)
Next
ElseIf ComboBox2.Text = "KISS快餐" Then
For i = 2 To 25
ComboBox3.AddItem Sheet2.Cells(i, 5) & Sheet2.Cells(i, 6)
Next
ElseIf ComboBox2.Text = "向陽樓麵食館" Then
For i = 2 To 30
ComboBox3.AddItem Sheet2.Cells(i, 7) & Sheet2.Cells(i, 8)
Next
ElseIf ComboBox2.Text = "鑫鮮園鐵板燒烤" Then
For i = 2 To 32
ComboBox3.AddItem Sheet2.Cells(i, 9) & Sheet2.Cells(i, 10)
Next
End If
ComboBox2.Locked = True
If ComboBox1.Text = "號碼?" Then
ComboBox3.Text = "請選擇號碼"
Else
ComboBox3.Locked = False
ComboBox3.Text = "菜單"
End If
CommandButton2.Locked = False
End Sub
Private Sub ComboBox3_Change() '點過餐才可以新增
If ComboBox3.Text <> "請選擇號碼" And ComboBox3.Text <> "菜單" Then
CommandButton1.Locked = False
CommandButton1.Enabled = True
CommandButton1.Caption = "確定新增"
End If
End Sub
Private Sub CommandButton1_Click() '將資料輸入表格並統計
Sheet1.Cells(number, 1) = ComboBox1.Text
Sheet1.Cells(number, 2) = Left(ComboBox3.Text, Len(ComboBox3.Text) - 2)
Sheet1.Cells(number, 3) = TextBox1.Text
Sheet1.Cells(number, 4) = Right(ComboBox3.Text, 2) * TextBox1.Text
number = number + 1
Sheet1.Cells(number, 1) = "共計"
Sheet1.Cells(number, 2) = ComboBox2.Text
Sheet1.Cells(number, 3) = "=SUM(C2:C" & number - 1 & ")"
Sheet1.Cells(number, 4) = "=SUM(D2:D" & number - 1 & ")"
For i = 1 To total - 1
If Sheet1.Cells(i, 6) = Left(ComboBox3.Text, Len(ComboBox3.Text) - 2)
Then
Sheet1.Cells(i, 7) = Sheet1.Cells(i, 7) + TextBox1.Text
Sheet1.Cells(total, 6).Clear
Sheet1.Cells(total, 7).Clear
GoTo OK
Else
Sheet1.Cells(total, 6) = Left(ComboBox3.Text, Len(ComboBox3.Text)
- 2)
Sheet1.Cells(total, 7) = TextBox1.Text
End If
Next
total = total + 1
OK:
End Sub
Private Sub CommandButton2_Click()
MsgBox (ComboBox3.List(Rnd * 100 Mod ComboBox3.ListCount))
End Sub
Private Sub CommandButton3_Click() '清空重新點菜用的
Sheet1.Range("A2:G32").Clear
number = 2
total = 2
ComboBox1.Text = "號碼?"
ComboBox2.Locked = False
ComboBox2.Text = "今天挑哪家呢"
ComboBox3.Text = "--"
ComboBox3.Locked = True
CommandButton1.Caption = "等候點餐"
CommandButton1.Enabled = False
CommandButton1.Locked = True
CommandButton2.Locked = True
End Sub
--
︴ 尼普藍得的守護靈 托那魯啊. ﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎
︴ 這裡有一位獲得你完整加護的勇士. ﹎﹎﹎﹎﹎﹎﹎
︴ 請你回顧記憶亞妮莉夏 美菈蓓死亡並立下誓約的瞬間, ﹎﹎﹎﹎﹎﹎﹎
︴ 這裡有證明你們存在的言語, ﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎
︴ 歐半婆羅 羅貝 易險 萊貝雅 ﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎﹎ ╔╕ ┌╥
︴ 現在開啟道路吧... ╘╝ └╯
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.126.52.79
※ yinjing:轉錄至看板 EZsoft 12/11 22:29
※ 編輯: yinjing 來自: 59.126.52.79 (12/11 22:32)
... <看更多>