Giúp em code VBA (1 người xem)

[hoang0569]

Em gửi kèm theo File, mong các anh, chị xem giúp, em xin cảm ơn nhiều.

 

[giaiphap]

Em gửi kèm theo File, mong các anh, chị xem giúp, em xin cảm ơn nhiều.

Bạn xem lại hình như cột B bạn lấy VD còn thiếu thì phải.

 

[khuongvietphong]

Bạn xem lại hình như cột B bạn lấy VD còn thiếu thì phải.

theo y/c của bạn í thì Cell A 5 đâu được xuất hiện chữ A đâu anh ơi

Thử File này xem sao

 

[doveandrose]

Theo như mình đoán thì 2 bạn ở trên đi chệch hướng rồi . hi hi

 

[hoang0569]

Cảm ơn các anh, nhưng ý của em là: mỗi lần muốn có chỉ số mới ở cột B bằng với cột C hàng trên thì ta chỉ cần nhấn 1 lần button là ra, các anh xem lại giúp em nhé.

 

[giaiphap]

Cảm ơn các anh, nhưng ý của em là: mỗi lần muốn có chỉ số mới ở cột B bằng với cột C hàng trên thì ta chỉ cần nhấn 1 lần button là ra, các anh xem lại giúp em nhé.

Vậy bạn sửa code thế này được không.

Sub GPE()
Dim vung As Range, i As Integer
Set vung = Sheet1.Range("C2", Sheet1.Range("c65000").End(xlUp))
For i = 2 To Sheet1.Range("B65000").End(xlUp).Row
     If Cells(i, 2).Value = Cells(i - 1, 3).Value Then Cells(i, 1).Value = "A"
Next i
End Sub

 

[doveandrose]

Vậy bạn sửa code thế này được không.

Sub GPE()
Dim vung As Range, i As Integer
Set vung = Sheet1.Range("C2", Sheet1.Range("c65000").End(xlUp))
For i = 2 To Sheet1.Range("B65000").End(xlUp).Row
     If Cells(i, 2).Value = Cells(i - 1, 3).Value Then Cells(i, 1).Value = "A"
Next i
End Sub

theo như dự đoán thì vẫn đang đi chệch hướng , chú ý chữ "mỗi lần muốn có chỉ số mới" . hi hi

 

[giaiphap]

theo như dự đoán thì vẫn đang đi chệch hướng , chú ý chữ "mỗi lần muốn có chỉ số mới" . hi hi

Tôi thì thực hiện theo câu này "Giúp em tạo 1 button "

 

[khuongvietphong]

Theo như mình đoán thì 2 bạn ở trên đi chệch hướng rồi . hi hi

Em chỉ làm theo những chỗ bạn í bôi đỏ thôi ... hổng đúng thì thôi vậy

 

[doveandrose]

Em chỉ làm theo những chỗ bạn í bôi đỏ thôi ... hổng đúng thì thôi vậy

theo như tôi đoán thì đối với File #1
bấm nút : thực hiện code : A7 = "A" , B7 = 22
bấm thêm cái nữa : A8 = "A" , B8 = "" ( vì C7 = "")
nhưng việc này phát sinh cái khác : nút bấm đặt ở đâu ?
khi kéo thanh cuộn màn hình xuống để làm việc thì nút bấm cũng khuất khỏi màn hình bấm làm sao ? kéo lên để bấm được cái nút thì thà ghi tay cho rồi

 

[hoang0569]

Anh doveandrose đúng ý em rồi, anh giúp em với nhé, cảm ơn anh nhiều

 

[giaiphap]

theo như tôi đoán thì đối với File #1
bấm nút : thực hiện code : A7 = "A" , B7 = 22
bấm thêm cái nữa : A8 = "A" , B8 = "" ( vì C7 = "")
nhưng việc này phát sinh cái khác : nút bấm đặt ở đâu ?
khi kéo thanh cuộn màn hình xuống để làm việc thì nút bấm cũng khuất khỏi màn hình bấm làm sao ? kéo lên để bấm được cái nút thì thà ghi tay cho rồi

Mình lại hiểu theo hướng khác nửa là tự động dò trong cột B, lấy giá trị đó so sánh với cột C dòng phía trên nó, nếu bằng thì điền ký tự A vào dòng tương ứng ở cột A.

 

[giaiphap]

Anh doveandrose đúng ý em rồi, anh giúp em với nhé, cảm ơn anh nhiều

Nếu vậy sửa code thế này

Sub GPE()
Dim vung As Range, i As Integer
i = Sheet1.Range("B65000").End(xlUp).Row + 1
     Cells(i, 1).Value = "A"
     If Cells(i - 1, 3).Value <> "" Then Cells(i, 2).Value = Cells(i - 1, 3).Value
End Sub

 

[hoang0569]

Em nói rõ lại ý của em, các anh xem lại giúp nhé. Bình thường thì em nhập số liệu theo hàng ngang từ B sang C rồi lại xuống B, chỉ khi nào khi xuống cột B mà chỉ số cần bằng chỉ số cột số cột C hàng trên thì mình sẽ nhấn button sẽ tự động có chỉ số dưới cột B(VD:B3=C2) cộng với ký tự A bên cột A tương ứng.

 

[giangleloi]

nhưng việc này phát sinh cái khác : nút bấm đặt ở đâu ?
khi kéo thanh cuộn màn hình xuống để làm việc thì nút bấm cũng khuất khỏi màn hình bấm làm sao ? kéo lên để bấm được cái nút thì thà ghi tay cho rồi

Để cái nút bấm trên dòng đầu, xài cái chức năng Freeze Panes chắc là được.

 

[hoang0569]

Dạ, đúng ý em rồi, cảm ơn Giaiphap nhiều nhé.