close
結婚證書翻譯如果“月份”"日期"的 0 要補回去
=====程式碼=====
Private Sub Worksheet_Change(ByVal Target As Range)
二、全選A欄=>貯存格格局=>自訂=>在類型中填入 yyyy/mm/dd =>肯定
假定：A欄 (像日期的文字格局)
我是寫個function放在模組。
有選定範圍(A:A)，然後在該範圍內，輸入長度為8的字串Len(Target.Cells) = 8，就會觸發翻譯
有選定範圍(A:A)，然後在該範圍內，輸入長度為8的字串Len(Target.Cells) = 8，就會觸發翻譯
天成翻譯公司點竄這段程式碼，原意是想要直接輸入yyyymmdd主動轉成日期。
PS:月與日部門但願能保持2位數，9月>09
=====程式碼=====
Dim YY As String
If Not Application.Intersect(KeyCells翻譯社 Range(Target.Address)) Is Nothing And Len(Target.Cells) = 8 Then
已知BUG:
=TEXT(a1翻譯社"0000\/00\/00")
DateConvert = "#N/A"PS:月與日部門但願能保持2位數，9月>09
=====程式碼=====
Dim YY As String
If Not Application.Intersect(KeyCells翻譯社 Range(Target.Address)) Is Nothing And Len(Target.Cells) = 8 Then
已知BUG:
=TEXT(a1翻譯社"0000\/00\/00")
感謝！進修到了新的方法！您的方式也非常值得學習！
End Sub
DD = Right(DteValue, 2)
Dim DteValue As String
End Sub
DD = Right(DteValue, 2)
Dim DteValue As String
如果您的表格可以多一欄
End Function
End Function
saint_ch wrote:
可以再申明一下翻譯公司是若何操作
DateConvert = Val(Left(x, 4)) & "/" & Val(Mid(x, 5, 2)) & "/" & Val(Right(x, 2))
感謝您的回覆！
本身習慣直接輸入yyyymmdd做日期花式，剛起頭是用貯存格花樣修改，讓它表面像是日期，但後續需求需要使用正式的日期格式，利用google & 自己的設法略微撰寫了一下VBA，然則其實出現許多BUG，希望版上的神人能幫在下修改一下！
Set KeyCells = Range("A:A")
YY = Left(DteValue翻譯社 4)
DteValue = Target.Value
1.拔取多個儲存格進行資料變更、刪除會錯誤13，型態不符合翻譯
2.儲存格原始是日期格式，直接輸入日期(yyyymmdd)會產生毛病6，溢位。
MM = Mid(DteValue, 5, 2)
Target.Cells = YY + "/" + MM + "/" + DD
如許的話就能夠直接用公式（DateConvert）去做了，不外我想這沒有比snare用的方式快。
Set KeyCells = Range("A:A")
YY = Left(DteValue翻譯社 4)
DteValue = Target.Value
1.拔取多個儲存格進行資料變更、刪除會錯誤13，型態不符合翻譯
2.儲存格原始是日期格式，直接輸入日期(yyyymmdd)會產生毛病6，溢位。
litor31 wrote:
不要去0的話把Val()去掉就好了。
自己習慣直接輸入yy...(恕刪)
MM = Mid(DteValue, 5, 2)
Target.Cells = YY + "/" + MM + "/" + DD
如許的話就能夠直接用公式（DateConvert）去做了，不外我想這沒有比snare用的方式快。
文章來自: https://www.mobile01.com/topicdetail.php?f=511&t=4155780有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931
文章標籤
全站熱搜
留言列表
