การแปลงค่าในเซลล์เป็นตัวเลข (VBA)

[Kanok]

สอบถามการแปลงค่าในเซลล์เป็นตัวเลขค่ะ

เนื่องจากต้องการนำค่าในคอลัมภ์ Bไปใช้งาน จึงอยากเปลี่ยนเป็นตัวเลขค่ะ
ถ้าในกรณีที่เราต้องการเขียนโค้ด VBA ไม่ทราบว่าจะต้องใช้คำสั่งอะไรคะ เพราะลองใช้การบันทึก Macro ดู
โค้ดที่ได้ ไม่ปรากฎคำสั่งที่เปลี่ยนค่าในเซลล์ให้เป็นตัวเลขค่ะ

แปลงค่าในเซลล์ให้เป็นตัวเลข.jpg

Code: Select all

Sub Macro1()
'
' Macro1 áÁâ¤Ã
'
    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-30
End Sub

[puriwutpokin]

ลองโค้ดนี้ดูครับ เลือกข้อมูล แล้วรันโค้ด

Code: Select all

Sub Enter_Values()
   For Each xCell In Selection
      xCell.Value = xCell.Value
   Next xCell
End Sub

[Kanok]

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

ีมีไฟล์แนบมมาค่ะ

แปลงตัวเลที่เก็บเป็นข้อความให้เป็นตัวเลข.xlsm

[niwat2811]

ลองปรับ Code เป็นแบบนี้ดูครับว่าได้ตามต้องการไหม

Code: Select all

Sub test()
With Columns("B")
  .Cells.NumberFormat = "General"
  .Value = .Value
End With
End Sub

[Kanok]

ลองปรับ Code เป็นแบบนี้ดูครับว่าได้ตามต้องการไหม

Code: Select all

Sub test()
With Columns("B")
  .Cells.NumberFormat = "General"
  .Value = .Value
End With
End Sub

เปลี่ยนได้แล้วค่ะ

ขอบคุณมากค่ะ