thang_nguyen1
Thành viên hoạt động
- Tham gia
- 6/10/16
- Bài viết
- 116
- Được thích
- 4
Bạn nên bỏ từ "pro" đi. Chứ nhìn chắc người biết sẽ không trả lời đâuCác pro
With sheet1
.rg("C3").value =.rg(" ...").value
Tôi giả sử bạn dùng Check box (form control) trên sheet "Diem Thi" nha.Các pro cho mình hỏi, mình viết code như bị lỗi runtime erorr 91, các bạn sửa giup mình, mình hỏi thêm là mình muốn viết , ví dụ : range a1 bằng với range a2 thì viết như trên có đúng ko. có cách nào viết tốt hơn ko. mong m.n cho ý kiến
View attachment 246335
Sub Update()
With Sheets("Diem Thi")
If .Shapes("Check Box 1").OLEFormat.Object.Value = 1 Then
.Range("C3").Value = .Range("AE177").Value
Else
.Range("C3").Value = .Range("AE174").Value
End If
End With
End Sub
Checkbox là checkbox, sao lại xem nó là Shape vậy bạn?Tôi giả sử bạn dùng Check box (form control) trên sheet "Diem Thi" nha.
Check box có giá trị 1 là ON, 0 là OFF
Mã:Sub Update() With Sheets("Diem Thi") If .Shapes("Check Box 1").OLEFormat.Object.Value = 1 Then .Range("C3").Value = .Range("AE177").Value Else .Range("C3").Value = .Range("AE174").Value End If End With End Sub
Dim chk As CheckBox
Set chk = Sheets("Diem Thi").CheckBoxes("Check box 1")
chk.Value = .....
Dạ, chính vì thế mà nó có thêm cái ".OLEFormat.Object" nữa ạ.Checkbox là checkbox, sao lại xem nó là Shape vậy bạn?
Với CheckBox thuộc form controls, bạn khai báo như vầy nha:
Mã:Dim chk As CheckBox Set chk = Sheets("Diem Thi").CheckBoxes("Check box 1") chk.Value = .....
Thầy có thể giúp em viết code được ko ạ. Em cảm ơnCheckbox là checkbox, sao lại xem nó là Shape vậy bạn?
Với CheckBox thuộc form controls, bạn khai báo như vầy nha:
Mã:Dim chk As CheckBox Set chk = Sheets("Diem Thi").CheckBoxes("Check box 1") chk.Value = .....
Nó bị lỗi bạn ơiTôi giả sử bạn dùng Check box (form control) trên sheet "Diem Thi" nha.
Check box có giá trị 1 là ON, 0 là OFF
Mã:Sub Update() With Sheets("Diem Thi") If .Shapes("Check Box 1").OLEFormat.Object.Value = 1 Then .Range("C3").Value = .Range("AE177").Value Else .Range("C3").Value = .Range("AE174").Value End If End With End Sub
Viết code gì bạn?Thầy có thể giúp em viết code được ko ạ. Em cảm ơn
lỗi chỗ nào? bạn gởi file lên đi.Nó bị lỗi bạn ơi
đây bạn ơilỗi chỗ nào? bạn gởi file lên đi.
Tôi làm nó chạy ào ào nhanh hơn siêu bão nữa ah....
lấy code này:Cái check box viết trong modun hay trên sheet, em chưa rõ mong thầy giúp em
Bài đã được tự động gộp:
đây bạn ơi
Private Sub CheckBox1_Click()
With Sheets("Trang_tính1")
If .CheckBox1.Value = True Then
.Range("C3").Value = .Range("C4").Value
Else
.Range("C3").Value = .Range("C5").Value
End If
End With
End Sub
Với file của bạn thì chỉ cần code vầy:Cái check box viết trong modun hay trên sheet, em chưa rõ mong thầy giúp em
Bài đã được tự động gộp:
đây bạn ơi
Private Sub CheckBox1_Click()
Range("C3").Value = Range("C5").Offset(CheckBox1.Value).Value
End Sub
Đúng là "siêu offset luôn thầy ơi!!Với file của bạn thì chỉ cần code vầy:
He... he...Mã:Private Sub CheckBox1_Click() Range("C3").Value = Range("C5").Offset(CheckBox1.Value).Value End Sub
Nhắn @thang_nguyen1 :Nó bị lỗi bạn ơi
ActiveSheet.CheckBox1.Value
ActiveSheet.OLEObjects("CheckBox1").Object.Value
ActiveSheet.Shapes("Check Box 1").OLEFormat.Object.Value
ActiveSheet.Shapes("Check Box 1").ControlFormat.Value
ActiveSheet.CheckBoxes("Check Box 1").Value
Do các bạn không để ý thôi. Người ta viết rõ mà: if CheckBox1 = true thenNhắn @thang_nguyen1 :
Bạn phải biết là mình dùng Checkbox là của Form Control hay là ActiveX mà truy vấn value của nó.
Như file bạn gởi thì bạn dùng CheckBox ActiveX, còn file mình làm ví dụ cho bạn là CheckBox Form control.
cảm ơn bạn nhiềulấy code này:
Mã:Private Sub CheckBox1_Click() With Sheets("Trang_tính1") If .CheckBox1.Value = True Then .Range("C3").Value = .Range("C4").Value Else .Range("C3").Value = .Range("C5").Value End If End With End Sub
thank thầy. cách của thầy rất hay ạVới file của bạn thì chỉ cần code vầy:
He... he...Mã:Private Sub CheckBox1_Click() Range("C3").Value = Range("C5").Offset(CheckBox1.Value).Value End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2