Page 1 of 1
การเปลี่ยนข้อมูลในเซลล์ Excel (VBA)
Posted: Sat Nov 19, 2016 12:09 am
by Kanok
้ต้องการเปลี่ยนข้อูลในเซลล์ของ Excel โดยเลือกข้อมูลตั้งแต่ AE2 จนถึงแถว และคอลัมภ์สุดท้าย ให้เป็น "X"
โดยมี Code ดังนี้ :
เปลี่ยนข้อมูลในคอลัมภ์ เป็น X.jpg
Code: Select all
Sub A3_ChangeNumberToX2()
Dim i As Long
Dim j As Long
Dim lastrow As Long
Dim lastcolumn As Long
Sheets("Sheet1").Select
lastrow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
lastcolumn = Sheets("Sheet1").Cells(31, Columns.Count).End(xlToRight).Column
For j = 31 To lastcolumn
For i = 2 To lastrow
If Cells(i, j).Value <> "" Then
Cells(i, j).Value = "X"
End If
Next i
Next j
End Sub
Code สามารถรันได้ในบางครั้ง ซึ่งใช้เวลานาน ประมาณ 2-3 นาที ค่ะ
และบางครั้งก็มีการค้างระหว่างการรันโปรแกรม
และในบางครั้งกรณีไม่สาารถรันได้จนจบโปรแกรม
อยากจะสอบถาว่าพอมีวิธีที่จะช่วยให้โปรแกรมสามารถทำงานได้เร็วขึ้นไหมค่ะ
เอกสารแนบค่ะ -->
Aเปลี่ยนข้อมูลในตารางเป็น X copy2 macro.xlsm
Re: การเปลี่ยนข้อมูลในเซลล์ Excel (VBA)
Posted: Sat Nov 19, 2016 6:44 am
by snasui
ตัวอย่าง Code ครับ
Code: Select all
Sub A3_ChangeNumberToX2()
Range("ae2").Resize(100000, 10000).SpecialCells(xlCellTypeConstants).Value = "X"
End Sub
สามารถเปลี่ยนตัวเลข 100000, 10000 ไปเป็นค่าที่ต้องการ โดยต้องปรับ 100000 เป็นค่าที่ไม่เกินจำนวนบรรทัดที่สามารถมีได้ และปรับ 10000 เป็นค่าคอลัมน์ที่โปรแกรมสามารถมีได้ เนื่องจาก Excel Version 2003 ลงไปมีจำนวนบรรทัดและคอลัมน์เพียง 65536 และ 256 ตามลำดับ
Re: การเปลี่ยนข้อมูลในเซลล์ Excel (VBA)
Posted: Sat Nov 19, 2016 10:01 pm
by Kanok
snasui wrote: ตัวอย่าง Code ครับ
Code: Select all
Sub A3_ChangeNumberToX2()
Range("ae2").Resize(100000, 10000).SpecialCells(xlCellTypeConstants).Value = "X"
End Sub
สามารถเปลี่ยนตัวเลข 100000, 10000 ไปเป็นค่าที่ต้องการ โดยต้องปรับ 100000 เป็นค่าที่ไม่เกินจำนวนบรรทัดที่สามารถมีได้ และปรับ 10000 เป็นค่าคอลัมน์ที่โปรแกรมสามารถมีได้ เนื่องจาก Excel Version 2003 ลงไปมีจำนวนบรรทัดและคอลัมน์เพียง 65536 และ 256 ตามลำดับ
ขอบคุณสำหรับคำชี้แนะค่ะ
รบกวนสอบถาเพิ่มเติมค่ะ ในกรณีที่เราไม่ต้องการเปลี่ยนค่าเป็น X ทุกเซลล์ แต่จะเปลี่ยนเฉพาะเซลล์ที่มีข้อมูลเท่านั้น
ซึ่งเซลล์ที่ไม่มีข้อมูลก็ปล่อให้เป็นเซลล์ว่าง ไม่ทราบว่าจะแก้ไขโค้ดให้ทำงานได้เร็วขึ้นได้อย่างไรคะ
Pic1.jpg
ปล.) ต้องขออภัยที่ไม่ได้ชี้แจงรายละเอียดของคำถามให้ชัดเจนในคำถามแรกค่ะ
Re: การเปลี่ยนข้อมูลในเซลล์ Excel (VBA)
Posted: Sat Nov 19, 2016 11:29 pm
by snasui
Code นั้นเปลี่ยนเฉพาะเซลล์ที่มีข้อมูลหรือเซลล์ที่ไม่ว่าง หากเซลล์ใดมองเห็นด้วยตาว่าไม่มีข้อมูลแต่เห็นเป็นค่า X หลังจาก Run Code แสดงว่าเซลล์นั้นไม่ใช่เซลล์ว่างจริง ๆ ให้ทำการ Clear ให้เป็นค่าว่างจริง ๆ เสียก่อนด้วยวิธีการใด ๆ ครับ
Re: การเปลี่ยนข้อมูลในเซลล์ Excel (VBA)
Posted: Sun Nov 20, 2016 1:44 pm
by Kanok
snasui wrote: Code นั้นเปลี่ยนเฉพาะเซลล์ที่มีข้อมูลหรือเซลล์ที่ไม่ว่าง หากเซลล์ใดมองเห็นด้วยตาว่าไม่มีข้อมูลแต่เห็นเป็นค่า X หลังจาก Run Code แสดงว่าเซลล์นั้นไม่ใช่เซลล์ว่างจริง ๆ ให้ทำการ Clear ให้เป็นค่าว่างจริง ๆ เสียก่อนด้วยวิธีการใด ๆ ครับ
ขอบคุณมากค่ะ สำหรับคำชี้แนะ
Re: การเปลี่ยนข้อมูลในเซลล์ Excel (VBA)
Posted: Mon Nov 21, 2016 3:11 pm
by Kanok
snasui wrote: Code นั้นเปลี่ยนเฉพาะเซลล์ที่มีข้อมูลหรือเซลล์ที่ไม่ว่าง หากเซลล์ใดมองเห็นด้วยตาว่าไม่มีข้อมูลแต่เห็นเป็นค่า X หลังจาก Run Code แสดงว่าเซลล์นั้นไม่ใช่เซลล์ว่างจริง ๆ ให้ทำการ Clear ให้เป็นค่าว่างจริง ๆ เสียก่อนด้วยวิธีการใด ๆ ครับ
รบกวนสอบถามอาจารย์เพิ่มเติมค่ะ
คือ ได้ทำการแก้ไขโค้ดตามที่อาจารย์แนะนำ โดยเปลี่ยนค่าในช่องที่ตาเรามองเห็นว่าเป็นเซลล์ที่ไม่มีข้อมูล ให้เป็นเซลล์ว่างจริงๆ
โดยใช้คำสั่ง .clearcontents และสั่งให้วนลูป เพื่อทำการเปลี่ยนเซลล์ที่ไม่มีข้อมูลให้เป็นเซลล์ว่างจริงๆ
หลังจากนั้น ใช้คำสั่งที่อาจารย์แนะนำ เปลี่ยนเซลล์ที่มีข้อมูลให้เป็น "X" ตามที่ต้องการ
แต่ใช้เวลารันโปรแกรมค่อนข้างนานค่ะ ประมาณ 15 นาที ในการเปลี่ยนเเซลล์ที่ไม่เห็นข้อมูล เป็นเซลล์ว่างจริงๆ สำหรับข้อมูลที่มีขนาดตาราง 83x324 ค่ะ
Code: Select all
Sub A3_ChangeNumberToX4()
Dim i As Long
Dim j As Long
Dim lastrow As Long
Dim lastcolumn As Long
Sheets("Sheet2").Select
lastrow = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
lastcolumn = Sheets("Sheet2").Cells(27, Columns.Count).End(xlToRight).Column
For j = 31 To lastcolumn
For i = 2 To lastrow
If Cells(i, j).Value = "" Then
Cells(i, j).ClearContents
End If
Next i
Next j
Range("ae2").Resize(100000, 10000).SpecialCells(xlCellTypeConstants).Value = "X"
End Sub
รบกวนขอคำแนะนำในการแก้ไขโปรแกรม ให้ทำงานได้เร็วขึ้นด้วยค่ะ
Re: การเปลี่ยนข้อมูลในเซลล์ Excel (VBA)
Posted: Mon Nov 21, 2016 3:52 pm
by DhitiBank
ปรับโค้ดตรง
lastcolumn = Sheets("Sheet1").Cells(1, Columns.Count).End(xlToRight).Column
เป็น
lastcolumn = Sheets("Sheet1").Cells(1, Columns.Count).End(xlTo[color=#FF0000]Left[/color]).Column
ครับ
แล้วก็ หลังประกาศตัวแปรให้เพิ่ม
Application.Calculation = xlCalculationManual เพื่อหยุดการคำนวณ (เมื่อเปลี่ยนแปลงค่าในเซลล์ตอนลูปจะได้ไม่ต้องคำนวณ)
จากนั้น ก่อนที่จะถึงบรรทัด End Sub ก็ใส่
Application.Calculation = xlCalculationAutomatic เพื่อสั่งให้กลับมาคำนวณแบบอัตโนมัติครับ
Re: การเปลี่ยนข้อมูลในเซลล์ Excel (VBA)
Posted: Mon Nov 21, 2016 4:23 pm
by Kanok
DhitiBank wrote:ปรับโค้ดตรง
lastcolumn = Sheets("Sheet1").Cells(1, Columns.Count).End(xlToRight).Column
เป็น
lastcolumn = Sheets("Sheet1").Cells(1, Columns.Count).End(xlTo[color=#FF0000]Left[/color]).Column
ครับ
แล้วก็ หลังประกาศตัวแปรให้เพิ่ม
Application.Calculation = xlCalculationManual เพื่อหยุดการคำนวณ (เมื่อเปลี่ยนแปลงค่าในเซลล์ตอนลูปจะได้ไม่ต้องคำนวณ)
จากนั้น ก่อนที่จะถึงบรรทัด End Sub ก็ใส่
Application.Calculation = xlCalculationAutomatic เพื่อสั่งให้กลับมาคำนวณแบบอัตโนมัติครับ
ขอบคุณมากค่ะ สามารถรันได้เร็วขึ้นกว่าเดิม มากๆเลยค่ะ