發表文章

目前顯示的是 2014的文章

[買買買]奇怪好物 - sugru 神奇黏土

圖片
hTC的充電線頭被長久以來的拉扯,終於有點破損了,可以看裡面的電線(眼力真好) 於是乎...有藉口可以買買這個玩意兒了... 照片上用紅色黏土拍的...用掉的是黑色黏土,還有賣白、藍... 在某次瘋狂轉轉電視(拿到遙控器轉台就停不下來)看到介紹國外新奇創意發明(難得看到不是日本的發明),什麼東西都可以黏、黏很緊、無毒、創意無限..... sugru官網 台灣目前是沒看到代理商,官方購買可以寄到台灣,運費也不高,還挺不賴的... 不過.........一次買三個、六個回來放,好像有點浪費,暫時也沒找到人share.... 所以...就...從拍賣買了兩個... 一黑一紅 一小包5g,感覺很小包,但是沒想到我黏了眼鏡框、USB充電線還有剩,問媽還有什麼需要修補的,我媽叫我去黏牆壁,沒錯...你沒看錯,我黏了牆壁磁磚破洞...還用最多的量... 這是黏USB充電線的樣子,塑型好久.....等了24小時,摸起來QQ的,還有些彈性...感覺有點像夕力康的質感... 用這黏土修補東西就好像小時候在玩黏土的感覺,真好玩...不過,洗手的時候真痛苦...手都搞的黑黑...黏的真緊...用肥皂、洗手乳、沐浴精都清不掉,後來拿了隻牙刷在那邊"魯"才清乾淨... 沒想到一包就可以黏這麼多東西...紅色變多買的...再找找可以黏什麼來玩玩...不然在室溫下只能保存6個月,雖然放冰箱可以再延長6個月,但是...我媽會願意讓我放在冰箱嗎???

[買買買] Apple iPod shuffle

圖片
最近看上了Apple的iPod才發現,原來,有這麼多不同長相的iPod 結果...因為價格上的考量,選擇了iPod shuffle $1790 本來要到Apple的店面購買,沒想到在Apple Store挑選顏色,看上只有在網路訂購才有的「 紅色 」 對...就是在店面 買不到、買不到、買不到... 因此,就在網路上訂購了,而且還可以免費在「蝦佛」上做雷射雕刻,這也是在網路訂購才有的 =============== 等.等.等...分隔線  ========== ===== 2014.4.22 - 24小時還沒出貨 本來2014.4.24可以到貨的,剛剛收到Apple Store的mail通知要延期了 >.< 2014.4.23 - 出貨 喔~YA 從上海出貨了~ 2014.04.24 - 3點到貨了

[EXCE VBA] 紀錄寫作上遇到的問題

EXCEL工作表 表示方式 ' 使用屬性的(name)名稱,一般使用者無法修改,需再程式模式下才能異動 Sheet1.Name ' 以工作表順序表示,但如果使用者移動工作表順序就會找尋到不同的工作表 Worksheets(1).Name ' 使用屬性的name名稱,使用者可以EXCEL中修改工作表名稱 Worksheets("工作表1").Name 找尋最後一筆的方式 Sheet1.[a65536]. End(xlUp).Row (.Column) Sheet1. Range("A:A"). End(xlUp).Row (.Column) 開啟關閉表單 UserForm1.show    ' 開啟表單 UserForm1.hide     ' 關閉表單

[趣味] 小米3 紅米 米粉節 六次搶搶樂

圖片
4月8日 米粉節,身為每週三都要忠實搶搶的米粉,當然要好好的來搶購一番 結算 總共成功搶 5張訂單 戰績 兩隻紅米、一顆紅米電池、一份紅米保護貼、兩條OTG線、一顆10400mAh行動電源、一個行動電源保護套、四條小米活塞耳機簡裝版(黑白各2條) (同事那邊替我搶到一個5200mAh行動電源) 總價值 3999*2+170+60+57*2+345+60+155*4=9367 優惠劵 使用4張配件現金抵用券NT$250 運費 有3張訂單折扣後不滿500需付100元運費 感想 第一場剛開始搶紅米的時候,點選一直跑小米首頁出來,好像無窮迴圈,小米首頁一直生出來~大家不斷地哀號說「小米網站壞掉了...」 改點行動電源就不斷的看到排隊兔....不過後來幾場就順暢許多了,嗯...點下去...就秀出「此場已售完」..... ================== 小米4週年公仔鑰匙圈 ================== 2014.4.9 中午 黑貓宅即便到貨 第一場 10點的訂單 - 兩條黑白各一的小米活塞耳機簡裝版 好大的盒子 小米四週年紀念公仔 ================== 小行動電源 ================== 104.4.10 午休過後 黑貓宅即便到貨 同事幫搶第一場小的行動電源訂單到貨  5200mAh行動電源外盒 不是像10400mAh行動電源有透明外殼  打開長這樣 5200mAh行動電源與10400mAh行動電源 ================== 行動電源保護套 ================== 等待許久終於收到剩下的包裹 104.4.14 下午 黑貓宅急便先生拿三盒小米箱子給我簽收 (其中一盒不是我的) 剩下的配件終於都到貨了 橘色行動電源保護套 OTG線

[GAME] Blizzard 爐石戰記

    現實生活中並不陌生看到卡片遊戲的機台,小時候在柑仔店、文具店前的棒球刷卡遊戲;現在百貨公司、賣場裡的 甲蟲王者 、 機甲英雄 、給小女生玩的 時尚魔女 。電腦開始蓬勃發展陸續出現許多PC版,如 虛擬人生1 、 2 ,好懷念那些遊戲。     最近剛好看到暗黑破壞神3上市,讓我想到暗黑破壞神2那也是讓人回味無窮的遊戲,不論何時何地開啟玩總是令人感到驚奇。     剛好看到同家 Blizzard Entertainment 遊戲公司出品的卡片桌遊 -  爐石戰記 ,而且還是免費的(目前,不知道未來會不會需要收費)、全中文化,連語音都是中文配音,真是就感心阿~     玩了幾天真的覺得是個好趣味的遊戲,每張卡片的使用需要搭配著卡片特性,還有搭配著攻擊、防守策略,需要好好著計畫,不然好容易就被一擊斃殺~

輸入法跟屁蟲 - 萬年移不掉的微軟新倉頡輸入法

從五專那門打字學分被當掉的那刻起,一直都是使用注音這類的輸入法,從微軟新注音、自然輸入法到現在的新酷音輸入法(開心^^ 開始改版了),倉頡對我來說只是個歷史人物,但是他已經在生活中不可或缺了,每天在切換輸入法的時候都要出來 Say Hallo 一下...... ======================= 嗨! 你好...我是分隔線 ======================= 方案一:手動 1.點「開始」 → 「執行」 → 打regedit 2.找到 [HKEY_CURRENT_USER\Keyboard Layout\Preload] 3.在旁邊出現的機碼右鍵刪除「e0090404」 4.關閉視窗後,重新開機 方案二:半手動 新增文字檔,儲存(粗體字內容) Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run] "CJIMETIPSYNC"=- 另存成副檔名為reg後,點選兩下執行,完畢後重開機

移除微軟輸入法2007

當「舊」軟體跟「新」輸入法不合的時候,就苦了程式設計師,要讓它新舊相容阿~~ ================= 新舊不容分隔線 ================= 如何移除「微軟新注音輸入法2007版」 1.點選「開始」→「執行」 或 開啟命令提示字元(cmd) 2.輸入 msiexec.exe /X {90120000-0028-0404-0000-0000000FF1CE} 如何移除「微軟拼音輸入法2007版」 1.點選「開始」→「執行」 或 開啟命令提示字元(cmd) 2.輸入 msiexec.exe /X {90120000-0028-0804-0000-0000000FF1CE}

影音播放 - Full Player

圖片
射手影音用了很久,很方便的可以從網路上下載字幕,可惜的是不知道是不是很久沒更新了,開啟時很容易沒有回應... ================= 變心的分隔線 ================= 找到 Full Player 一樣可以自動連線下載字幕,感覺跟射手影音相似... Download Link :  http://www.fplayer.net/download.html

Excel VBA---使用EXCEL連接ACCESS資料庫

最近不知道在想什麼,每天都在沒認真上班... ========= 開心的分隔線 ========= 使用EXCEL連接ACCESS資料庫 需要先引用 Microsoft ActiveX Date Objects X.X Library,下段程式碼才能成功執行 Dim Conn As New ADODB.Connection, connstr As String, rs As New ADODB.Recordset connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Data.mdb;Jet OLEDB:Database Password=123" Conn.Open connstr 執行SQL指令 Dim sqlstr As String sqlstr = "SELECT * FROM master AS a LEFT JOIN detail AS b ON a.id=b.id GROUP BY a.id, currency_note" rs.Open sqlstr, Conn, 1, 3 讀取資料 If rs.EOF And rs.BOF Then MsgBox "沒有資料" Else Dim j As Long j = 1 Do Until rs.EOF For i = 0 To rs.Fields.Count - 1 Worksheets("Sheet1").Cells(j, i + 1).Value = rs(i) Next i j = j + 1 rs.MoveNext Loop End If