[Excel VBA]輸入yyyymmdd直接轉換成日期花式，已有初步程式碼－palmercud5i@outlook.com

策米安語翻譯2、全選A欄=>貯存格格式=>自訂=>在類型中填入 yyyy/mm/dd =>肯定

翻譯社 2)
=====程式碼=====
謝謝您的答複！

翻譯公司是若何操作
If Val(x) <> 0 And Len(x) = 8 Then

自己習慣直接輸入yyyymmdd做日期花式，剛開始是用貯存格格式點竄，讓它概況像是日期，但後續需求需要利用正式的日期花樣，利用google & 本身的設法主意略微撰寫了一下VBA，可是其實呈現很多BUG，進展版上的神人能幫在下點竄一下！
Dim YY As String

litor31 wrote:
可以再申明一下你是如...(恕刪)

End Sub

假定：A欄 (像日期的文字格式)

(類型：放在b1)
End Function
已知BUG:
Dim DD As String
Dim KeyCells As Range
如許的話就能夠直接用公式（DateConvert）去做了，不外我想這沒有比snare用的方法快翻譯

DD = Right(DteValue, 2)
本身習慣直接輸入yy...(恕刪)
DateConvert = Val(Left(x, 4)) & "/" & Val(Mid(x, 5, 2)) & "/" & Val(Right(x, 2))

感謝！進修到了新的方式！您的體式格局也非常值得進修！
Target.Cells = YY + "/" + MM + "/" + DD
1.拔取多個儲存格進行資料變更、刪除會錯誤13，型態不相符翻譯
2.貯存格原始是日期格局，直接輸入日期(yyyymmdd)會產生毛病6，溢位。

YY = Left(DteValue翻譯社 4)
Function DateConvert(x)
End If
Dim DteValue As String
Set KeyCells = Range("A:A")

DateConvert = "#N/A"
有選定局限(A:A)，然後在該局限內，輸入長度為8的字串Len(Target.Cells) = 8，就會觸發。

我是寫個function放在模組。

若是您的表格可以多一欄
End If
DteValue = Target.Value
=====程式碼=====
不外等候有神人可以幫天成翻譯公司修改這段程式碼，原意是想要直接輸入yyyymmdd主動轉成日期。
Worksheet_Change若何來觸發它呀

翻譯社 Range(Target.Address)) Is Nothing And Len(Target.Cells) = 8 Then
Private Sub Worksheet_Change(ByVal Target As Range)