การเปลี่ยนข้อมูลในเซลล์ Excel (VBA)

[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

[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 ตามลำดับ

[Kanok]

ตัวอย่าง 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

ปล.) ต้องขออภัยที่ไม่ได้ชี้แจงรายละเอียดของคำถามให้ชัดเจนในคำถามแรกค่ะ

[snasui]

Code นั้นเปลี่ยนเฉพาะเซลล์ที่มีข้อมูลหรือเซลล์ที่ไม่ว่าง หากเซลล์ใดมองเห็นด้วยตาว่าไม่มีข้อมูลแต่เห็นเป็นค่า X หลังจาก Run Code แสดงว่าเซลล์นั้นไม่ใช่เซลล์ว่างจริง ๆ ให้ทำการ Clear ให้เป็นค่าว่างจริง ๆ เสียก่อนด้วยวิธีการใด ๆ ครับ

[Kanok]

Code นั้นเปลี่ยนเฉพาะเซลล์ที่มีข้อมูลหรือเซลล์ที่ไม่ว่าง หากเซลล์ใดมองเห็นด้วยตาว่าไม่มีข้อมูลแต่เห็นเป็นค่า X หลังจาก Run Code แสดงว่าเซลล์นั้นไม่ใช่เซลล์ว่างจริง ๆ ให้ทำการ Clear ให้เป็นค่าว่างจริง ๆ เสียก่อนด้วยวิธีการใด ๆ ครับ

ขอบคุณมากค่ะ สำหรับคำชี้แนะ

[Kanok]

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

รบกวนขอคำแนะนำในการแก้ไขโปรแกรม ให้ทำงานได้เร็วขึ้นด้วยค่ะ

[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 เพื่อสั่งให้กลับมาคำนวณแบบอัตโนมัติครับ

[Kanok]

ปรับโค้ดตรง
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 เพื่อสั่งให้กลับมาคำนวณแบบอัตโนมัติครับ

ขอบคุณมากค่ะ สามารถรันได้เร็วขึ้นกว่าเดิม มากๆเลยค่ะ