Em có 3 câu hỏi xin các anh chị em giúp đỡ:
1. Em có 1 file excel do người khác đưa, khi em ban hành công thức bất kỳ : sum, vlookup... thì tính được giá trị và có kết quả tại cell đó, nhưng khi em kéo xuống (ban hành lệnh copy) thì nó không ra kết quả của các dòng mà chỉ copy giá trị của cell đó thui.Đó có phải là người làm ra file excel đó đã khóa lại không cho tính toán trên sheet đó không vì sheet khác em làm thì bình thường. Xin các anh chị em chỉ giúp.
2. Em đã viết được 1 hàm, và đã insert hàm đó và file rồi, vậy làm sao để người khác khi vào Tool ->Macro -> Visual Basic Editer sẽ không thấy được code của em, hoặc là em có thể đặt pass cho code đó cũng được, xin chỉ em cách đặt pass cho code đó.
3. Em có đoạn code thế này.
Function QuocAnh(s As String) As String
Dim x, y, temp, t As String
Dim Firstvalue, Usedvalue, flag As Integer
Firstvalue = ActiveSheet.UsedRange.Row
Usedvalue = ActiveSheet.UsedRange.Rows.count
y = " "
t = Len(s)
flag = 0
If (t >= 2) Then
For i = Firstvalue To Usedvalue
x = Application.Workbooks("VITRI[2].kiemkho").Worksheets("DETAIL").Range("C" & i)
If (x = s) Then
temp = Application.Workbooks("VITRI[2].kiemkho").Worksheets("DETAIL").Range("L" & i)
y = y & temp & ";"
flag = 1
End If
Next i
End If
If (flag = 0) Then
MsgBox ("The number is not avalible !")
QuocAnh = " "
Else
QuocAnh = y
End If
End Function
Hàm của em sẽ nhận vào 1 chuỗi , so sánh với các ô (C,i ) nếu bằng thì em sẽ lấy giá trị của ô ( L, i ). Vậy có cách nào em không cần ghi rõ tên file ( ở đây là : Workbooks("VITRI[2].kiemkho") , tên sheet ( Worksheets("DETAIL") ), mà nó vẫn hiểu để có thể dùng cho file khác, không cần đổi tên. Em xin chân thành cảm ơn !
1. Em có 1 file excel do người khác đưa, khi em ban hành công thức bất kỳ : sum, vlookup... thì tính được giá trị và có kết quả tại cell đó, nhưng khi em kéo xuống (ban hành lệnh copy) thì nó không ra kết quả của các dòng mà chỉ copy giá trị của cell đó thui.Đó có phải là người làm ra file excel đó đã khóa lại không cho tính toán trên sheet đó không vì sheet khác em làm thì bình thường. Xin các anh chị em chỉ giúp.
2. Em đã viết được 1 hàm, và đã insert hàm đó và file rồi, vậy làm sao để người khác khi vào Tool ->Macro -> Visual Basic Editer sẽ không thấy được code của em, hoặc là em có thể đặt pass cho code đó cũng được, xin chỉ em cách đặt pass cho code đó.
3. Em có đoạn code thế này.
Function QuocAnh(s As String) As String
Dim x, y, temp, t As String
Dim Firstvalue, Usedvalue, flag As Integer
Firstvalue = ActiveSheet.UsedRange.Row
Usedvalue = ActiveSheet.UsedRange.Rows.count
y = " "
t = Len(s)
flag = 0
If (t >= 2) Then
For i = Firstvalue To Usedvalue
x = Application.Workbooks("VITRI[2].kiemkho").Worksheets("DETAIL").Range("C" & i)
If (x = s) Then
temp = Application.Workbooks("VITRI[2].kiemkho").Worksheets("DETAIL").Range("L" & i)
y = y & temp & ";"
flag = 1
End If
Next i
End If
If (flag = 0) Then
MsgBox ("The number is not avalible !")
QuocAnh = " "
Else
QuocAnh = y
End If
End Function
Hàm của em sẽ nhận vào 1 chuỗi , so sánh với các ô (C,i ) nếu bằng thì em sẽ lấy giá trị của ô ( L, i ). Vậy có cách nào em không cần ghi rõ tên file ( ở đây là : Workbooks("VITRI[2].kiemkho") , tên sheet ( Worksheets("DETAIL") ), mà nó vẫn hiểu để có thể dùng cho file khác, không cần đổi tên. Em xin chân thành cảm ơn !
