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