Page 1 of 1

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

Posted: Wed Aug 19, 2015 11:39 pm
by yodpao.b
Capture1.PNG
Capture1.PNG (34.48 KiB) Viewed 96 times
จากรูป ต้องการให้ตัวเลขเรียงลำดับตามแนวนอนจนถึงเลข 12 โดยให้ VBA มองมาที่ P3 ให้รันตามจำนวนที่ P3 ครับ
ช่วยเขียน code ให้ด้วยครับ ขอบคุณมาครับ

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

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

Posted: Wed Aug 19, 2015 11:43 pm
by snasui
:D สำหรับ VBA ต้องเขียน Code มาเอง ถามกันเฉพาะที่ติดปัญหา ผมไม่อนุญาตให้ตอบ VBA ที่ไม่เป็นไปตามกฎการใช้บอร์ดข้อ 5 ด้านบน :roll: หากจะตอบได้ก็เฉพาะ Link เพื่อให้ศึกษามาก่อนครับ

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

Posted: Wed Aug 19, 2015 11:57 pm
by yodpao.b
ถ้าอย่างนั้นขอสัก Link นะครับ

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

Posted: Thu Aug 20, 2015 12:03 am
by snasui
:D Link ที่ตรงกับความต้องการใด ๆ คงไม่สะดวกที่จะหามาให้ครับ จะมีก็เพียง Link แสดงการ Loop ข้อมูล จำเป็นต้องประยุกต์เองครับ

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

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

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

Posted: Thu Aug 20, 2015 12:40 am
by 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
ไม่ยาก ลองดูครับ