[Visual Basic] 纯文本查看 复制代码
Sub LoadTaoThe()
'=====Bien Du lieu The =========================================
Dim strMc As String, strSection As String, strKind As String
Dim strDescrip As String, strReq As String
Dim strSap As String, strSapOld As String, strSapNew As String
Dim strID As String, strRele As String
Dim dateReque As Date, dateDead As Date
'===== Bien Chuong trinh ========================================
Dim rFind As Integer
Dim diachiFind As String
Dim rowTagO As Double
Dim ChonSave As Integer
strSapOld = Sheets("Create TAG card order").Range("C2").Value
'======= Xoa the ================================================
Sheets("Create TAG card order").Range("strMc") = vbNullString
Sheets("Create TAG card order").Range("strSection") = vbNullString
Sheets("Create TAG card order").Range("strKind").Value = vbNullString
End If
End Sub