Code Khóa mở Khóa (Locked) TextBox - ComboBox (1 người xem)

  • Thread starter Thread starter khamha
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
khamha

khamha

Không có việc gì khó...
Tham gia
4/6/10
Bài viết
662
Được thích
846
Nghề nghiệp
CNVC Laos
Nhờ các bạn giúp về vấn đề như tiêu đề ,như sau:
1, Trong Form mình có 60 "Ctr" gồm cả TextBox và ComboBox.
2, Mình cần tạo hai nút sau:
2,1, Nút Khoa:khi bấm nút này sẽ khóa "Ctr" từ 1 - 26 và 32 - 60.
2,2, Nút MoKhoa:khi bấm nút này sẽ mở khóa các "Ctr" đã khóa ở trên.
Các bạn xem File đính kèm và giúp mình nhé,Thank
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
khamha đã viết:
Nhờ các bạn giúp về vấn đề như tiêu đề ,như sau:
1, Trong Form mình có 60 "Ctr" gồm cả TextBox và ComboBox.
2, Mình cần tạo hai nút sau:
2,1, Nút Khoa:khi bấm nút này sẽ khóa "Ctr" từ 1 - 26 và 32 - 60.
2,2, Nút MoKhoa:khi bấm nút này sẽ mở khóa các "Ctr" đã khóa ở trên.
Các bạn xem File đính kèm và giúp mình nhé,Thank
Nhấp chuột vào đây để mở rộng...
Anh có thể sử dụng 1 trong 2 thuộc tính trong code sau
[GPECODE=vb]Private Sub Khoa_Click()
Dim i&
For i = 1 To 26
' Me.Controls("Ctr" & Right("0" & i, 2)).Enabled = False
Me.Controls("Ctr" & Right("0" & i, 2)).Visible = False
Next
For i = 32 To 60
' Me.Controls("Ctr" & Right("0" & i, 2)).Enabled = False
Me.Controls("Ctr" & Right("0" & i, 2)).Visible = False
Next
End Sub
Private Sub MoKhoa_Click()
Dim i&
For i = 1 To 26
'Me.Controls("Ctr" & Right("0" & i, 2)).Enabled = True
Me.Controls("Ctr" & Right("0" & i, 2)).Visible = True
Next
For i = 32 To 60
'Me.Controls("Ctr" & Right("0" & i, 2)).Enabled = True
Me.Controls("Ctr" & Right("0" & i, 2)).Visible = True
Next
End Sub


[/GPECODE]
 
Upvote 0
khamha đã viết:
Nhờ các bạn giúp về vấn đề như tiêu đề ,như sau:
1, Trong Form mình có 60 "Ctr" gồm cả TextBox và ComboBox.
2, Mình cần tạo hai nút sau:
2,1, Nút Khoa:khi bấm nút này sẽ khóa "Ctr" từ 1 - 26 và 32 - 60.
2,2, Nút MoKhoa:khi bấm nút này sẽ mở khóa các "Ctr" đã khóa ở trên.
Các bạn xem File đính kèm và giúp mình nhé,Thank
Nhấp chuột vào đây để mở rộng...

Vầy chắc là được:
Mã: 
Private Sub Khoa_Click()
  Dim i As Long
  For i = 1 To 60
    If i < 26 Or i > 31 Then
      Me.Controls("Ctr" & Format(i, "00")).Enabled = False
    End If
  Next
End Sub
Private Sub MoKhoa_Click()
  Dim i As Long
  For i = 1 To 60
    Me.Controls("Ctr" & Format(i, "00")).Enabled = True
  Next
End Sub
 
Upvote 0
Mình phát triển từ Code của Ndu, ta nên làm như sau sẽ chỉ có 1 Code và 1 Nút, bớt rườm rà trên Form quên sử lý như trên (Vì đã khoá rồi thì phải Unable cái nút khoá)

Mã: 
Private Sub Khoa_Click()
  Dim i As Long, Mt As Boolean
   If Me.Khoa.Caption = "UnLock" Then
    Me.Khoa.Caption = "Lock"
     Else
       Me.Khoa.Caption = "UnLock"
      End If
    Mt = Me.Khoa.Caption = "Unlock"
   For i = 1 To 60
  If i < 26 Or i > 31 Then _
 Me.Controls("Ctr" & Format(i, "00")).Enabled = Mt
Next
End Sub
 
Upvote 0
sealand đã viết:
Mình phát triển từ Code của Ndu, ta nên làm như sau sẽ chỉ có 1 Code và 1 Nút, bớt rườm rà trên Form quên sử lý như trên (Vì đã khoá rồi thì phải Unable cái nút khoá)

Mã: 
Private Sub Khoa_Click()
  Dim i As Long, Mt As Boolean
   If Me.Khoa.Caption = "UnLock" Then
    Me.Khoa.Caption = "Lock"
     Else
       Me.Khoa.Caption = "UnLock"
      End If
    Mt = Me.Khoa.Caption = "Unlock"
   For i = 1 To 60
  If i < 26 Or i > 31 Then _
 Me.Controls("Ctr" & Format(i, "00")).Enabled = Mt
Next
End Sub
Nhấp chuột vào đây để mở rộng...

Nếu đã là vậy thì em thấy dùng cái CheckBox cho nó sướng!
 
Upvote 0
sealand đã viết:
Mình phát triển từ Code của Ndu, ta nên làm như sau sẽ chỉ có 1 Code và 1 Nút, bớt rườm rà trên Form quên sử lý như trên (Vì đã khoá rồi thì phải Unable cái nút khoá)

Mã: 
Private Sub Khoa_Click()
  Dim i As Long, Mt As Boolean
   If Me.Khoa.Caption = "UnLock" Then
    Me.Khoa.Caption = "Lock"
     Else
       Me.Khoa.Caption = "UnLock"
      End If
    Mt = Me.Khoa.Caption = "Unlock"
   For i = 1 To 60
  If i < 26 Or i > 31 Then _
 Me.Controls("Ctr" & Format(i, "00")).Enabled = Mt
Next
End Sub
Nhấp chuột vào đây để mở rộng...

Hình như đoạn Code của bác sealand chỉ có Locked chứ ko có UnLocked ,bác xem lại ,em bấm mỏi cả tay mà nó vẫn cứ Locked.
 
Upvote 0
khamha đã viết:
Hình như đoạn Code của bác sealand chỉ có Locked chứ ko có UnLocked ,bác xem lại ,em bấm mỏi cả tay mà nó vẫn cứ Locked.
Nhấp chuột vào đây để mở rộng...
Anh Sealand viết nhầm
Mã: 
Private Sub Khoa_Click()
  Dim i As Long, Mt As Boolean
   If Me.Khoa.Caption = "[B]Un[COLOR=#ff0000]L[/COLOR]ock[/B]" Then
    Me.Khoa.Caption = "Lock"
     Else
       Me.Khoa.Caption = "[B]Un[COLOR=#ff0000]L[/COLOR]ock[/B]"
      End If
    Mt = Me.Khoa.Caption = "[B]Un[COLOR=#ff0000]l[/COLOR]ock[/B]"
   For i = 1 To 60
  If i < 26 Or i > 31 Then _
 Me.Controls("Ctr" & Format(i, "00")).Enabled = Mt
Next
End Sub
Cái thì l thường, cái thì L HOA
Sửa lại cho chúng trùng nhau hết là được
Nếu thấy bị "ngược" thì sửa thêm đoạn
Mt = Me.Khoa.Caption = "Unlock"
Thành:
Mt = Me.Khoa.Caption = "Lock"
Còn không thì thử code này:
Mã: 
Private Sub Khoa_Click()
  Dim i As Long
  With Me.Khoa
    .Caption = IIf(.Caption = "Lock", "UnLock", "Lock")
    For i = 1 To 60
      If i < 26 Or i > 31 Then _
      Me.Controls("Ctr" & Format(i, "00")).Enabled = (.Caption = "Lock")
    Next
  End With
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
khamha đã viết:
Hình như đoạn Code của bác sealand chỉ có Locked chứ ko có UnLocked ,bác xem lại ,em bấm mỏi cả tay mà nó vẫn cứ Locked.
Nhấp chuột vào đây để mở rộng...

Làm theo thôi nha, rút gọn, bạn thử xem:

Mã: 
Private Sub Khoa_Click()
    Dim i As Long, CC As Boolean
    CC = Khoa.Caption = "UnLock"
    For i = 1 To 60
        If i < 26 Or i > 31 Then
            Me("Ctr" & Format(i, "00")).Enabled = CC
        End If
    Next
    Khoa.Caption = IIf(CC, "Lock", "UnLock")
End Sub

Lưu ý: Nếu bạn đã Enable trước khi form được load thì bạn ghi caption cho nút lệnh là UnLock, ngược lại, nếu bạn chưa Enable gì trước các Ctr* thì bạn ghi trên nút lệnh là Lock bạn nhé!
 
Lần chỉnh sửa cuối:
Upvote 0
ndu96081631 đã viết:
Anh Sealand viết nhầm
Mã: 
Private Sub Khoa_Click()
  Dim i As Long, Mt As Boolean
   If Me.Khoa.Caption = "[B]Un[COLOR=#ff0000]L[/COLOR]ock[/B]" Then
    Me.Khoa.Caption = "Lock"
     Else
       Me.Khoa.Caption = "[B]Un[COLOR=#ff0000]L[/COLOR]ock[/B]"
      End If
    Mt = Me.Khoa.Caption = "[B]Un[COLOR=#ff0000]l[/COLOR]ock[/B]"
   For i = 1 To 60
  If i < 26 Or i > 31 Then _
 Me.Controls("Ctr" & Format(i, "00")).Enabled = Mt
Next
End Sub
Cái thì l thường, cái thì L HOA
Sửa lại cho chúng trùng nhau hết là được
Nếu thấy bị "ngược" thì sửa thêm đoạn
Mt = Me.Khoa.Caption = "Unlock"
Thành:
Mt = Me.Khoa.Caption = "Lock"
Còn không thì thử code này:
Mã: 
Private Sub Khoa_Click()
  Dim i As Long
  With Me.Khoa
    .Caption = IIf(.Caption = "Lock", "UnLock", "Lock")
    For i = 1 To 60
      If i < 26 Or i > 31 Then _
      Me.Controls("Ctr" & Format(i, "00")).Enabled = (.Caption = "Lock")
    Next
  End With
End Sub
Nhấp chuột vào đây để mở rộng...
Để tránh nhằm sao anh Seland không dùng như vầy luôn?
[GPECODE=vb]
Private Sub Khoa_Click()
Dim i As Long, Mt As Boolean
If Me.Khoa.Caption = "UnLock" Then
Me.Khoa.Caption = "Lock"
Mt = True
Else
Me.Khoa.Caption = "UnLock"
End If
For i = 1 To 60
If i < 26 Or i > 31 Then _
Me.Controls("Ctr" & Format(i, "00")).Enabled = Mt
Next
End Sub[/GPECODE]
 
Upvote 0
Hì, xin lỗi! Mình không vào VBA mà gõ trực tiếp trong khung trả lời nên không Test được.
 
Upvote 0
viehoai đã viết:
Để tránh nhằm sao anh Seland không dùng như vầy luôn?
[GPECODE=vb]
Private Sub Khoa_Click()
Dim i As Long, Mt As Boolean
If Me.Khoa.Caption = "UnLock" Then
Me.Khoa.Caption = "Lock"
Mt = True
Else
Me.Khoa.Caption = "UnLock"
End If
For i = 1 To 60
If i < 26 Or i > 31 Then _
Me.Controls("Ctr" & Format(i, "00")).Enabled = Mt
Next
End Sub[/GPECODE]
Nhấp chuột vào đây để mở rộng...
Em có 3 textbox tên cụ thể là TBMaVV;TBTenVV;TBMST thì sửa đoạn code trên như thế nào ah
Mong các huynh tỷ giúp đỡ
 
Upvote 0
minhcong.tckt đã viết:
Em có 3 textbox tên cụ thể là TBMaVV;TBTenVV;TBMST thì sửa đoạn code trên như thế nào ah
Mong các huynh tỷ giúp đỡ
Nhấp chuột vào đây để mở rộng...

Chỉ có 3 TextBox thì cứ viết 3 đoạn code điều khiển là được rồi, đâu cần suy nghĩ đến For.. Next cho rối đầu
 
Upvote 0
minhcong.tckt đã viết:
Em có 3 textbox tên cụ thể là TBMaVV;TBTenVV;TBMST thì sửa đoạn code trên như thế nào ah
Mong các huynh tỷ giúp đỡ
Nhấp chuột vào đây để mở rộng...
Mã: 
Private Sub CommandButton4_Click()
    Dim c As Byte
    Dim objArr()
    objArr = Array(TBMaVV, TBTenVV, TBMST)
    For c = LBound(objArr) To UBound(objArr)
        objArr(c).Enabled = Not objArr(c).Enabled
    Next
End Sub
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Mã: 
Private Sub CommandButton4_Click()
    Dim c As Byte
    Dim objArr()
    objArr = Array(TBMaVV, TBTenVV, TBMST)
    For c = LBound(objArr) To UBound(objArr)
        objArr(c).Enabled = Not objArr(c).Enabled
    Next
End Sub
Nhấp chuột vào đây để mở rộng...

Viết bình thường mất có 3 dòng code không chịu lại cố tình For.. Next cho dài thêm
 
Upvote 0
ndu96081631 đã viết:
Viết bình thường mất có 3 dòng code không chịu lại cố tình For.. Next cho dài thêm
Nhấp chuột vào đây để mở rộng...
Chỉ 3 TextBox đôi khi lại là giả dụ, nhưng nếu nhiều hơn thì theo cách này mà mần thôi. Còn không gom những TextBox loại này vào 1 Frame thì không cần Array, cứ tập hợp nào có TypeName là TextBox là hốt thôi. Nói chung là nhiều cách để xơi lắm! Hihihihi (cái này là dạng tổng quát học từ Thầy mà).
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Chỉ 3 TextBox đôi khi lại là giả dụ, nhưng nếu nhiều hơn thì theo cách này mà mần thôi. Còn không gom những TextBox loại này vào 1 Frame thì không cần Array, cứ tập hợp nào có TypeName là TextBox là hốt thôi. Nói chung là nhiều cách để xơi lắm! Hihihihi (cái này là dạng tổng quát học từ Thầy mà).
Nhấp chuột vào đây để mở rộng...
Nút này nó bị "ngược " 1 chút, bác sửa lại cho em nhé
em muốn là khi form hiện lên thì 3 textbox này được "khóa" trước rùi, ấn vào mới cho sửa
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Chỉ 3 TextBox đôi khi lại là giả dụ, nhưng nếu nhiều hơn thì theo cách này mà mần thôi. Còn không gom những TextBox loại này vào 1 Frame thì không cần Array, cứ tập hợp nào có TypeName là TextBox là hốt thôi. Nói chung là nhiều cách để xơi lắm! Hihihihi (cái này là dạng tổng quát học từ Thầy mà).
Nhấp chuột vào đây để mở rộng...

Thì chẳng phải từ bài 1 đến giờ ta đang viết code theo kiểu "nhiều" textbox đó sao? Cứ thế áp dụng và tùy biến thoải mái nếu ta nằm trong trường hợp "nhiều". Còn hiện giờ tác giả nói rõ rằng:
minhcong.tckt đã viết:
Em có 3 textbox tên cụ thể là TBMaVV;TBTenVV;TBMST thì sửa đoạn code trên như thế nào ah
Nhấp chuột vào đây để mở rộng...
 
Upvote 0
ndu96081631 đã viết:
Thì chẳng phải từ bài 1 đến giờ ta đang viết code theo kiểu "nhiều" textbox đó sao? Cứ thế áp dụng và tùy biến thoải mái nếu ta nằm trong trường hợp "nhiều". Còn hiện giờ tác giả nói rõ rằng:
Nhấp chuột vào đây để mở rộng...
Vì những code trước nó dính dáng đến Caption nên với người chưa rành code sẽ bị rối và khó tùy biến được ạ.

Với 3 dòng:

Mã: 
Private Sub CommandButton4_Click()
    TBMaVV.Enabled = Not TBMaVV.Enabled
    TBTenVV.Enabled = Not TBTenVV.Enabled
    TBMST.Enabled = Not TBMST.Enabled
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

PhanTuHuong
Nên chọn điện thoại nào? (1 người xem)
2
Trả lời
20
Đọc
1K
dungluyen2119
dungluyen2119
PhanTuHuong
Hà Nội hẹn hò gặp gỡ đầu năm 2025 thôi :)
    • Thích
    • Yêu thích
Trả lời
9
Đọc
386
Nguyễn Duy Tuân
Nguyễn Duy Tuân
Manhhung90
Tạo nút bấm để xoá nhanh trang trong file word.
Trả lời
3
Đọc
82
PhanTuHuong
PhanTuHuong
H
Hàm Evaluate bị lỗi khi mở lại
2
Trả lời
23
Đọc
279
ptm0412
ptm0412
T
tìm ra số tháng mà lượng hàng nhập ban đầu sử dụng hết
    • Buồn
    • Cười
Trả lời
5
Đọc
213
SA_DQ
SA_DQ
Nguyễn Duy Tuân
Lập trình VBA với Google Drive, OneDrive, DropBox cho Upload-Download-Copy-Move...
    • Cảm ơn
    • Thích
Trả lời
4
Đọc
300
quyenpv
quyenpv
hungmanh.th1
Lỗi không trả về Giá trị 0 trong excel
    • Cười
Trả lời
5
Đọc
68
hungmanh.th1
hungmanh.th1
HeSanbi
  • Question Question
VBA nâng cao: Nhúng tập tin vào trang tính hoặc trích xuất chúng nhanh chóng
    • Thích
    • Cảm ơn
Trả lời
0
Đọc
119
HeSanbi
HeSanbi
nguyễn tiến tú
file CALCULATING rất chậm em nhờ các anh chị xem giúp em ạ
Trả lời
7
Đọc
373
tranhungdao12a3
T
T
  • Question Question
Xin thầy/cô và anh chị giúp đỡ cách điền thông tin ca kíp trực trong bảng Excel bằng VBA
Trả lời
2
Đọc
149
tiennd67
T
vnxgiokinhtoi
Nhờ giúp đỡ công thức lưu dữ liệu và mở lại dữ liệu cũ đã save
Trả lời
2
Đọc
105
le_vis
L
H
HELP! HÀM LẤY THÁNG/ NĂM TRONG EXCEL
Trả lời
5
Đọc
128
ptm0412
ptm0412
H
Em hỏi vì sao khi file googlesheet của em thì code chạy
Trả lời
2
Đọc
56
Hoale85
H
4
EXCEL TỰ ĐỘNG MỞ TRÊN WEB
Trả lời
9
Đọc
272
4545
4
T
Nhờ ACE chỉ giáo công thức Gộp nhiều dữ liệu vào một ô trong excel
Trả lời
9
Đọc
232
Hoàng Tuấn 868
H
H
Phân quyền xem trên từng trang tính của googlesheet
Trả lời
6
Đọc
149
tranhungdao12a3
T
vn81206
TRA CỨU MÃ SỐ THUẾ CÁ NHÂN QUA EXCEL
    • Buồn
2 3
Trả lời
50
Đọc
14K
HeSanbi
HeSanbi
GPE-Trợ Lý
CHÚC MỪNG NGÀY QUỐC TẾ PHỤ NỮ 08/03/2025
    • Yêu thích
    • Thích
Trả lời
0
Đọc
58
GPE-Trợ Lý
GPE-Trợ Lý
M
  • Question Question
Tự chèn dòng khi cập nhật dữ liệu từ trang tính khác.
Trả lời
6
Đọc
285
hoangtuan.net
hoangtuan.net
K
Không đăng nhập được MS Teams sau khi tải về (chỉ cho sử dụng bản trên web)
Trả lời
4
Đọc
116
ptm0412
ptm0412
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
Back
Top Bottom