🔊 โปรดทราบ Image
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ดครับ Image
  2. การสมัครสมาชิกเพื่อโพสต์คำถาม ดาวน์โหลดไฟล์แนบไปศึกษา ทำตามขั้นตอนด้านล่างครับ
    1. สมัครสมาชิก ดูขั้นตอนตาม Link นี้ครับ => สมัครสมาชิก กรณีลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่นี่ครับ => Reset รหัสผ่านImage
    2. Login เข้าระบบโดยคลิก Login ตรงมุมขวาบนของหน้านี้ Image กรณีมีปัญหาในการเข้าใช้งาน คลิก Link นี้เพื่อแจ้งผู้ดูแลระบบครับ => ติดต่อผู้ดูแลระบบ
  3. เมื่อ Login แล้วสามารถกำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษได้ที่ Link นี้ครับ => ตั้งค่าส่วนตัว Image
  4. วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้ Image
  5. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ Link นี้ครับ => จัดรูปแบบตัวอักษร และสามารถกำหนดขนาดตัวอักษรใน Browser ได้ที่นี่ครับ => กำหนดขนาดตัวอักษรใน Browser Image

รบกวนแนะนำสุตรหรือ code VBA เพิ่มข้อมูลใน blank cell

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
natthaporn
Member
Member
Posts: 179
Joined: Sun Jul 15, 2012 10:54 pm

รบกวนแนะนำสุตรหรือ code VBA เพิ่มข้อมูลใน blank cell

#1

Post by natthaporn » Fri Mar 31, 2017 9:54 am

ผลลัพธ์ที่ต้องการ
No No
AA1 AA1
AA1
AA2 AA2
AA2
AA2
AA2
AA8 AA8
AA10 AA10
AA10
AA10
AA13 AA13

ดิฉันต้องการใส่ข้อมูลใน row ที่ว่าง ตามข้อมูลของ row ด้านบนตาม cell ที่ว่างนั้นค่ะ
รบกวนแนะนำด้วยค่ะ จะเป็นสูตรหรือเป็น excel VBA ก็ได้ค่ะ
ขอบคุณมากค่ะ
You do not have the required permissions to view the files attached to this post.

rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: รบกวนแนะนำสุตรหรือ code VBA เพิ่มข้อมูลใน blank cell

#2

Post by rich37 » Fri Mar 31, 2017 11:56 am

Code: Select all

Sub Filldown()
 Range("A2").End(xlDown).Offset(1, 0).Select
 Selection.Filldown
End Sub
Code จะเติมทีละ 1 ช่องนะครับ

natthaporn
Member
Member
Posts: 179
Joined: Sun Jul 15, 2012 10:54 pm

Re: รบกวนแนะนำสุตรหรือ code VBA เพิ่มข้อมูลใน blank cell

#3

Post by natthaporn » Fri Mar 31, 2017 2:41 pm

ขอบคุณมากค่ะ สำหรับ code ดิฉันลองกด F8 run code ดู ได้ผลลัพธ์ตามที่ต้องการ แต่ติดอยู่ตรงที่ข้อมูล copy ลงไปเรื่อย ๆ แบบไม่มีที่สิ้นสุดค่ะ ดิฉันต้องกำหนด code เช็คค่าสิ้นสุดอย่างไรค่ะ ใน file จริงจะมี column B ที่สามารถระบุเป็น reference ของจุดสิ้นสุดได้ แจ่ดิฉันจะขอรบกวนเป็น dynamic range เพราะจะมีการเพิ่มข้อมูลที่ column B ไปเรื่อย ๆค่ะ
ขอบคุณค่ะ

User avatar
puriwutpokin
Gold
Gold
Posts: 1441
Joined: Fri Jan 04, 2013 9:49 pm

Re: รบกวนแนะนำสุตรหรือ code VBA เพิ่มข้อมูลใน blank cell

#4

Post by puriwutpokin » Fri Mar 31, 2017 3:54 pm

สำหรับการ VBA ต้องเขียนเองมาก่อนตามกฏของบอร์ดครับ
เบื้องต้นใช้ฟังก์ชั่นเครื่องมือ Go To มาช่วยได้ครับ โดยเลือกช่วงข้อมูล
แล้ว กด F5 แล้วทำตามรูปภาพครับ แล้วกด เครื่องหมาย = และ ลูกศร ชี้ขึ้น แล้วกด Crtl+Enter
หลังจากนั้นคัดลอกข้อมูลทั้งหมด แล้วว่างเป็นค่า ครับ
You do not have the required permissions to view the files attached to this post.
:roll: สูตรที่ต้องกด Ctrl+Shift+Enter เพื่อให้สูตร Array นั้นทำงาน

natthaporn
Member
Member
Posts: 179
Joined: Sun Jul 15, 2012 10:54 pm

Re: รบกวนแนะนำสุตรหรือ code VBA เพิ่มข้อมูลใน blank cell

#5

Post by natthaporn » Fri Mar 31, 2017 4:26 pm

ขอบคุณค่ะ ดิฉันลองเข้าไปค้นหาดูจาก web อื่นแล้วนำมาปรับปรุงใช้ และได้ผลตามที่ต้องการแล้วค่ะ ท่านใดมีคำแนะนำเพิ่มเติมรบกวนแนะนำด้วยค่ะ

Code: Select all

Sub Filldown()
    For Each Line In Sheet1.Range("B2:B" & Sheet1.Range("B" & Rows.Count).End(xlUp).Row)
    If Sheet1.Range("A2").End(xlDown).Offset(1, 1).Value = "" Then
    Else
       Sheet1.Range("A2").End(xlDown).Offset(1, 0).Select
       Selection.Filldown
    End If
    Next Line
End Sub

User avatar
puriwutpokin
Gold
Gold
Posts: 1441
Joined: Fri Jan 04, 2013 9:49 pm

Re: รบกวนแนะนำสุตรหรือ code VBA เพิ่มข้อมูลใน blank cell

#6

Post by puriwutpokin » Fri Mar 31, 2017 4:36 pm

โค้ดนี้สูตรยังไม่สมบูรณ์ครับ ถ้าไม่มีค่าที่คอลัมน์ B ก็จะไม่ทำงานครับ
:roll: สูตรที่ต้องกด Ctrl+Shift+Enter เพื่อให้สูตร Array นั้นทำงาน

rich37
Member
Member
Posts: 89
Joined: Wed Feb 01, 2017 4:06 pm

Re: รบกวนแนะนำสุตรหรือ code VBA เพิ่มข้อมูลใน blank cell

#7

Post by rich37 » Fri Mar 31, 2017 4:40 pm

Code: Select all

Sub Filldown()
    If Range("A2").End(xlDown).Offset(1, 1).Value = "" Then
    Else
       Range("A2").End(xlDown).Offset(1, 0).Filldown
    End If
End Sub
ลอง Code นี้ดูครับ

natthaporn
Member
Member
Posts: 179
Joined: Sun Jul 15, 2012 10:54 pm

Re: รบกวนแนะนำสุตรหรือ code VBA เพิ่มข้อมูลใน blank cell

#8

Post by natthaporn » Fri Mar 31, 2017 5:20 pm

ดิฉันลองลบข้อมูลที่ column B ออก แล้วลองใช้ code ตามด้านบนที่ลองแก้ไขดู และตามที่คุณ rich37 แนะนะ ก็ไม่ทำงานจริง ๆ ด้วยค่ะ รบกวนทุกท่านแนะนำด้วยค่ะ ดิฉันได้พยายามลองปรับปรุงดูแต่ยังไม่สำเร็จค่ะ
ขอบคุณค่ะ

User avatar
snasui
Site Admin
Site Admin
Posts: 23138
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: รบกวนแนะนำสุตรหรือ code VBA เพิ่มข้อมูลใน blank cell

#9

Post by snasui » Fri Mar 31, 2017 6:23 pm

:D แนบไฟล์ที่ได้เขียน Code เองมาแล้วด้วยจะได้ช่วยตอบต่อไปจากนั้นครับ

natthaporn
Member
Member
Posts: 179
Joined: Sun Jul 15, 2012 10:54 pm

Re: รบกวนแนะนำสุตรหรือ code VBA เพิ่มข้อมูลใน blank cell

#10

Post by natthaporn » Fri Mar 31, 2017 7:42 pm

รบกวนอาจารย์ช่วยแนะนำ code ตาม file แนบด้วยค่ะ
ขอบคุณค่ะ
You do not have the required permissions to view the files attached to this post.

User avatar
snasui
Site Admin
Site Admin
Posts: 23138
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: รบกวนแนะนำสุตรหรือ code VBA เพิ่มข้อมูลใน blank cell

#11

Post by snasui » Fri Mar 31, 2017 7:50 pm

:D ตัวอย่าง Code ครับ

Code: Select all

With Sheet1
    For Each r In .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
        If r.Value = "" Then
            r.Value = r.End(xlUp).Value
        End If
    Next r
End With

natthaporn
Member
Member
Posts: 179
Joined: Sun Jul 15, 2012 10:54 pm

Re: รบกวนแนะนำสุตรหรือ code VBA เพิ่มข้อมูลใน blank cell

#12

Post by natthaporn » Fri Mar 31, 2017 9:45 pm

ได้ผลลัพธ์ตามที่ต้องการแล้วค่ะ ขอขอบคุณอาจารย์และทุกท่านนะคะ ที่ให้คำแนะนำทีดีมาก ๆ เลยคะ ไม่ว่าจะเป็นเรื่องการใช้ Go To และการใช้ code VBA
ขอบคุณค่ะ

Post Reply