Em rất chân thành cảm ơn anh Hoàng Trọng Nghĩa! Em chỉ download bài của anh Nguyễn Anh Tuấn (atmt17@yahoo.com) để chỉnh sửa phù hợp với công tác Đoàn. Chứ thực ra em cũng không biết gì về VBA. Em sẽ theo hướng dẫn của anh, thời gian gấp quá! Nhưng em vẫn thích hiển thị đầy đủ đoạn text trong khung hơn. Hì hì, em hơi cầu toàn thì phải! Em cảm ơn anh và mọi người! Chúc anh và các thành viên sức khỏe, hạnh phúc! Chúc GPE duy trì và phát triển mạnh mẽ!
Quả thật là file của Thầy
anhhtuan1066, và cũng là một người thôi (
ndu96081631).
Tôi thấy bạn cải tiến cũng hay đấy, nhưng rất nữa vời, file đó mà chạy được thì cũng quá lạ đó. Thấy bạn gấp quá mà lại gần tới ngày 2/9 rồi, tôi giúp bạn để hoàn thành CÔNG TÁC ĐOÀN của bạn.
Tôi thêm cho bạn cái LABEL thông báo nội dung câu hỏi, và đồng thời sửa lại cấu trúc trong sheet, bạn cứ việc điền tiếp thông tin câu hỏi vào và mã số câu hỏi cũng như nội dung câu hỏi nữa thôi.
Chúc bạn vui.
Toàn bộ code sẽ như sau:
Code chính:
[GPECODE=vb]
Private Sub TimChiDoan()
Dim ViTri As Range, Col As Long
lblNoiDung.Visible = False
ListBox1.Visible = True
With Sheets("Sheet1")
Set ViTri = .UsedRange.Find(lblTenChiDoan.Caption, LookIn:=xlValues, LookAt:=xlWhole)
If ViTri Is Nothing Then
lblNoiDung.Caption = "CHI " & ChrW(272) & "OÀN NÀY " & ChrW(272) & _
"Ã HOÀN T" & ChrW(7844) & "T TOÀN B" & ChrW(7896) & " S" & ChrW(7888) & _
" CÂU H" & ChrW(7886) & "I."
ListBox1.Visible = False
lblNoiDung.Visible = True
Me(cmdbttn).Enabled = False
Else
Dim i As Long, iRnd As Long, iRow As Long
Col = ViTri.Column
With .Range(.Range(.Cells(2, Col).Address), .Range(.Cells(65536, Col + 1).Address).End(xlUp))
iRow = .Rows.Count
For i = 1 To 50
Randomize
iRnd = Int(iRow * Rnd()) + 1
lblMaCauHoi.Caption = .Cells(iRnd, 2)
Sleep i
UserForm1.Repaint
Next
.Cells(iRnd, 1).Resize(, 2).Delete 2
End With
For i = 1 To UBound(NoiDung)
If NoiDung(i, 1) = Val(lblMaCauHoi.Caption) Then
lblNoiDung.Caption = NoiDung(i, 2)
Exit For
End If
Next
With ListBox1
iRow = .ListCount
.AddItem lblTenChiDoan.Caption
.List(iRow, 1) = lblMaCauHoi.Caption
.List(iRow, 2) = lblNoiDung.Caption
.ListIndex = iRow
End With
ListBox1.Visible = False
lblNoiDung.Visible = True
End If
End With
End Sub
[/GPECODE]
Các nút lệnh từ 1 đến 6:
[GPECODE=vb]Private Sub cmdChiDoan1_Click()
lblTenChiDoan.Caption = cmdChiDoan1.Caption
cmdbttn = cmdChiDoan1.Name
Call TimChiDoan
End Sub
[/GPECODE]
Bạn xem file thử có đúng ý mình chưa nhé!
