pc23th 電腦學習

難度：easy 地圖：高等精靈 守備：下路 ========== 賣掉水藥 買200    企鵝 買500    回血戒 買500    回血戒 ======= 買300    企鵝升鳥 =====猛禽鎧甲===== 買500    回血戒 買150    藤蔓護肩 買150    藤蔓護肩 買750    猛禽鎧甲 買750    猛禽鎧甲 =====死霸裝===== 買775        鐵劍 買1650      武士刀 買550       女神的祝福 買1500     合成書 =====死霸裝===== 買775      鐵劍 買1650    武士刀 買550      女神的祝福 買1500    合成書 =====猛禽鎧甲===== 買150      藤蔓護肩 買750      猛禽鎧甲 =====死霸裝===== 買775      鐵劍 買1650    武士刀 買550      女神的祝福 買1500    合成書 ========= 全合死霸 留最後一格，看錢多少再做決定 =========技能========= 技能以第三技為主，第一技為輔

            UBTmp = UBound(arr_Tmp, 1)              LBTmp = LBound(arr_Tmp, 1)             For j = LBTmp To UBTmp - 1                 k1 = Application.Large(arr_Tmp, j)                 k2 = Application.Large(arr_Tmp, j + 1)                 If k1 <> k2 Then                     str_k = str_k & k2 & ","    '值寫成字串                 End If             Next j         '再將字串轉換成陣列，成為不重覆資料             str_k = Application.Large(arr_Tmp, 1) & "," & str_k             len_Str = Len(str_k)             ReStr = Left(str_k, len_Str - 1)             arrStr = Split(ReStr, ",")

   function 使用after  '初始值         Dim intStar_Rng As Integer, Str_ShtBase As String,All_Ball as integer         All_Ball =39         intStar_Rng = 6         Str_ShtBase = "基本分佈圖"         strBall = Fn1_取得球號字串(All_Ball)     '變數設定         Dim ShtBaseImg As Object         Set ShtBaseImg = Sheets(Str_ShtBase)     '         With ShtBaseImg             lLastRow = .Range("A" & Cells.Rows.Count).End(xlUp).Row             Set Rng = .Cells(7, 3).Resize(lLastRow - intStar_Rng, All_Ball)             'Debug.Print Rng.Columns(1).Address             For j = 1 To All_Ball                 Result = Application.CountA(Rng.Columns(j))                 Dim arrTab                 ReDim arrTab(1 To Result)                 For i = 1 To Result                     If i = 1 Then                         Set S_Rng = Rng.Cells(1, 1)                     Else                         Set S_Rng = tmpRng                     End If                     Set tmpRng = Rng.Find(what:=strB

<h2 style="font-family:yui-tmp;">Samsung Galaxy S II 褲袋自焚, 險傷命根子</h2> 發表時間：2011/12/06 分享 <dl class="noimg"><dd> 上星期先有新聞報導過 iPhone 4在澳航飛機的新聞，沒料到接下來就爆出Samsung Galaxy S II 的同類新聞。 一名外國網友於討論區貼相留言，指出朋友剛新買兩週的Galaxy S II於褲袋內自焚消息。據網友Silly22表示，險被炸傷命根子的朋友起初聽到褲袋傳來聲音，然後於腿間感到燃燒的熱力，朋友從褲袋取出所有物品，赫然見到待機中的Galaxy S Ii正在冒煙 透過相片可以見到電池和SIM卡位置燒至焦黑 </dd></dl> <dl class="cimg"><dt> </dt><dd> </dd></dl> <dl class="cimg"><dt> </dt><dd> </dd></dl> <dl class="cimg"><dt> </dt><dd> </dd></dl> <dl class="cimg"><dt> </dt

手機有連上網，但是無法開網頁 方案1：更改無線AP主機裏面的SSID名稱，手機重新連線，之後再改回原來設定即可

進IE工具 -> 網際網路選項 -> 進階 -> 重設 這樣就ok了

夏娜 [技能] W為主、R一級、E為輔 [裝備] ==================== 賣掉水藥 買企鵝=$500 買回血戒+回魔面具=$950 ==================== 升級鳥$300 合成卓越之戒=$800 ==================== 水晶魔杖$1650 強弓$1650 武士刀$1650 ==================== 水晶魔杖$1650 強弓$1650 武士刀$1650 ==================== 符文杖$775 月之弓$775 鐵劍$775 剌蛇之爪$1850 無名之指(書)$2250 ==================== 符文杖$775 月之弓$775 鐵劍$775 剌蛇之爪$1850 無名之指(書)$2250 ==================== 早期殺法師、女妖 有E技就先放，再W技，衝進後就砍血少的，不要打肥肥 把握每次的攻擊，不要太衝動(W技後接著放D，有時會發生W技加速失效，要注意) 一定要等到CD滿了再攻擊 時間抓的好，就不會用到D技 [W技1級] 以殺一隻就好，不要貪 怪多會，進得去出不來，(角色血少防少攻擊力弱) [W技1級、E技1級] 初期怪(法師、女妖)約1/2的血，就有機會 血少的怪殺光就好 先E再W，等加速結束後，再按D，清血少的怪，如果沒有就離開，等下一次CD [W技1級、E技1級、R技1級] ==分隔線====分隔線====分隔線====分隔線====分隔線====分隔線====分隔線====分隔線== 0212/02/12 筆記補充 換另一個玩法，比較耐打 賣掉水藥 買智識神木杖$975 買企鵝$300 企鵝升級$200 =======穿梭之戒======= 買回血戒$500 買鞋子$350 買時光之石$500 =======鋼爪=========== 買強弓$1650 買強弓$1650 水晶魔杖$1650 武士刀$1650 水晶魔杖$1650 武士刀$1650 ======聖武士之章====== 符文杖$775 月之弓$775 鐵劍$775 =======無名========== 剌蛇之爪$1850 無名之指(書)$2250 ======聖武士之章====== 符文杖$775 月之弓$775 鐵劍$775 =======無名========== 剌蛇之爪$18

賣掉所有藥水，買一個回魔、企鵝+升級 最快升攻擊力 狙擊之弓*3=2975*3=8925 合聖武士之章 =773*3

1、行動電源跟充電器做在一起，優缺點？       ZAGG 6000MA大容量外接電 1580 元       Y拍! ZAGG 6000MA 990元，運費49元       這種鋰電池，能把電釋放光嗎？它說長期不使用要釋放光，怪怪的？       2、容量多大才夠用？ 3、需要使用大安培的嗎？ 4、 使用 Panasonic 3100mAh全新18650鋰電池 當行動電源的優缺點？       Q:電池一個220 元、至少也要買四個、不同容量一起充沒問題吧？      高速萬用充電器 四充680元      Sapido MB-1112 分享器 +行動電源，優缺點？       Q：可充筆電、ipad嗎，輸出只有0.5A？      11200mAh 大容量移動電源     $1200元      Y拍! ZAGG 6000MA                $900元      RB-1132 V2   $1080元      行動電源必需要有的功能         要有1A輸出跟0.5A輸出         至少要5000mAh以上              目前評估      分開買比較好，原因是                  ZAGG 900元一個，而且不用再買充電器          18650鋰電池，帶得多收納就麻煩          目前，三號電池，跟四號電池，使得的多，但是用量不大，多半是遙控器使用。          所以分享器要買分開的不要買 MB-1112一個就要3090元          目前來說，不需要3G上網，如果要用再買吧，以後會出更好的，3C的東西一向如此          MB-1112看似完美，但是卻沒機會用，如果只拿來當行動電源，就太浪費了          ZAGG($900) + RB-1132V2($1080) ，也不到三千元就搞定了，只差一個3G上網，但是智慧型手機都有這個功能

選第二張圖，難2 第二版本出裝順序 ================ 1、賣掉回血、回魔藥水 2、買$200企鵝 + $300 升級 ================ 3、買$1000 裝甲靈氣 4、買$1000 攻速靈氣 5、買$1000 移動靈氣 6、買$1000 傷害靈氣      合成號角 ================ 7、買$1000 攻速靈氣 8、買$1000 移動靈氣 9、買$1000 符文書      狂氣之印(嗜血術8秒)      主要是降低魔法攻擊20% ================ 10、買$1500 魔鎚 11、買$1650 強弓 12、買$1500 紅櫻合成書        減7防 打炎魔用 ================       測試閃避 13、買$550*3  銀月寶石(閃避+5%*3) 第一版本出裝順序 1、只買鳥，選下路 2、[紅櫻]                         =1500(鎚子)+1650(強弓)+1250(合成書) (打炎魔就會快一些) 3、[雷切]                         =250(快速手套)+1650(強弓)+1600(合成書) 4、[貓耳]                         =高貴飾環+卓越之戒 6、[Di-Sword]                  =貓耳+1850(剌蛇之爪)+1200(合成書) 以下裝備，還沒測試出裝順序 0、[鐵碎牙]                      =2975(狙擊之弓)+2325(聖武士之章)+1500(合成書)=6800                                         (狙弓=775+1650+550，聖章=755+755+755) 0、[Sakuya's Spell Card] =女僕裝+穿梭之戒 0、[死霸裝] 0、[女子制服] 假設1：    女王如果用四刀流勒？(回血可能不夠快)   四刀流=[紅櫻]+[雷切]+[Di-Sword]+[鐵碎牙或鋁棒]   防具   =死霸裝+女子制服 假設2：   女王以攻擊為重，出裝順序就要改   鐵碎牙+雷切+Di-Sword+鋁棒   鋁棒會比紅櫻好嗎？   鋁棒裝甲加10，死霸裝裝甲加10 取捨裝備：    [死霸裝]

一，變數資訊，變化 二，模組名稱

P185，P186 範例中有二個方法，結果都是一樣的 用Resize的方法，更簡單快速 Resize的表示方式為，.cells(x1,y1)，為開始的儲存格，加大成為 .range(.cells(x1,y1),.cells(x2,y2)) x1=6 y1=1 x2=1 y2=5 範列1 ShtTmp.cells(x1,y1).resize(x2,y2)=arr_Data 範列2 y2=ubound(arr_Data,1) with ShtTmp      .range(.cells(x1,y1),.cells(x2,y1+y2))=arr_Data end with 整列範例 ShtTmp.Columns("H:H").Resize(1, 10).ColumnWidth = 2.33

RANK 函數是 求某數字在指定範圍內之順序的函數 ( 統計函數 ) 。 ※格式： RANK( 數值，範圍，順序 ) RANK 函數在求順序時的排列方式可以按由小而大或按由大而小的順序排列。求由大而小的順序時 ( 排名次且同分同名次 ) ，「順序」指定「 0 」（也可以省略，不指定）；求由小而大的順序時，「順序」指定「 1 」。 ※成績單中公式： RANK(K5,$K$5:$K$38) 與 RANK(K5,$K$5:$K$38 ， 0) 相同

Function 字串轉陣列() Dim arr_tmp     StrCell = "37,"     intVar = Len(StrCell)     Re_StrCell = Left(StrCell, intVar - 1)     arr_tmp = Split(Re_StrCell, ",")     For i = 0 To UBound(arr_tmp)         Debug.Print arr_tmp(i)     Next i End Function

Fn3_取近期樣本號 = arr_DrawResults 明明是這樣寫啊？ 怎麼又會出錯勒？ 這邊沒錯 錯誤出在 i 跟 j arr_DrawResults(i,j)=k

很強的一位角色 ， 筆記修改日期 2012/02/03 Sakuya's Spell Card 以下簡稱 閃裝 ☆ 利用分身喝水不減道具，天使第六級之後存錢買1050的藥水 ☆ 本尊要有個卓越之戒 ☆ 技能以第三技為主，第二技為輔，第四技次要，第一技最後 ☆ 分身雖然會吸經驗值，但是錢更重要 ☆ 第三技開的時機，是進了法師堆裏，看到怪轉向攻擊天使，才同時開三，二技 ☆ 裝備不強，不打肥肥 ☆ 難度easy，有貓耳會容易一點(但是打王不需要貓耳) ☆難度heaven，卓越之戒+穿梭之戒 ☆ 先有二個鋼爪，再合成無名 水晶魔杖→強弓→武士刀(ps:水晶魔杖的優勢，魔比較多 ☆ 二個無名之後，再合號角、再來是閃裝，剩下的錢再思考要合什麼，(女子制服、無名、雷切、紅櫻) ☆ 打笨蛋，最基本的東西(無名*2 + 閃裝  + 水瓶)，(有$4000合號角，有$11350合無名) 《裝備》 ===================== 企鵝$200 回血戒   $500 升級鳥   $300 =======穿梭之戒======= 買回血戒$500 買鞋子$350 買時光之石$500 快六級存錢買1050 =======卓越之戒======= 回魔面具$450 卓越之戒(書)$800 =======鋼爪=========== 買強弓$1650 買強弓$1650 水晶魔杖$1650 武士刀$1650 水晶魔杖$1650 武士刀$1650 ======聖武士之章====== 符文杖$775 月之弓$775 鐵劍$775 =======無名========== 剌蛇之爪$1850 無名之指(書)$2250 ======聖武士之章====== 符文杖$775 月之弓$775 鐵劍$775 =======無名========== 剌蛇之爪$1850 無名之指(書)$2250 ==================== 單人過 Heaven 過關條件： 地圖：高等精靈、難度：Heaven、 先打上路，第一波王出來的時候，也差不多是快六級，要存錢買1050藥水 ☆ 第一波的小王打死後，趕到下路(這時要有1050的藥水)，利用分身喝水優勢，清掉下路的怪 ☆ 之後就守中間，   ╔使用第四技分身(分身開技能、技能熱鍵REW)喝水打怪，   ║將分身跟本尊設定一組熱鍵，用TAB切換監看，分身沒血喝

好像還不錯用，乾乾淨淨的 買個鐵力士架，來放主機，跟印表機 150*60*30 要注意事項，管柱為插銷式、管柱直徑2.54，網片2.54孔、30*60、管柱45+45+60(這樣才有辦法收納) 所以，最好是同一家買的，才不會買了不能用

http://www.dlinktw.com.tw/support/faq_view.asp?sno=HIFIIMLH

由於Columns("G:G")，只能以英文字寫法 利用Offset，可以達到重覆性的設定

你一定想不到，帳號密碼都對了，怎麼無法連線 因為， 它不能按登入鍵 要使用虛擬鍵盤上的 done ，搞了四個小時才發現 心得∶超幹的

Buffalo G300N 比sapido好太多了 sapido，RB-1732設定後重開機，超久，久到你覺的可以睡一大覺 巴比祿，只要14秒，有時不到14秒，超快的

http://www.tp-link.com.cn/pages/article-detail.asp?result=school&d=192 TL-WR700N设置指南（三）——Repeater模式 Repeater模式利用设备的无线接力功能，实现无线信号的中继和放大，并形成新的无线覆盖区域，最终达到延伸无线网络的覆盖范围的目的。其组网模式如下图： 在图中假设电脑A和B要访问Internet，可是 TL-WR941N 的信号无法到达电脑A，此时我们可以在中间加一个 TL-WR700N 对 TL-WR941N 的信号进行中继，从而实现电脑A和B可以访问Internet。我们可以把 TL-WR700N 设置为对 TL-WR941N 的中继，具体配置过程，请看以下步骤。 一、 TL-WR941N 的配置 TL-WR941N 作为无线信号源，默认已经连接上Internet，下面主要配置无线相关的参数。 SSID ：SSID即无线网络的名称，进入 TL-WR941N 管理界面（默认是192.168.1.1）。点击“运行状态”，查看设备“无线状态”，记下无线网络的SSID号（本例为 TP-LINK_2026BC ）以及无线状态的MAC地址（本例为 E0-05-C5-20-26-BC ），如下图所示： 无线加密 ：即 TL-WR941N 的无线加密方式，目前主流的加密方式是“WPA-PSK/WPA2-PSK”，加密算法建议选择“AES”，点击“无线设置”——“无线安全设置”，查看PSK密码（本例为： 12345678 ），如下图所示： 二、 TL-WR700N 的配置 步骤 1 ： TL-WR700N AP模式下默认不开启DHCP服务器，不能为电脑自动分配IP地址，所以还需要配置电脑无线网络连接的IP地址，才能登陆路由器的管理界面。将电脑无线网 络连接IP地址设置为192.168.1.X（1≤X≤252），子网掩码设置为：255.255.255.0，如下图所示。设置完成之后，点击“确定” 生效。 TL-WR700N 默认管理IP地址“ 192.168.1.253”。 注意：电脑 IP 地址配置方法可以参考如下链接： http://www.tp-link.com.cn/pages/article-detail.asp?result=school&d=72 电脑有线

<h1>豪威供貨iPhone 4S 證據說話</h1> 更新日期: 2011/10/11 05:30 記者涂志豪／台北報導 工商時報【記者涂志豪／台北報導】 蘋果新款智慧型手機 iPhone 4S採用了800百萬畫素CMOS影像感測器，但有關感測器晶片供應商是豪威（OmniVision）還是索尼（Sony）？再度成為市場討論焦點話題。 而根據國外研究機構調查後指出，蘋果在記者會中指出iPhone 4S的解析度達3264x2488，只有豪威的OV8830晶片解符合此一解析度規格，索尼的IMX105PQ晶片則是規格不符。 蘋 果iPhone 4S雖被市場認為是「換骨不換皮」，但升級的硬體規格仍具有一定程度的市場吸引力，如A5雙核心應用處理器能夠提高雙倍的運算速度，雙模基頻晶片可讓 iPhone 4S在GSM/CDMA雙系統中自由切換，至於800萬畫素CMOS感測器及防手震功能，則讓蘋果的新款手機有機會蠶食中低階數位相機市場。 只不過，蘋果iPhone 4S的CMOS影像感測晶片供應商是豪威還是索尼，隨著新款手機發佈後，市場再度掀起論戰，然而根據國外研究機構調查後發現，豪威看來不僅是iPhone 4S的CMOS感測晶片最大供應商，還可能拿下高達9成以上的訂單。 蘋果在iPhone 4S記者會中，宣佈新款手機支援3264x2448解析度，採用的是最新背面照度（BSI）技術，並支援每秒30格的1080p高畫質攝像功能。 然而分析豪威及索尼的CMOS影像感測器晶片規格後，可以清楚發現，索尼應用在智慧型手機中的800萬畫素CMOS影像感測器晶片IMX105PQ，解析度是支援3288x2472，明顯與蘋果宣佈的解析度不符合。 至於豪威最新推出CMOS感測器晶片OV8830，支援3264x2448解析度則與蘋果宣佈資料完全相符。可證豪威才是蘋果iPhone 4S CMOS影像感測器最大供應商。

文章引用： http://tw.tech.yahoo.com/apple_mobile/article/id/19658/ 直擊iPhone 4S的厲害之處 發表時間：2011/10/05 作者：黃慧雯 分享 <dl class="cimg"><dt> </dt><dd> 全世界引頸期盼的新一代iPhone已經在台灣時間10/5凌晨一點正式發表，Apple執行長Tim Cook帶我們一起來談談的iPhone，其實原來是iPhone 4S。那麼iPhone 4S究竟比他的兄弟iPhone 4強在哪呢，咱們一起來瞧瞧吧！ </dd></dl> <dl class="cimg"><dt> </dt><dd> <h4>硬體大升級，A5處理器效能快兩倍</h4> iPhone 4S與前一代iPhone 4最大的差距就在於搭載了A5處理器，相較於A4處理器，A5能提供兩倍的處理速度、兩倍的下載速度、七倍的圖形處理速度，所以可以預期的是，使用iPhone 4S的上網經驗以及各樣的娛樂體驗，將會更加的令你喜悅！ 此外，相機部份也由500萬畫素升級到800萬畫素，並且還支援人臉辨識功能，與1080p，30fps的錄影能力，這些搭配上Retina高解析度螢幕的呈現，相信iPhone 4S將成為繼iPhone 4之後，將在Fliker上頭人們最喜歡拿來拍照的相機。 </dd></dl> <dl class="cimg"><dt> </dt><dd> <h4>Siri，你最

http://tw.news.yahoo.com/article/url/d/a/111008/135/305mg.html 歐盟批准 微軟以85億美元收購Skype新頭殼  更新日期:2011/10/08 13:02 NewTalk 新頭殼 新頭殼newtalk 2011.10.08 謝莉慧/綜合報導 歐洲聯盟反托辣斯官員今(8)日通過美國科技業巨擘微軟 以85億美元 收購網路電話服務公司Skype。 微軟是在今年5月10日宣布將以85億美元現金收購Skype，而在微軟證實包括Google 等也開始經營與Skype功能相似的Google talk服務後，美國聯邦通訊傳播委員會(FTC)就已經在6月批准了這項交易案。 歐盟執行委員會（European Commission）在聲明中表示：「這項交易不會嚴重阻礙單一歐洲市場的有效競爭」。 法新社報導指出，歐盟 官員表示：「調查發現，在消費者通訊的領域上，兩方營運活動主要重疊部份是在視訊通訊，其中微軟是透過Windows Live Messenger執行。」而執委會也認為，在此快速成長的市場中，充斥著包括Google在內等多家競爭者，沒有競爭的憂慮。 《金融時報》之前也分析表示，歐盟會同意這項收購案，應該是歐盟與微軟關係趨緩的跡象。 目前Skype有約1億7千萬用戶，這些使用者之後也可以透過搭載微軟視窗作業系統的手機或是遊戲主機Xbox 來跑Skype。

http://buy.yahoo.com.tw/gdsale/gdsale.asp?gdid=1326870&act=gdsearch 85M電力線網路無線分享器 PR-1108(源頭)之後都是買PA-1108

ARGtek 最新超猛 穿牆王升級版 無線AP Router   ‧ 完整支援 IEEE 802.11b/g/n 無線網路規格 ‧ 多種模式 AP/Bridge/Router/WDS ‧ 附贈 2支超強5dBi 全向性天線， 訊號無死角免除額外採買安裝的程序 ‧ 高安全性，支援WEP加密、WPA加密WEP encryption (64/128 bit)/WPA TKIP/WPA2 AES/WPA2 mixed ‧ 輕鬆架設網路節點，大幅度節省成本 ‧ 台灣製造外觀優美安裝方便品質保證 (非一般網路市售組裝品) ‧一機多功能將 Wi-Fi 無線網路的應用發揮到淋離盡致 ‧絕對是室內隔間及上下樓層大範圍無線訊號覆蓋之最佳解決方案 史上超高的功率 1000mWx2  比市售強10倍 4層樓共用基地台(可選擇AP/Clinet模式) 一台可以涵蓋4層樓的AP/Router 讓每一樓都可以無線上網 一組ADSL費用整棟樓上網    讓你省錢省省省 !!!! 實測穿牆訊號品質所向無敵!!! ......................................... 本人去光華測試的結果， 手機：sansung i9100，基地台：光華五樓電枎梯轉角 在正上方的六樓，跟正下方四樓，是收不到訊號 同一樓層走到後面一些，也收不到訊號 是手機的問題，還是基地台的問題 穿牆王？一層都不行，穿木板牆？現在有木造的高樓？ 如果用手機收訊號會弱一點，那麼這樣一來， 穿牆就沒意義了，收得到但無法回傳訊號，一樣是無法使用

使用具有WDS功能的無線基地台，就能夠同時建置多部在不同區域，例如不同房間、樓層，開啟WDS設定後，這些基地台就能串成相同的無線區域網路，而網路設備就能使用訊號較佳(距離較近)的基地台連線。 WDS必須有以下設定： 使用具備WDS功能的AP 設定一樣的SSID 使用相同的頻道(Channel) 設定同樣的Wireless MAC Address 使用相同安全機制設定 [[ 什麼是WPS？ ]] WPS是Wi-Fi Protected Setup的縮寫，是完成連結無線網路設備與安全性設定的規格。無線網路相關組織決定規格給WiFi聯盟，並自2007年1月開始他們接受支援規格的產品 測試鑑定。支援WPS的無線網路裝置不需要任何複雜設定，使用者可以輕鬆完成連線設定。

文章來源：Epson 原廠推出連續供墨印表機   打電動為了省要改機，印表機為了省也要改機，每次看到光華商圈一堆代客改機或是賣副廠墨水的店家，心想利潤真的有那麼高嗎？不然為什麼大家 都在做。但改機問題多，容易漏墨或是噴頭阻塞……所以現在Epson推出新的商用連續供墨機種，幫你解決高印量問題。一樣是改機，至少選有原廠保固的卡 好。 印表機改機，早期常見的方式是破壞墨水匣，用打針的方式補充墨水，加太少印沒2張就要補，加太多又把整台機器弄得髒兮兮，後來則進步為連續供墨將填充墨瓶 外接，不過還是會有需要Reset墨水匣或管線破裂漏墨問題，反正不管怎麼改都有不同的毛病出現。市場上副廠改機的作法大多是侵入式破壞，這種做法也等於 是放棄原廠保固，如果代改的店家技術差，還會有印表機蓋子蓋不上的問題。 對於印表機廠商而言，賣印表機早已經沒有利潤，而買耗材才是能賺錢，但耗材昂貴問題的成了消費者改機的誘因，改機問題多是要怪機器爛還是改機技術差。這個 問題看似小，可是卻讓印表機廠商相關苦惱，所以乾脆原廠自己推連續供墨。目前Epson的連續供墨機共有3款L100、L200和L800，差別在 L200是複合機多了掃瞄功能，L800是相片專用機墨水與一般不同。 重點規格說明 </dd></dl> <dl class="cimg"><dt> </dt><dd> ▲L100的機身是T22 * 最大解析度：5760 dpi * 最小墨滴量：4pl * 墨水匣設計：4色分離 * 黑白文件列印速度：約每分鐘27頁（草稿模式） * 彩色文件列印速度：約每分鐘15頁（草稿模式） * 全彩影像：約每張約66秒（草稿留邊模式），約每張約92秒（草稿無邊模式） * 體積：487 x 228 x 135 mm * 重量：2.8 kg * 建議售價：新台幣6,490元 </dd></dl> <dl class="cimg"><dt> </dt><dd> ▲L200的機身是TX120 *

多二位新角色 召喚BLACK★ROCK SHOOTER 主要屬性：靈活 召喚賢狼 主要屬性：智慧 Zero的面具     效果：         +10智慧         +200生命值         +80法力上限         控制敵方部隊     需求：         高貴飾環、長袍 殺生石     效果：         +200生命值         +50法力         +6裝甲         召喚林地之狼         需求：         高貴飾環         銀月鎧甲         時光之石 名乃的時     效果：         +50傷害         點石成金     需求：         魔槌         聖光盾 或 正義之拳

P.186 由於，countif 函數不能直接使用陣列參數，所以一般於工作表範圍的統計。 但是對於二維陣列中比較複雜的統計，恰當地使用輔助範圍和countif函數可以使程式碼更為簡潔 若要使用countIf，只能將陣列放進輔助格 可以搭配resize使用

1，寫排班系統，但是，遠端的伺服器，要如何做？ 2，寫記帳軟體

中國人的手型並不大，很多廠商卻都是用大手去做滑鼠的外型 小手拿大滑鼠，會造成無名指跟小指之間的酸痛， 並且會使手肘跟肩膀酸痛 很多大廠卻都做很大，測試的人，都是外國人size嗎？ 滑鼠的寬度，長度，高度，都會影響手的疲癆，會影響使用的時間 真想自己做一個真正適合的滑鼠

雙飛燕g800，x760 $1690元

  測試文章在→老貓測3C 鍵盤 G800V     網路價 $990元 899 鍵盤 G-700      網路價 $539元 滑鼠 X-760H    網路價 $809元 799 滑鼠 X-718BK  網路價 $809元 A4雙飛燕館 的客服專線 0800-888-076

是否該買七吋平板? Galaxy wifi 5吋 1、電源設計右上不好,容易誤按 2、鍵盤也太小,如果用藍芽鍵盤,不知會不會好一點(ps:最好不要用藍芽) 3、整體用起來的感覺,還不會太差,可能是要習慣吧 4、為什麼會想要,有打電話功能(ps:目前感覺是不需要打電話) 5、如果都只是打字,寫日記,不看新聞網頁,那麼,四寸手機,也許更方便攜帶 6、i9100螢幕更清楚 7、五吋拿久手會酸 8、週邊支援少 i9100手機入手後，覺得舊的比較好用 1、電池蓋，不放便置回，常使用，好像很容易壞掉 2、記憶卡，要拆電池蓋才能拿掉，電話卡也一樣 3、本來想綁約上網，可是發現用不到，到處都有網路 4、當初想使用手機功能，打電話，後來發現，一點都不需要 5、i9100是螢幕比較清楚，速度也快很多，打字的時候，就有差一些態 6、播放影音的時候，顏色失真太多，而且太暗 galaxy wif4.0 1、除了速度太慢，螢幕太小，只能當note，不能用來播放影音 粗略整理我需要的功能： 1、播放影音不lag 2、不需要打電話 3、寫blog、看新聞、股票、隨身筆記 4、CPU速度要快，最少也要1.2G(用過1.0G，真的是太慢了) 5、拿取記憶卡，最好不需要拆蓋子，最好是跟wifi 5.0一樣 三星要出新的了 Galaxy Note 跟 7.7吋，這次CPU就夠快了 手機王按此連結 SAMSUNG GALAXY Note 功能特色 ◎ 5.3 吋 Super HD AMOLED 電容式觸控螢幕、1,280 x 800pixels 螢幕解析度 ◎ 採用 Android 2.3.4 作業系統 ◎ 內建 SAMSUNG Exynos 4210, 1.4GHz 雙核心處理器 ◎ 內建 1GB RAM ◎ 800 萬畫素相機 ◎ 200 萬畫素視訊鏡頭 ◎ 支援 1080P Full HD 影片錄製 ◎ 可透過 microSD 記憶卡擴充、最高至 32GB 記憶體容量 SAMSUNG GALAXY Tab 7.7 功能特色 ◎ 7.7 吋 Super AMOLED Plus 電容式觸控螢幕、1,280 x 800pixels 螢幕解析度 ◎ 採用 Android 3.2（Honeycomb）作業系統 ◎ 內建 SAMSUNG Exynos 4210, 1.4GHz 雙核心處理器 ◎ 內建 1GB

excel 變數命名後，很難直覺找到變數跟function\ 所以要利用，標題尋找vba 中的F2功能 再將模組命名成直覺式的名稱 每個模組都是會產生一個工作表，以這樣的分類為大綱 再去規劃裏面的function

使用find 去找值，再減去row，一樣可以求得位子 '初始值     S_Rng=3        '開始位子 '程式開始 set getVal= TmpRng.Find(what:=chkVal, lookat:=xlWhole) Show_Rng= getVal.Row - S_Rng

function 將array值_塞入儲存格() '初始值     Con=10 '變數設定     set ShtTmp=Sheets("sheets1") '程式開始     dim  arr_Val     redim arr_Val( 1 to Con, 0 to 0)    '第一維是y軸，第二維是x軸     for i=1 to Con         arr_Val(i)=i     next i     with ShtTmp        .range( .cells(1,1), .cells(Con,1))=array     end with end function

http://popo.youthwant.com.tw/sh.php?id=33004278&member=af000013200 一個從小聾啞的女孩,懷揣著音樂的夢想長大,卻經常遭受姐姐的不屑與打擊。正當她對自 身的價值產生疑問的時候，一個流浪藝人告訴她：音樂，只要你閉上眼睛，就能看見。 兩人同時入圍音樂節，由於嫉妒和害怕，姐姐在比賽前僱人摔壞了妹妹的小提琴，打傷了一 直在教導妹妹的流浪藝人。 自以為陰謀得逞，但是妹妹仍然出現在比賽現場，飛揚的卡農從殘破的小提琴中破繭而出， 震動了所有人的心。這是一部相當完整的濃縮版電影，伏筆，發展，轉折，高潮，典型的人 物性格，激烈的矛盾衝突，可以說一切符合戲劇的元素都在本片中一一呈現。 開場的悲劇化色彩濃烈，聾啞的小女孩和落魄的流浪藝人同樣都是悲劇的代表人物。而最後 的高潮運用了很多意象化的景物，曠野，蝶化，朝陽，都預示了一個新的方向。 極具衝擊力的運動鏡頭，充滿情緒化的蒙太奇剪輯手法，和引導人物命運的卡農樂曲，都給 這部影片賦以激昂的史詩感。 片子雖然是潘婷的公益廣告，但與宣傳的商業主體已無多大關係了，全片揭示的是一個勵志主題： 在困境中仍然能保持積極樂觀的人，才是一個真正的強者，這個廣告折射人生，最喜歡裏面聾女和那個賣藝老人間的對話：　　　　　 為什麼我和別人不一樣？　　　　　 為什麼你必須和別人一樣？

本篇文章引用自此 問了一個結婚很久的朋友：當初妳老公是怎麼跟妳求婚的呢? 我認為這一向是女人的夢想也是女人一生的回憶 「有跪著嘛?」我忍不住的問 「沒有」她笑著回答 「那有鑽戒嘛?」我晃著頭問 「也沒有」她伸出空空的手還是笑著 「那玫瑰花呢?」我皺著眉再問 「嗯…也沒有」 「蛤..那他沒有跟妳求婚ㄛ」我不可思議的鬼叫 「算是吧」她點了點頭 「那妳幹嘛要嫁給他ㄚ，妳一定是被他騙了」我有點不能相信，卻只見她笑笑的慢慢的說 有一次在我們要去台北的路上下起了大雨，騎機車的我們不小心滑倒了，在跌倒的下一秒鐘他 不是先看自己的傷勢也不是去牽滑出去很遠的機車，我只聽見他瘋狂的問我「傷到了沒?疼不 疼?有沒有事?」 他仔細的檢查了我的手和腳，確定了只有小擦傷後才慢慢冷靜下來， 他扶我到旁邊站好等他，我看他一跛一跛的走到車子滑出去的地方， 我跑了過去發現他的腳早已流滿了血。 是ㄛ….我聽完她說的話，覺得有點感動 這是最真實的，妳很容易發現妳在他心目中的地位這就夠了 「還有ㄌㄟ，只有一件事還不夠ㄚ」 「很多人不是說男人婚後都會變了嘛?」我嘟著嘴說 她聽到我的問題又是一笑「還記得我生寶寶的時候，他重頭到尾都在身邊陪著我，我一直罵 他、捏他、咬他，他卻都只是握著我的手，給我力量叫我別怕…」 「就這樣ㄚ，這是應該的ㄚ」 「後來我發現他的手上全是黑青和抓痕，他一句抱怨的話都沒有，還說和我比起來這些只算是 小痛..」 「是ㄡ」聽完她說的話，我想或許這些比物質上來的重要許多 「那他會常說甜言蜜語嘛?」 「不會..呵..他從沒說過愛我的話」 「這樣ㄛ…一點也不浪漫」 「愛不是掛在嘴上的…他從沒讓我吃過苦，總是小心翼翼的把我捧在手心裡，夜裡常怕我冷、 怕我熱，起來幫我蓋被、幫我擦汗，好吃的東西也總是留給我，騙我說他吃過了，他證明了一 件事，愛！不是用說的」 說著說著我發現了她的眼睛裡有了些許淚光… 後來有一次在路上遇見她和她老公，兩人似乎為了手上大包小包的購物袋起了爭執，我走近注 意聽了一下… 「就跟你說我拿嘛」我那朋友說著 「ㄚ就跟妳說不用！我拿就可以了ㄚ」她老公也說 「唉ㄚ！沒人拿那麼多東西走路的啦！很奇怪ㄝ」 「哪有什麼好奇怪的」 「很丟臉ㄚ！」 「我不會覺得ㄚ」 「我下次再也不跟你出來買東西了啦！」 「不買就不買」 他們倆人似乎為了拿東西而吵架，我朋友氣的走在前頭，而她老公提著大包小包緊跟在後

<h1>短短2年 蘋果創下8大殺人事件</h1> 更新日期: 2011/08/31 15:25 文／王毓雯 8月9日，蘋果市值才超越石油公司艾克森美孚，成為全球市值最大的上市公司，靈魂人物賈伯斯卻閃電辭任執行長，給全球科技界拋出震撼彈。然而，若你以為賈伯斯的去職，是蘋果時代的終結，你就錯了！ 短短不到5年，蘋果旋風式引爆智慧型手機與平板電腦風潮，現在，台灣的業者，面對蘋果的崛起與賈伯斯的離職，都不敢掉以輕心。因為蘋果帶來了全新的後PC時代，逼得台灣電子業，面臨做出改變的關鍵時刻。 2年內，蘋果8大殺人事件整理如下： 1.諾基亞市值暴跌8成 原因：蘋果推出 iPhone 智慧型手機 結果：全球第3大手機製造商樂金面臨4年來首度鉅虧，2010年虧損約新 台幣 172億元。龍頭諾基亞跟2007年高峰相比，今日市值已暴跌85％ 2.惠普撤出PC事業 原因：蘋果力推平板電腦，威脅筆記型電腦和桌上型電腦市場 結果：PC龍頭宣布計畫出售PC事業，並放棄原有的webOS平板電腦和智慧型手機業務 3.任天堂淨利下滑 原因：蘋果結合觸控螢幕和軟體商店，將 iPad和iPhone打造成平價遊戲平台 結果： Wii 推出以來，2010年任天堂首次出現獲利 負成長 ，下滑19% 4.EMI唱片虧損近千億 原因：蘋果鼓吹數位音樂，導致實體音樂CD銷量急速下滑 結果：全球前3大的EMI決定不再對獨立唱片通路發行實體CD，2009年稅前虧損約新台幣830億元 5.美第2大書店破產 原因：蘋果推iBookstore，消費者可在iPhone和iPad上直接購書閱讀 結果：受蘋果、亞馬遜（Amazon）等推動電子閱讀影響，美國第2大書店Borders宣布破產 6.藍光光碟機即將消失 原因：賈伯斯公開反對高畫質DVD，蘋果產品均不裝藍光光碟機 結果：藍光光碟產業在部分市場成長率去年開始趨緩，以前1片藍光電影片800多元，現在跌到200到300元就買得到，並有報告預言藍光壽命將在2013年告終 7.繪圖晶片龍頭大虧 原因：蘋果原在恩威迪亞（nVidia）、ATI兩大陣營擺盪，但ATI繪圖晶片效能更佳，2009年全面換用ATI 結果：2010年恩威迪亞稅後淨損約新台幣19億4,000萬元，是4年來最嚴重虧損 8.電視進軍網路夢碎 原因：蘋果意圖進軍電視內容通路，美

     前言： excel 某些工作表函数功能在 VBA 同样也可以实现，但具体怎么实现呢？有哪些工作表函数可以在 VBA 语句中直接使用呢！为了让 VBA 初学者了解在工作表中实现的功能在 VBA 中如何实现，兰色特把有相似或相同功能的 excel 函数和 VBA 函数或语句进行对比说明，构成了 “VBA-Excel 函数对对碰系列 ” 。希望大家能够喜欢。       本期对比内容： Datedif   、 Datedif f       实现的功能： 计算起始日期的间隔年 \ 月 \ 日数 。        实例：                1 、计算 2007-8-2 至 2008-2-1 的月份数                         在工作表中： =DATEDIF("2007-8-2","2008-2-1","m")   结果为 5                        在 VBA 代码中： =DateDiff("m", #8/2/2007#, #2/1/2008#)   结果为 6                2 、 计算 2007-8-2 至 2008-2-1 的天数                         在工作表中： =DATEDIF("2007-8-2","2008-2-1","D")   结果为 183                        在 VBA 代码中： =DateDiff("D", #8/2/2007#, #2/1/2008#)   结果为 183                3 、 计算 2007-8-2 至 2008-2-1 的年数                         在工作表中： =DATEDIF("2007-8-2","2008-2-1","Y")   结果为 0                        在 VBA 代码中： =DateDiff(" YYYY ", #8/2/2007#, #2/1/2008#

http://blog.xuite.net/x_3kkk/java/13408982 (275)在當前單格中顯示月份的名稱,本句為顯示"一月"       ActiveCell.Value = MonthName(1)

'恉定月份天數         =DATE(2011,A1+1,)-DATE(2011,A1,) '當月天數         =DAY(DATE(YEAR(NOW()),MONTH(NOW())+1,))

<h1>麻州樂透漏洞？ 賭客撈很大</h1> 更新日期: 2011/08/08 04:21 〔國際新聞中心／綜合報導〕「中獎的可能就是你」，廣告詞是這麼說的。不過，若是你剛好住在距離美國麻州開車可到的距離、對數學有一定了解、短時間能籌到數十萬 美元 ，那麼，中獎的幾乎非你莫屬。 麻州一群半職業賭徒利用樂透的漏洞簽注，在這種原本靠機率才會中獎的遊戲中大撈特撈，只要選在特定日子大量簽注，3分之2的中獎注數都會是他們囊中之物。據其中一名賭徒表示，他們賺錢的方法，其實小學數學程度就可以想到，不是什麼了不起的學問。 這群聰明賭徒選擇的是麻州Cash Winfall樂透。此樂透規定，若頭獎獎金累計超過200萬美元（約 台幣 5800萬元）還是摃龜，二獎以下獎金就會巨幅增加，這就是所謂的「rolldown日」。因此，每當頭獎獎金累計超過200萬美元，這群賭徒就開始齊聚麻州，狂簽每注2美元（約台幣58元）的 彩券 。 頭獎摃龜 更易中獎 沒人知道這些人靠這種方法撈了多少錢，但麻州紀錄披露，5月一次開獎，中600美元（約台幣1萬7000元）獎金的1605注中，高達1105注的中獎人隸屬這幾個簽注組織。以揭露 加拿大 刮刮卡類似漏洞知名的統計學家史力瓦斯塔瓦說，「Cash Winfall不是靠機率，有些聰明人算出在大家瘋狂投注時藉機致富的方法」。 要靠「rolldown日」賺錢，投注金額要高，才能十拿九穩。數學家算出，在「rolldown日」投資10萬美元（約台幣289萬元），會有7成2的機會獲利；投資超過50萬美元（約台幣1447萬元），中獎機會將高達9成9。 這 種獲利方式唯一失靈的情況，就是有人在「rolldown日」簽中頭獎，因為這麼一來二獎以下獎金就無法大幅增加；但由於在「rolldown日」獨得頭 彩的機率僅有196萬分之1，「Cash Winfall」自2004年創辦以來，在「rolldown日」獨中頭彩的情況只發生過一次。有趣的是，後來發現這名得獎人其實就是簽注組織成員。 集團成員之一的73歲小店老闆西比，上週接受美國廣播公司（ABC）訪問時坦承，「撈了不少」，但他不願意說明總投注金額、總共贏了多少錢。他說，他與32個朋友成立簽注集團，通常每次可賺1％到2％，「用的數學是小學六年級程度，不是什麼偉大的科學」。

舊程式，會殘留設計邏輯跟思續，順著寫可能會比重新寫更快 在流程中，邏輯思考裏，沒將新程式的想法，考慮在內的話 那麼，程式重寫會比較安全， 如果，要照舊程式思考的話， 就要考慮，當初的邏輯方式，是否可行 試著畫流程圖，了解其中的邏輯，再做以參考，是否重寫或是接著寫

不小心勾選了『 移除個人資訊 』的選項？ 滑鼠移到 Excel 視窗上方的功能列， 依序點選【工具(T)】、【選項(O)】、及【安全性】， 在『隱私選項』下面有一個核取方塊寫著『存檔時自檔案摘要資訊中移除個人資訊(R)』， 試著不要打勾，然後點選【確定】。

'設定為數字     Selection.NumberFormatLocal = "0_ "

Set ShtTmp_Rng = ShtTmp.Range("F3:F18")         ShtTmp.Activate            '如果常常出現怪錯誤，就要指定當前作用中，.Activate         ShtTmp_Rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("H3"), Unique:=True

    '關畢螢幕更新         Application.ScreenUpdating = False     '開啟螢幕更新         Application.ScreenUpdating = True

msgbox "測試" & vbcr & "換行成功"

[方案1] 比 [方案2] 效率好很多 With ShtXX Mod_i = i Mod 10 '取得尾數 Sort_R1 = Stay + (All_Ball) * Mod_i Sotr_C1 = (All_Ball - 1 + Stay) + (All_Ball) * Mod_i 'lLastCol '[方案1] lLastCol = 1 + 3 * (i \ 10) '初始值 + 間隔值 * 次數 '[方案2] 'lLastCol = .Cells(Sort_R1, Cells.Columns.Count).End(xlToLeft).Column '橫式輸出 ShtXX.Range(.Cells(Sort_R1, lLastCol + 2), .Cells(Sotr_C1, lLastCol + 3)) = arrBall_Rng '由大→小排序 Set XX_Rng = .Cells(Sort_R1, lLastCol + 2).CurrentRegion XX_Rng.Cells(1, 2).Sort _ key1:=XX_Rng.Columns(2), Order1:=xlDescending, Header:=xlGuess End With

檢查 IE裏的 [工具]→[網際網路選項]→[連線]→ 試選        網路連線不存在時撥號 或選        永遠不撥號連線

Function Fn2_新增頁表()     Dim Sht9Star As Object     Next_Con=1     On Error GoTo create         Set Sht9Star = Sheets("九星下" & Next_Con)         Exit Function create:         Sheets.Add(after:=Sheets(Sheets.Count)).Name = "九星下" & Next_Con End Function

Function temp234() Dim arr(1 To 10) As Integer     For i = 1 To 10         arr(i) = i     Next i     '橫向寫入     Sheets("test").Range("a1:j1") = arr     '直向寫入     Sheets("test").Range("a1:a10") = Application.WorksheetFunction.Transpose(arr) End Function

Function Color_test()     For j = 1 To 10         Cells(1, j) = j         With Cells(1, j).Interior             .PatternColorIndex = xlAutomatic    '設定顏色             .ThemeColor = j             .TintAndShade = 0.399975585192419   '設定深淺         End With     Next j End Function

a= ABS(28-38) debug.print a

for j = lLastRow to 1 Step -1  'Step 設定每次要減少或增加的數值     debug.print j next j

如果先把資料整理好，有順序的話，那麼使用countA，會快很多     '統計機率         Dim i As Integer, j As Integer         lLastRow = ShtXy.Range("A" & Cells.Rows.Count).End(xlUp).Row         Set myTbl = ShtXy.Range("A" & lLastRow).CurrentRegion         For j = 1 To All_Ball             If j < 10 Then                 chkBall = "0" & j             Else                 chkBall = j             End If             Per_x = Application.CountA(myTbl.Columns(j + 2))    '改這樣變更快，資源佔用少            'Per_x = Application.CountIf(myTbl, chkBall)         '舊程式             With ShtTmp                 i = 1                 .Cells(j + 2, i + 1) = Per_x                '次數                 .Cells(j + 2, i + 2) = chkBall              '球號                 .Cells(j + 2, i + 3) = arrShowBallCon(j)    '落號距離             End With         Next

LARGE找前三大 a1=LARGE($A$1:$A$6,1) a2=LARGE($A$1:$A$6,2) a3=LARGE($A$1:$A$6,3) SMALL找前三小 a1=SMALL($A$1:$A$6,1) a2=SMALL($A$1:$A$6,2) a3=SMALL($A$1:$A$6,3)

http://tw.search.yahoo.com/search/kp;_ylt=A8tUwYjRniBOk2YAEjKS1gt.?p=excel+vba+max&fr2=sb-top C1=MIN(50,MAX(40,INT(($B1-1)/10000)+33+($A1="晚")*2))/100

Function Fn2_依顏色排序()     '變數設定         Set Sht348 = Sheets(LotoShowCon & "取位")     '自定顏色排序         With Sht348.Sort.SortFields             .Clear             .Add(Range("F20:F27"), _                 xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = #eeece1             .Add(Range("F20:F27"), _                 xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = #4f81bd             .Add(Range("F20:F27"), _                 xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = #c0504d             .Add(Range("F20:F27"), _                 xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = #9bbb59             .Add(Range("F20:F27"), _                 xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = #8064a2             .Add(Range("F20:F27"), _                 xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = #4bacc

Function find_max()     '初始值         LotoShowCon = 100048     '變數設定         Set Sht348 = Sheets(LotoShowCon & "取位")     '找最大         'Dim arr_tmp(0 To 1) As Variant         ar = Application.Max(Sht348.Range("E4:BA4")) '.Value         Debug.Print ar End Function

技巧 070     cells.interior.colorindex = xlNone

技巧028   Sub CheckDeleteSheet()      Dim bDeleted As     Boolean      bDeleted = Worksheets(1).Delete      If bDeleted Then          MsgBox "成功删除工作表。", vbInformation      Else          MsgBox "使用者取消删除。", vbInformation      End If   End Sub 執行下面程式碼需保證存在Sheet1工作表物件   Sub DeleteSheetWithoutAlert()      Application.DisplayAlerts = False      Sheet1.Delete      Application.DisplayAlerts = True   End Sub