根据序号，逐条显示内容

vbahappy · 发表于 2024-6-11 00:09

各位老师，能否帮忙实现一个根据【演示】表中d2,d3单元格设定的序号范围，逐一显示出对应文本序号的内容。

点一次程序，显示一条，直到完成。（当的d1选择顺序，就按顺序逐一显示，当d1选择随机就按随机显示）
再此先谢过了。

求助.rar (21.46 KB, 下载次数: 8)

3190496160 · 发表于 2024-6-11 08:02

Public cs As Integer
Sub chuti()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant
With Sheets("文本")
r = .Cells(Rows.Count, 1).End(xlUp).Row
If r < 2 Then MsgBox "文本工作表为空！": End
ar = .Range("a1:hc" & r)
End With
With Sheets("演示")
fs = .[d1]
ks = .[d2]
js = .[d3]
If fs = "" Then MsgBox "请选择出题方式！": End
If fs = "顺序" Then
      If ks = "" Then MsgBox "请输入开始序号！": End
      If js = "" Then MsgBox "请输入结束序号！": End
      If ks > js Then MsgBox "开始需要必须小于等于结束序号": End
      If cs = 0 Then
         cs = ks
      Else
         cs = cs + 1
      End If
      If cs > js Then Exit Sub
      .[a3] = cs
      .[b3] = ar(cs, 2)
      .[c3] = ar(cs, 3)
Else
      sjs = Application.RandBetween(2, r)
      .[a3] = sjs
      .[b3] = ar(sjs, 2)
      .[c3] = ar(sjs, 3)
End If
End With
End Sub

3190496160 · 发表于 2024-6-11 08:02

3190496160 · 发表于 2024-6-11 08:03

求助.rar (30.17 KB, 下载次数: 9)

vbahappy · 发表于 2024-6-11 08:26

3190496160 发表于 2024-6-11 08:03

非常感谢老师的帮助，完全符合我需要的

vbahappy · 发表于 2024-6-11 08:40

老师，测试发现还是有些问题，如果改动范围，比如1,39,选择顺序运行，程序就不会运行。
如果开始状态a3为空的状态，选择顺序也不会运行程序

3190496160 · 发表于 2024-6-11 08:53

求助.rar (30.32 KB, 下载次数: 10)

3190496160 · 发表于 2024-6-11 08:53

之前的代码确实有点问题，已经做了优化处理
但是，不知道你说的A3为空时什么意思？

vbahappy · 发表于 2024-6-11 09:13

3190496160 发表于 2024-6-11 08:53
之前的代码确实有点问题，已经做了优化处理
但是，不知道你说的A3为空时什么意思？

说的A3为空，意思是A3，b3,c3没有数据的时候，但好像现在没啥问题。
老师，还是有些问题，随机选择，并没有在范围之内，会随机出现范围之外的题；比如我选择的是1-39，它会出现54的题

vbahappy · 发表于 2024-6-11 09:33

老师，你帮看看，我并没改动程序，但选择顺序就是运行不了。

测试.rar (32.89 KB, 下载次数: 10)

		自动登录	找回密码
密码			免费注册

[求助] 根据序号，逐条显示内容

评分

评分

评分

评分

评分