Snasui Excel Forum

เขียนได้แล้วครับผม ขอบคุณครับ

รบกวนด้วยครับอยากทราบสูตร แบบมีเงื่อนไขแบบนี้ครับ

------ ถ้า เซลล์ A22 A23 A24 A25 A26 A27 A27 A28 A29 A30 A31 เซลล์ใดเซลล์หนึ่ง มีคำว่า TRUE ให้แทนค่า ด้วยเลข 14
------ ถ้า เซลล์ D22 D23 เซลล์ใดเซลล์หนึ่ง มีคำว่า TRUE ให้แทนค่า ด้วยเลข 30
------ ถ้า เซลล์ H22 มีคำว่า TRUE ให้แทนค่า ด้วยเลข 14 ...

ขอความช่วยเหลือ โดยสาเหตุมีดังนี้ครับ ผมได้มีแนวคิดที่จะนำค่าสถานะที่เป็นสีมาบวกกับวันเวลา ให้เกิดเป็นตารางเยี่ยมบ้าน ตามแนวคิดนี้ครับ

1.วันนัดครั้งแรก+ 2.สี ของสถานะเยี่ยมบ้าน (มี 3 ตัวเลือก (สีแดง +14 วัน สีเหลือง +30 วัน สีเขียว+90 วัน))

ผลลัพธ์ จะขึ้นแถบสีดำที่ช่องดำเนินการ ตามผลลัพธ์ของวันท ...

ขอบคุุณครับ

เรียนสอบถามสูตรการตัด STOCK จากการเลือก รหัส ครับ เนื่องด้วย ใน ชีทใบเบิก จะมีช่องรายการสื่อ ซึ่งเมื่อเรากรอกรหัส รายชื่อสื่อจะขึ้นมา จากได้ก็คีย์เบิก-จ่าย แต่ติดอยู่ที่ รายการสื่อมี 50 รายการ ทำให้ในช่องรายการสื่อ มีไม่ครบ

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

ปุ่มอยู่ใน sheet Input ครับ ซึ่ง CODE ที่ได้ปรึกษามาวางแบบนี้ครับ
Sub Paste()
Dim irRange As Variant
Dim i As Integer, rw As Long
irRange = Array("C9", "C10", "d10", "F10", "C11", "g11", _
"C12", "C14", "G14", "L14", "C15", "G15", _
"L15", "C16", "G16", "L16", "D17", "J17", "C18", "E18", "G18 ...

เรียนถามเพิ่มเติมครับ ถ้าเราต้องการให้ ปุ่ม Botton ไม่ทำงานด้วย ในกรณีที่ใส่ข้อมูลไม่ครบ ตามด้านบน เราควรเพิ่มCODEส่วนไหนครับ

ได้แล้วครับ ขอบคุณครับ

เรียนสอบถามครับ
Code If WorksheetFunction.Count (Range("C9,C10,D10")) >3 Then
MsgBox ("กรุณากรอกข้อมูล")
End If
สูตรนี้จะได้เฉพาะตัวเลขครับ ถ้าเป็นตัวอักษรจะไม่ได้ พอจะมีวิธีที่จะปรับสูตร VBA เป็นถ้าพบว่า Cell C9,C10,D10 ว่างให้แจ้งเตือน "กรุณากรอกข้อมูล" ต้องเปลี่ยนค่าจาก Count เป็นอะไรดีครับ ...

:D ขอบคุณครับอาจารย์ตอนนี้ผมทำได้แล้วครับ โดยสร้าง Temp1 กับ Form1 และใช้ Code นี้ครับ
Sub rdata()
Dim rs As Range
Dim rt As Range
Set rs = Worksheets("Temp1").Range("A4:CA4")
Set rt = Worksheets("Database").Range("A2").Offset( _
Worksheets("Temp1").Range("CB2"), 0)
If Worksheets("Temp1").Range ...

แบบนี้ครับอาจารย์
Sub ReplaceData()
Dim rs As Range
Dim rt As Range
Set rs = Worksheets("Input").Range("A1")
Set rt = Worksheets("Database").Range("A3").Offset
Worksheets("Input").Range("A1"), 0)
If Worksheets("Input").Range("A3") = "" Then
MsgBox "Can't replace data"
Exit Sub
End If
rs.Copy ...

:D ขอบคุณครับอาจารย์ผมจะนำกลับไปศึกษาและมาให้อาจารย์ดูใหม่ครับ

ประเด็นสุดท้ายและท้ายสุดนี้ เป็นประเด็นต่อเนื่องครับ จึงขออนุญาติไม่สร้างกระทู้ใหม่ โดยถ้าเมื่อเราเรียกดูข้อมูลแล้วทำการแก้ไข ผมอยากที่จะให้ข้อความที่แก้ไข แก้ทับไปใน Sheet Database แทนที่อันเดิม โดยกดปุ่มแก้ไขข้อมูลใน Sheet Input แล ...

ขอบคุณครับอาจารย์ อ้างอิงจากไฟล์เดิมครับ พอดีผมลองสลับลำดับกันใน ชีท Data ระหว่าง หมายเลข 19 กับ 20 เช่น 17 18 20 19 พอผมเรียกดูหมายเลข 19 ใน ชีท Form จะเป็นหมายเลข 20 ที่ขึ้นมาแสดงแทนครับ รบกวนอาจารย์ให้คำแนะนำด้วยครับ

ได้แล้วครับ แต่ถ้าเราจะกำหนดให้เรียกข้อมูลตามลำดับหมายเลขเคสจริงๆ
เช่นลำดับที่ 20 อยู่ในCells ที่ 25 คำสั่งจะเรียกลำดับเคสที่อยู่ในCells ที่20 มาแทนครับ เหมือนเรียกตามแถว แต่ไม่ได้เรียกตามหมายเลขเคสนั้นจริงๆครับ พอที่จะมีวิธีระบุมั้ยครับ

ขอบคุณครับอาจารย์

โดย Cells ที่ใส่ทั้งหมดจะมี
("C9", "C10", "C11", _
"C12", "C14", "G14", "L14", "C15", "G15", _
"L15", "C16", "G16", "L16", "D17", "J17", "C18", "E18", "G18", "I18", "K18", "C19", "G19", "C20", "F20", "J20", "L20", _
"C21", "C24", "F24", "I24", "C25", "H25", "D26", "G26", "L26", "A29", _
"A40 ...

รบกวนอาจารย์ด้วยนะครับ เหมือนที่มีอยู่ใส่ Cells ได้ไม่เกิน 52 Cells ถ้าเกินจะขึ้น Error ครับ ขอบคุณครับ

เรียนสอบถามอาจารย์อีกประเด็นครับ ช่วงโค้ดนี้ เวลาผมเพิ่มเซลล์ เช่น G19 J17 หรือตัวอื่นๆแล้วจะขึ้น Code Eror 1004 ครับพอจะมีวิธีแก้ไหมครับ ขอบคุณครับ
Set myRange = Worksheets("Input").Range("C9, C10, C11, C12, C14, G14, L14, C15," & _
"G15, L15, C16, L16, D17, F20, C21, C24,F24, I24, A29, A40, A47 ...

Sub PreviewData()
Dim myRange As Range
Dim r As Range
Dim i As Integer
Dim j As Long
Dim l As Range
Set l = Worksheets("Input").Range("G10")

j = Worksheets("Database").Range("A1:BB1").Columns.Count

If l = 0 Then
MsgBox "Not found data. Try again."
Exit Sub
End If

Set myRange = Worksheets ...

ขอบคุณครับอาจารย์ แล้วถ้าเราจะระบุให้ระบบหาลำดับหมายเลขเคสได้เลยมั้ยครับ เพราะตอนนี้มันจะเรียกดูตาม Cells ที่ตั้งไว้ครับ

เรียนสอบถามครับ ผมได้ทำปุ่มเรียกดูข้อมูล จาก Sheet DATA ไปยัง Sheet Form โดยประยุกต์จากพี่ๆที่ให้ข้อมูลในบอร์ดนี้ จากการเลือกลำดับตามหมายเลข แต่ปรากฎว่า เมื่อผมเลือกลำดับ จะแสดงผลลัพธ์ ไม่ตรงกับที่เลือก เช่นเรียกดูข้อมูลหมายเลข 11 ข้อมูลที่แสดงจะเป็นข้อมูลของหมายเลข 9 ครับ เหมือนจะห่างกัน 2 ลำดับ ...