乘法運算？

q1a2z5

可否用程式將乘法運算過程解算出來？
謝謝！

owen06

回復 1# q1a2z5


這樣可以嗎？

owen06

回復 2# owen06


  抱歉，上一個檔有寫地方沒寫好，這個你試試看

stillfish00

回復 1# q1a2z5

1. Sub Test()
   
2.   Dim sA As String, sB As String, sM As String, sRslt As String
   
3.   Dim rngA, rngRslt As Range
   
4.   
   
5.   Set rngA = Range("J4:M4")   '範圍或位置只要改這裡就好
   
6.   
   
7.   sA = Join(Application.Transpose(Application.Transpose(rngA.Value)), "")
   
8.   sB = Join(Application.Transpose(Application.Transpose(rngA.Offset(1).Value)), "")
   
9.   
   
10.   '清除之前的結果
    
11.   With rngA
    
12.   With .Offset(2, -.Count).Resize(.Count + 1, 2 * .Count)
    
13.     .ClearContents
    
14.     .Borders(xlInsideHorizontal).LineStyle = xlContinuous
    
15.     .Borders(xlInsideHorizontal).LineStyle = xlNone
    
16.   End With
    
17.   End With
    
18.   
    
19.   '計算過程
    
20.   For i = 1 To Len(sB)
    
21.     sM = CStr(CLng(Mid(sB, Len(sB) - i + 1, 1)) * CLng(sA))
    
22.     With rngA.Resize(, rngA.Count + 1).Offset(1 + i, -i)
    
23.       For j = 1 To Len(sM)
    
24.         .Cells(.Count - j + 1).Value = Mid(sM, Len(sM) - j + 1, 1)
    
25.       Next
    
26.       If i = 1 Then .Borders(xlEdgeTop).LineStyle = xlContinuous
    
27.     End With
    
28.   Next
    
29.   
    
30.   '計算結果
    
31.   sRslt = CStr(CLng(sA) * CLng(sB))
    
32.   Set rngRslt = rngA.Offset(2 + Len(sB), -Len(sB)).Resize(, Len(sA) + Len(sB))
    
33.   With rngRslt
    
34.     .Borders(xlEdgeTop).LineStyle = xlContinuous
    
35.     For i = 1 To Len(sRslt)
    
36.       .Cells(.Count - i + 1).Value = Mid(sRslt, Len(sRslt) - i + 1, 1)
    
37.     Next
    
38.   End With
    
39. End Sub

複製代碼

Hsieh

回復 1# q1a2z5

1. Sub ex()
   
2. Set 被乘數 = [J4:M4]
   
3. Set 倍數 = [J5:M5]
   
4. ActiveSheet.UsedRange.Offset(倍數.Row, 0).ClearContents '清除
   
5. n = Val(Join(Application.Transpose(Application.Transpose(被乘數)), ""))
   
6. m = Val(Join(Application.Transpose(Application.Transpose(倍數)), ""))
   
7. k = 被乘數.Column + 被乘數.Count - 1: r = 倍數.Row + 1
   
8. Do While IsNumeric(Cells(5, k)) And Cells(5, k) <> ""
   
9. s = n * Cells(5, k)
   
10.    For i = Len(s) To 1 Step -1
    
11.       Cells(r, k - (Len(s) - i)) = Val(Mid(s, i, 1))
    
12.    Next
    
13.    r = r + 1
    
14.    k = k - 1
    
15. Loop
    
16. For i = Len(n * m) To 1 Step -1
    
17.       Cells(r, 13 - (Len(n * m) - i)) = Val(Mid(n * m, i, 1))
    
18. Next
    
19. End Sub

複製代碼