Chọn range cần giúp đỡ

[salam]

Các bác giúp em về vấn đề select range với. Câu hỏi cụ thể em để trong file vì em không biết nói thế nào cho rõ nữa. Cám ơn các Bác.

 

[Lam_A0]

VD: A7 là 12 thì nhấn vào DOT1 thì excel chọn BP6Q6

Cái này chắc là nhầm đúng không? Phải là BP6:BQ6.
Bạn có thể thêm điều kiện về giá trị của A7 (không được là khoảng trắng, phải nằm trong miền giá trị nào đó,...)
Bạn thêm các đoạn code sau vào từng Button:

[/FONT]
Private Sub CommandButton1_Click()
Dim M
M = Sheet1.Range("A7") * 6
Range(Cells(6, M - 4), Cells(6, M - 3)).Select
End Sub

Private Sub CommandButton2_Click()
Dim M
M = Sheet1.Range("A7") * 6
Range(Cells(6, M - 2), Cells(6, M - 1)).Select
End Sub

Private Sub CommandButton3_Click()
Dim M
M = Sheet1.Range("A7") * 6
Range(Cells(6, M), Cells(6, M + 1)).Select
End Sub

Thân!

 

[salam]

Em gõ nhầm thằng BP sang PQ Xim cám ơn bác nhé. Còn thắng A7 của em chắc chắn là không có khoảng trắng rồi nó trong 1->20 thôi.

 

[Lam_A0]

Em gõ nhầm thằng BP sang PQ Xim cám ơn bác nhé. Còn thắng A7 của em chắc chắn là không có khoảng trắng rồi nó trong 1->20 thôi.

Ý mình là bạn có thể thêm điều kiện kiểm tra giá trị của A7. Nếu nó để trắng hoặc nằm ngoài khoảng (1, 20) thì báo lỗi. Nếu không khi người dùng nhập nhầm, chương trình sẽ báo lỗi hoặc select vùng không mong muốn.
Thân!

 

[salam]

Bác chỉ luôn cho em cái điều kiện là nếu ta nhấn dot1 hay 2,3 thì nó chọn tương ứng các cột ở dòng 6 em muốn các cột tương ứng ở dòng VD:7 mà bằng 0 thì nó báo lỗi không cho chọn. (được voi đòi tiên) Bác giúp cho em với.
Cám ơn Bác.

Em viết được rồi thêm if vào cùng với Msg, Đúng là phải chịu khó mò mới được bao giờ bó tay mới Hỏi Các Bác Trên GPE.

 

[Lam_A0]

Em viết được rồi thêm if vào cùng với Msg, Đúng là phải chịu khó mò mới được bao giờ bó tay mới Hỏi Các Bác Trên GPE.

Hi, chúc mừng nhé! Mình nghĩ đoạn này cũng dễ nên muốn để bạn tự làm. Thành quả của mình dù nhỏ, nhưng khi làm được cũng cho ta một cảm giác rất khác lạ... Vấn đề select thì xong rồi, nhưng mình góp ý bạn nên tô đậm hoặc bôi mầu cho ô select cho dễ nhận ra. Chỉ cần thêm một câu thôi...
Thân!

 

[anhtuan1066]

Chào bạn Salam
Tôi cảm giác trong bài của bạn nếu dùng Options Button sẽ hay hơn là Command Button đấy... Thậm chí code lại ngắn, có thể phối hợp giữa code và chức năng sẳn có của Excel...
Bạn xem thử nhé!
ANH TUẤN

 

[SA_DQ]

Thêm một tham khảo!

Option Explicit
Dim iJ As Integer

Sub Dot1_()
 iJ = 6 * Range("A7").Value - 4
 SelectDot iJ
End Sub

Sub Dot2_()
 iJ = 6 * Range("A7").Value - 2
 SelectDot iJ
End Sub
Sub Dot3_()
 iJ = 6 * Range("A7").Value
 SelectDot iJ
End Sub

[B]Sub SelectDot(iZ As Integer)[/B]
    Range(Cells(6, iZ), Cells(6, iZ + 1)).Select
[B]End Sub [/B]

 

[tigertiger]

Sao không thế này cho ngắn gọn lun nhỉ:

Option Explicit

Sub Dot1_()
 SelectDot 4
End Sub

Sub Dot2_()
 SelectDot 2
End Sub
Sub Dot3_()
 SelectDot 
End Sub

và

Sub SelectDot(Optional iJ As Integer =0)  
    Dim iZ As Integer
    iZ=6 * Range("A7").Value-iJ
    Range(Cells(6, iZ), Cells(6, iZ + 1)).Select 
End Sub

 

[SA_DQ]

Sao, thế này cho ngắn gọn lun nhỉ!:

[B]Sub SelectDot(Optional iJ As Integer =0)[/B]  
    Dim iZ As Integer
    iZ=6 * Range("A7").Value-iJ
    [B][SIZE="2"]Cells(6, iZ).Resize(, 1).Select [/SIZE][/B]
[B]End Sub [/B]

Vui nha!