好心人士提供的 , 分享給大家

http://hospital.kingnet.com.tw/medicine/
查詢藥品專用

不錯新建網站

空間資訊
【網站網址】http://go.freegroup.org/hostinginfive
【範例網站】http://freegroup.hostinginfive.com/

【網站空間】500MB (0.5GB)
【每月流量】15,000MB (15GB)
【提供項目】PHP 5, MySQL(1個), FTP, XPanel控制台, 可設定自己的網域名稱, 網頁檔案管理。
【顯示廣告】有廣告，網站頂端。

1. 進入 HostingInFive 後，點選 Sign Up For Hosting 註冊一個帳號。第一步必須先輸入一個你想要的次網域名稱，而這個次網域也會成為你的登入帳號。第二個步驟則依序填入個人資料即可，都是常見的欄位，應該不會太困難。




Free Web Hosting | Free Unlimited Email | Instant Email | Free Web Proxy | Surf Anonymously | Free Text Messaging



If you can see this, your account alexmysir.hostinginfive.com has been successfully created.
You may now add content to this directory and replace this page.

Your address is: http://alexmysir.hostinginfive.com.
Alex Mysir you are solely responsible for the contents of your site.
Any inappropriate sites will be deleted with no warning.

Thank you for using our services.

網頁新字型

真是很站 大家可以參考喔
http://www.freegroup.org/2010/06/google-font-directory/

很高興認識大家

今天我在台北市政府學blog這是市府服務大家很站

有新工作大家參考喔

職缺編號擔任工作學歷及資格條件工作
地點需求
員額
990901【資安服務平台開發建置及軟硬體設備建置規劃】
1. 資安服務平台開發、建
　置、管理及維護
2. 資安軟硬體設備測試、
　建置、調教、管理及維
　護
3. 資安監控、分析與通報1.研究所畢業。
2.所需專長及相關工作經驗：
　(1) 具程式設計開發(PERL、PHP、
　　Java及Web Application等)及系統整
　　合一年以上經驗者。
　(2) 具SOC服務平台或資安硬體設備
　　建置及維運管理尤佳。
　(3) 具備資安防護技術與經驗者尤佳
　　。
　(4) 熟悉網際網路協定(TCP/IP、
　　SNMP、ICMP、FTP、HTTP)運作
　　模式。
　(5) 熟悉OWASP網頁安全技術議題
　　。台北
地區5名
990902【安全檢測】
1. 弱點掃描、滲透測試及
　安全性檢測
2. 惡意電子郵件社交工程
　演練
3. 駭客攻防新技術研究及
　開發1.研究所畢業。
2.所需專長及相關工作經驗：
　(1) 具備網頁程式開發能力(C/C++、
　　PHP、JSP ASP、ASP.NET等)一年
　　以上經驗者。
　(2) 具備安全檢測或滲透測試經驗者
　　尤佳。
　(3) 熟悉網際網路協定(TCP/IP、
　　SNMP、ICMP、FTP、HTTP)運作
　　模式。
　(4) 具備CEH、CHFI、CISSP證照者
　　尤佳。
　(5) 熟悉OWASP網頁安全技術議題
　　。台北
地區4名
　　合計9名
※備註：有關資格條件所稱工作經驗，係指具全職之相關工作經驗者。　

今天學到很多

學到MSN SKYPE BLOG FACEBOOK PLURK 但是順間全忘了

VBA季

Private Sub Worksheet_Change(ByVal Target As Range)
x = Left(Target.Address, 2)
If x = "$D" Then
Select Case Target.Value
Case 1 To 3
ActiveCell.Offset(-1, 1).Value = "第一季"

Case 4 To 6
ActiveCell.Offset(-1, 1).Value = "第二季"

Case 7 To 9
ActiveCell.Offset(-1, 1).Value = "第三季"

Case 10 To 12
ActiveCell.Offset(-1, 1).Value = "第四季"


End Select
End If


End Sub

VBA - 工作表

Private Sub Worksheet_Change(ByVal Target As Range)
x = Left(Target.Address, 2)
If x = "$a" Then
Select Case Target.Value
Case 1
ActiveCell.Offset(-1, 1).Select
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
Case 2
ActiveCell.Offset(-1, 1).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="aa,jj,kk,ll,mm,nn"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With

End Select
End If


End Sub

刪除空白列

Sub 刪除空白()
Range("A65530").Select
Selection.End(xlUp).Select
x = ActiveCell.Row

Range("A1").Select

For y = 1 To x

If ActiveCell.Value = Empty Then

x1 = ActiveCell.Row
z = x1 & ":" & x1
Rows(z).Select
Selection.Delete Shift:=xlUp

Else

ActiveCell.Offset(1, 0).Select

End If


Next
Range("A1").Select


End Sub

篩選

Sub 篩選()

x = InputBox("請輸入需要的資料內容")

Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=x
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
Sheets(2).Select
Selection.AutoFilter
Range("A1").Select
End Sub

合併

Sub 合併工作表()
mydate = Now()
If Month(Now()) < 10 Then
mydate1 = "0" & Month(Now())
newname = Year(mydate) & mydate1 & Day(mydate)
Else
newname = Year(mydate) & Month(mydate) & Day(mydate)
End If


y = InputBox("請輸入合併工作表數量", "世新")

For x = 1 To y

Sheets(x + 1).Select
If x = 1 Then

Range("A1").Select
Else
Range("A2").Select

End If
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
Sheets(1).Name = newname
End Sub

合併工作表

Sub 合併工作表()

For x = 1 To 3

Sheets(x + 1).Select
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select

Next

End Sub

新工作表

Sub 新工作表()
x = InputBox("請輸入工作表數量", "世新")

Sheets(1).Select

For i = 1 To x Step 1
Sheets.Add
Next
End Sub

自動流水號

Sub 流水號()
i = ActiveCell.Value
x = InputBox("請輸入終止值")

If i = Empty Then

ActiveCell.Value = 1

Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=x, Trend:=False
Else
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=x + i, Trend:=False

End If


End Sub

很久沒來發表 - 加快搜尋

最近學生問我如何讓BLOG可以在搜尋時排名第一
我想了很久 , 不花錢 要排第一
大概要花時間經營
於是我寫了10 個方案供大家參考
可以告訴我其他方法喔
1 要常用[自己要發表]
2 發表要回應 [ 無人回應時 , 自己回應 ]
3 要到別人BLOG留言[ 順便留下BLOG網址 , 最好要去幫人回應 , 這樣才有朋友 ]
4 與他人連結 [ 放別人的連結 , 人也要放您的 , 多多運用RSS ]
5 有空上搜尋 , 找自己的關鍵字 [ 可以請同學幫忙 , 次數多就會累積 ]
6 E_MAIL 通知
7 與微網誌[plurk , facebook]等連結
8 發表一篇關鍵字[在自己的BLOG]
9 參加BLOG的推文 , 例如 : 黑米書籤
10 加入訂閱 - 例如可以讓人訂閱自己的BLOG , 或是與企業結盟