A global community of artists and fans

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

台北難得一見的飯店 , 台北101盡在眼前 , 大家可以報老師的名字去住一晚喔

連絡電話 : 02-2755-6599

業主是一位美女喔 , 真的保證你喜歡

我看過他們的客人外國人居多 , 可以練習說英文喔

網址如下

 按一下前往飯店

宏都金殿飯店-位於台北敦南商圈安和路上，是許多政商名流最愛的聚會地點。設計典雅、精緻的套房提供您舒適而私密的空間；簡約的設計、柔和的燈光、放鬆心靈的音樂，讓您褪去沉重的壓力而迎向美好的每一天!

   宏都金殿飯店邀您來感受藝術與品味的台北之旅；匯集了上海與巴黎的低調奢華風格，提供台北敦南商圈一個新的住宿優質首選。時尚、復古、知性、感性、奢華、簡約的對比風格是現代人追求極至的生活品味!在這裡期待與尊榮的您一同鑑賞如名畫般的感動，細細品味我們的用心和真誠!

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

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

发表者 alex位置在： 上午12:40  

http://alexsir.blogspot.com