土庫曼文翻譯=====程式碼=====


PS:月與日部份但願能保持2位數,9月>09
有選定規模(A:A),然後在該規模內,輸入長度為8 翻譯字串Len(Target.Cells) = 8,就會觸發 翻譯社
Target.Cells = YY + "/" + MM + "/" + DD
1、全選A欄=>資料=>資料分解=>下一步=>下一步=>選日期=>完成

可以再說明一下你是如何操作
Private Sub Worksheet_Change(ByVal Target As Range)
本身習慣直接輸入yyyymmdd做日期格局,剛入手下手是用儲存格格局點竄,讓它外觀像是日期,但後續需求需要使用正式 翻譯日期格局,利用google & 本身 翻譯設法略微撰寫了一下VBA,然則其實出現很多BUG,進展版上的神人能幫在下點竄一下!
If Val(x) <> 0 And Len(x) = 8 Then
DD = Right(DteValue 翻譯公司 2)
感謝您的答複!
翻譯公司 5, 2)) & "/" & Val(Right(x, 2))
DteValue = Target.Value
若是您的表格可以多一欄
Dim DD As String
=TEXT(a1,"0000\/00\/00")
那改用公式比力利便,您試看看

If Not Application.Intersect(KeyCells 翻譯公司 Range(Target.Address)) Is Nothing And Len(Target.Cells) = 8 Then
Function DateConvert(x)
不過等候有神人可以幫我點竄這段程式碼,原意是想要直接輸入yyyymmdd主動轉成日期。
DateConvert = "#N/A"
Dim KeyCells As Range

End If
我是寫個function放在模組。
2、全選A欄=>儲存格花樣=>自訂=>在類型中填入 yyyy/mm/dd =>確定
可以再申明一下你是如...(恕刪)
已知BUG:
(範例:放在b1)

saint_ch wrote:
1.拔取多個貯存格進行資料變動、刪除會毛病13,型態不相符 翻譯社
2.貯存格原始是日期格式,直接輸入日期(yyyymmdd)會產生錯誤6,溢位。。-> 翻譯社|,-> 翻譯公司|的-> 翻譯



自己習慣直接輸入yy...(恕刪)

這部分後來有在格局哪裏調劑成yyyy/mm/dd,但有時候會主動填0,有時刻不會(主要是為了整潔)
=====程式碼=====
假定:A欄 (像日期的文字格式)
謝謝!進修到了新的方式!您 翻譯體例也很是值得進修!

Dim DteValue As String
End Sub

Worksheet_Change若何來觸發它呀
以下內文出自: https://www.mobile01.com/topicdetail.php?f=511&t=4155780有關翻譯的問題歡迎諮詢天成翻譯社

arrow
arrow
    文章標籤
    翻譯社
    全站熱搜

    annievd8f52c 發表在 痞客邦 留言(0) 人氣()


    留言列表 留言列表

    發表留言