Snasui Excel Forum

ผมต้องการให้ เมื่อเรากรอกวันที่ใน TextBox9 แล้วค่านี้จะไปปรากฏใน Column M ของแถวสุดท้ายครับ
เช่นผมกรอกวันที่ 7/11/2016 จะไปปรากฏที่ Column M แถวสุดท้ายเป็น 7-Nov-16

ผมลองใช้ Userform เพื่อให้ป้อนข้อมูลซึ่งตอนนี้มีปัญหาคือ
ผมใส่วันที่อะไรไปก็ตาม มันจะขึ้น 1-Dec-16
เช่นถ้าใส่ 7/11/2016 มันก็จะขึ้น 1-Dec-16
ไม่ทราบว่าแก้ไขอย่างไรดีครับ

Private Sub CommandButton1_Click()
Dim r
With Sheets("Test")
r = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Cells(r, 1 ...

ขอบคุณสำหรับคำแนะนำครับ
ลองใช้เมื่อสักครู่สามารถใช้ได้ครับ หากพบปัญหาจะสอบถามอีกรอบครับ

ผมขอปรับไฟล์ใหม่ให้ง่ายนะครับ
ผมต้องการ Copy ข้อมูลจาก Column X ถึง AB มาวางไว้ใน Column B ถึง F
โดยจะเลือกวางค่าแค่ในช่อง สีเหลืองเท่านั้นครับ
โดยก่อนหน้านี้ผมจะเขียน VBA จะได้แบบนี้ครับ

(ตัวอย่างนะครับ)

Set rColA = Sheets("Input data").Range("A2:A1000")
For Each iTemNo In Range("O16:O1000 ...

สวัสดีครับพอดีผมมีปัญหาเรื่องการเขียน VBA ครับ

จากไฟล์ตัวอย่างที่ได้แนบมาครับ ผมจะเริ่มจากการกรอกข้อมูลลงในคอลัมน์ B จนถึง E ของ Sheet Input data ครับ
หลังจากนั้นผมต้องการจะ ใช้ VBA คัดลอกข้อมูลจาก คอลัมน์ B-E ของ Sheet Input data มาไว้ใน Format ครับ

โดยเป็นการ Copy แบบแถวเว้นแถวครับ ซึ่งผมจะใช ...

ขอบคุณครับ ตรงกับความต้องการครับ

ขอบคุณทุกท่านมากๆ ครับ ตอนนี้ได้แล้วครับ ^^
ผมเพิ่มช่องเข้ามาอีกช่อง

E3=IFERROR(OFFSET($J$2,LOOKUP(1,1/((G3:G9=B3)*(H3:H9<=C3)*(D3<=I3:I9)),ROW(H3:H9)-ROW(H3)+1),0,COUNTA(H3:H9),1),"Out Of Range")

ไม่รู้ว่าถูกไหมแต่ลองใช้แล้วพอได้ครับ *0*

ตอนนี้ผมลองเอา

เซลล์ D3 คีย์ =IF(AND(C3>=VLOOKUP(B3,F2:H7,2,0),C3<=VLOOKUP(B3,F2:H7,3,0)),VLOOKUP(B3,F2:I7,4,0),"Out of range")

ไปลองดูผลที่ได้คือ เมื่อผมเปลี่ยนค่าที่ Cell C3 เป็น 1.6 ผลที่ได้คือ Out of range
ซึ่งค่าที่จะต้องได้คือ BBB

ต้องแก้อย่างไรครับ

จากตัวอย่างที่แนบมานะครับ
ผมอยากทราบว่าพอจะมีวิธีที่ดึงข้อมูลจาก คอลัมน์ I โดยมีเงื่อนไขดังนี้ครับ
=> นำค่าจากช่อง B3,C3 ไปเทียบกับคอลัมน์ F,G,H
1.โดยถ้า C3 มากว่าหรือเท่ากับคอลัมน์ G และน้อยกว่าหรือเท่ากับ คอมลัมน์ H
2.นำ B3 เทียบกับคอลัมน์ F

ถ้าใช่ให้แสดง ค่าที่คอลัมน์ I

จากตัวอย ...

ขอบคุณทั้งสองท่านมากครับ ^ ^

ผมอยากทราบว่าพอจะมีวิธีที่ทำให้ Excel สร้าง QR Code ได้หรือไม่ครับ โดยการแค่กรอกข้อมูลที่จะสร้าง QR Code ลงใน Cell แล้วให้ Ecxel สร้างด้วยตัวมันเอง
ปัจจุบัน ในการสร้าง QR Code ของผม มีขั้นตอนดังนี้ครับ
1.ทำการ Copy ข้อมูลที่จะสร้าง QR Code จาก Column AL ในแต่ละแถว
(ที่ด้านขวาล่างของ แถบ QR Code จะม ...

ขอบคุณอาจารย์และคุณ logic มากๆ ครับ

ตอนนี้ผมลองใช้ Offset กับ Match คู่กันดูซึ่งสูตรสามารถคำนวณได้ครับ
แต่ผมติดปัญหาว่าวันสุดท้ายของตาราง มันขึ้น #N/A ไม่รู้ว่าสูตรมันผิดตรงไหนครับ

รบกวนช่วยแนะนำทีครับ

ผมได้ลองนำสูตรที่อาจารย์แนะนำไปลองประยุกต์ใช้ ซึ่งได้ผลดีครับ

แต่ตอนนี้ผมติดปัญหาว่า แถวของ Model ของ Sheet Plan และ Order tool ไม่ตรงกัน
ทำให้ได้ค่าที่ไม่ตรงกับ Model ที่ต้องการมีวิธีทำให้
อยากให้ Excel หาค่า Model ของ Sheet Plan กับ Order ว่าอยู่ที่แถวไหนแล้วค่อย Sum แถวนั้นไหมครับ

ปล.ก่อนหน้าน ...

ขอบคุณมากครับ ตอนนี้ Code ใช้ได้ดีมากครับ

ขอโทษครับอาจารย์

ขอบคุณมากคับ ตอนนี้ผมลองไล่กด F8 ศึกษาดูแล้วคับ
ผมมาติดบันทัด

CODE: SELECT ALL
If Not rFind Is Nothing Then
r.Offset(iTemNo.Row - r.Row, 0).Value = _
rFind.Offset(lCount - 1, 0).Value
Else
r.Offset(iTemNo.Row - r.Row, 0).Value = "NoData"
End If

เช่น
สมมติ itemno = H4 ดังนั้น itemno.row = 4
ส ...

อยากทราบว่า คำสั่งชุดนี้มันมีหลักการคิดยังไงครับ

If Not rFind Is Nothing Then
r.Offset(iTemNo.Row - r.Row, 0).Value = _
rFind.Offset(lCount - 1, 0).Value
Else
r.Offset(iTemNo.Row - r.Row, 0).Value = "NoData"
End If

ขอบคุณครับ
อธิบาย การทำงานของ Code คร่าวๆ ได้ไหมครับเพื่อจะได้เป็นแนวทางและนำไปประยุกต์ต่อครับ

และถ้าจะเพิ่มปุ่มให้เพื่อให้ VBA รันที่หน้า Input ผมต้องใส่
Worksheets("Data").Activate ด้วยหรือไม่ครับ

ขอคำปรึกษาเรื่องการเขียน VBA ดึงข้อมูลจากอีก Sheet หนึ่ง
เป็นมือใหม่ครับเลยลองหัดเขียนดู เลยอยากจะขอคำแนะนำจากพี่ๆในนี้ครับ
ผมได้สร้าง sheet ขึ้นมาสองอัน คือ Data กับ Input ผมต้องการอยากจะดึงค่าที่เป็นตัวเลขจาก Input มาใส่ใน Data
โดยมีเงื่อนไขครับ
1.ถ้า Column H ใน Data เท่ากับ ค่าใน column A ใน ...