Excel Forum

>>ในชีทแรก จะทำการป้อนค่าลงในช่อง B13, C13, D13, E13, F13 และ H13 ครับ จากนั้นทำการคลิกปุ่ม "กดเพิ่มรายการ" ตัวโค๊ดจะทำการรันนำข้อมมูลที่กรอกไปเพิ่มลงที่บรรทัดสุดท้ายของตารางด้านล่างในหน้าแรก และจะสร้างชีทขึ้นมาใหม่ 1 ชีท โดยในหน้าชีทใหม่จะสร้างแบบฟอร์มที่เขียนไว้และบันทึกข้อมูลที่ได้ป้อนไว้ จากน ...

Sub AddOrderStock()
Dim A
Dim B
Set A = Range("Table110[ÃËÑÊÊÔ¹¤éÒ]")
Set B = Range("A13")
On Error Resume Next
If V = Application.WorksheetFunction.VLookup(B, A, 1, False) Then
If Range("A13") = "/x" Then
MsgBox "¤Ø³·ÓÃÒ¡ÒÃäÁè¶Ù¡µéͧ"
End
End If
If MsgBox("ÃËÑÊÊÔ¹¤éÒÊÒÁÒöãªéä´é", vbOKCancel ...

โมดูลที่ชื่อว่า SAVEDATA ครับ

Sub Savedata()
Dim r
Dim Day
Dim PO
Dim WO
Dim person
Dim company
Dim tellephone
Dim order
Dim number
Dim price
For r = 15 To 16
If Cells(r, 1) > 0 Then
Windows("FM4-3 ใบสั่งซื้อ.xlsm").Activate
Set Day = Range("J11")
Set PO = Range("J9")
Set WO = Range("J10")
Set person = Range("B9")
Set ...

จาก code inputbox ผมมีข้อสงสัยอีกอย่างครับ คือเราสามารถกำหนดคำสั่งให้กับปุ่ม Ok และปุ่ม Cancel ในหน้าต่างกรอกข้อมูลของ inputbox ได้ไหมครับ โดยไม่ต้องใช้ msgbox ช่วยอ่ะครับ

ผมลองนำไปปรับใช้แล้ว ใช้ได้ดีครับ
ขอบคุณมากครับ อาจารย์

Dim s As String
s = InputBox("โปรดกรอกปี พ.ศ.ที่ต้องการสั่งซื้อ?","ใบสั่งซื้อปี?", "")
if worksheets(s).select Then
Worksheets(s).Select
else
MsgBox "ไม่พบแฟ้มเอกสาร"
end if

ผมได้ลองพยายามเขียน code นี้เพื่อให้สามารถเลือก sheet ให้ตรงกับค่าที่ป้อนข้อมูลลงไปใน inputbox
แต่เมื่อผมรันcode ดูแล้วม ...

Sub Button1_คลิก()
Dim s As String
s = InputBox("What is source file?")
Workbooks(s).ActiveSheet.Range("$C$9:$C$29"). Copy _
Workbooks("คีย์ค่าแรง V1.xls").ActiveSheet.Range("$C$9:$C$29")
MsgBox "Finish"
End Sub
สวัสดีครับ คือผมสังสัยครับว่า จาก CODE ด้านบนนี้ ถ้าเกิดผมคีย์คำที่ไม่ถูกต้องลง แล ...

ผมทำได้แล้วนะครับ โดยใช้ code จามนี้ครับ
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 6 Then
Cancel = True
Dim a
Dim b
Dim c
Dim i
i = Target.Row
a = Cells(i, 2)
b = Cells(i, 3)
c = Cells(i, 4)
Worksheets("sheet2").Select
Worksheets("sheet2 ...

ขอบพระคุณ อาจารย์ อย่างสูงครับ
ผมได้ลองนำไปใช้แล้วครับ ใช้ได้ดีและราบรื่นมากๆครับ
ขอบคุณครับ ^_^

สวัสดีครับ
ผมมีปัญหาครับ คือ ผมต้องการให้ดับเบิ้ลคลิกที่เซลล์ ที่ชื่อว่า คลิกที่นี้ แล้วทำการคัดลอกข้อมูล ชื่อบริษัท ชื่อผู้ติดต่อ และเบอร์โทร ของแถวที่ได้ทำการคลิกครับ
เช่น ถ้าผมคลิกที่ cell F6 ที่ sheet1 มันก็จะ copy cell B6 C6 D6 ที่ sheet1 มาวางที่ช่อง B3 B4 B5 ของ sheet2 ครับ
และถ้าคลิกท ...

ผมต้องการให้ เมื่อกรอกเลข เช่น 04001 ลงในเซลล์ แล้วกดปุ่ม มันจะทำการรันเลขเพิ่มไปอีก 1 คือ 04002 ครับ แต่ถ้าในเซลล์นั้นกรอกเลข 04001/R1 ลงไป เมื่อกดปุ่ม จะทำการรันเฉพาะเลขตัวหลังครับ ซึ่งก็คือจาก 04001/R1 ไปเป็น 04001/R2 คือไม่รู้จะเขียนเงื่อนไขยังไงอ่ะครับรบกวนด้วยนะครับ
Sub Macro5()
'
' Macro5 ...