GPE giúp Code Chuyển Sheets và chọn ô trong list như mong muốn!

[pham van an]

Nhờ GPE viết giúp đoạn code. em dùng macro tự ghi mà không được.

 

[sealand]

Bạn sửa đoạn code như sau nha (Tốt nhất là copy chép đè vào tránh sai sót)

Sub Rectangle1_Click()
Sheet2.[E3] = WorksheetFunction.Max( _
Evaluate(Sheet2.[E3].Validation.Formula1))
Sheet2.Select
End Sub

 

[sealand]

Ối chết, mình nhầm code đó là chọn số lớn nhất. Số cuối cùng phải như thế này:

Sub Rectangle1_Click()
Dim Tm
Tm = Evaluate(Sheet2.[E3].Validation.Formula1)
Sheet2.[E3] = Tm(UBound(Tm), 1)
Sheet2.Select
End Sub

Code tổng quát nên viết như thế này phòng khi Validation là danh sách bạn tự nhập vào

Sub Rectangle1_Click()
Dim Tm, ch
ch = Sheet2.[e1].Validation.Formula1
If Left(ch, 1) = "=" Then
Tm = Evaluate(ch)
Sheet2.[e3] = Tm(UBound(Tm), 1)
Else
ch = Replace(ch, ";", ",")
Tm = Split(ch, ",")
Sheet2.[e3] = Tm(UBound(Tm))
End If
Sheet2.Select
End Sub

 

[pham van an]

Thanks anh. Nhưng code của anh là chọn giá trị Max chưa chưa phải chọn giá trị ở ô cuối cùng. Nhờ anh sửa lại cho e tý nữa.

Không ngờ anh đưa bài lên nhanh quá.