Lưu ý nha:đặt Check như 1 msgbox. nhưng khi msgbox2 = Check, em những tưởng nó cho ra msgbox ban đầu, nhưng nó không phải vậy mà lại thay thế = true or false.
Chuyện thường thôi (là con người mà)
Sub Test()
MsgBox "Ban da chon " & Choose(1 - (MsgBox("Ban chon 'Yes' hay 'No'?", 4) = 6), "'No'", "'Yes'")
End SubĐặc biệt nằm ở chổ: MsgBox viết trước thì lại xuất hiện sau và ngược lại
Bạn xem bài này:
Chuyển là chuyển thế nào? Bạn phải cho ví dụ trong file mới hình dung được bạn à... Mông lung quá
Mình làm như vầy được không bạn?
Option Explicit
Sub ChuyenVi()
Dim hRng As Range, cRng As Range, sRngh As Range, Clls As Range
Dim Col As Byte, jJ As Byte
Set hRng = Range([A1], [A65500].End(xlUp))
Set cRng = Range([A1], [iV1].End(xlToLeft))
Col = cRng.Columns.Count
For Each Clls In Range([H14], [H65500].End(xlUp))
Set sRngh = hRng.Find(Clls.Value, , xlFormulas, xlWhole)
If Not sRngh Is Nothing Then
For jJ = 1 To Col
With Clls.Offset(, jJ)
Cells(sRngh.Row, cRng.Find([h13].Offset(, jJ)).Column).Value = _
.Value
If .Interior.ColorIndex > 9 Then
Cells(sRngh.Row, cRng.Find([h13].Offset(, jJ)).Column). _
Interior.ColorIndex = .Interior.ColorIndex
End If
End With
Next jJ
Else
MsgBox "Error!", , "GPE Xin Luu Y"
End If
Next Clls
End Sub
-----------Lưu ý: Để thấy tác dụng & dễ kiểm tra, bạn nên tô màu nền 1 hàng nào đó của Data2 (Màu vàng chẳng hạn) & lấy cột bất kỳ ta tô các màu nền nhạc khác nhau trong palette.
Sau đó chạy macro & kiểm tra theo màu sắc sẽ tiện hơn nhiều
Chúc thắng lợi!PHP:Option Explicit Sub ChuyenVi() Dim hRng As Range, cRng As Range, sRngh As Range, Clls As Range Dim Col As Byte, jJ As Byte Set hRng = Range([A1], [A65500].End(xlUp)) Set cRng = Range([A1], [iV1].End(xlToLeft)) Col = cRng.Columns.Count For Each Clls In Range([H14], [H65500].End(xlUp)) Set sRngh = hRng.Find(Clls.Value, , xlFormulas, xlWhole) If Not sRngh Is Nothing Then For jJ = 1 To Col With Clls.Offset(, jJ) Cells(sRngh.Row, cRng.Find([h13].Offset(, jJ)).Column).Value = _ .Value If .Interior.ColorIndex > 9 Then Cells(sRngh.Row, cRng.Find([h13].Offset(, jJ)).Column). _ Interior.ColorIndex = .Interior.ColorIndex End If End With Next jJ Else MsgBox "Error!", , "GPE Xin Luu Y" End If Next Clls End Sub
Sub Tim2Chieu()
dong = Range("data1").Rows.Count - 1
cot = Range("data1").Columns.Count
For Each cls In Range("data1").Range(Cells(1, 2), Cells(1, cot))
temp = Range("data2").Find(cls, MatchCase:=True).Column - Range("data2").Column + 1
cls.Offset(1).Resize(dong) = "=VLOOKUP(RC2,data2," & temp & ",0)"
Next
Range("data1") = Range("data1").Value
End Sub
