Snasui Excel Forum

[quote="niwat2811"]ลองปรับ Code เป็นแบบนี้ดูครับว่าได้ตามต้องการไหม
[code]Sub test()
With Columns("B")
.Cells.NumberFormat = "General"
.Value = .Value
End With
End Sub[/code][/quote]


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

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

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

ลองปรับ Code เป็นแบบนี้ดูครับว่าได้ตามต้องการไหม
[code]Sub test()
With Columns("B")
.Cells.NumberFormat = "General"
.Value = .Value
End With
End Sub[/code]

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

ีมีไฟล์แนบมมาค่ะ [attachment=0]แปลงตัวเลที่เก็บเป็นข้อความให้เป็นตัวเลข.xlsm[/attachment]

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

ลองโค้ดนี้ดูครับ เลือกข้อมูล แล้วรันโค้ด
[code]Sub Enter_Values()
For Each xCell In Selection
xCell.Value = xCell.Value
Next xCell
End Sub[/code]

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

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

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

[attachment=0]แปลงค่าในเซลล์ให้เป็นตัวเลข.jpg[/attachment]


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