All posts tagged 'vba' | The Will Will Web

The Will Will Web

記載著 Will 在網路世界的學習心得與技術分享

自訂 Word 2010 使用者輸入表單教學 (含影片與心得筆記)

有些公司裡常用的表單經常到手後一頭霧水,因為有些表單很少用,所以填寫的時候經常會卡住,有時候真的會忘記不知道要填寫什麼,今天心血來潮把 Word 2010 自訂使用者輸入表單的功能研究了一番,還複習了一下好久沒寫的 VBA 程式,真是過癮! 最後我也錄製了一個十分鐘左右的短片,帶大家快速上手設計 Word 2010 使用者輸入表單。

... 繼續閱讀 ...

啟動 ASP.NET 偵錯模式的另一種比按下 F5 還快的方式

大部分人在測試 ASP.NET 程式時,大多按下 F5 (開始偵錯)(Start Debugging) 進入 ASP.NET 偵錯模式,不過我個人覺得這個程序非常的慢,所以大多不會直接按下 F5,而是先用 Ctrl + F5 直接看執行的結果,速度會快很多,因為大部分時候只是看執行結果,並沒有設定中斷點,無須進入偵錯模式。我之前曾經提過兩篇(這篇 & 這篇)在 Visual Studio 中關於 Attach to Process 的文章,所以當我需要除錯時才會利用 Attach to Process 將 WebDev.WebServer.EXE 程序附加上去,就可以進入偵錯模式了。

... 繼續閱讀 ...

如何用 VBA 將傳進來的半型數字字串轉成國字大寫

' 將傳進來的半型數字字串轉成國字大寫
' -------------------------------------------
Function 轉國字(s As String) As String
  Dim s1 As String
  Dim s2 As Long
  If s = "" Then 轉國字 = "未輸入金額": Exit Function
  While Left(s, 1) = "0": s = Right(s, Len(s) - 1): Wend
  tmp節名 = "元萬億兆京"
  節數 = (Len(s) - 1) \ 4 + 1
  位數 = 節數 * 4
  s = Right("0000" & s, 位數)
  For i = 節數 To 1 Step -1
    個位名 = Mid(tmp節名, i, 1)
    s1 = Mid(s, ((節數 - i) * 4) + 1, 4)
    zero = ""
    If Left(s1, 1) = "0" Then zero = "零"
    tmp = tmp & zero & 轉四位數(s1) & 個位名
  Next
  If Left(tmp, 1) = "零" Then tmp = Right(tmp, Len(tmp) - 1)
  tmp = Replace(tmp, "零零", "零")
  tmp = Replace(tmp, "零萬", "")
  tmp = Replace(tmp, "零億", "")
  tmp = Replace(tmp, "零元", "元")
  轉國字 = tmp & "整"
End Function

... 繼續閱讀 ...