! Choose language
選擇你的語言
close  
 語言 

My blog

  • 台北難得一見的飯店 - 宏都金殿飯店

    Friday, Oct 10, 2008 12:54AM / Standard Entry

    <a href="http://1.bp.blogspot.com/_H1-_17V49LA/SO4zKdjj3RI/AAAAAAAAAS8/fEiaecDV1gM/s1600-h/hoodo.gif"><img style="display:block; margin:0px auto 10px; text-align:center;cursor:pointer; cursor:hand;" src="http://1.bp.blogspot.com/_H1-_17V49LA/SO4zKdjj3RI/AAAAAAAAAS8/fEiaecDV1gM/s320/hoodo.gif" border="0" alt=""id="BLOGGER_PHOTO_ID_5255194070013435154" /></a>
    台北難得一見的飯店 , 台北101盡在眼前 , 大家可以報老師的名字去住一晚喔
    連絡電話 : 02-2755-6599
    業主是一位美女喔 , 真的保證你喜歡
    我看過他們的客人外國人居多 , 可以練習說英文喔
    網址如下
     <a href="http://hdpalace.cheap.com.tw/">按一下前往飯店</a>

    宏都金殿飯店-位於台北敦南商圈安和路上,是許多政商名流最愛的聚會地點。設計典雅、精緻的套房提供您舒適而私密的空間;簡約的設計、柔和的燈光、放鬆心靈的音樂,讓您褪去沉重的壓力而迎向美好的每一天!
       宏都金殿飯店邀您來感受藝術與品味的台北之旅;匯集了上海與巴黎的低調奢華風格,提供台北敦南商圈一個新的住宿優質首選。時尚、復古、知性、感性、奢華、簡約的對比風格是現代人追求極至的生活品味!在這裡期待與尊榮的您一同鑑賞如名畫般的感動,細細品味我們的用心和真誠!

    Share    

  • EXCEL - VBA 日期不同格式轉換個人巨集活頁簿

    Wednesday, Oct 8, 2008 12:37PM / Standard Entry

    Sub 插入欄()
    ActiveCell.Offset(0, 1).Select
    Selection.EntireColumn.Insert
    Selection.EntireColumn.Insert
    ActiveCell.Offset(0, -1).Select
    End Sub
    Sub 切割()
    x = ActiveCell.Address
    Selection.TextToColumns Destination:=Range(x), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
    :="/", FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2)), _
    TrailingMinusNumbers:=True

    End Sub
    Sub 執行轉換()

    While ActiveCell.Value <> Empty

    插入欄
    切割
    合併
    刪除欄
    格式轉換
    ActiveCell.Offset(1, 0).Select
    Wend
    End Sub
    Sub 刪除欄()
    ActiveCell.Offset(0, 1).Select
    Selection.EntireColumn.Delete
    Selection.EntireColumn.Delete
    ActiveCell.Offset(0, -1).Select
    End Sub

    Sub 合併()

    x = ActiveCell.Value

    If Int(x) >= 100 Then

    x = Int(ActiveCell.Value) + 1911 & "/" & Int(ActiveCell.Offset(0, 1).Value) & "/" & Int(ActiveCell.Offset(0, 2).Value)
    ActiveCell.Value = x

    Else
    x = Int(ActiveCell.Offset(0, 2).Value) + 11 & "/" & Int(ActiveCell.Value) & "/" & Int(ActiveCell.Offset(0, 1).Value)
    ActiveCell.Value = x


    End If

    End Sub
    Sub 格式轉換()

    x = ActiveCell.Value

    Selection.NumberFormatLocal = "G/通用格式"

    ActiveCell.FormulaR1C1 = x
    Selection.NumberFormatLocal = "[$-404]e""/""mm""/""dd;@"
    End Sub

    Share    

Stats

  • Gender: Male
  • Total visits: 9,057

RSS feed

    Share 分享到:


alivenotdead spotlight

Please Follow Us on YouTube!

See all the latest alive Event Videos!

Shout box

Please first sign in or sign up for FREE to post to the Shout Box.

Archived shouts

Join the alivenotdead.com community uniting musicians, filmmakers, and other artists with their fans