Snasui Excel Forum

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote snasui

#23

by snasui » Sun Jan 11, 2015 7:01 am

ค่อย ๆ ถามตอบกันไปนะครับ

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

snasui wrote:การสร้างโปรแกรมลักษณะนั้นจะมีความยุ่งยากเพิ่มขึ้น เพราะต้องทราบก่อนว่าเดิมข้อมูลมีกี่บรรทัด ที่เพิ่มเข้ามามีกี่บรรทัด แล้วค่อยเลือกเฉพาะที่เพิ่ม ปัญหาคือ ทราบได้อย่างไรว่าบรรทัดไหนของเดิม บรรทัดไหนที่เพิ่มเข้ามา

หากยังไม่ได้ทำให้ทำมาก่อนครับ

สำหรับคำว่า "ค้ะ" เห็นเขียนมาบ่อย ให้ใช้ "คะ" หรือ "ค่ะ" แทนแล้วแต่รูปประโยคครับ

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote yui123

#22

by yui123 » Sun Jan 11, 2015 12:45 am

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote yui123

#21

by yui123 » Sun Jan 11, 2015 12:35 am

Attachments

savedata2.xlsm

(297.16 KiB) Downloaded 6 times

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote snasui

#20

by snasui » Sun Jan 11, 2015 12:18 am

อ่านที่ผมตอบแล้วทำตามนั้น ไม่เข้าใจข้อความใดที่ผมตอบ ให้นำข้อความนั้นมาถามครับ

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote yui123

#19

by yui123 » Sun Jan 11, 2015 12:16 am

อาจารย์ช่วยแนะนำหน่อยได้ไหมค่ะ

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote snasui

#18

by snasui » Sun Jan 11, 2015 12:12 am

ก่อนจะ End(xlUp) หรือ End(xlDonw) หรืออื่น ๆ จะต้องเป็น Range ไม่ใช่อ้างแค่ชีท สังเกตตัวอย่างในโพสต์ก่อน ๆ ครับ

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote yui123

#17

by yui123 » Sun Jan 11, 2015 12:09 am

Sub savedata1()
Dim check1 As Long
Dim i As Integer
Dim z1 As Long

check1 = Worksheets(2).Range("a4").End(xlDown).Row
z1 = Worksheets(6).End(xlDown).Select.Row

End Sub

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote yui123

#16

by yui123 » Sun Jan 11, 2015 12:01 am

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote snasui

#15

by snasui » Sat Jan 10, 2015 11:58 pm

แก้มาเองครับ ติดตรงไหนค่อยถามกันต่อ

การสร้างโปรแกรมลักษณะนั้นจะมีความยุ่งยากเพิ่มขึ้น เพราะต้องทราบก่อนว่าเดิมข้อมูลมีกี่บรรทัด ที่เพิ่มเข้ามามีกี่บรรทัด แล้วค่อยเลือกเฉพาะที่เพิ่ม ปัญหาคือ ทราบได้อย่างไรว่าบรรทัดไหนของเดิม บรรทัดไหนที่เพิ่มเข้ามา

แนวทางหนึ่งที่ทำได้คือในตอนค้นหา ให้นับบรรทัดมาด้วยว่าค้นพบข้อมูลและนำมาแสดงกี่บรรทัด ค่าบรรทัดนี้จะต้องเก็บไว้ที่เซลล์ใดเซลล์หนึ่งเพื่อเอาไว้อ้างอิงกรณีมีการเพิ่มข้อมูล เพราะต้องนำจำนวนข้อมูลทั้งหมดหักกับบรรทัดที่ค้นหามาได้ ผลต่างคือจำนวนบรรทัดที่เพิ่ม

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote yui123

#14

by yui123 » Sat Jan 10, 2015 11:50 pm

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote snasui

#13

by snasui » Sat Jan 10, 2015 11:39 pm

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub tttt()
  Dim sourceRange As Range
    With Sheets("Sheet3")
        Set sourceRange = .Range("a" & .Rows.Count).End(xlUp).Resize(1, 5)
    End With
    With Sheets("profile")
        .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 5).Value = _
            sourceRange.Value
    End With
End Sub

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote yui123

#12

by yui123 » Sat Jan 10, 2015 11:37 pm

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote snasui

#11

by snasui » Sat Jan 10, 2015 11:25 pm

Code นั้นทำงานถูกต้องแล้ว โดยจะ Copy เอาบรรทัดสุดท้ายของ Table ไปไว้ในชีท Profile โดย Table นั้นจะต้องไม่มีบรรทัดว่าง ดูภาพประกอบด้านล่าง

แต่ที่เป็นปัญหาคือ เมื่อกดแป้นค้นหาแล้ว Table มีการแทรกบรรทัดว่างขึ้นมา ควรแก้ไขตรงนี้เสียก่อนครับ

ที่บอกว่ากรอกข้อมูลเพิ่ม กรอกที่บรรทัดใดของ Table ครับ

Attachments

Table.png (51.05 KiB) Viewed 103 times

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote yui123

#10

by yui123 » Sat Jan 10, 2015 10:01 pm

Attachments

savedata.xlsm

(295.71 KiB) Downloaded 6 times

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote snasui

#9

by snasui » Sat Jan 10, 2015 7:15 pm

ตัวอย่าง Code ตามด้านล่าง เป็นการเขียน Code ให้จัดการกับ Table เนื่องจากมีการนำ Table มาใช้

Code: Select all

Sub save1()
    Dim lastRow As Long, sourceRange As Range
    With Sheets("Sheet3")
        lastRow = .ListObjects("Table1").ListRows.Count
        Set sourceRange = .ListObjects("Table1").ListRows(lastRow).Range
    End With
    With Sheets("Sheet4")
        .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 5).Value = _
            sourceRange.Value
    End With
End Sub

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote yui123

#8

by yui123 » Sat Jan 10, 2015 12:52 pm

Attachments

Book2.xlsm

(25.71 KiB) Downloaded 4 times

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote snasui

#7

by snasui » Sat Jan 10, 2015 6:30 am

ตัวอย่างการบันทึกข้อมูลลงฐานข้อมูลดูที่นี่ครับ viewtopic.php?f=9&t=7248

สำหรับไฟล์แนบให้ทำมาเป็นไฟล์ตัวอย่างซึ่งไม่ควรมีขนาดใหญ่ครับ

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote yui123

#6

by yui123 » Fri Jan 09, 2015 10:20 pm

Sub Button1_คลิก()
Dim z1 As Long
Dim endrow1 As Long
Dim input1 As Range, irow As Long
Dim tempRow As Long, cell As Range
  Dim nRange As Range, aCell As Range, bCell As Range
Set input1 = Worksheets(2).Range("b1") 
Worksheets(2).Range("a5").Resize(1000, 10).ClearContents 



For Each cell In Worksheets(5).UsedRange.Offset(1, 0)
If cell.Value = input1.Value Then
Worksheets(5).Cells(cell.Row, 1).Resize(1, 5).Copy
With Worksheets(2)
Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End With
End If
Next cell

Worksheets(2).Range("a1").End(xlDown).Offset(1, 0).Select
endrow1 = Selection.Row
endrow1 = endrow1 + 1
z1 = Worksheets(6).End(xlDown).Select.Row
End Sub

Re: ช่วยเหลือเรื่อง VBA ในส่วนของการแสดงข้อความจากหลายคอลัมน์เป็นเซลล์เดียวกันหน่อยค่ะ

• Quote yui123

#5

by yui123 » Fri Jan 09, 2015 10:18 pm

Sub savedata1()
Dim check1 As Long
Dim i As Integer
Dim z1 As Long

check1 = Worksheets(2).Range("a4").End(xlDown).Row


For i = endrow1 To check1
Worksheets(6).Cells(z1 + 1, 1).Value = Worksheets(2).Cells(i, 1).Value
Worksheets(6).Cells(z1 + 1, 2).Value = Worksheets(2).Cells(i, 2).Value
Worksheets(6).Cells(z1 + 1, 3).Value = Worksheets(2).Cells(i, 3).Value
Worksheets(6).Cells(z1 + 1, 4).Value = Worksheets(2).Cells(i, 4).Value
Worksheets(6).Cells(z1 + 1, 5).Value = Worksheets(2).Cells(i, 5).Value
Next i
End Sub

Re: ขอช่วยหน่อยนะค่ะ

• Quote snasui

#4

by snasui » Thu Jan 08, 2015 3:54 pm

Code นี้เป็น Code ที่ผมเขียนตอบท่านอื่น

ให้แนบไฟล์ตัวอย่างของตนเองมาพร้อมทั้งปรับ Code ด้วยตนเองให้เป็นไปตามที่ต้องการ ติดแล้วค่อยถามกันต่อครับ