close
古閃語翻譯自己習慣直接輸入yy...(恕刪)
(典範榜樣：放在b1)
If Val(x) <> 0 And Len(x) = 8 Then
DateConvert = Val(Left(x, 4)) & "/" & Val(Mid(x, 5, 2)) & "/" & Val(Right(x翻譯社 2))
DateConvert = "#N/A"
這部分後來有在格式那邊調劑成yyyy/mm/dd，但有時辰會主動填0，有時辰不會(首要是為了整潔)
=====程式碼=====
If Not Application.Intersect(KeyCells翻譯社 Range(Target.Address)) Is Nothing And Len(Target.Cells) = 8 Then
Set KeyCells = Range("A:A")
Dim DD As String
DteValue = Target.Value
YY = Left(DteValue翻譯社 4)
PS:月與日部份進展能維持2位數，9月>09
若是您的表格可以多一欄
那用公式比力便利，您試看看
End If
Function DateConvert(x)
Worksheet_Change如何來觸發它呀
那用公式比力便利，您試看看
End If
Function DateConvert(x)
Worksheet_Change如何來觸發它呀
DD = Right(DteValue, 2)
已知BUG:
Dim MM As String
Dim YY As String
MM = Mid(DteValue, 5, 2)
已知BUG:
Dim MM As String
Dim YY As String
MM = Mid(DteValue, 5, 2)
假設：A欄 (像日期的文字格式)
自己習慣直接輸入yyyymmdd做日期花式，剛入手下手是用儲存格格式修改，讓它表面像是日期，但後續需求需要利用正式的日期格式，使用google & 本身的設法主意略微撰寫了一下VBA，但是其實出現許多BUG，希望版上的神人能幫在下修改一下！
1.拔取多個貯存格進行資料變換、刪除會毛病13，型態不合適翻譯
2.貯存格原始是日期花式，直接輸入日期(yyyymmdd)會產生毛病6，溢位。
可以再申明一下翻譯公司是如何操作
End Function
一、全選A欄=>資料=>資料剖析=>下一步=>下一步=>選日期=>完成
End If
Dim KeyCells As Range
Private Sub Worksheet_Change(ByVal Target As Range)
本文來自: https://www.mobile01.com/topicdetail.php?f=511&t=4155780有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931
1.拔取多個貯存格進行資料變換、刪除會毛病13，型態不合適翻譯
2.貯存格原始是日期花式，直接輸入日期(yyyymmdd)會產生毛病6，溢位。
可以再申明一下
End Function
我是寫個function放在模組。
可以再說明一下你是如...(恕刪)
不要去0的話把Val()去掉就行了。
這樣的話就可以直接用公式（DateConvert）去做了，不外我想這沒有比snare用的方式快翻譯
Dim DteValue As String可以再說明一下你是如...(恕刪)
saint_ch wrote:
二、全選A欄=>儲存格花樣=>自訂=>在類型中填入 yyyy/mm/dd =>肯定
這樣的話就可以直接用公式（DateConvert）去做了，不外我想這沒有比snare用的方式快翻譯
一、全選A欄=>資料=>資料剖析=>下一步=>下一步=>選日期=>完成
End If
Dim KeyCells As Range
Private Sub Worksheet_Change(ByVal Target As Range)
本文來自: https://www.mobile01.com/topicdetail.php?f=511&t=4155780有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931
文章標籤
全站熱搜
留言列表
留言列表發表留言
