สูตรmod ()
อยากให้ช่วยนำมาเข้า test6.xlsx
ผลลงไว้ที่ sheet 4 ครับ
มีคนมาลงไว้ที่
http://pantip.com/topic/33931049/comment12
แบบใช้ VBA Output ตาม Column G
Option Explicit
Sub FindEndPoint()
Dim M, S, i, j, a, r As Integer
Dim z(10, 2) As Variant
M = Range("C14").Value: a = 0: r = 3
For i = 1 To 10
For j = 1 To 2
z(i, j) = Cells(3 + i, 2 + j).Value
Next j
Next i
For i = 1 To M
a = a + 1
Cells(r, 8 + a).Value = "X"
If a = 40 Then a = 0
If i = z(1, 1) Then Range("G4").Value = a & " - " & z(1, 2)
If i = z(1, 1) + z(2, 1) Then Range("G5").Value = a & " - " & z(2, 2)
If i = z(1, 1) + z(2, 1) + z(3, 1) Then Range("G6").Value = a & " - " & z(3, 2)
If i = z(1, 1) + z(2, 1) + z(3, 1) + z(4, 1) Then Range("G7").Value = a & " - " & z(4, 2)
If i = z(1, 1) + z(2, 1) + z(3, 1) + z(4, 1) + z(5, 1) Then Range("G8").Value = a & " - " & z(5, 2)
If i = z(1, 1) + z(2, 1) + z(3, 1) + z(4, 1) + z(5, 1) + z(6, 1) Then Range("G9").Value = a & " - " & z(6, 2)
If i = z(1, 1) + z(2, 1) + z(3, 1) + z(4, 1) + z(5, 1) + z(6, 1) + z(7, 1) Then Range("G10").Value = a & " - " & z(7, 2)
If i = z(1, 1) + z(2, 1) + z(3, 1) + z(4, 1) + z(5, 1) + z(6, 1) + z(7, 1) + z(8, 1) Then Range("G11").Value = a & " - " & z(8, 2)
If i = z(1, 1) + z(2, 1) + z(3, 1) + z(4, 1) + z(5, 1) + z(6, 1) + z(7, 1) + z(8, 1) + z(9, 1) Then Range("G12").Value = a & " - " & z(9, 2)
If i = z(1, 1) + z(2, 1) + z(3, 1) + z(4, 1) + z(5, 1) + z(6, 1) + z(7, 1) + z(8, 1) + z(9, 1) + z(10, 1) Then Range("G13").Value = a & " - " & z(10, 2)
Next i
End Sub
สังคมดีไม่มีขาย ถ้าอยากได้ต้องร่วมกันสร้าง...