วิธีใส่ Code
Posted: Thu Apr 18, 2013 9:51 pm
คือผมอยากถามว่า Code ที่มีเห็นอยู่ จะต้องนำไปวางไว้ตรงไหน และจะต้องทำอย่างไรในการวาง Code แต่ละ Code
ไม่พบโค๊ดที่อ้างถึงครับ ลองแนบไฟล์ตัวอย่างมาดูกันหน่อยครับSnasui Excel Forum
คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://www.snasui.com/
วิธีใส่ Code
Page 1 of 1
Re: วิธีใส่ Code
Posted: Fri Apr 19, 2013 7:35 am
ไม่พบโค๊ดที่อ้างถึงครับ ลองแนบไฟล์ตัวอย่างมาดูกันหน่อยครับRe: วิธีใส่ Code
Posted: Fri Apr 19, 2013 9:36 am
เช่นเมื่อคีย์ข้อมูลแล้วให้ย้ายข้อมูลไปแสดงผลต่อจากข้อมูลด้านบน
ที่มา http://snasui.blogspot.com/2011/07/blog-post_01.html
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
With Target
If .Count > 1 Then
Exit Sub
ElseIf .Column = 2 And .Offset(1, 0) = "" _
And .Offset(-1, 0) = "" Then
.Offset(0, -1).Resize(, 2).Cut
.End(xlUp).Offset(1, -1) _
.Resize(, 2).Insert shift:=xlDown
End If
End With
Application.ScreenUpdating = True
End Sub
Re: วิธีใส่ Code
Posted: Fri Apr 19, 2013 11:59 am
ลองตามนี้ครับให้ทำการเปิดไฟล์งานขึ้นมาก่อน จากนั้นให้ทำการกดแป้น Alt+F11 ก็จะเข้าสู้หน้าต่างของ VBA ทำการคลิกขวาลงบนพื้นที่ว่างของ Project- VBA Project ที่อยู่ด้านซ้ายมือ เลือก Insert > Module จากนั้นก็นำโค๊ดไปวางได้เลยFirst1707 wrote:คือผมอยากถามว่า Code ที่มีเห็นอยู่ จะต้องนำไปวางไว้ตรงไหน และจะต้องทำอย่างไรในการวาง Code แต่ละ Code
Re: วิธีใส่ Code
Posted: Sat Apr 27, 2013 11:31 am
ขอบคุณครับjoo wrote:ลองตามนี้ครับให้ทำการเปิดไฟล์งานขึ้นมาก่อน จากนั้นให้ทำการกดแป้น Alt+F11 ก็จะเข้าสู้หน้าต่างของ VBA ทำการคลิกขวาลงบนพื้นที่ว่างของ Project- VBA Project ที่อยู่ด้านซ้ายมือ เลือก Insert > Module จากนั้นก็นำโค๊ดไปวางได้เลยFirst1707 wrote:คือผมอยากถามว่า Code ที่มีเห็นอยู่ จะต้องนำไปวางไว้ตรงไหน และจะต้องทำอย่างไรในการวาง Code แต่ละ Code