祝大家新年快樂
2010到來 , 今年是辛苦年
我的論文要努力了 , 請大家到
www.alexmysir.com 加入會員
可以提問 , 如打字慢 , 也可以用錄音提問喔
2009年12月31日星期四
2009年12月25日星期五
請大家幫忙唷
大家好 , 我是楊玉文 , 請大家幫忙 , 可以到www.alexmysir.com , 加入會員 , 問問題 [文字區或影音區] , 我都會回答喔 , 謝謝 , 日後再請大家幫我做問卷 再一次謝謝
2009年12月9日星期三
2009年12月8日星期二
2009年11月29日星期日
PREMIRER - 製作字幕與動態路徑
title >new title > default still
import text content
繪製一個矩形 / 矩形與文字重疊
右鍵/ 矩形 / arrange > send to back
回到 sequence
增加VIDEO / TITLE 01
加入特效
video transitions > wipe > gradient wipe
2009年11月13日星期五
我也很喜歡的另一首歌
Almost heaven
West Virginia
Blue Ridge Mountain
Shenandoah River
Life is old there
Older than the trees
Younger than the mountains
Growing like a breeze
Country roads, take me home
To the place I belong
West Virginia
Mountain Mama
Take me home, country roads
All my memories
Gather round her
Miners' Lady
Stranger to blue water
Dark and dusty
Painted on the sky
Misty taste of moonshine
Teardrop in my eye
Country roads, take me home
To the place I belong
West Virginia
Mountain Mama
Take me home, country roads
I hear her voice in the morning hours
She calls me
The radio reminds me of my home far away
And driving down the road
I get a feeling
That I should have been home
Yesterday, yesterday
Country roads, take me home
To the place I belong
West Virginia
Mountain Mama
Take me home, country roads
一首我很喜歡的歌 - 與大家分享
Say you, say me
Say it for always,
that's the way it should be
Say you, say me
Say it together, naturally
I had a dream I had an awesome dream
People in the park playing games in the dark
And what they played was a masquerade
And from behind of walls of doubt
a voice was crying out ：Help me !
Say you, say me
Say it for always,
that's the way it should be
Say you, say me
Say it together, naturally
As we go down life's lonesome highway
Seems the hardest thing to do
is to find a friend or two
That helping hand -
some one who understands
That when you feel you've lost your way
You've got some one there to say
I'll show you
Say you, say me
Say it for always,
that's the way it should be
Say you, say me
Say it together, naturally
So you think you know the answers - oh no
when the whole world has got you dancing
That's right - I'm telling you
It's time to start believing - oh yes
Believing who... you are -
you are a shining star
Say you, say me
Say it for always,
that's the way it should be
Say you, say me
Say it together, naturally
Say it together, naturally
2009年11月1日星期日
2009年10月31日星期六
ILLUSTRATOR- 倒影
1 繪製一個圖形 [文字也可以喲]
2 物件 / 變形 / 鏡射 / 複製[拷備]
3 上下對齊
4 繪製一漸層矩形 / 與下方重疊
5 選取漸層 與 下方物件 / 視窗 / 透明度 / 右上方選取 向下箭頭 / 設定 製作不透明度遮色片
註 : 漸層 距離不可太大
3D晶球繪製
1 繪製矩形 W100 * H10
2 繪製線段 W1 * H20 . 複製一次
3 使用漸變工具 / 設定等距 10MM
4 選取 產生的漸變線段 / 物件[ 功 ] / 漸變 / 展開
5 全選 / 路徑管理工具 / 分割 / 物件 / 群組 / 群組
6 複製一次 / 10個正矩形 / 利用漸變工具 / 產生一個面積
7 選取 直接選取工具 / 將面積矩形個別上色
8 全選 / / 物件 / 群組 / 群組
9 物件 / 變形 / 縮放 / 50% / 物件 / 鏡射 / 拷備 / 水平 垂直各一次
10 視窗 / 符號 / 全選 / 新增至符號中 / 刪除 面積矩形
11 繪製圓 / 繪製直線 / 將圓切一半 / 路徑管理工具 / 分割 / 留一半
12 效果 / 3D / 迴轉 / 對角線 / 設定符號 / 設定無網底 / 確定
13 繪製光 / 設定透明度 / 重疊 / 3D 晶球
2009年10月28日星期三
2009年10月22日星期四
2009年10月19日星期一
2009年10月15日星期四
共用樣式
這個問題很站喔 , 要將其他文件的樣式置入 , 您可以使用
工具 / 範本與增益集 / 組合管理 / 選取文件 / 點選樣式 / 複製
影片是置入NORMAL,DOT 您可以自行選取其他文件名稱
請看影片
2009年10月14日星期三
請大家把握機會 , 世新大學經濟部產業研發碩士專班招生訊息
世新大學經濟部產業研發碩士專班招生訊息
簡章網址: http://www.shu.edu.tw/bbs/AnnounceDetail1.aspx?sID=4250
報名日期: 10/30~11/4
筆試暨口試日期: 資訊軟體產業研發碩士專班 11月28日
數位內容產業研發碩士專班 11月29日
筆試科目: 資訊軟體產業研發碩士專班 計算機概論
數位內容產業研發碩士專班 資訊概論
相關說明:
1. 修業期間: 99/2~100/6 共1年5個月
2. 每學期學雜費: 3萬元整
3. 學位: 教育部核定之正式碩士文憑
2009年10月13日星期二
2009年10月12日星期一
2003 讀取 2007 的方法
請至微軟網站 http://office.microsoft.com
點選 下載中心 / microsoft 2007 system 左側
點選 2007 microsoft system
點選 轉換程式
電子相簿很好玩
電子相簿也可以結合網頁 會更好用喔
插入 / 相簿 / 新增 / 選取檔案 / 設定相簿內容 / 建立
office 按鈕 / 另存新檔 / 副檔名(*.HTML) / 儲存
以後使用 IE瀏灠器可以進行投影片的檢視
2009年10月8日星期四
今天學到的字詞 - 怕自己忘
On the other hand : 另一方面
In other words : 換句話說
Several studies have shown : 研究顯示
In order to : 為了...
regarding : 關於
For example : 例如
FACTOR : 因素
2009年10月6日星期二
2009年10月3日星期六
word 2007 表格排序
這個問題很好 , 可使用表格 , 選取 格式 / 排序
老師有錄影喔
http://www.screentoaster.com/watch/stV0tSQUBIR1xbRVtbXlheX1dU/word_table
2009年10月2日星期五
我又來叮大家投票了
我又來叮大家投票了 別唸我煩 全為了妹咕
各位朋友好請大家一定要幫我投票喔我是Office創意達人，
快來幫我衝人氣!抽MSI小筆電!!
方案一 : officesuper.tw/gallery/view/360
要幫我投票 -每天喔
各位朋友好請大家一定要幫我投票喔我是Office創意達人，快來幫我衝人氣!抽MSI小筆電!! 方案一 : http://officesuper.tw/gallery/view/360 方案二 : http://officesuper.tw/gallery/view/348 謝謝大家歡迎指教
2009年9月28日星期一
請大家一定要幫我投票喔
各位朋友好
請大家一定要幫我投票喔
我是Office創意達人，快來幫我衝人氣!抽MSI小筆電!!
方案一 : http://officesuper.tw/gallery/view/360
方案二 : http://officesuper.tw/gallery/view/348
謝謝大家
2009年9月26日星期六
我會的國字
森林．火車．火警．竹子．上班．錯誤．國字．網站．功能．使用．主頁 ．我的帳戶．連結．com ．alex．
妹咕老師數位學習網．妹咕老師數位學習網．妹咕老師數位學習網
文章 設定 版面配置 檢視 網誌新文章 修改文章 意見管理
錯誤
標題： 我會的國字
連結： 網誌新文章
網誌．
文章． 設定． 版面配置 ．檢視． 網誌．
2009年9月25日星期五
EXCEL VBA 函數
Public Function 標準體重(身高)
標準體重 = Round((身高 * 身高) / 10000 * 22, 1)
End Function
Public Function 上限(來源, 百分比)
上限 = Round(來源 * (1 + 百分比), 2)
End Function
Public Function 下限(來源, 百分比)
下限 = Round(來源 * (1 - 百分比), 1)
End Function
Public Function 評語(身高, 體重, 百分比)
x = Round((身高 * 身高) / 10000 * 22, 1)
x1 = x * (1 + 百分比)
x2 = x * (1 - 百分比)
If 體重 = x Then
評語 = "非常好"
Else
If 體重 > x1 Then
評語 = "太重"
Else
If 體重 < x2 Then
評語 = "太輕"
Else
評語 = "江江好"
End If
End If
End If
End Function
2009年9月24日星期四
EXCEL VBA - 整合2
Sub 整合()
x = InputBox("請輸入工作表數量")
For i = 1 To x
Sheets(i).Select
If i = 1 Then
Range("A1").Select
Else
Range("A2").Select
End If
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(x + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Next
End Sub
2009年9月20日星期日
請用'7%'作標題, . 作者 : Regina
7%
也許你不會100%同意Regina Brett，但在她的功課清單裡，確實有些寶藏。
1.人生是不公平的, 但還是好得很
2.懷疑的時候, 為未來踏出一小步.
3.人生太短, 短到來不及浪費時間去恨任何一個人.
4.生病的時候, 你的工作不會照顧妳, 你的朋友和父母會!保持聯絡.
5.每一個月付清你的信用卡.
6.你不需要每一次都吵贏. 同意你不同意的.
7.找人一起哭. 它比獨自啜泣更加療愈
8.對上帝生氣沒有關係. 祂受得了.
9.退休存款從你的第一張薪水條開始.
10.講到巧克力, 抗拒只是徒勞無功.
11.和你的過去和解, 所以它不會搞砸你的當下
12.讓你的孩子看到你哭沒有關係
13.別拿自己的人生和他人做比較. 你根本不清楚他們的人生是怎麼一回事.
14.如果一段親密關係要偷偷摸摸, 你根本不應該涉入.
15.一眨眼的功夫什麼都會變. 但是別擔心: 上帝從來不眨眼.
16.深吸一口氣. 它會安定你的腦.
17.沒用, 不美, 或不喜悅的東西都丟掉.
18.沒讓你死的，真的會讓你更堅強.
19.重拾快樂童年永不嫌晚. 但這第二次只能靠自己不靠人.
20.當關乎追求你生命的所愛, 不要把不要當答案
21.點蠟燭, 用好的床單, 穿上炫麗的內衣. 不要特殊場合才用. 今天就是特別的一天.
22.準備要周全, 然後隨遇而安.
23.現在就離經叛道. 不要一把年紀了才開始穿上紫色
24.最重要的性器官是腦袋.
25.除了你, 沒有人在主宰你的快樂.
26.把所謂的不幸用這一句話把它表框起來 "五年後, 這還重要嗎?"
27.永遠選擇生活.
28.原諒每一個人.每一件事.
29.別人怎麼看你.不干你的事.
30.時間會痊癒幾乎每一件事. 要給時間. 時間.
31.無論情況多好或多壞, 它都會變的.
32.不要那麼認真的看待自己. 沒有人會這樣看待你的.
33.相信奇蹟.
34.上帝愛你是因為祂就是這樣, 不是因為你做了什麼或是沒做什麼.
35.不要稽查人生. 現在就呈現和做最大的發揮.
36.變老了- 打敗另一種選項 - 死得早.
37.你的孩子只有一個童年.
38.最後真正最重要的是你愛過.
39.每一天都出門. 奇蹟正在四處等著.
40.如果我們把我們的問題都丟成一堆, 然後看看其他人的, 我們會把我們的撿回來.
41.忌妒浪費時間. 你已經擁有你所需要的了.
42.最好的都還沒來.
43.不管你感覺如何 ! 起來, 穿好和呈現.
44.讓自己每天快樂.
45.人生不會打上蝴蝶結, 但它仍然是一份禮物.
2009年9月19日星期六
INDESIGN - 複合文字
好用的功能
建立複合字體
1.文字 / 複合字體。
2.新增 / 給名稱 / 確定。
3.選取類別 / 設定字體屬性
4.完成 / 儲存 / 確定
漢字 (或韓文)漢字字元用於日文和中文； 韓文字元則用於韓文。 無法修改
假名指用於日文平假名和日文片假名的字體。
標點符號指定用於標點符號的字體。
全形符號指定用於符號的字體。
羅馬字指定用於半形羅馬字元的字體。
2009年9月18日星期五
INDESIGN - 文字框的設定
1 選取 水平格點工具 / 拖曳一個文字範圍
2 右鍵選取文字框 / 框架類型 / 文字框
3 右鍵選取文字框選項 / 設定行距
4 右鍵選取框架格點選項 / 設定行距 / 確定
2009年9月15日星期二
儲存格輸入判斷 - excel vba
Private Sub Worksheet_Change(ByVal Target As Range)
Dim X
X = ActiveCell.Offset(-1, 0).Value
Select Case X
Case 2
ActiveCell.Offset(-1, 1).Value = "台北"
Case 3
ActiveCell.Offset(-1, 1).Value = "台中"
Case 4
ActiveCell.Offset(-1, 1).Value = "台南"
Case 5
ActiveCell.Offset(-1, 1).Value = "台西"
Case Else
ActiveCell.Offset(-1, 1).Value = "無"
End Select
End Sub
2009年9月14日星期一
excel -vba 合併
Sub 合併()
Dim SN
SN = Sheets.Count
For i = 2 To SN
Sheets(i).Select
If i = 2 Then
Cells(1, 1).Select
Else
Cells(2, 1).Select
End If
'Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Next
End Sub
EXCEL VBA - 流水號
Sub 流水號()
Dim i, j
j = InputBox("請輸入終止值")
For i = 1 To j
ActiveCell.Offset(i - 1, 0).Value = i
ActiveCell.Offset(i - 1, 0).NumberFormatLocal = "[紅色][>50]0;[藍色]0"
Next
End Sub
EXCEL VBA - 格式
Sub 格式()
Do While ActiveCell.Value <> Empty
Select Case ActiveCell.Value
Case Is > 900000000
Selection.NumberFormatLocal = "0000-000-000"
Case Is < 90000000
Selection.NumberFormatLocal = "(00)000-0000"
Case Else
Selection.NumberFormatLocal = "(00)0000-0000"
End Select
ActiveCell.Offset(1, 0).Select
Loop
End Sub
EXCEL VBA
Sub 還原()
x = InputBox("請輸入還的欄號")
s = x & ":" & x
Columns(s).Select
Selection.NumberFormatLocal = "G/通用格式"
Range("A1").Select
END SUB
2009年9月13日星期日
朋友來的信 - 請大家注意
各位大家好：
現在街上出現了一些自稱為"抗炎組"的人，他們手持"消毒劑"，假稱替人們的手消毒，要求人們把手伸出來。當他們在你的手噴完"消毒劑"後，接著他們會說先生∕小姐你的公事包∕手袋上的拉鍊也會有細菌，希望你能把拉鍊拉開，來替你的拉鍊消毒，然後他們會在拉鍊上噴上"消毒劑"，趁著這些時間來看看你手袋內的東西，在你沒有提防的情況下，以最快的時間從手袋內拿走名貴的東西（當然是錢包或電話），再以最快的速度逃走。
他們的特徵如下：
1. 大多是女孩子，藉以減低你對他們的戒心。
2. 掛著大口罩，令你難以辨認出他們的容貌。
3. 手持"消毒劑"。
如果一旦遇上了，不用理會或者盡快報警處理，請大家在新流感疫期間，要特別注意這種假好心真行搶的行為。
2009年9月7日星期一
office2003與2007的對照表
有可以到微軟網站下載
1 Word 2007 指南：Word 2003 到 Word 2007 互動式命令參考指南
網址如下 : http://www.microsoft.com/downloads/details.aspx?displaylang=zh-tw&FamilyID=9044790b-4e24-4277-b714-66d7b18d0aa1
2 Excel 2007 指南：Excel 2003 到 Excel 2007 互動式命令參考指南
網址如下 : http://www.microsoft.com/downloads/details.aspx?displaylang=zh-tw&FamilyID=89718abd-2758-47b3-9f90-93788112b985
3 PowerPoint 2007 指南：PowerPoint 2003 到 PowerPoint 2007 互動式命令參考指南
網址如下 : http://www.microsoft.com/downloads/details.aspx?displaylang=zh-tw&FamilyID=bef41dc3-8e28-4282-82d4-cec2f416cd40
4 Outlook 2007 指南：Outlook 2003 對 Outlook 2007 互動式命令參考指南
網址如下 : http://www.microsoft.com/downloads/details.aspx?displaylang=zh-tw&FamilyID=cc37cc1e-028d-4d30-9093-96cc6513eca1
加油
不錯的資訊
有關簡訊說明
選擇回覆簡訊至手機者，國內手機接收一通扣除一點，國際簡訊回覆接收一通扣除三點。
提供國外互動回覆簡訊機制，中國地區暫停互動回覆機制，未來將會陸續開放，敬請耐心等候!
勾選互動回覆簡訊至發訊者，請務必確認登記之手機號碼為本人使用，以免造成手機持有人不必要的困擾。
簡訊發出超過24小時回覆者將可能無法回傳送達。（實際收到回傳簡訊才予以扣除點數）
市內客服電話請撥：0800-618688 ∣ 手機客服電話請撥 02-8913-1559轉166
MSN線上客服：
台北縣新店市北新路三段207-2號5樓(台北矽谷大樓)
Copyright c 2008 互動資通股份有限公司版權所有，轉載必究
天天發免費簡訊
更新日期:2009/09/07 09:49
(中央社訊息服務20090907 08:48:22)在不景氣的年代，越來越多的消費者變得越聰明消費，消費者願意花更多的時間尋找更低廉的商品，甚至於努力探詢完全免費的商品或服務。網路環境出現免費的商品已經不是新聞，但是電信服務需要付費也是消費者已經有的習慣，即便過去手機零元或是其他各種補貼措施，最終還是需透過綁月租費的方式來換取商品或服務。
顛覆過去電信服務的慣例，首創！讓你可以天天發免費網路簡訊，發送結束立即可以掌握發送對象是否已經收到，甚至於透過讀取回條機制，可以掌握接收者是否已閱讀，收訊者亦可直接手機回覆，發訊者便可立即於發送平台看到回覆內容。
多年與微軟Microsoft共同合作開發簡訊平台服務業者，突破過往簡訊發送需要付費的概念，讓您可以透過簡單的服務申請，不需留下任何無關的資料，非常特別的是完全不牽涉任何個人資料的問題，非常簡便的申請程序（經實際測試只需15~30秒以內），立即取得網站上提供的天天免費簡訊模組的應用，取得服務帳號密碼後，於平台上立即可以天天發送免費簡訊，這樣的服務又可以讓消費者節省荷包，有興趣請參考http://tw.every8d.com。
商務模式隨者外部環境的變化會不斷出現各種變形，網路簡訊未來的發展將朝向消費者免付費的模式，將跟現在大部分入口網站都免費提供E- mail服務一樣，網站服務業者可以透過免費的簡訊服務提供，提高用戶互動參與，同時一般使用者也可以節省電信支出，如此可以達到大家都是贏家的好處，筆者確信未來此模式將成為主流。
圖說:EVERY8D免費簡訊http://tw.news.yahoo.com/article/url/d/a/090907/5/1qleh.htmlhttp://tw.every8d.com/template/every8d/product/product_01.html
台塑健康生活旅行用品社-國民旅遊卡優良特約商店、臺北市教師會福利廠商
來人喲~~臺南市吉屋出租~~~
業務代表： 林先生
Tel熱情客服專線：
(02)2793-2305、(02)2729-0492、
0935-199614-亞太、0938-319338-遠傳、0989-289842-遠傳、0955-197614-遠傳
Fax傳真：(02)2793-7851
E-Mail電子郵件1：qqq8@kimo.com
E-Mail電子郵件2：8q@livemail.tw
Skype：qqqq8868
Msn：8q@livemail.tw
Yahoo!奇摩即時通：qqq8@kimo.com
Gtalk：qqq388@gmail.com
Web網址1：http://6aaa.blogspot.com
Web網址2：http://68q.spaces.live.com
Web網址3：http://www.wretch.cc/blog/qqq8
Web網址4：http://shop917.ecnow.tw
【台塑健康生活館】展示：
臺北市政府市政大樓南區 市民生活廣場(全家正對面)-11008臺北市信義區市府路1號地下2樓展示服務時間：週一至週五AM9:00~PM5:00
吉屋招租地點：700臺南市中西區府中街128號房屋
~~~敬祝 福杯滿溢 喜樂滿懷
2009年9月4日星期五
2009年8月28日星期五
2009年8月27日星期四
用故事給孩子力量 - 麥當勞叔叔之家兒童慈善基金會
用故事給孩子力量 - 麥當勞叔叔之家兒童慈善基金會
* 麥當勞叔叔 * 之家兒童慈善基金會所主辦的活動
送愛進災區 童書募集行動
收書日期 : 98. 8 . 29 ~ 30 日 2 天
http://www.rmhc.org.tw/story/
收書地點全省麥當勞門市
2009年8月26日星期三
哇 , 今天情人節
情人節 中國有太多節日 , 這個年代大家一直在享受
今天上課回發現 買花沒用
家中一大一小各有不同的情懷
大的臉臭臭 [ 天Y 發生何事 ]
小的笑咪咪 [阿爸這二朵花都是給我的嗎]
唉
阿爸不好做
2009年8月25日星期二
筆電決定要賣了 - 心一橫
大家好 有趣的請寄信至 alexmysir@gmail.com
只有光碟機有些受傷 功能正常可以用 , 其他看來是新的
目前只使用1.5年
Compaq Presario V3771TU 筆記型電腦 v3700
產品編號 : KP094PA
微處理器 : 1.73 GHz Intel Core 2 Duo 處理器 T2370
微處理器快取記憶體 : 1 MB Level 2 快取記憶體
記憶體 : 3 GMB (原廠 1GB)
最大記憶體 :高達4 GB (由於系統資源需求，因此 32 位元作業系統也許無法提供至 1GB)
視訊顯示卡 : Intel Graphics Media Accelerator X3100
硬碟 : 160 GB (5400 rpm) SATA的規格
多媒體磁碟機 : SuperMulti 8X DVD±R/RW 含雙層支援 (面版受損 , 一切正常 )
顯示 14.1" WXGA 高畫質 BrightView 寬螢幕顯示器 (1280 x 800)
傳真/數據機 : 高速 56K 數據機
網路卡 : 整合式 10/100BASE-T Ethernet LAN
無線連線能力 : 802.11b/g WLAN
可以安裝至win7.0 喔
2009年8月24日星期一
2009年8月20日星期四
去年貧富差距7.73倍 史上新高 - 自由時報
看完真的心痛很久
以下是MAIL收到的內容
更新日期:2009/08/21 04:09
〔記者鄭琪芳／台北報導〕國內經濟衰退，失業人數暴增，導致家庭所得減少，貧富差距擴大，根據行政院主計處統計，去年國內家庭所得差距六．○五倍，創下五年來新高；若未計入社會福利等政府移轉收支，去年所得差距倍數高達七．七三倍，創下史上新高。
家庭可支配所得 七年來首度減少
主計長石素梅表示，金融海嘯重創國內外景氣，自去年下半年起衝擊國內就業市場，失業人數驟增，去年全體家庭所得總額八兆六八三二億元，較前年微增○．八％，每戶可支配所得平均數九十一．四萬元，則減少一．一％，是七年來首度減少；若剔除每戶人數變化因素，每人可支配所得二十七．三萬元，也減少○．二％，是六年來首度減少。
國內家庭可支配所得減少，而且所得最低的家庭減幅最大，若將國內家庭依可支配所得分成五等分，最低所得組去年可支配所得僅三十．四萬元，減少二．七六％，最高所得組可支配所得則高達一八三．五萬元，減少一．七％，次高所得組可支配所得一○六．九萬元，僅減少○．一％。
主計處說明，國際上衡量貧富差距的方式，通常採用家庭可支配所得「五等分位差距倍數」或「吉尼係數」，去年我國所得最高二十％與最低二十％家庭，所得差距倍數六．○五倍，創下五年來新高，吉尼係數則是○．三四一，也是五年來新高，顯示我國貧富差距擴大。
主計處並指出，去年政府發放各項補助及津貼等，縮減所得差距倍數一．五三倍，家庭對政府移轉支出也縮小所得差距○．一六倍，總計縮減所得差距一．六九倍，若不計入政府移轉收支，去年所得差距倍數高達七．七三倍，創下史上新高。
主計處第三局局長蔡鴻坤說明，所得差距倍數擴大是全球共同的趨勢，去年第四季受到金融海嘯影響，導致國內家庭收入減少，上次家庭可支配所得減少是二○○一年網路泡沫時期，不過，近幾年來社會安全網建構比較綿密，有助於縮減所得差距。
2009年8月18日星期二
2009年8月17日星期一
2009年8月16日星期日
辛苦了救災的同胞
近日看到噗浪 , 網路四處漫罵
真的是心有百感
過去因人禍問題因是少數沒人理
現在因天災問題因是多數大家罵
想想天災中也會有人禍
人真的是健忘 , 幾次風雨 , 就淡忘了
請支持紀念館興建 , 請給英雄加油
請找出元凶
我愛台灣 , 台灣加油
2009年8月14日星期五
EXCEL VBA - 找出重覆值
Sub Macro1()
Range("A1:W3432").Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:= _
Range("D2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlStroke, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
Range("C2").Select
While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> ActiveCell.Offset(1, 0).Value Then
ActiveCell.Offset(1, 0).Select
Else
If ActiveCell.Offset(0, 1).Value <> ActiveCell.Offset(1, 1).Value Then
Else
ActiveCell.Offset(0, 18).Value = "重覆選課"
End If
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
2009年8月13日星期四
2009年8月11日星期二
因工作需求 - 想賣掉手中的筆電
大家好
因工作需求 , 想賣掉手中的筆電
有3G的RAM 120GB 硬碟
HP CRU是1.5
可以安裝WIN7.0 VISTA 專業版
有DVD燒錄機可無上網802.11 G
想要的朋友可以來信
我想賣 20000元左右 [厡規則是80GB , 512MB 我有自己擴充]
是SATA的HD
14吋鏡面螢幕
2009年8月10日星期一
最新軟體 - office 2010
先看影片 :http://www.office2010themovie.com/
可以下載喔
http://www.windows7en.com/Win7Down/6036.html
請大家試試喔
以下是噗友的訊息 - 請大家多多宣傳喔
轉噗 : 呼籲需要救援的民眾，洽慈濟總指揮中心03-8266779轉269、590、373或374，高雄分會07-3987667分機1203、1204，屏東分會08-7385265、08-7363953轉123或124。請人人多行善，虔誠祈禱，讓受災戶儘早脫離災難。(歡迎轉噗)。
2009年8月9日星期日
2009年8月8日星期六
2009年8月5日星期三
2009年8月4日星期二
2009年8月3日星期一
本則新聞由NOWnews提供 2009/07/21
「80後」小夫妻訂《吵架公約》網路正夯 專家：確有幫助
更新日期:2009/07/21 01:47
「80後」在中國大陸是指1980年代出生的年輕人，也就是我們說的「七年級」。現在網路流傳著一對「80後」的小夫妻，因為結婚後常常吵架，所訂出來的《吵架公約》，不但許多同為「80後」的網友認為是「相處聖經」，中國大陸的婚姻指導師表示，《吵架公約》具有實際指導意義，如果嚴格按照公約執行，吵架非但傷不了夫妻感情，還會把事情解決好。
這份公約出來之後，許多「80後」的年輕夫妻，都照著規定來作，發現效果非常好，大陸媒體記者訪問當地的婚姻專家張麗表示，，《吵架公約》的內容其實是夫妻相處的一些指導方法，具有實際指導意義，很多方法在實際中能收到效果。
張麗舉例說，如果夫妻雙方吵架時互不相讓，就好比兩杯滿滿的水，都想互相倒到對方的杯中，根本倒不進去，只能再拿一個杯子，這個新拿的杯子就是解決問題的方法。 張麗還解釋說，兩個人吵架要積極想辦法，如一味地沉默、逃避，只能讓戰爭升級，正確的做法應該是用友善的態度找出問題，然後解決問題。
《吵架公約》內容如下：
1、吵架不當著父母、親戚、鄰居的面吵，在公共場所給對方面子。
2、不管誰對誰錯，只要一吵架，男方必須先輕聲輕氣哄女方一次，女方才能馬上冷靜下來，否則女方一看到男方哇啦哇啦，女方也忍不住哇啦哇啦，一旦造成嚴重後果，全部由男方負責。
3、在家裏吵架不準一走了之，實在要走，不得走出小區（指社區），不許不帶手機和關機。
4、有錯一方要主動道歉，無錯一方在有錯方道歉並補償後要盡快原諒對方。
5、雙方都有錯時要互相檢討，道歉後由男方主動提出帶女方出去散心。
6、要出氣，不准砸東西，只能吃東西，實在手癢只能砸枕頭。
7、吵架盡量不隔夜，女方睡覺時男方必須主動抱女方，就算女方百般推讓，男方一定要哄到女方睡著。
8、每周都要給對方按摩一次，因為大家經常吵架都很辛苦，男方手藝不好的話可以跟盲人師傅學。
9、吵架時男方不準掛電話，吵架時女方如果掛了電話，男方必須在1分鐘內打給女方，電話不通打手機，屢掛屢打，每次掛電話次數不大於5次。
10、也是最重要的一點：公約所有條款可由女方無理由無時間限制地更改，男方有權利提出異議，但是異議是否被採納最終解釋權歸女方。
本則新聞由NOWnews提供 2009/07/21 http://news.msn.com.tw/news1354216.aspx
2009年8月2日星期日
2009年8月1日星期六
2009年7月30日星期四
大家參考喔
專業推薦
台灣奧美董事總經理 專業推薦
本書創造了一個精準行銷(Targeting Marketing)的環境，並附大量操作案例，讓不熟悉行動行銷的行銷人，有一個學習與啟發的參考，並有立即上手的效率。
-張志浩(台灣奧美互動關係行銷公司 董事總經理)
台灣微軟總經理 專業推薦
第五媒體興起，以及行動行銷的應用，變成了任何中小企業都可以擁有的行銷資源。如何充分運用“第五媒體”為企業帶來最佳的效益，是我們可以一同探討的！
-胡世衛(台灣微軟中小企業解決方案暨經銷事業群 總經理)
對於需要與客戶維繫關係，以及對外開發新客戶的企業，都可發現簡訊與Excel的結合，是個將錢花在刀口上，又能夠確認溝通的新模式，值得大家細細研究。
-盧道正(台灣微軟營運暨行銷事業群資訊工作者事業部 行銷經理)
手機媒體與行動行銷應用會讓企業跳脫出過去既定的行銷模式，但該如何入門接觸與深入使用，相信本書深入淺出的說明，會讓您快速進入行動行銷的新領域！
-張愛華(國立政治大學企業管理學系 副教授)
2009年7月29日星期三
最近學生問2003與2007的對照表
如果您有這樣的問題 可到微軟網站
您可以到下列網站找到
WORD對照表 - http://office.microsoft.com/zh-tw/word/HA100744321028.aspx?pid=CH100487431028
EXCEL對照表 - http://office.microsoft.com/zh-tw/excel/HA101491511028.aspx?pid=CH100648241028
POWERPOINT 對照表 - http://office.microsoft.com/zh-tw/powerpoint/HA101490761028.aspx?pid=CH100668131028
OUTLOOK對照表 - http://office.microsoft.com/zh-tw/outlook/HA102221621028.aspx
2009年7月28日星期二
2009年7月27日星期一
一堆EXCEL的問題 - 不錯的長官提問
想要讓輸入的字橫跨3個儲存格置中對齊應使用何項功能？
1 選取3個左右儲存格 , 點選 常用 / 點選 跨欄置中
想要讓輸入的字跨越上下3個儲存格置中對齊應使用何項功能？
1 選取3個上下儲存格, 點選 常用 / 點選 跨欄置中
想要讓輸入的數字顯示三位一撇的樣式應使用何項功能？
1點選 常用 / 點選 數值 / 千分位樣式
想將目前位置以上連續數字加總起來應使用何項功能？
1選取連續儲存格
2 點選 公式 / 點選 自動加總
想將目前儲存格的公式往下複製應使用何項功能？
1選取連續儲存格
2 點選 常用 / 點選 編輯 / 點選 填滿 / 點選 向下填滿
先輸入1再將儲存格填滿控點往下拖曳，應選擇何項功能才能顯示1、2、3…累加1的資料？
1配合 CTRL 鍵
如果希望目前位置以上及以左的位置鎖定不被捲離畫面，應使用何項功能？
1選取儲存格
2 點選 檢視 / 點選 涷結窗格
那一個按鈕之中提供了計算平均的功能？
1選取儲存格
2 點選 常用 / 點選 自動加總右側鈕 / 點選 平均值
在使用自動加總功能後得到「=SUM(H16:J16)」的公式，請問是屬於那一種參照的公式？
1 公式有分 相對 絕對 混合 , 如有$是絕對
例如 : =SUM($H$16:$J$16) ,( 絕對 )， =SUM($H16:J$16) ,( 混合 ) ，=SUM(H16:J16) ,( 相對 )
當公式使用「$O$16」時，表示這是一個什麼樣的參照方式？
1 公式有分 相對 絕對 混合 , 如有$是絕對
例如 : =SUM($H$16:$J$16) ,( 絕對 )， =SUM($H16:J$16) ,( 混合 ) ，=SUM(H16:J16) ,( 相對 )
想將公式中的「O16」表現成「$O$16」可以按什麼按鍵？
1 F4 鍵
以下那項格式可以讓日期呈現「2006年1月」？
1 選取儲存格 / 輸入 2006/1/1
2 選取 常用 / 選取 儲存格格式 / 選取日期
3 設定 2006月1月1日
4 選取自訂 / 修改成yyyy"年"m"月" / 確定
選取已輸入好的資料範圍，應選擇何項功能可以將範圍定義成表格？
1 選取 常用 / 選取 格式化為表格 / 選取 表格樣式
希望表格下方最後一列提供能自動計算的功能，應點選何項功能？
1選取最後一列的連續儲存格
2 點選 公式 / 點選 自動加總
希望儲存格中除了顯示自動計算的結果之外，還同時顯示出單位，例如「20人」，應使用何項功能？
1選取最後一列的連續儲存格
2 點選 公式 / 點選 自動加總
3 選取 常用 / 選取 儲存格格式 / 選取自訂
4 修改成 0 "人" / 確定
因為擁有什麼功能所以同一欄中只需要輸入第一格的公式就會自動完成整欄的公式？
1 選取 常用 / 選取 格式化為表格 / 選取 表格樣式
想要先判斷條件再顯示適當的文字標示應使用那一個函數？
1 if 函數 , 例如 : if(a2>=60 ,”及格”,”不及格”)
想要統計出每一位員工依業績金額的排名應使用那一個函數？
1 RANK 函數 , 例如 : RANK(a2 ,a2 : a18)
請問EXCEL提供了那些排序的方式？
值 (日期 , 數字 , 文字 ) , 儲存格( 色彩 , 字型色彩 , 圖示)
請問EXCEL提供了那些篩選的功能？
值 (日期 , 數字 , 文字 ) , 儲存格( 色彩 , 字型色彩 , 圖示 ) , 進階篩選 ( 範圍 )
想要將資料大於指定內容的儲存格以紅色表現出來應使用何項功能？
1 選取 儲存格
2 選取 常用 / 選取 設定格式化條件 / 選取 新增規則
3 選取 只格式化下列的儲存格 / 設定 大於 / 設定格式 字型色彩 紅色
4 確定
想要在儲存格內同時以長條圖顯示出資料內容應使用何項功能？
1 選取 儲存格
2 選取 常用 / 選取 設定格式化條件 / 選取 資料橫條
想要以漸層色彩來表現資料數據的範圍區間應使用何項功能
1 選取 儲存格
2 選取 常用 / 選取 設定格式化條件 / 選取 色階
想要以有意義的圖示來表現資料數據應使用何項功能？
1 選取 儲存格
2 選取 常用 / 選取 設定格式化條件 / 選取 圖示集
想要設計統計圖表是在功能區那一個索引標籤之中？
1 選取 儲存格範圍
2 選取 插入 / 選取 圖表類型
想要將統計圖移到另外的工作表中應使用何項功能？
1 選取 圖表的工作表 / 按滑鼠右鍵
2 選取 移動或複製 / 其他的位置 / 確定
想要讓圖表同時顯示主要與次要格線應選擇何項功能？
1 選取 圖表 / 選取 版面配置
2 選取 格線 / 其他的設定/
想要讓圓形圖表每一扇形區域的整體色彩更豐富多彩應選擇何項功能？
1 選取 圖表 / 選取 單一扇形圖
2 選取 格式 / 其他的格式設定
想要調整改變圓形圖帶有子橫條圖中顯示在子橫條圖的資料應選擇何項功能？
1 選取 圖表 / 選取 設計
2 選取 變更圖表類型 / 其他的設定
想要讓圓形圖的每一扇形區域顯得立體應選擇何項功能？
1 選取 圖表 / 選取 區域圖 / 選取 格式
2 選取 圖案效果 / 立體旋轉
1. 本身是使用office 2003 ，朋友寄給我的是office 2007的檔案的話，要如何開啟？
1 上網下載 Microsoft Office Word、Excel 及 PowerPoint 2007 檔案格式相容性套件
2 網址 http://www.microsoft.com/downloads/details.aspx?displaylang=zh-tw&familyid=941B3470-3AE9-4AEE-8F43-C6BB74CD1466
2. 如何把excel 2007的備註使用者名稱改成我的名字？
1 選取 office 按鈕 / excel 選項 / 選取 常用 / 設定個人化
3. 請問我要如何讓excel的兩個工作表的某一格內容一樣?
1 於第一個工作表 的某一個儲存格中輸入 =
2 用滑鼠選取第二個工作表的某一個儲存格
或者 使用 複製 / 貼上連結也可以唷
4. excel 2007的開新檔案在哪？預覽列印？(使用excel 2003 習慣了)
1 選取 office 按鈕 / 開新檔案 / 選取 空白 / 確定 (快速鍵 CTRL + N)
2 選取 office 按鈕 / 列印 / 選取 預覽列印(快速鍵 CTRL + P , 預覽)
5. 我要去哪裡變更enter的移動方向？
1 選取 office 按鈕 / excel 選項 / 選取 進階 / 設定ENTER方向
6. 如何限制enter的移動範圍，也就是說我需要的範圍內去移動？
1 選取 儲存格範圍 , 再進行ENTER輸入資料
7. “排序”的功能在哪裡？
1 選取 資料 / 排序
8. 如何”篩選”我所需要的資料？
1 選取 標題列 , 選取 資料 / 篩選
2 設定篩選內容 例如 : 文字 數值 且和或的設定
9. 如何把”符號表”呈現在畫面上？
1 選取 office 按鈕 / 選取 EXCEL 選項 / 選取 自訂
2 選取 插入索引 / 選取更多符號 / 選取 新增 / 確定
10. 畫面的格線消失，要去哪裡把它叫出來？
1 選取 office 按鈕 / 選取 EXCEL 選項 / 選取 進階
2 設定格線顯示
11. 如何改變Excel的欄號、列號字體格式？
1 選取 控制台 / 顯示器 / 桌面 / 設定 字型 項目
12. 請問Excel 的哪一個功能是 將excel轉至或是插入power point後還是可以加總？（excel的東西移到power point後 還是能修改內容跟加總）
複製 / 貼上連結
13. 請問我有多個Excel檔案，要如何合併為同一個檔案內裡,有多個工作表呢??
資料 / 合併彙算
14. 把一些數字從別地方一起大量轉貼放在Excel裡，但都是在同一欄(如A1)，有什麼辦法使這些數字自己分發不同欄位，（如A1是33、A2是44…）？
資料 / 資料剖析
15. 如何使Excel 日期保留”0”的部份？
1選取儲存格
2 選取 常用 / 選取 儲存格格式 / 選取自訂
3 修改成00/00/00 / 確定
16. 如何使EXCEL2007 產生一筆大量的亂數資料？(有範圍的和沒有範圍的亂數資料)
1選取儲存格
2 選取 公式 / 選取 數學 / 選取 randbetween / 設定起始 / 終止 / 確定
3 請進行複製 / 貼上即可[ 範圍 ]
17. 操作excel2007時，撥動滑鼠二鍵中的滾輪向上或向下查看表格時，每撥一次會捲動三欄，如何改成撥動一次捲動一欄呢？
18. 如何在excel2007版本裡，在儲存格中，顯示10位數字，不足的會在前面補0，如：123→0000000123，454634→0000454634
1選取儲存格
2 選取 常用 / 選取 儲存格格式 / 選取自訂
3 修改成0000000000 / 確定
19. EXCEL2007不同活頁簿修改同欄位資料為何會重複？
有連結公式
20. 假設A1=1 B1=2 C1=3 D1=4 E1=5 F1=31
A2=6 B2=7 C2=8 D2=9 E2=10
當F1去比對A1時，如果F1=A1則儲存格變成紅色
如果F1不等於A1時，則儲存格無變色
2009年7月24日星期五
設計VBA的隱藏程式
Sub 隱C()
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
End Sub
Sub 隱D()
Columns("D:D").Select
Selection.EntireColumn.Hidden = True
End Sub
Sub 隱E()
Columns("E:E").Select
Selection.EntireColumn.Hidden = True
End Sub
Sub 全部()
Columns("A:H").Select
Selection.EntireColumn.Hidden = False
Range("a1").Select
End Sub
Sub Product_Spec()
Range("a4").Select
While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> "Product Spec & Scope" Then
x = ActiveCell.Row
x = x & ":" & x
Rows(x).Select
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Sub Payment_Term()
Range("a4").Select
While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> "Payment Term" Then
x = ActiveCell.Row
x = x & ":" & x
Rows(x).Select
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Sub Payment_Type()
Range("a4").Select
While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> "Payment Type" Then
x = ActiveCell.Row
x = x & ":" & x
Rows(x).Select
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Sub AR_Entity()
Range("a4").Select
While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> "AR Entity" Then
x = ActiveCell.Row
x = x & ":" & x
Rows(x).Select
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Sub Reporting_Format()
Range("a4").Select
While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> "Reporting Format" Then
x = ActiveCell.Row
x = x & ":" & x
Rows(x).Select
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Sub Audit_Term()
Range("a4").Select
While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> "Audit Term" Then
x = ActiveCell.Row
x = x & ":" & x
Rows(x).Select
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Sub Termination()
Range("a4").Select
While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> "Termination" Then
x = ActiveCell.Row
x = x & ":" & x
Rows(x).Select
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Sub all()
Rows("1:100").Select
Selection.EntireRow.Hidden = False
Range("a4").Select
End Sub
2009年7月23日星期四
自訂驗證 - IF
今天學到資料驗證同大家分享
首先您有二個區域 A欄 : 是北區 (使用 選取A欄 , 編輯 / 名稱 / 定義 / 輸入 北區)
B欄是南區(使用 選取A欄 , 編輯 / 名稱 / 定義 / 輸入 南區)
至於A,B欄的內容至行定義
某一個欄位輸入北或南 , A或B , 1或2 [代表文字或數字] , 則另一個欄位就會有不同的資料選單
例如 : C1儲存格輸入北 , 則C2儲存格就會有下拉式選單 , 其選單資料是北區,或C1儲存格輸入南 , 則C2儲存格就會有下拉式選單 , 其選單資料是南區
請依下列步驟進行
選定C2儲存格 , 選取 資料 / 驗證 / 類型 : 清單 / 資料來源右側方塊輸入 : =if(c1="北",北區,南區)
很好用喔
2009年7月21日星期二
2009年7月20日星期一
2009年7月19日星期日
ＰＨＯＴＯＩＭＰＡＣＴ問題
要如何將相片轉正?應該使用PhotoImpact的哪個功能?
調整 / 自動處理 / 調正
編輯 / 旋轉與變形 / 使用變形工具
我要如何把相片空白的地方剪裁掉?
利用選取工具 – 標準選取工具 , 或是剪裁工具
我想要將相片的色彩調成冷色系讓相片可以看起來新一點,該怎麼做呢?
相片 / 色彩 / 色彩平衡
相片 /光線 / 亮度與對比
冷色系，是利用幫相片加藍，或加青，暖色系，則是幫相片加紅，或加黃。
特效 / 光線 / 冷色系
我要如何讓相片亮的方可以再更亮一點,但是卻不會影到暗的地方呢?
選取亮的地方 / 相片 / 光線 / 亮度與對比
要如何改變相片的大小?
調整 / 調整大小
可以同時改變多張相片的大小嗎?該怎麼做呢?
開啟所有圖片檔
視窗 / 批次管理員 / 調整[類別] / 調整大小
設定尺寸 / 確定
要如何為相片加上邊框?
調整 / 擴大底框 / 設定距離 / 確定
請問數位相機中的相片要如何傳輸到電腦中?
檔案 / 數位相機 / 選取輸入項目 / 確定
請問要如何調整相片的角度、大小?
調整 / 調整大小
編輯 / 旋轉與變形 / 使用變形工具
請問要如何剪裁相片?
剪裁工具
請問要如何列印相片目錄?
檔案 / 列印 / 其他列印選項
多重列印 / 設定項目
請問要怎麼製作網路相簿?
先將所有照片置於資料夾內
檔案/分享/WEB相簿/設定資料夾
請問要如何調整相片的光線?
相片 / 光線 / 改善光線[可調陰影]
相片 / 光線 / 色階 [可調區域分佈]
相片 / 光線 /亮度與對比[整體]
要如何將相片做成自動播放網頁檔?會不會很難?
先將所有照片置於資料夾內
檔案/分享/WEB投影片秀/設定資料夾
要如何將相片做成相片目錄網頁檔?
先將所有照片置於資料夾內
檔案/分享/WEB相簿/設定資料夾
請問要如何調整相片的顏色?
相片 / 色彩 / 色相與彩度
請問要如何調整相片的焦距?
相片 / 焦距
要怎麼將相片中臉上的縐紋去除?
使用修容工具 或彷製畫筆
如何用PhotoImpact修改模糊的相片?
使用修容工具 或彷製畫筆
如何將相片的四個角裁切成圓角形狀?
檔案 / 開啟舊檔 / 複製
選取路徑繪圖工具 / 圓角矩形
編輯 / 貼入選取區
數位相機拍出來的照片尺寸都非常大，檔案下載時間也會比較久，不適合直接貼到網路相簿中給大家欣賞。
所以要壓縮轉檔
要如何將圖片裁切成適合上傳到網路相簿的大小呢？
可以使用批次管理員 / 視窗 / 批次管理員
調整[類別] / 調整大小
設定尺寸 / 確定
如何將1024*768的照片.縮小成800*600?!
調整 / 調整大小 / 預設項目 / 800*600
如何將相片調成2吋大小?
一吋等於2.54公分( 相片對角線)
一吋相片是2.2公分× 3.2公分
一吋相片是4.4公分× 6.4公分
解析度300DPI
3 X 5 = 3 X 300 X 5 X 300 = 900 X 1500 = 135 萬像素[ 7.2CM X 12.7CM ]
4 X 6 = 1200 X 2400 = 216 萬像素 [ 10.16CM X 15.24CM ]
調整 / 調整大小 / 文件大小 / 設定單位 英吋
拍照時若曝光不足有什麼可以補救的方法嗎?
相片 / 光線 / 色階
2009年7月18日星期六
2009年7月17日星期五
ACCESS - 多個條件方法
以下是學生的問題
如果資料欄位內的身分字號同時包含居留證號（居留證號的第二碼英文字若為”A”或“ｃ”則為男性，”B”或“D”則為女性，）請問該如何下條件抓取性別資料?
答
性別: IIf((IIf(Mid([字號],2,1)="C",1,0)+IIf(Mid([字號],2,1)="A",1,0)+IIf(Mid([字號],2,1)="1",1,0))=1,"男","女")
2009年7月16日星期四
不錯的網頁作品
http://140.119.210.19/~c9802/
http://140.119.210.19/~c9803/
http://140.119.210.19/~c9804/
http://140.119.210.19/~c9805/
http://140.119.210.19/~c9806/
http://140.119.210.19/~c9807/
http://140.119.210.19/~c9808/
http://140.119.210.19/~c9809/
http://140.119.210.19/~c9810/
http://140.119.210.19/~c9811/
http://140.119.210.19/~c9812/
http://140.119.210.19/~c9813/
http://140.119.210.19/~c9814/
http://140.119.210.19/~c9818/
http://140.119.210.19/~c9820/
http://140.119.210.19/~c9821/
http://140.119.210.19/~c9822/
http://140.119.210.19/~c9823/
http://140.119.210.19/~c9824/
http://140.119.210.19/~c9825/
http://140.119.210.19/~c9826/
http://140.119.210.19/~c9828/
http://140.119.210.19/~c9829/
http://140.119.210.19/~c9830/
http://140.119.210.19/~c9831/
http://140.119.210.19/~c9832/
http://140.119.210.19/~c9833/
http://140.119.210.19/~c9834/
http://140.119.210.19/~c9835/
感謝所有的學生 , 您們太站了
誰要買DVD
大家好我有一台全新的DVD
要賣700元
參考資料與圖片
http://www.carrefour.com.tw/store/store02.asp?areaid=6&shopid={3D74BD6A-34D8-4D27-947F-A1FD790682C4}&PM=2&t=73333.97
2009年7月15日星期三
EXCEL寄信VBA
以下設計參考麻棘家族討論區
網址 : http://gb.twbts.com/index.php?PHPSESSID=qgj0mcvquf36h372i3jumggno1&topic=6387.0
我有重新設計過
第一請先設定outlook為預設的電子郵件寄信軟體
第二設定C磁碟機的路徑案例為c:\alex
第三以目前的檔案工作表2為例
第四撰寫下列巨集程式
Sub EXCEL寄信VBA()
Sheet1.Copy
ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
a = "ALEX"
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & a
ActiveWorkbook.SendMail Array("alexmysir@gmail.com", "alexmysir@gmail.com"), a
ThisWorkbook.Activate
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
2009年7月14日星期二
2009年7月13日星期一
2009年7月12日星期日
2009年7月11日星期六
2009年7月10日星期五
2009年7月9日星期四
PHPMYSQL的選擇用法
若要有多個選項用
switch($vitem)
{
case 1:
$yes+=1;
break;
case 2:
$no+=1;
break;
.
.
.
同上
}
或者使用if時的範例
d=6
d1=6.7
=if(d>0) then (d=d1)
DREAMWEAVER - IFRAME
新增網站
index.php left.html main.html a.html b.php c.php d.php e.php
在index插入表格 [每一張小圖是200 * 150]
四*四 800*600
左上方3*3進行合併
插入 影像 影像預留位置 600*450
名稱自訂
點選小圖
視窗 行為 + 調換影像 選大框框的名稱 連接大圖
以上是調換影像做法
您也可以使用iframe的做法:
2009年7月5日星期日
illustrator - 即時上色
這一招一定要學起來 ,
1 先畫圓 , 再畫直線 , 與圓垂直相交
2 全選 , 選取 物件 / 即時上色 / 製作
3 選取 即時上色工具 / 改變半圓色彩
4 選取 扭曲工具 / 旋轉
5 對圓心按左鍵 , 您會看到有渦輪效果喔
2009年7月4日星期六
photoshop - 影像教學
●修掉雀斑和痘痘
左方的「汙點修復筆刷工具」
會取該範圍的平均值，所以要多弄幾次
點放大鏡時若是放得太大 可在上方點選 實際像素
------------------------------------------------------------
●要把照片中的某人去掉：
左方仿製印章工具
要先壓住 Alt之後點要複製的區域，再點左鍵去掉
不能用移動的
------------------------------------------------------------
●變胖變瘦：濾鏡→液化→縮攏工具or膨脹工具
flash - 路徑
選取文字工具 一 打Ｑ 字型選擇Windings 變成飛機
點選圖層之後按右鍵 增加導引線
點導引線的第一個影格 將原圖層鎖住之後用左邊鉛筆工具畫路徑
之後再解除鎖定，將原圖的中心點移到頭和尾
再使用補間動畫 (可加上沿向路徑旋轉)
-------------------------------------------------
在旋轉的兩邊按兩個F6 複製之後再將中間按F5插入影格延長時間
加減速正100是一開始速度快 快要到結束的影格時變慢
-100是起步慢 結束快
flash音樂設定
匯入音樂之後，點音樂的那個圖層之後把音樂拉進去
點音樂之後下方的同步：
事件：只要一到那個影格就播放音樂 [會有重複問題 , 時間不夠時]
開始：播一整首歌
停止：在網站上給人點選停止播放的
2009年7月3日星期五
photoshop - 擴邊
1 檔案 / 開啟舊檔 / 找圖 / 確定
2 選取 影像 / 版面尺寸 / 設定 相對打勾 / 設定 單位為像素 設定 寬 : 30 高 : 30
3 選取摩術棒工具 / 選取邊框範圍
4 選取 編輯 / 填滿 / 選取 顏色 (選個顏色) / 確定
5 選取 圖層 / 圖層樣式 / 斜角與浮雕 / 確定
PHOTOSHOP - 動作
如果您有一堆圖片要進行裁切時 , 請使用動作
1 選取視窗 / 動作
2 選取 增加組合 / 給名稱 / 確定
3 選取 建立新增動作 / 給名稱 / 開始記錄
4 進行重覆的影像動作
例如 : 裁切
選取 裁切工具 / 設長寬
拖拉 裁切範圍(注意起始位置會影響之後的照片)
打勾
5 停止記錄動作
註 : 日後只要點此動作 就可快速進行圖片裁切
PHOTOHOP 筆記 - 政大美女帥哥提供
我的學生真的太利害了
一 光暈字設計(1)
1 檔案 / 開新檔案 / 選取網頁 1024 *768 / 確定
2 選取 文字工具 / 輸入文字
3 選取 文字圖層 / 選取圖層 / 圖層樣式 / 外光暈
二 圖片字設計(2)
1 檔案 / 開啟舊檔案 / 找圖 / 確定
2 選取 選取 / 全部 / 編輯 / 複製 / 關閉檔案
3 檔案 / 開新檔案 / 選取網頁 1024 *768 / 確定
4 選取 文字工具 / 水平文字遮片 / 輸入文字
5 選取 編輯 / 貼入範圍內
三 光暈字設計(3)
1 檔案 / 開新檔案 / 選取網頁 1024 *768 / 確定
2 選取 文字工具 / 水平文字遮片 / 輸入文字
3 選取 文字圖層 / 選取編輯 / 填滿 / 顏色(黑色最好)
4 選取 圖層樣式 / 外光暈 / 調整此圖層的填滿其百分之百變成零
2009年7月2日星期四
配色可以參考這個網站
配色可以參考這個網站
http://www.neteffect.dk/colormatch/
http://colormixers.com/mixers/cmr/
http://www.themaninblue.com/experiment/Technicolor/
http://colorschemedesigner.com/
這個哄老婆的資料很站喔 - 不是我寫的
http://6aaa.blogspot.com/2009/07/blog-post_7854.html
哄老婆秘笈@"@...
切記:讚美是女人的維他命~
男生們看清楚了！
問題一：你愛我嗎？
錯誤答案A：愛。
錯誤答案B：這還用問嗎？
錯誤答案C：你煩不煩啊？
標準答案：目光憐愛的望着對方三秒，然後神情的點一下頭，同時發出嗯的聲音，然後一把把她攬在懷??
解析：答案A會讓她覺得你太不嚴肅了，純粹胡弄她；答案B會讓她覺得你對她的愛不夠堅定，而且她一定會喋喋不休的問到底，讓你給她明確的答案，夠你煩的；答案C過 後一定是一頓大架或冷戰。其實女人對男人是不是愛她這件事兒心裡有數，她這麽問純粹就是撒嬌調情，你抱抱她親親她比回答什麽都讓她高興。
問題二：你看我這件衣服好看嗎？
錯誤答案A：挺好看的
錯誤答案B：還行。
錯誤答案C：真好看，我老婆穿什麽都好看。
標準答案：來來來，轉一圈讓我看看......待她害羞的轉完一圈後，把她拉過來，拉着她的手微笑的看着他說：真的挺好看的。
解析：答案A會讓她覺得你應付她；答案B會讓她覺得沒自信，在她心理穿什麽你都應該覺得好；可是如果真說好看，像答案C一樣她又會覺得你花言巧語不真誠。所以啊，你要表示出對她提的這個問題的認真程度，必須要仔細的看看再說。
問題三：在她把她的閨蜜介紹給你認識之後，回到家她問：你覺得我這朋友怎麽樣啊？
錯誤答案A：挺漂亮的。
錯誤答案B：不怎麽樣，比你差遠了。
錯誤答案C：我都沒怎麽注意她。
標準答案：我覺得她對你挺真誠的，應該好好珍惜這樣的朋友。
解析：答案A純粹是自找麻煩，女人是絕不能允許你在她面前說别的女人好的（當然，母親除外。）；答案B聽着就太假了；答案C你一定覺得回答得挺高明的吧，她壓根兒就不會信，而且她會展開想像分析你爲什麽不願意對她的朋友進行評價。所以，要避開問題，轉個彎兒回答，讓她覺得你一切都是爲她着想，她會有被呵護照顧的感覺。
問題四：你覺得我胖了嗎？
錯誤答案A：沒胖
錯誤答案B：好像是胖了。
錯誤答案C：呦，是不是最近太累啊，怎麽都瘦成這樣了？
標準答案：過來讓我抱抱，等抱過之後你再說：我就喜歡你這樣的，有點肉。
解析：答案A回答得太幹脆了吧，她聽着不過瘾。答案B純屬找罵，女孩子怎麽能喜歡聽别人說她胖呢？即使你再三強調你喜歡胖的，她還會不高興；答案C聽着都那麽虛僞，現在的女人哪那麽好蒙啊？其實，在女人的心理她還是希望男人不在乎她的胖瘦，雖然嘴上說爲了你減肥，其實是爲了自己更漂亮，能穿更多好看的衣服。所以你用肢體語言表示出你喜歡她有點兒肉就可以了
問題五：我和你前女友比起來，你比較喜歡哪一個？
錯誤答案A：廢話，當然是你了，要不然幹嗎跟你在一起。
錯誤答案B：嗯，怎麽說呢，如果讓我說實話，各有千秋吧。
錯誤答案C：她比你差遠了。
標準答案：狠狠的咬她一口或親她一下或捏她的小臉蛋，等到她撒嬌的嗷嗷叫的時候你就說：下次再問這種無聊的問題，還得這麽懲罰你。
解析：答案A也太生硬直接了吧？她接下來就會問：那你以後碰見比我好的是不是也得把我踹了啊？答案B您就等着分手吧，忒實在了也。答案C聽上去還不錯，但你這不是抽自己嘴巴嘛，你說自己前女友不好會讓女人很得意而降低了你自己的身價。其實在女人心理她特别希望你的前女友是個特别優秀的女人，而偏偏是你不願意跟她好了，這樣女人心理有成就感的。可是你又不能直接說前女友有多好，所以就用她喜歡的方式來回避問題吧 ( 至於她是喜歡你捏她的臉蛋兒還是咬她一口我們就不知道了 )
問題六：如果我和你媽媽同時掉進水理你會救哪一個？
錯誤答案A：你有夠無聊啊
錯誤答案B：一塊兒救。
錯誤答案C：寶貝兒，别難爲我，再說這種情況也不會發生的。
標準答案：哦，我沒告訴你吧，我媽是游泳健將。
解析：雖說問這個問題確實很無聊但你也不能像答案A那樣，這會引來喋喋不休的爭吵；答案B她一定會不甘心的追問下去，你不想清靜清靜嗎？答案C聽上去還不錯，但還是很牽強。不如就幽默一回，别讓她一天到晚的老杞人憂天沒事兒找事兒了。
問題七：如果我老了難看了，你還會愛我嗎？
錯誤答案A：不可能，你老了也好看。
錯誤答案B：女人不同的年齡段有不同年齡段的魅力......
錯誤答案C：沒事兒，你老了我也好不到哪兒去，咱倆誰也别嫌棄誰。
標準答案：我巴不得你難看點兒老點兒呢，這樣放在家裡才放心啊。
解析：答案A她聽着也高興，但心理也知這是絕對不可能的；答案B就趕緊打住吧；答案C不就說她老了肯定不好看了嘛，她怎麽能接受呢？所以啊，最聰明的答案就是既讓她打消顧慮又讓她知道你特别在意她，特别怕失去她。
2009年6月30日星期二
2009年6月29日星期一
excel vba
Sub 插入工作表()
Sheets(1).Select
Sheets.Add
Sheets(1).Select
End Sub
Sub 單位清單()
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="衛生,人事,總務,行政,財務,其他"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
End Sub
Sub 合併工作表()
插入工作表
x = InputBox("請輸入合併工作表的數量")
Sheets(2).Select
xa = "1:" & x
Range(xa).Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
For i = 3 To x + 1
Sheets(i).Select
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Next
Range("A1").Select
End Sub
2009年6月28日星期日
請大家幫幫她
好像是班上的嘉雯(我看E-MAIL)
anyway 幫忙傳
=====================
儘管有些人不懂得珍惜生命，但還是有很多人正在跟老天爺拔河！
一位正在台北振興醫院住院的陳爸爸，在今年農曆年後因感冒引發心臟衰竭，
醫生雖然為他先後緊急裝上主動脈氣球幫浦與葉克膜，但心臟功能嚴重受損到僅有換心一途。
陳爸爸的3個女兒緊急奔走，祈求能有機會把心愛的爸爸從死神手上救回來。
「我爸爸在今年農曆年後因感冒引發心臟衰竭，心臟功能嚴重到只能換心...」
孝順的陳嘉雯，談到陳爸爸的病情，急得像是熱鍋上的螞蟻。
陳嘉雯說，血型O型的父親，目前正在台北振興醫院，等待善心人士發揮大愛，捐出O型心臟，
「雖然說等待器官捐贈，真的只能靠緣分，但是我們真的非常無助。」
陳嘉雯說，從小到大都不曾看爸爸流過眼淚，
因為，陳爸爸總是說，男兒有淚不輕彈，
「而這次，不僅僅是我們為人子女的眼淚潰堤，連從來不哭的爸爸，也默默的流下好多淚水...」
陳嘉雯不甘心眼睜睜地看著心愛的爸爸，生命倒數計時、無計可施，
因此，主動和姐妹們對外發出求救訊息，「希望能拜託並懇求各位，幫幫我們好嗎？」
陳嘉雯說，陳爸爸非常熱切盼望著活下去，身而女兒的她，真的不希望父親就這樣帶著遺憾與失望離開人世。
陳嘉雯說，自己和妹妹都是殷實的公務員，而大姐則是政大的博士，
她們姐妹三人未來也會像現在一樣，一輩子回饋社會，只希望父親這次能爭取到活下去的機會。
更多訊息～
陳嘉雯：0953709568
adatt6976@yahoo.com.tw
2009年6月27日星期六
2009年6月26日星期五
台北市中小企業知識學苑 - 大家可以去參加喔
活動費用：完全免費
課程名稱討論議題師資日期/時間地點報名
從金融海嘯看臺灣機會1.面對金融海嘯的衝擊與省思
2.全球危機經驗看企業價值
3.海嘯後產業重新洗牌 靠創新力
4.新生產力運動-六大新興產業
5.提升服務業產值 兩岸直航觀光打頭陣
6.ECFA台灣成為國際企業的創新與物流中心
7.中小企業的逆境創新力
經濟部經濟部
尹啟銘 部長
南僑集團
陳飛龍 會長
經濟日報
馬凱 總主筆6月27日（六）
09:30-12:30台灣科技大學101會議室
(台北市基隆路四段43號)馬上報名
??報名活動：
‧報名日期：即日起至額滿為止，名額有限，敬請報名從速，以免向隅。
‧報名網址：http://knowledge.taipei.gov.tw
‧報名諮詢專線：(02)2698-2989 趙小姐（分機2104）╱張小姐（分機2072）。
2009年6月25日星期四
EXCEL VBA - 畫圓
進入EXCEL後 - 工具 / 巨集 / VBA編輯器
選取工作表名稱 / 按二下 / 輸入下列程式
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim mycircle As Shape
Set mycircle = ActiveSheet.Shapes.AddShape(msoShapeOval, ActiveCell.Left, ActiveCell.Top, 1, 1)
mycircle.Height = 200
mycircle.Width = 200
mycircle.Placement = xlMove
mycircle.Fill.Visible = msoFalse
mycircle.Fill.Transparency = 0#
mycircle.Line.Weight = 6#
End Sub
就可以任意畫圓了
網路開店訊息 - pchome
這是pchome的喔
希望可以幫助大家喔
《免費索取》PChome商店街網路創業成功經驗分享包★7/8台北、7/10台中、7/15高雄、7/17台南、7/17桃園、7/22豐原★網路開店說明會免費報名中！
2009年6月24日星期三
感謝文化的同學
今天文化大學的網路影像課程結束 , 非常感謝同學們的努力
對於班上的美女真的是令人映象深刻
大致有1 中和妹 , 真是不歪的妹妹 , 2 銀行妹 有閒到不行 , 3 春金妹 , 真是日本竹本家來的 , 前面有油條妹 , 很多油喔用看的 , 有一個同級妹 , 常坐船[暈] , 當然帥哥也一堆例如班頭 , 愛迪生 , 拉客高手等....
其他不及記載 , 總之謝謝大家
祝大家一路順風
2009年6月23日星期二
2009年6月22日星期一
premiere -影片輪播
如何設計影片輪播
1 先要有一樣大的尺寸圖片或影片[格統一比較好處理]
2 啟動 Premiere
3 選取new / 設定位置 , 設定ntsc規格 / 確定
4 選取 file / import / 找檔案 [5張] / 開啟
5 將左上方的檔案 拖曳至時間軸中 / 分三個時間圖層 [video 1 , video 2 , video 3]
6 設定圖片的位置 [ 時間點每間格3秒 , 方便計算 ]
7 內容大致如下 : 0 [-400 ,200] , 3 [0 , 200] , 6 [ 400 , 200]這是video 1
3 [-400,200] , 6[0,200] , 9[400,200]這是video 2
6 [-400,200] , 9 [0 , 200] , 12 [400 , 200] 這是video 3
8 以後以此類推
EXCEL VBA - 自動加總
以下是學生的要求
我簡單的完成一些基本功能
Dim F_CALC, J_CALC, K_CALC
Dim xi, ti As Integer
Sub 執行答案()
複製工作表
計算Vender和
插入Product列
計算Product和
End Sub
Sub 計算Vender和()
Range("A4").Select
Selection.End(xlDown).Select
vnum = ActiveCell.Row
ActiveCell.Offset(1, 0).Select
vsum = (vnum - 3) * (-1)
snum = -1
ActiveCell.Offset(0, 2).Value = "Total Amount of all venders"
For i = 6 To 17
ActiveCell.Offset(0, i).Formula = "=SUM(R[" & vsum & "]C:R[" & snum & "]C)"
Next i
End Sub
Sub 插入Product列()
ri = 4
ti = 0
Range("A4").Select
Selection.End(xlDown).Select
rnum = ActiveCell.Row
Range("A4").Select
While (ri <> rnum)
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
ActiveCell.Offset(1, 0).Select
ti = ti + 1
tx = ActiveCell.Row + 1
Else
tnums = tx & ":" & tx
Rows(tnums).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
計算Product和
ActiveCell.Offset(1, 0).Select
End If
ri = ri + 1
Wend
ActiveCell.Offset(1, 0).Select
End Sub
Sub 計算Product和()
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
ActiveCell.Offset(0, 1).Value = ActiveCell.Value & "total sum"
End Sub
Sub 插入列()
i = 4
xs = 0
xs1 = 0
xs2 = 0
Range("B4").Select
Selection.End(xlDown).Select
rnum = ActiveCell.Row
Range("B4").Select
x1 = ActiveCell.Value
x2 = ActiveCell.Offset(0, -1).Value
x3 = ActiveCell.Offset(0, 2).Value
x4 = ActiveCell.Offset(0, 3).Value
計算F
x6 = ActiveCell.Offset(0, 5).Value
x7 = ActiveCell.Offset(0, 6).Value
x8 = ActiveCell.Offset(0, 7).Value
計算TTL_Q
計算TTL_S
x10 = ActiveCell.Offset(0, 10).Value
x11 = ActiveCell.Offset(0, 11).Value
x12 = ActiveCell.Offset(0, 12).Value
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
rsum1 = ActiveCell.Row
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 2).Value = x3
ActiveCell.Offset(0, 3).Value = x4
ActiveCell.Offset(0, 4).Value = F_CALC
xs = x6 + xs
xs1 = x7 + xs1
xs2 = x8 + xs2
ActiveCell.Offset(0, 8).Value = J_CALC
ActiveCell.Offset(0, 9).Value = K_CALC
Else
xs = x6 + xs
xs1 = x7 + xs1
xs2 = x8 + xs2
ActiveCell.Offset(1, 0).Select
rx = ActiveCell.Row
rnums = rx & ":" & rx
Rows(rnums).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
rc = "B" & rx
Range(rc).Select
ActiveCell.Value = x1
ActiveCell.Offset(0, -1).Value = x2
ActiveCell.Offset(0, 1).Value = "sub amount"
ActiveCell.Offset(0, 2).Value = x3
ActiveCell.Offset(0, 3).Value = x4
計算F
ActiveCell.Offset(0, 5).Value = xs
ActiveCell.Offset(0, 6).Value = xs1
ActiveCell.Offset(0, 7).Value = xs2
xs = 0
xs1 = 0
xs2 = 0
計算TTL_Q
計算TTL_S
rc = "B" & rx + 1
Range(rc).Select
i = i - 1
End If
i = i + 1
Wend
End Sub
Sub 執行()
複製工作表
插入列
計算TTL_Q
End Sub
Sub 複製工作表()
Sheets(1).Select
Sheets(1).Copy Before:=Sheets(1)
Sheets(1).Select
End Sub
Sub 陣列()
xx(0) = ActiveCell.Value
xx(1) = ActiveCell.Offset(0, -1).Value
For xi = 2 To 7
xx(i) = ActiveCell.Offset(0, xi).Value
Next
End Sub
Sub 計算TTL_S()
ActiveCell.Offset(0, 9).FormulaR1C1 = "=RC[-1]*RC[-5]"
K_CALC = ActiveCell.Offset(0, 9).Formula
End Sub
Sub 計算F()
ActiveCell.Offset(0, 4).FormulaR1C1 = "=RC[-2]+RC[-1]"
F_CALC = ActiveCell.Offset(0, 4).Formula
End Sub
Sub 計算TTL_Q()
ActiveCell.Offset(0, 8).FormulaR1C1 = "=RC[-3]+RC[-2]+RC[-1]"
J_CALC = ActiveCell.Offset(0, 8).Formula
End Sub
2009年6月21日星期日
人生應有其他事可做
今日忙 , 今年忙 , 人生皆很忙 試想忙的定義
忙
定義 : 左心 , 右亡 , 也就是打心中開始做 一直做到亡
由音義解釋 : 不用眼睛 , 因為 盲 , 所以是四肢上的忙
研究一下 : 人生為何忙
等待下一版說明
2009年6月20日星期六
今天到龍潭上課 - ACER
今大到龍潭上課 - 學生的問題讓我學到很多東西
這一週要VBA程式 解決一位美女的問題
真的很不錯的問題 , 等我解決後我會將程式公佈在BLOG上
謝謝大家 , 到龍潭上課真的很不錯喔
謝謝ACER用心安排喔
2009年6月17日星期三
ACCESS - 的方法
欄位設計 = iif([欄一]="V",1,0)+ iif([欄二]="V",1,0)+ iif([欄三]="V",1,0) , 這樣的設計搭配準則是有OR的效果喔
日期+N年 : 可以使用DATEADD個函數
2009年6月16日星期二
EXCELVBA - 刪除相同列_留最大值
Sub 刪除相同列_留最大值()
'取列
i = 1
Range("B2").Select
Selection.End(xlDown).Select
x = ActiveCell.Row
rx = "a1:y" & x
'排序
Range(rx).Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range( _
"A2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, SortMethod:=xlStroke, DataOption1:= _
xlSortNormal, DataOption2:=xlSortNormal
Range("B2").Select
While (i <> x)
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
y = ActiveCell.Row
ry = y & ":" & y
Rows(ry).Select
Selection.Delete Shift:=xlUp
rb = "b" & y
Range(rb).Select
Else
ActiveCell.Offset(1, 0).Select
End If
i = i + 1
Wend
End Sub
2009年6月15日星期一
EXCEL 密碼忘了可以試試這些資訊喔
以下資訊是由PCHOME與softking提供
http://www.softking.com.tw/soft/clickcount.asp?fid3=11339
或是
http://toget.pchome.com.tw/intro/utility_other/25783.html
2009年6月14日星期日
EXCELVBA - 重覆選課
Sub 重覆選課()
'取列
i = 1
Range("C2").Select
Selection.End(xlDown).Select
x = ActiveCell.Row
rx = "a1:y" & x
'排序
Range("C2").Select
Range(rx).Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:= _
Range("D2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlStroke, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
Range("C2").Select
While (i <> x)
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
ActiveCell.Offset(0, 1).Select
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
ActiveCell.Offset(0, 21).Value = "重覆選課"
ActiveCell.Offset(1, 21).Value = "重覆選課"
ActiveCell.Offset(0, -1).Select
Else
ActiveCell.Offset(0, -1).Select
End If
End If
ActiveCell.Offset(1, 0).Select
i = i + 1
Wend
'還原
Range("A2").Select
Range(rx).Sort Key1:=Range("A2"), Order1:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, SortMethod:=xlStroke, DataOption1:=xlSortNormal
End Sub
2009年6月13日星期六
今日到龍潭上課
找找車站的車影 , 擦肩而過的美女 , 居然都在渴望園區
太幸運了 , 今天上課心情超好的 , 這個班充滿活力
不帥哥就是美女 , 而且讓我大開眼界
誰言帥哥美女比較笨 , 這一班突破了這個謠言
最後祝這一班的朋友 要幸福唷
加油
2009年6月12日星期五
EXCEL VBA - 自動填值
Sub 自動填值設計()
i = 1
Range("A2").Select
Selection.End(xlDown).Select
x1 = ActiveCell.Row
Columns("A:A").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A2").Select
While (i <> x1)
If ActiveCell.Value <> Empty Then
r1 = ActiveCell.Value
r2 = ActiveCell.Offset(0, 1).Value
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Value = r1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = r2
ActiveCell.Offset(0, -1).Select
ActiveCell.Offset(1, 0).Select
End If
i = i + 1
Wend
End Sub
2009年6月10日星期三
ACCESS - 函數
在access中使用的函數
Count() : 您可以使用 Count 來計算基礎查詢中的記錄數目。
Exp(number) : 會傳回指定 e (自然對數的基數) 次方的 Double。
Left(string, length) : 會傳回 Variant (String)，包含從字串左側起算的指定字元數。
Minute(time) : 傳回 Variant (Integer)，指定 0 到 59 (含) 之間的整數，代表小時的分鐘。
Month(date) : 傳回指定 1 到 12 之間 (包括 1 和 12) 的整數之 Variant (Integer)，代表一年之中的月份。
Second(time) : 傳回 Variant (Integer)，指定表示分鐘內秒數之 0 到 59 之間 (包含) 的整數。
Year(date) : 傳回 Variant (Integer)，包含代表年的整數。
DFirst(expr, domain [, criteria] ) 與
DLast(expr, domain [, criteria] ) : 只需要資料表或查詢中某個特定欄位的任意值，可以使用 DFirst 及 DLast 函數從該欄位傳回隨機記錄。
Avg () : 計算查詢中指定欄位所含值集的算術平均值。
Min(), Max() : 計算查詢中指定欄位所含值集的最小值或最大值。
StDev 與 StDevP : 傳回母體的標準差 (標準差：一種參數，用來表示被其自身的平均值所包圍的機率函式，而且此一參數等於要素的平方根，也就是來自於平均值的差異平方。)估計值，或者傳回母體樣本的標準差估計值，該樣本以包含於查詢中指定欄位內的一組值來表示。
Sum() : 計算查詢中指定欄位所含值集的總和值。
Var 與 VarP () : 會傳回母體或母體樣本之變異數 (變異數：標準差的平方，為數量的測量方式，以此方法計算，則群組中所有的値與平均值不同。)的估計值，其呈現為查詢中指定欄位內包含的一組值。
IRR(values() [, guess ] ) : 會傳回 Double ，指定各期現金流量的內部報酬率 (支出和收入)。
Mid(string, start [, length ] ) : 傳回 Variant (String)，包含字串的指定字元數。
MIRR(values(), finance_rate, reinvest_rate) : 會傳回double , 指定依不同利率對各期之現金流量融資的內部報酬率 (支出和收入) 。
StrReverse(expression) : 會傳回反轉指定字串中各字元順序的字串。
Abs(number) : 會以與傳遞之數字相同的類型傳回該數字的絕對值。
CurDir[(drive)] : 會傳回代表目前路徑的 Variant (String)。
FileDateTime(pathname) : 傳回 Variant (日期)，指示檔案建立或前次修改的日期與時間。
Hour(time) : 傳回 Variant (Integer)，指定 0 與 23 (含) 之間的整數，代表日期的小時。
Join(sourcearray [, delimiter ] ) : 傳回藉由聯結陣列 包含的子字串數所建立的字串。
LOF(filenumber) : 會傳回 Long 代表使用 Open 陳述式所開啟之檔案的大小 (位元組)。
LTrim(string) , RTrim(string) , Trim(string) :傳回 Variant (String)，包含指定的字串副本，而不含前置空格 (LTrim)、後端空格 (RTrim)，或前置空格和後端空格二者 (Trim)。
EOF(filenumber) : 抵達為 Random 或循序 Input 開啟之檔案的結尾時，會傳回包含布林值為 True 的 Integer 。
FileLen(pathname) : 傳回指定檔案長度 (位元組) 的 Long 資料類型
Loc(filenumber) : 會傳回 Long 指定開啟檔案內的目前讀取/寫入位置。
Seek(filenumber) : 會傳回 Long 指定使用 Open 陳述式開啟之檔案中目前讀取/寫入的位置。
Weekday(date [, firstdayofweek ] ) : 傳回 Variant (長整數)，包含代表星期名稱的整
如需完整的函數介紹 , 開啟ACCESS後 , 按F1 , 輸入函數 , 就可以找到您要的資訊了
2009年6月9日星期二
EXCEL 找出非重覆的值2003與2007差異
以下使用2003
請依下列步驟執行
1 先複製一次工作表1
2 選取複製的工作表1
3 將回收學校資料複製到所有學校的下方
4 進行排序所有學校
5 選取欄號A / 插入欄
6 選取儲存格A2 輸入下列公式
=IF(OR(B2=B1,B2=B3),0,1)
7 選取A2儲存格右下方控點二下 , 您會看到連續二個00 表示重覆
8 進行選取欄A 篩選 , 設定1 , 這樣就可以找出非重覆的資料,
9 您再複製 / 到原工作表的C2 / 貼上值(就可以了)
以下是2007的方法
請依下列步驟執行
1 先複製一次工作表1
2 選取複製的工作表1
3 將回收學校資料複製到所有學校的下方
4 選取資料 / 移除重複料 (就完成了)
5 將結果複製到原先的工作表3的C2儲存格位置
2009年6月8日星期一
EXCEL - VBA 找出最大值
Public Sub OK()
Range("C3").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-1]:R[17]C[-1])"
x = ActiveCell.Value
Range("b2").Select
While (ActiveCell.Value <> x)
ActiveCell.Offset(1, 0).Select
Wend
y = ActiveCell.Row
y = "c" & y
Range(y).Value = x
Range("C3").Value = Empty
End Sub
2009年6月7日星期日
EXCEL-VBA 選取任意範圍
這是可以的 , 但是先決條件是不是要告知儲存格的起點
您可以設計下列程式可以做到您的要求
Public SUB 任意範圍()
x = InputBox("輸入起始位址[如:A3]")
y = InputBox("輸入欄與列範圍大小[如:3*5]")
Range(x).Select
y1 = Int(Left(y, 1))
y2 = Int(Right(y, 1))
ActiveCell.Offset(y2, y1).Select
r1 = ActiveCell.Address
myaddress = x & ":" & r1
Range(myaddress).Select
END SUB
不過上式只執行一位數 , 如果您要二位數以上建議改成下列方式較方便
Public SUB 任意範圍()
x = InputBox("輸入起始位址[如:A3]")
cn = InputBox("輸入欄範圍大小[如:12]")
rn = InputBox("輸入列範圍大小[如:120]")
Range(x).Select
ActiveCell.Offset(rn, cn).Select
r1 = ActiveCell.Address
myaddress = x & ":" & r1
Range(myaddress).Select
END SUB
2009年6月6日星期六
EXCEL VBA 時間反序
一要有三張工作表
一張 IN : 資料輸入
二張 : 正向(fxd)
三張 : 反向(newfxd)
程式如下
Sub Macro1()
Sheets("fx-d").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 0).Value = Sheets("IN").Range("D6").Value
ActiveCell.Offset(0, 1).Value = Sheets("IN").Range("E6").Value
ActiveCell.Offset(0, 2).Value = Sheets("IN").Range("F6").Value
Range("A3").Select
Sheets("newfx-d").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Range("A3").Select
ActiveCell.Offset(0, 0).Value = Sheets("IN").Range("D6").Value
ActiveCell.Offset(0, 1).Value = Sheets("IN").Range("E6").Value
ActiveCell.Offset(0, 2).Value = Sheets("IN").Range("F6").Value
Sheets("IN").Select
Range("D6").Select
End Sub
2009年6月4日星期四
2009年6月2日星期二
柯尼卡攝影學會生活攝影初級班 招生簡章
柯尼卡攝影學會生活攝影初級班 招生簡章
一. 宗旨:為推廣數位相機攝影，熟悉數位後製技能基礎。
主要針對攝影愛好者所規劃、基礎影像處理提供教材、例圖，以實作為主。
二. 以實用及小班化教學為主、輕鬆學習、讓每位學員自信地修好照片。
三. 費用:會員每人NT$2000元，非會員每人NT$2500元。
四. 報名方式:請以郵政劃撥方式報名(帳號:07186667戶名:蕭美蘭)，或電話報名:0932-177-205蕭美蘭
五. 上課時間:學員額滿20名即開課每星期四晚上7:00至9:00。
上課地點: 台北市林森北路67巷7號3樓（林森區民活動中心）
授課教師: 本班所聘請之授課老師陣容堅強，教學與攝影經驗豐富，且對其所擔任之課程亦均有獨到之見解，為國內優秀之攝影名家。尤其著重於實拍操作，讓每位學員均能深入領悟攝影之相關技巧及手法。
總會長：王盈欽 總幹事:廖耀宗 班主任：陳孝友 招生策劃: 蕭美蘭指導老師:王在洲 游任忠
2009年6月1日星期一
2009年5月31日星期日
今天開始找資料
真的家中有小朋友的人一定和我一樣
不能家工作 , 因為妹咕會固人怨
在家電腦不再是電腦 , 工作已不是工作
所以一點進度都沒有
現在我到公司才發現也是有限制
資料較不容易保存 - 氣死我了
大家一同加油喔
2009年5月30日星期六
好久沒有陪妹咕上街
今天晚上陪妹咕上街
我才發現妹咕真的喜歡阿爸
近日使用WIN7 , 又買了一個500GHD
真是了錢 , 句說7月要繳學費
真是了大錢 , 希望有心要唸書的同學一定要先存夠錢
否則會像我一樣 , 養家 唸書 二頭燒
天Y , 妹咕又來了
思考中 , 她居然說 : 阿爸 我要 WIN
妹咕真是一個賠錢貨
2009年5月29日星期五
2009年5月28日星期四
2009年5月25日星期一
收到一位美女小姑娘的信 - 值得大家學習喔
以下內容問過小姑娘是OK公開的
請大家要給她祝福 , 可以在此留言回應喔
Dear 妹咕老師～
告訴你一個消息唷
我要報考台科大的轉學考唷～
因為真的我們班的讀書風氣真的很差
連姑姑都巴不得我趕快轉走^^"
不過一半也是上了一次妹咕老師的課 還有老師你跟我說的對話內容
就是想說是是看轉學考 去好一點的學校學一些專業的東西
我已經開始看書了 don't worry！！
不過台科大 它需要備審資料
備審資料 我打算要用中英的簡歷 中英自傳 還有我的讀書計畫 ＆作品集
但我不確定台科大德教授他希望看到的被審資料淤要甚麼內容
就是想請問妹咕老師如果你是教授 你會比較喜歡看怎樣的被審資料？
然後呀～
我的作品集 想打算用ＰＨＰ＆ｄｒｅａｍｗｅａｖｅｒ 做簡單的留言板
如果ｏｋ的話 我還滿想做自己的小個人網頁 （哈！）
妹咕老師 你覺得呢？！
之後我網頁用好了 可以請妹咕老師幫我看嗎？
恩～還有 我可以請妹咕老師推薦＂計算機概論＂的書嗎？！
就是因為學校沒教 想利用暑假自修
謝謝妹咕老師～！！
娃娃
2009年5月24日星期日
2009年5月23日星期六
今天上課學到邱老師的新技術
黃金比例的計算 是A+B/C
例如 : 2:1 ( A : B )= 2/1 =2 (C)
3:2 = 3( A+B) / 2 = 1.3333
如此執行10 次就可以得到黃金比例的數據了
2009年5月21日星期四
2009年5月20日星期三
2009年5月17日星期日
2009年5月15日星期五
SPSS 找出問題資料
今天試了一下可以找出簡單的問題資料喔
方法一 : 交叉表
安例 : 如果想知道學生學電腦的年限
1. 在「分析」選單中選擇「描述性統計」之「交叉表」
2 選擇「橫列」及「直行」所需變數 ( 年齡 學習年資 )
如結果顯示有2個受訪者資料為：一位年齡為45，但學習年資為2
年以下(有可能是剛學習)；另一位年齡為23，但學習年資為20年以
上 (明顯有誤)。
當然資料是問卷而來
2009年5月14日星期四
色情行銷 , 同學們的BLOG要小心
上則的到東吳上課 心情論
發現有人回應
結果是這個MAIL
noreply-comment@blogger.com
內容是比較清涼的
不是老師放的喔
請大家告訴大家
這是一種置入性行銷手法
很難管控 , 所以請該業者要自律
2009年5月12日星期二
2009年5月11日星期一
2009年5月9日星期六
2009年5月7日星期四
2009年5月6日星期三
給順長官
時程進度
課程內容大網及學習注意事項
第一堂
¹ 2小時
我形我速(2)
認識我形我速
我形我速的基本操作及影像調整
環境認識及基本操作
取得相片
改善/旋轉/轉換功能
SmartEnhance
進階影像編輯
影像的選取技巧
相片特效
鏡頭特效
特殊特效
裝飾功能
繪圖功能
實務應用
自製精美卡片─賀卡製作
精美月曆製作
說明
本課程中讓學員了解我形我速的快速上手，以設計市公所月曆及公所賀卡為主，以便學員往後可以使用公所照片設計在地的月曆喔。
第二堂
¹ 2小時
BLOG(2)
簡介BLOG
何謂BLOG
Blog的優點
Blog的缺點
常見的Blog網站
申請 GOOGLE BLOG
淺談BLOG功能
BLOG發表
更換BLOG樣式
BLOG變裝秀
行銷BLOG
加入BLOG連結 [ 市府網站 ]
說明
本課程要讓學員了解如何連結市公所網站 , 進入公所查詢資料，學員可以學到便民措施的運用。
第三堂
¹ 2小時
SKYPE(2)
SKYPE簡介
下載SKYPE
安裝SKYPE軟體
申請SKYPE帳號
登入與登出
新增聯絡人
進階設定
正式通話
尋找線上友人
說明
本課程中讓學員了解實際網路通訊的製作，學員可以對SKYPE的所有使用技巧有深入的認知。
給順長官
時程進度
課程內容大網及學習注意事項
第一堂
¹ 2小時
我形我速(2)
認識我形我速
我形我速的基本操作及影像調整
環境認識及基本操作
取得相片
改善/旋轉/轉換功能
SmartEnhance
進階影像編輯
影像的選取技巧
相片特效
鏡頭特效
特殊特效
裝飾功能
繪圖功能
實務應用
自製精美卡片─賀卡製作
精美月曆製作
說明
本課程中讓學員了解我形我速的快速上手，以設計市公所月曆及公所賀卡為主，以便學員往後可以使用公所照片設計在地的月曆喔。
第二堂
¹ 2小時
BLOG(2)
簡介BLOG
何謂BLOG
Blog的優點
Blog的缺點
常見的Blog網站
申請 GOOGLE BLOG
淺談BLOG功能
BLOG發表
更換BLOG樣式
BLOG變裝秀
行銷BLOG
加入BLOG連結 [ 市府網站 ]
說明
本課程要讓學員了解如何連結市公所網站 , 進入公所查詢資料，學員可以學到便民措施的運用。
第三堂
¹ 2小時
SKYPE(2)
SKYPE簡介
下載SKYPE
安裝SKYPE軟體
申請SKYPE帳號
登入與登出
新增聯絡人
進階設定
正式通話
尋找線上友人
說明
本課程中讓學員了解實際網路通訊的製作，學員可以對SKYPE的所有使用技巧有深入的認知。
用EXCEL進行資料比對[三個欄位比對]
假設14309筆資料 , 如何找出重覆報名的人[姓名 , 電話 , 課程] 假設資料從A欄到H欄編號(A) , 姓名(B) , 性別(C) , 課程(D) , 年齡(E) , 電話(F)請依下列步驟進行 , 不必寫程式喔1 選取姓名欄位的標題儲存格 , 例如 : B12 點選 排序 A-Z3 於最後一欄增加一個欄位 , 輸入 姓名重覆[假設G1]4 於G2輸入 公式 "=if(b3=b2,1,"")"5 於G2控點按二下(可以看到一堆1 , 有的沒有) , 沒有表示是沒有覆 , 請進行複製整欄,貼上值(原地)6 選取課程欄位的標題儲存格 , 例如 : D17 點選 排序 A-Z8 於最後一欄增加一個欄位 , 輸入 課程重覆[假設H1]9 於H2輸入 公式 "=if(d3=d2,1,"")"10 於H2控點拖曳至最後一筆(可以看到一堆1 , 有的沒有) , 沒有表示是沒有覆 (控點二下會因為前方的1而中斷), 請進行複製整欄,貼上值(原地)11 選取課程欄位的電話儲存格 , 例如 : F112 點選 排序 A-Z13 於最後一欄增加一個欄位 , 輸入 電話重覆[假設I1]14 於I2輸入 公式 "=if(f3=f2,1,"")"15 於I2控點拖曳至最後一筆(可以看到一堆1 , 有的沒有) , 沒有表示是沒有覆, 請進行複製整欄,貼上值(原地)16在這一部一定要會 17於最後一欄增加一個欄位 , 輸入 重覆的人[假設J1]18 於J2輸入 公式 "=IF(SUM(G2:I2)>2,"重覆","") --> 三個欄位為1表示真正重覆 , 請進行複製整欄,貼上值(原地)19 選取重覆的人欄位的儲存格 , 例如 : J120 點選 排序 Z-A , 就可以完成找出重覆的資料接下來看您要刪除重覆記錄(即留下的資料就是完全沒有重複) 或複製( 可以列管 )加油吧
今天學到新的觀念
許多時候BLOG是分享經驗的地方
但有時其實也是學習知識的地方
最近工作之餘 [ 清晨5:00 - 8:00 ]上班前的時間
因為我差不多2:00入睡 , 早上約5:00-6:00一定會清醒
不是我努力,而是我家樓上一位女士 , 必需很早出門
每每她下樓 , 我一定會醒來 , 因為她是一位不見踪跡 , 樓梯會響的高手
以上說明工作之餘 [ 清晨5:00 - 8:00 ]
此刻我會讀點東西 , 真的發現自己老了許多 , 也退步許多
有東西想和大家分享 , 也有學到很多東西
例如 : 近日整理XML , 總希望可以將資料理出頭緒
一忙一讀才知我還有很多沒有讀到
不知大家是否也有這樣的經驗
妹咕 , 一直是我學習的對象 , 昨天妹咕說
阿爸你真的很笨A , 100+1000+10000+100000+1000000+1+10等於多少
我本來要回答妹咕
但是妹咕順口說了一句
阿爸 忘記
我心想就配合她 , 就故意答錯
我說妹咕等於1
她便很快回答
您答錯了 [ 其實我也知道 ] , 我便問妹咕答案是多少
結果妹咕居然說
我才不要和你說
知道也不告訴你 [ 除非你要和我做朋友 ]
上述的例子 , 我從妹咕上學到自己的影子
靈活應用自己的能力去影响週遭的人
而我一直以自己做則 , 希望週遭朋友會比我好
當然也會遇到不好的事
期待大家也可以學到一些人生經驗喔
2009年5月5日星期二
結束了xml的學習
今天完成xml的作業學習 , 發現自己有太多不會的東西
人真的需要不斷的學習 , 不論是一個簡單的基礎
或是一個理論 . 真希望可以由此觀點告知我的網友們
昨天妹咕背了一首英文歌 , 數學目前她也會心算到3位數
真的妹咕這方面都很利害
看到妹咕我只有一個想法 , 就是自己要努力
才不會落後
我一定要加油 , 希望大家也要加油
2009年5月4日星期一
2009年5月3日星期日
2009年5月1日星期五
2009年4月30日星期四
今天到考選部說明OFFICE2007
下午沒事慢慢的騎車到考選部說明如何使用OFFICE2007最好用
結果考選部的長官真的很利害
課後問的問題皆是我沒想過的
大家可以想想喔
1 WORD的文件是UNICODE 存儲存檔案可否改成BIG5
我的方法是 轉成*.TXT[這是可以選碼位]
不知大家有無其他方法 [ OFFICE 2007 SP2 已有此功能 ]
2 WORD2007儲存檔案有無方法一眼可以看出其格式為2007
我的答案是[副檔名 , 或者摘要資訊註明]
不知大家有無其他方法
3 EXCELVBA的使用會有資料匯入的問題
我的答案是請儲存成EXCEL 巨集格式 該VBA應可正常使用
不知大家有無其他方法
看一下問題是不是很有技術呢
當然答案就.....
2009年4月29日星期三
原來休息真的好累
今天早上結束PHPMYSQL的課程
下午休息 , 我足足看了5個小時的電腦
真的是好累
找到一些資料 , 努力K了一下
結果還是累
不過很幸運的我完成了基本作業的撰寫
所以在此有一個結論
" 人不可以太閒 "
所以在不景氣的年代 , 大家要加油喔
2009年4月28日星期二
有誰知道最簡單的檔案合併方法
以前我用COPY
就可以將二個檔案合併變成一個
例如 :
COPY /B A.TXT + B.TXT C.TXT
這樣C.TXT就等於A和B的結合
發現影片也可以
一網找了一下也有人這樣做
但是有時成功 , 有時不成功
大家可以討論一下喔
2009年4月27日星期一
今天休息(一年之中)
今天休息 , 看一下BLOG的人氣已到了193842
真是高興
心中不免要謝 謝大家
想想自己BLOG記載都是一些常用資訊沒有什麼比較
好的內容
還真有些對不起大家
不過這就是BLOG
因為它搜集了個人的資料 分類 與大家分享
最主要它連結了大家的情感喔
妹咕超愛的 , 已好很多 今早送妹咕上學
才發這小傢伙長高了
然後都會說
阿爸您變笨了 , 我問她為何
她說 今天不用代便當
我問她為何
她說老師說的
天Y 這.......我怎知
算了
與大家分享吧
2009年4月26日星期日
2009年4月25日星期六
2009年4月24日星期五
第二天 妹咕會偷哭 - 請大家留言祝福
昨天阿咪唸妹咕
妹咕就偷哭
我看了真是心.....
所以我就唸自己
陪妹咕算一算時間太少
請大家要給妹咕回應喔
今天我會請妹咕上本BLOG
讓她了解許多大哥哥和大姐姐 有來此BLOG回應
祝福她
阿爸先回應
妹咕加油
2009年4月23日星期四
EXCEL -VBA 自動加總
這是解決學生要自動加總的VBA程式
Sub 自動加總()
Dim r1, r2, c1, c2, s
s = 0
Dim r1, r2, c1, c2, s
s = 0
r1 = ActiveCell.Row
c1 = ActiveCell.Column
While (ActiveCell(r1, c1).Value <> Empty)
c1 = ActiveCell.Column
While (ActiveCell(r1, c1).Value <> Empty)
While (ActiveCell(r1, c1).Value <> Empty)
s = s + ActiveCell(r1, c1).Value
r1 = r1 + 1
Wend
ActiveCell(r1, c1).Value = s
r1 = ActiveCell.Row
c1 = c1 + 1
s = 0
Wend
r1 = ActiveCell.Row
c1 = ActiveCell.Column
While (ActiveCell(r1, c1).Value <> Empty)
While (ActiveCell(r1, c1).Value <> Empty)
s = s + ActiveCell(r1, c1).Value
c1 = c1 + 1
Wend
ActiveCell(r1, c1).Value = s
c1 = ActiveCell.Row
r1 = r1 + 1
s = 0
Wend
End Sub
妹咕真的氣人 - 生病
晚間下課約10:30到家
妹咕說 : 阿爸我不行了
我和阿咪(內人)一同快速送往新店急診
因為妹咕笑吼
這個會因天氣驟變而發作 , 這已是我BLOG
常見的文章了
只是昨天她一直到早上7:00才穩定回家休息
我今天一天都沒啥休息 , 又去上課了
課堂中學生們給了許多祝福
謝謝大家
2009年4月21日星期二
讓BLOG有聲有色
最近玩blog發現自己又進步了
因學生的提問讓自己又向前一步
以下是可以去提升自己log的音樂喔
大家有blog的朋友可以試喔
http://popo516.myweb.hinet.net/lost_heart/b/musicplayer/mini.htm
但是要先將音樂檔案上傳喔
以下是不用上傳音樂的做法
要先申請會員 步驟簡單
http://www.kkbox.com.tw/manual3/mybox/bgm.html
2009年4月19日星期日
2009年4月17日星期五
今天算了一下 - 謝謝大家
158246 /18/30 294 人次點閱率
本站建站至今平均每日有294的點閱率
294/10 = 30人
大約一人點閱10次 , 也有30 人
謝謝大家 , 如果在電腦技術須要合作 , 請多多指教
妹咕老師在此謝謝大家
2009年4月14日星期二
2009年4月12日星期日
2009年4月8日星期三
EXCEL VBA 互換超連結
請看下列程式碼 , 可以將A1儲存格的連結 換到A2儲存格
Sub 交換律()
Range("A1").Select
Selection.Cut Destination:=Range("A3")
Range("A2:A3").Select
Selection.Cut Destination:=Range("A1:A2")
Range("A1").Select
End Sub
方法利用A3儲存格進行搬移而已
也可以用下列程式
Sub 交換律()
Dim myhyps As Hyperlinks
Dim myhyp As Hyperlink
myx1 = Range("a1").Value
myx2 = Range("a2").Value
Set myhyps = Range("a1").Hyperlinks
Set myhyp = myhyps(1)
x1 = myhyp.Address
Set myhyps = Range("a2").Hyperlinks
Set myhyp = myhyps(1)
x2 = myhyp.Address
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("a1"), _
Address:=x2, _
TextToDisplay:=myx2
.Hyperlinks.Add Anchor:=.Range("a2"), _
Address:=x1, _
TextToDisplay:=myx1
End With
End Sub
订阅：
博文 (Atom)
博文
13130