在OptionsExplicit下的多列中自動插入冒號(:)-有解無憂

感謝您檢查此問題。

還是新手。我正在尋找一個代碼來自動將“：”（冒號）插入到 R 和 S、W 和 X 列中，并找到了一個我認為可以根據自己的需要進行自定義的代碼，但我面臨兩個問題：

代碼在 R 和 S 中作業，但也需要代碼在 W 和 X 列中運行
我收到一個錯誤：變數未定義 - 在TLen處停止，我想它也會在TimeV處停止

程式員不使用 Option Explicit，（當沒有 Option Explicit 時作業正常）。但是我所有的代碼總是帶有 Option Explicit，但我不確定如何為這兩個變數撰寫 Dim。

這段代碼在一個特定的作業表中，在 Worksheet_Change 子中，我有其他代碼用于其他事情，比如人們從 B 列進行選擇時的時間戳，它會在 B 列中進行選擇時自動填充。

我在另一個作業簿中嘗試了冒號代碼，沒有 Option Explicit 并且它可以正常作業而不會出錯。

代碼的來源來自

在 Options Explicit 下的多列中自動插入冒號 (:)

您還可以將時間Variant和Double如下圖所示。

Option Explicit

Sub Sample()
    Dim TimeA As Date
    Dim TimeB As Double
    Dim TimeC As Variant
    
    TimeA = TimeValue("01:00 PM")
    TimeB = TimeValue("01:00 PM")
    TimeC = TimeValue("01:00 PM")
    
    MsgBox "Time stored as Date : " & TimeA
    MsgBox "Time stored as Double : " & TimeB
    MsgBox "Time stored as Variant : " & TimeC
    
    MsgBox "TimeA formated as Date : " & Format(TimeA, "hh:mm:ss AM/PM")
    MsgBox "TimeB formated as Date : " & Format(TimeB, "hh:mm:ss AM/PM")
    MsgBox "TimeC formated as Date : " & Format(TimeC, "hh:mm:ss AM/PM")
End Sub

在 Options Explicit 下的多列中自動插入冒號 (:)

但是沒有一個例子，我該如何學習，我顯然已經用盡了解決這個問題的搜索，但什么也沒找到……我發布問題的原因。謝謝你鼓勵我繼續自己解決問題:) TheShyButterfly

您可以將范圍寫為 CDP1802 在他的帖子中顯示，或者您可以使用在 Options Explicit 下的多列中自動插入冒號 (:)

所以在你的代碼中它變成 Intersect(rngCombined, Target) Is Nothing

此外，由于您正在使用Worksheet_Changeand Events，我建議您查看使用 Worksheet_Change 作業

轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/387215.html

標籤：擅长 vba 范围方面

上一篇：運行TotalExcel或VBA函式根據單元格值重置

下一篇：訪問OutlookVBA物件模型時字凍結