塔吉克文翻譯
End Function
可以再申明一下你是如...(恕刪)
這部份後來有在花式那邊調劑成yyyy/mm/dd，但有時候會自動填0，有時辰不會(首要是為了整潔)
1.選取多個貯存格進行資料變更、刪除會毛病13，型態不符合翻譯
2.貯存格原始是日期花樣，直接輸入日期(yyyymmdd)會產生錯誤6，溢位。
YY = Left(DteValue, 4)
Else
If Val(x) <> 0 And Len(x) = 8 Then
Private Sub Worksheet_Change(ByVal Target As Range)
可以再說明一下
這樣的話就能夠直接用公式（DateConvert）去做了，不過我想這沒有比snare用的方式快。
我是寫個function放在模組。
=====程式碼=====
DateConvert = Val(Left(x, 4)) & "/" & Val(Mid(x翻譯社 5, 2)) & "/" & Val(Right(x, 2))
DteValue = Target.Value
本文來自: https://www.mobile01.com/topicdetail.php?f=511&t=4155780有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931
感謝！進修到了新的方式！您的體式格局也非常值得進修！
Dim MM As String
Dim MM As String
litor31 wrote:
DateConvert = "#N/A"
If Not Application.Intersect(KeyCells翻譯社 Range(Target.Address)) Is Nothing And Len(Target.Cells) = 8 Then
假定：A欄 (像日期的文字格式)Dim DteValue As String
二、全選A欄=>貯存格格式=>自訂=>在類型中填入 yyyy/mm/dd =>肯定
不要去0的話把Val()去掉就行了。
Worksheet_Change若何來觸發它呀
如果您的表格可以多一欄
MM = Mid(DteValue翻譯社 5, 2)
自己習慣直接輸入yy...(恕刪)
若是“月份”"日期"的 0 要補回去
Set KeyCells = Range("A:A")
End If
(範例：放在b1)
已知BUG:
End Sub
那用公式比力輕易，您試看看
不過等候有神人可以幫天成翻譯公司點竄這段程式碼，原意是想要直接輸入yyyymmdd主動轉成日期翻譯
有選定範圍(A:A)，然後在該規模內，輸入長度為8的字串Len(Target.Cells) = 8，就會觸發。
MM = Mid(DteValue翻譯社 5, 2)
自己習慣直接輸入yy...(恕刪)
若是“月份”"日期"的 0 要補回去
Set KeyCells = Range("A:A")
End If
(範例：放在b1)
已知BUG:
End Sub
那用公式比力輕易，您試看看
不過等候有神人可以幫天成翻譯公司點竄這段程式碼，原意是想要直接輸入yyyymmdd主動轉成日期翻譯
有選定範圍(A:A)，然後在該規模內，輸入長度為8的字串Len(Target.Cells) = 8，就會觸發。
自己習慣直接輸入yyyymmdd做日期花樣，剛開始是用貯存格格式點竄，讓它皮相像是日期，但後續需求需要利用正式的日期格式，利用google & 本身的想法略微撰寫了一下VBA，但是其實呈現很多BUG，但願版上的神人能幫在下修改一下！
=TEXT(a1,"0000\/00\/00")
=====程式碼======TEXT(a1,"0000\/00\/00")
=====程式碼=====
DateConvert = Val(Left(x, 4)) & "/" & Val(Mid(x翻譯社 5, 2)) & "/" & Val(Right(x, 2))
DteValue = Target.Value
本文來自: https://www.mobile01.com/topicdetail.php?f=511&t=4155780有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931
請先 登入 以發表留言。