度分秒的提取，轉化十進制

Sub conversion()Dim i, j, a, du, fen, miao, flag_a, flag_b, tempDebug.Print "Begin"Set a = Worksheets("Sheet1").UsedRange' If Sum_Workbook.Worksheets.Count > 1 Then' For i = Sum_Workbook.Worksheets.Count To 2 Step -1' Sum_Workbook.Worksheets(i).Delete' Debug.Print "Delete"' Next' End IfWorksheets.Add after:=Worksheets(Worksheets.Count)Worksheets(2).Name = "Sheet2"For i = 1 To a.Rows.CountFor j = 1 To a.Columns.Counttemp = a.Cells(i, j)If temp Like "106°*" Then'度du = Mid(temp, 1, 3)'分flag_a = InStr(1, temp, "°")flag_b = InStr(temp, "'")fen = Mid(temp, flag_a + 1, flag_b - flag_a - 1)'秒flag_a = InStr(1, temp, "'")flag_b = InStr(temp, "秒")miao = Mid(temp, flag_a + 1, flag_b - flag_a - 1)'整合Debug.Print duDebug.Print fenDebug.Print miaoWorksheets(2).Cells(i, j) = du + fen / 60 + miao / 3600End IfIf temp Like "30°*" Then'度du = Mid(temp, 1, 2)'分flag_a = InStr(1, temp, "°")flag_b = InStr(temp, "'")fen = Mid(temp, flag_a + 1, flag_b - flag_a - 1)'秒flag_a = InStr(1, temp, "'")flag_b = InStr(temp, "秒")miao = Mid(temp, flag_a + 1, flag_b - flag_a - 1)'整合Debug.Print duDebug.Print fenDebug.Print miaoWorksheets(2).Cells(i, j) = du + fen / 60 + miao / 3600Debug.Print Worksheets(2).Cells(i, j)End IfNextNextDebug.Print "Done" End Sub

總結

以上是生活随笔為你收集整理的度分秒转化的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。