小学分数加法 格式问题

ymrfc

想设计一个小学分数的加法的自动出题 VBA 结果有些地方的格式不对,不是出现日期就是出现一个很大的数学,而不是分数.请教高手兄.

Sub 分数加法()
Dim i, a, b, c, d, e
Range("A2:F110").ClearContents
  Cells(1, 1) = "编号": Cells(1, 2) = "被加数": Cells(1, 3) = "+": Cells(1, 4) = "加数": Cells(1, 5) = "=": Cells(1, 6) = "和":
   For i = 2 To 11
       Cells(i, 1) = i - 1
       b = Int(99 * Rnd + 1)
       c = Int(99 * Rnd + 1)
       d = Int(99 * Rnd + 1)
       e = Int(99 * Rnd + 1)
      Range("b2:f11").Select
    Selection.NumberFormatLocal = "# ?/?"
        If  b > c Then Cells(i, 2) = c & " / " & b Else Cells(i, 2) = b & " / " & c
       If d > e Then Cells(i, 4) = e & " / " & d Else Cells(i, 4) = d & " / " & e
         Cells(i, 3) = "+"
       Cells(i, 5) = "="
        Next i
End Sub

chxw68

将B列和D列格式设置为文本格式。

ymrfc

chxw68 发表于 2019-9-28 11:56
将B列和D列格式设置为文本格式。

Sub 最终结果()
Dim z, y
If Cells(1, 3) = "×" Then y = "*"
If Cells(1, 3) = "÷" Then y = "/"
If Cells(1, 3) = "+" Then y = "+"
If Cells(1, 3) = "-" Then y = "-"
For z = 2 To 11
Cells(z, 6) = "=" & Cells(z, 2) & y & Cells(z, 4)
Next z
  End Sub

这是我用来计算结果的,用文本格式的话就不能计算了.

microyip

1. Sub 最终结果()
   
2.     Dim z, y, sStr As String
   
3.     y = Cells(1, 3)
   
4.     If y = "×" Then
   
5.         y = "*"
   
6.     ElseIf y = "÷" Then
   
7.         y = "/"
   
8.     ElseIf y = "+" Then
   
9.         y = "+"
   
10.     ElseIf y = "-" Then
    
11.         y = "-"
    
12.     End If
    
13.     For z = 2 To 11
    
14.         sStr = "=" & "(" & Cells(z, 2) & ")" & y & "(" & Cells(z, 4) & ")"
    
15.         Cells(z, 6) = Application.Evaluate(sStr)
    
16.     Next z
    
17.   End Sub

复制代码

ymrfc

microyip 发表于 2019-9-28 12:27

感谢!!!!!!!!!!!!!!