ขอรบกวนเรื่องการเขียนสูตรวนloopครับ
Posted: Thu Feb 01, 2018 9:52 am
ขอรบกวนผู้รู้ทุกท่านครับผมมือใหม่หัดเขียนครับ
ผมอยากเขียนให้ตรวจสอบรหัสที่ซ้ำกันเมื่อพบให้เขียนเวลาที่ประทับไว้ลงในแถวเดียวกันต่อไปเรื่อยๆจนหมดแล้วตรวจสอบรหัสต่อไปเรื่อยๆจนหมดครับ แต่สูตรที่ผมเขียนมันไปการเขียนแบบไม่มีรูปแบบครับอย่าได้คำแนะนำจากบรรดาผู้รู้ทุกท่านครับ
ตัวอย่างที่เขียนครับ
สิ่งที่รบกวนครับ
1.อยากให้ Range ที่เปรียบเทียบเพิ่มขึ้นด้วย loop เช่น j1 ,j2,j3 ในตัวอย่าวผมระบุไว้ครับ
2.ให้column เพื่อขึ้นด้วย loop คือค่า c ในตัวอย่างให้ columnที่จะวางต่อกันไปจนหมดครับ
3.ให้เพิ่มแถวลงมาเรื่อยๆ เช่น แถวที่ 2 เพิ่มเป็น 3,4,5 จนหมดครับ
ขอบพระคุณท่านผู้รู้ที่จะให้ความกระจ่างครับ
ผมอยากเขียนให้ตรวจสอบรหัสที่ซ้ำกันเมื่อพบให้เขียนเวลาที่ประทับไว้ลงในแถวเดียวกันต่อไปเรื่อยๆจนหมดแล้วตรวจสอบรหัสต่อไปเรื่อยๆจนหมดครับ แต่สูตรที่ผมเขียนมันไปการเขียนแบบไม่มีรูปแบบครับอย่าได้คำแนะนำจากบรรดาผู้รู้ทุกท่านครับ
ตัวอย่างที่เขียนครับ
Code: Select all
Private Sub CommandButton1_Click()
Dim erow As Long
Dim ws As Worksheet
Dim lastrow As Long
Dim count As Integer
lastrow = Sheets("data").Cells(Rows.count, 1).End(xlUp).Row
c = 3
count = 0
Sheets("show").Range("d2:IV65530").ClearContents
'1++----------------------------------------------------------
For x = 2 To lastrow
If Sheets("data").Cells(x, 4) = Sheets("data").Range("j1") Then
c = c + 1
Sheets("show").Cells(2, c) = Sheets("data").Cells(x, 1)
count = count + 1
End If
Next x
Sheets("show").Select
End Sub1.อยากให้ Range ที่เปรียบเทียบเพิ่มขึ้นด้วย loop เช่น j1 ,j2,j3 ในตัวอย่าวผมระบุไว้ครับ
2.ให้column เพื่อขึ้นด้วย loop คือค่า c ในตัวอย่างให้ columnที่จะวางต่อกันไปจนหมดครับ
3.ให้เพิ่มแถวลงมาเรื่อยๆ เช่น แถวที่ 2 เพิ่มเป็น 3,4,5 จนหมดครับ
ขอบพระคุณท่านผู้รู้ที่จะให้ความกระจ่างครับ
