ต้องการใส่ตัวเลขลงในเซล โดยใช้ VBA ครับ

[yodpao.b]

Capture1.PNG (34.48 KiB) Viewed 103 times

จากรูป ต้องการให้ตัวเลขเรียงลำดับตามแนวนอนจนถึงเลข 12 โดยให้ VBA มองมาที่ P3 ให้รันตามจำนวนที่ P3 ครับ
ช่วยเขียน code ให้ด้วยครับ ขอบคุณมาครับ

ผมนั้นไม่รู้จะเขียนโคด อย่างไร ทำได้แค่สูตรใน Excel ครับ

[snasui]

สำหรับ VBA ต้องเขียน Code มาเอง ถามกันเฉพาะที่ติดปัญหา ผมไม่อนุญาตให้ตอบ VBA ที่ไม่เป็นไปตามกฎการใช้บอร์ดข้อ 5 ด้านบน หากจะตอบได้ก็เฉพาะ Link เพื่อให้ศึกษามาก่อนครับ

[yodpao.b]

ถ้าอย่างนั้นขอสัก Link นะครับ

[snasui]

Link ที่ตรงกับความต้องการใด ๆ คงไม่สะดวกที่จะหามาให้ครับ จะมีก็เพียง Link แสดงการ Loop ข้อมูล จำเป็นต้องประยุกต์เองครับ

ที่ผ่านมาก็เคยเห็นคุณ yodpao.b เขียนเป็นอยู่แล้วน่าจะลองเขียนเองดูก่อน

สำหรับ Link ทั่ว ๆ ไปที่เป็นหลักการดูตามนี้ครับ https://msdn.microsoft.com/EN-US/librar ... 64280.aspx

[bank9597]

ลองดูโค๊ดการ loop ด้วย For i ครับ แล้วลองเขียนมาดู เช่น

Code: Select all

    For i = 1 To rRange.Value
        Set lRange = ws.Range("A2")
        lRange.Offset(0, i - 1) = i
    Next i

ไม่ยาก ลองดูครับ