Private Sub Command3_Click()
Static L As Integer
L = L + 1
If L <= 151 Then
If L = 1 Then
L = 2
FG3.TextMatrix(Int((L + 1) / 3), (L + 1) Mod 3 + 1) = Text1.Text
Else
FG3.TextMatrix(Int((L + 1) / 3), (L + 1) Mod 3 + 1) = Text1.Text
End If
End If
End If
End Sub
增加一个cancel按钮应该没问题 我想实现如下功能
比如正在输入第8行2列 发现该行数据错误 这时点击一下cancel按钮后 清空第8行的数据 然后点击command 按钮 从第8行开始重新输入数据,该怎么做呢?
有一个论坛网友给了我这样一个代码 只能一个单元格重新输入 我想按行重新输入
Private Sub ComCancel_Click()
If L = 0 Then Exit Sub
L = L - 1
End Sub
Static L As Integer
L = L + 1
If L <= 151 Then
If L = 1 Then
L = 2
FG3.TextMatrix(Int((L + 1) / 3), (L + 1) Mod 3 + 1) = Text1.Text
Else
FG3.TextMatrix(Int((L + 1) / 3), (L + 1) Mod 3 + 1) = Text1.Text
End If
End If
End If
End Sub
增加一个cancel按钮应该没问题 我想实现如下功能
比如正在输入第8行2列 发现该行数据错误 这时点击一下cancel按钮后 清空第8行的数据 然后点击command 按钮 从第8行开始重新输入数据,该怎么做呢?
有一个论坛网友给了我这样一个代码 只能一个单元格重新输入 我想按行重新输入
Private Sub ComCancel_Click()
If L = 0 Then Exit Sub
L = L - 1
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货