Code VBA thay thế cho Vlookup (1 người xem)

[BigBang007]

Em xin chào các Thầy và các bác GPE,

Em có đọc qua bài này http://www.giaiphapexcel.com/forum/...Xin-viết-dùng-mã-vba-thay-thế-cho-hàm-vlookup

và em đã chỉnh sửa lại code cho phù hợp với form của em từ code của thầy "ndu96081631" và thầy "Let'GâuGâu". Nhưng em muốn mở rộng thêm tính năng của code này như bên dưới, Mong các thầy xem giúp em code trong file đính kèm:

- Code này tự động cập nhật thông tin như Vlookup, nhưng em muốnthế này: khi mình muốn giữ giá trị trên Cell nào thì highlight màu đỏ, khi đó nó sẽ không còn được cập nhật tự động nữa, khi mình thay đổi giá trị bên LLNV.

( If formatcell = vbred then
Nothing
else
.
.
.
.
End If )

- Hiện tại các bên Sheet LLNV, khi em copy dữ liệu từ bên ngoài vào thì nó sẽ báo lỗi (Dạng copy all của 1 sheet và paste vào), em nghĩ do nó đang cập nhật liên tục nên mới như thế. Hiện tại bên sheet Chi tiết em có 1 button code dùng để copy dữ liệu từ ngoài vào. Em muốn : khi bấm vào đây thì tạm thời phần cập nhật sẽ OFF và sau khi xong thì ON lên lại.
Không biết ý tưởng em như vậy có làm được hay không? Nhờ các thầy giúp đỡ.

Cảm ơn các thầy nhiều.

 

[BigBang007]

Xin các Thầy cho em ý kiến đi ạ, có thể làm được như vậy không?

 

[BigBang007]

Mong các Thầy xem giúp em bài này đi ạ, em đang cần làm phần này.

 

[Quang_Hải]

Em xin chào các Thầy và các bác GPE,

Em có đọc qua bài này http://www.giaiphapexcel.com/forum/...Xin-viết-dùng-mã-vba-thay-thế-cho-hàm-vlookup

và em đã chỉnh sửa lại code cho phù hợp với form của em từ code của thầy "ndu96081631" và thầy "Let'GâuGâu". Nhưng em muốn mở rộng thêm tính năng của code này như bên dưới, Mong các thầy xem giúp em code trong file đính kèm:

- Code này tự động cập nhật thông tin như Vlookup, nhưng em muốnthế này: khi mình muốn giữ giá trị trên Cell nào thì highlight màu đỏ, khi đó nó sẽ không còn được cập nhật tự động nữa, khi mình thay đổi giá trị bên LLNV.

( If formatcell = vbred then
Nothing
else
.
.
.
.
End If )

- Hiện tại các bên Sheet LLNV, khi em copy dữ liệu từ bên ngoài vào thì nó sẽ báo lỗi (Dạng copy all của 1 sheet và paste vào), em nghĩ do nó đang cập nhật liên tục nên mới như thế. Hiện tại bên sheet Chi tiết em có 1 button code dùng để copy dữ liệu từ ngoài vào. Em muốn : khi bấm vào đây thì tạm thời phần cập nhật sẽ OFF và sau khi xong thì ON lên lại.
Không biết ý tưởng em như vậy có làm được hay không? Nhờ các thầy giúp đỡ.

Cảm ơn các thầy nhiều.

Thấy bài này cũng lâu rồi nhưng lười quá vì cái mạng 2G chậm hơn rùa
**************
Copy code này vào 1 module
Bên ngoài sheet vẽ 1 cái shape dạng Oval đặt tên là Oval 1 và sửa text trên shape này là ON, gán macro test cho shape này vào thử code

Sub EnterDesignMode()
    With Application.CommandBars.FindControl(ID:=1605)
        .Execute
    End With
End Sub
Sub ExitDesignMode()
    Dim sTemp As String
    With Application.CommandBars("Exit Design Mode")
        sTemp = .Controls(1).Caption
    End With
End Sub
Sub Test()
With ActiveSheet.Shapes("Oval 1").TextFrame2.TextRange.Characters
    If .Text <> "ON" Then
        .Text = "ON"
        EnterDesignMode
    Else
      .Text = "OFF"
        ExitDesignMode
    End If
End With
End Sub

 

[BigBang007]

Cảm ơn Thầy, để em check xem sao

 

[BigBang007]

Thấy bài này cũng lâu rồi nhưng lười quá vì cái mạng 2G chậm hơn rùa
**************
Copy code này vào 1 module
Bên ngoài sheet vẽ 1 cái shape dạng Oval đặt tên là Oval 1 và sửa text trên shape này là ON, gán macro test cho shape này vào thử code

Sub EnterDesignMode()
    With Application.CommandBars.FindControl(ID:=1605)
        .Execute
    End With
End Sub
Sub ExitDesignMode()
    Dim sTemp As String
    With Application.CommandBars("Exit Design Mode")
        sTemp = .Controls(1).Caption
    End With
End Sub
Sub Test()
With ActiveSheet.Shapes("Oval 1").TextFrame2.TextRange.Characters
    If .Text <> "ON" Then
        .Text = "ON"
        EnterDesignMode
    Else
      .Text = "OFF"
        ExitDesignMode
    End If
End With
End Sub

Em test qua thì code này ON/OFF code "VLOOKUP". khi OFF thì mình copy dữ liệu vào data ok. >> em đang cố gắng kết hợp vào Button xem thử được ko.
Nhờ Thầy làm giúp code phần 1 luôn ạ: Khi mình ko muốn 1 ô nào đó bên Sheet chitiet thay đổi giá trị (Khi thay đổi giá trị bên sheet LLNV) thì mình chỉ cần Highlight đỏ lên, khi mình muốn nó chạy lại thì bỏ Highlight đỏ (Giống như Copy > Paste Special trong công thức Vlookup).

Em cảm ơn Thầy nhiều.

 

[BigBang007]

Mong các Thầy xem qua giúp em phần này ạ, hiện tại em đang rất cần làm phần này.

Cảm ơn các Thầy rất nhiều

 

[BigBang007]

UP UP, nhờ các Thầy xem giúp em ạ.

 

[Quang_Hải]

UP UP, nhờ các Thầy xem giúp em ạ.

Có khi nào bạn tự hỏi rằng sao không có ai làm giúp bạn hay không vậy? Đôi lúc cũng phải tự hỏi chứ.

 

[BigBang007]

Có khi nào bạn tự hỏi rằng sao không có ai làm giúp bạn hay không vậy? Đôi lúc cũng phải tự hỏi chứ.

Cảm ơn thầy quanghai1969, em có tự hỏi rồi ah, không biết tình huống em đặt ra không khả thi hay là em nói chưa rõ chổ nào nên mọi người không giúp được.
Vì vậy em cần các Thầy hồi âm chổ nào để em sửa hoặc thêm ạ.