Function CellType(Rng)Dim Cella As Range Set Cella = Rng.Range("A1") Select Case TrueCase IsEmpty(Cella)CellType = "Blank"Case Application.IsText(Cella)CellType = "Text"End SelectEnd FunctionSub 類型()Dim a As Varianta = CellType(Selection)MsgBox "該類型為:" & a, vbInformationEnd Sub
以下函數(shù)中Set Cella = Rng.Range("A1") 是什么用意???
叮當(dāng)貓咪
2023-04-22 16:12:02