Snasui Excel Forum

ต้องการที่จะเขียนโปรแกรมคำนวณระยะทางการเคลื่อนที่รวมค่ะ

ในส่วนของการสลับเครื่องจักร โดยช่องเซลจะแทนเครื่องจักรและเมื่อทำการสลับช่องเซลกันแล้วจะให้ช่องเซลเปลี่ยนสี
ดิฉันเจอโค๊ดในการสลับค่าในช่องเซล คือ

Sub SwitchValue()
Dim Temp As Variant
Dim Range1 As Range
Dim Range2 As Range
On Error Resume Next
Set Range1 = Application.InputBox(Prompt:="Select first range", _
Title:="Please select range", Default:=Selection.Address, Type:=8)
Set Range2 = Application.InputBox(Prompt:="Select second range", _
Title:="Please select range", Default:=Selection.Address, Type:=8)
If Range1 = "" Or Range2 = "" Then
MsgBox "You must be select both ranges each only one cell.Try again"
Exit Sub
Else
Temp = Range1
Range1 = Range2
Range2 = Temp
End If
MsgBox "Switch value complete!"
End Sub

แต่ยังไม่ทราบวิธีที่จะสลับสีในช่องเซลที รบกวนด้วยนะคะ

ในส่วนของการคำนวณนั้น ระยะทางการเคลื่อนที่รวม = ปริมาณการเคลื่อนที่*ระยะทางการเคลื่อนที่ระหว่างเครื่อง

โดยปริมาณการเคลื่อนที่นั้นดิฉันได้ใส่ค่าเป็นตารางและจัดเป็นแนวตั้งในอีกที่ เพื่อสะดวกในการคำนวณ (ไม่ทราบดิฉันควรทำเป็นแนวตั้งหรือไม่ หากไม่เหมาะสมมีวิธีการอื่นอย่างไรคะ)

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

tantanz wrote:ในส่วนของการสลับเครื่องจักร โดยช่องเซลจะแทนเครื่องจักรและเมื่อทำการสลับช่องเซลกันแล้วจะให้ช่องเซลเปลี่ยนสี

ช่วยยกตัวอย่างว่าต้องการสลับสีเซลล์ใดกับเซลล์ใด และที่เขียนมาแล้วนั้นให้ผลลัพธ์เป็นอย่างไร ตัวอย่าง Code ที่แนบมาไม่ได้เป็นตัวอย่างการสลับสีเซลล์ ลองปรับมาดูก่อน ติดตรงไหนค่อยถามมาครับ

tantanz wrote:แต่ยังไม่ทราบวิธีที่จะสลับสีในช่องเซลที รบกวนด้วยนะคะ

ลองบันทึก Macro เพื่อดูตัวอย่าง Code แล้วปรับปรุงมาดูก่อนครับ หลักการคือ

1. เก็บค่าสีไว้ในตัวแปร A
2. กำหนดสีให้กับพื้นที่แรกด้วยสีของพื้นที่ที่สอง
3. กำหนดสีให้กับพื้นทีที่สองด้วยสีของตัวแปร A

ฟอรัมนี้เน้นตอบที่ติดปัญหา นั่นหมายถึงว่าได้ลองเขียนมาเองก่อน ติดปัญหาแล้วค่อยถามกันครับ

tantanz wrote:โดยปริมาณการเคลื่อนที่นั้นดิฉันได้ใส่ค่าเป็นตารางและจัดเป็นแนวตั้งในอีกที่ เพื่อสะดวกในการคำนวณ (ไม่ทราบดิฉันควรทำเป็นแนวตั้งหรือไม่ หากไม่เหมาะสมมีวิธีการอื่นอย่างไรคะ)

การทำงานกับ Code VBA ไม่มีข้อจำกัดในการวางข้อมูล ความสามารถในการนำไปใช้อยู่ที่ตัวผู้เขียนโปรแกรมครับ

tantanz wrote:สำหรับระยะทาง เครื่องจักรแต่ละเครื่องจักรจะมีพิกัดของเครื่องอยู่(ซึ่งคีย์ข้อมูลกับมือ) แต่ดิฉันไม่ทราบว่าจะทำให้เชื่อมโยงกันอย่างไร ที่เมื่อสลับเครื่องจักรแล้วจะทำให้หาระยะทางที่เปลี่ยนไปได้

ช่วยยกตัวอย่างให้เห็นภาพว่าเดิมเป็นอย่างไร เมื่อสลับแล้วเป็นอย่างไร สามารถใส่สี ตีเส้น โยงลูกศร ฯลฯ ได้เต็มที่เพื่อความเข้าใจที่ตรงกันครับ

อาจารย์คะ ลองเขียนโค้ดสลับตัวเลขและสีของเซลแล้วค่ะ แต่เมื่อสลับแล้วสีเพี้ยน คือรู้สึกสีจะสว่างขึ้น แก้ไข้ได้อย่างไรบ้างคะ

โค้ดที่เขียนขึ้นค่ะ

Sub SwitchColor()
Dim Temp1 As Variant
Dim Temp2 As Variant
Dim Range1 As Range
Dim Range2 As Range
On Error Resume Next
Set Range1 = Application.InputBox(Prompt:="Select first range", _
Title:="Please select range", Default:=Selection.Address, Type:=8)
Set Range2 = Application.InputBox(Prompt:="Select second range", _
Title:="Please select range", Default:=Selection.Address, Type:=8)

Temp1 = Range1.Interior.ColorIndex
Range1.Interior.ColorIndex = Range2.Interior.ColorIndex
Range2.Interior.ColorIndex = Temp1

Temp2 = Range1
Range1 = Range2
Range2 = Temp2

MsgBox "Switch value complete!"
End Sub

ลองปรับ Code เป็นตามด้านล่างครับ สำหรับการโพสต์ Code ให้เป็น Code เพื่อความสะดวกในการอ่าน ดูตัวอย่างที่นี่ครับ viewtopic.php?style=13&f=3&t=1187

ขอบคุณสำหรับคำตอบค่ะอาจารย์

อาจารย์คะ หากต้องการค้นหาค่า จาก 2 ช่อง cell ทำอย่างไรคะ

ตัวอย่างเช่น จากรูปที่แนบมาด้วย หากต้องการที่ ช่อง 1 เป็น 2 และช่อง 2 เป็น 3 จะได้ คำตอบออกมาเป็น 16

ในการจับภาพ ให้จับหัวคอลัมน์และหัวบรรทัดมาด้วยเพื่อจะได้ตอบแบบอ้างอิงเซลล์ได้ ลองจับภาพมาใหม่ครับ

ขออภัยค่ะ ภาพเป็นดังนี้ค่ะ

ลองตามด้านล่างครับ

1. สมมุติค่าที่ 1 คีย์ที่ A1, ค่าที่ 2 คีย์ที่ A2
2. ที่ A3 คีย์สูตร
   =INDEX($D$3:$D$13,MATCH(1,IF($B$3:$B$13=$A$1,IF($C$3:$C$13=$A$2,1)),0))
   Ctrl+Shift+Enter
3. เปลี่ยนค่าที่ A1, A2 แล้วสังเกตดูผล

Note: Ctrl+Shift+Enter หมายถึงเมื่อคีย์สูตรแล้ว แทนที่จะกด Enter ให้กดแป้น Ctrl+Shift ค้างไว้แล้วกด Enter เพื่อสร้างเป็นสูตร Array หากกดแป้นถูกต้องสูตรนั้นจะมีเครื่องหมายปีกกาครอบ เช่น {=YourFormulas(...)} ปีกกานี้คีย์เข้าไปเองไม่ได้ ถ้ายังไม่เห็นปีกกาครอบสูตรแสดงว่ากดแป้นให้รับสูตรไม่ถูกต้อง

ขอบคุณมากค่ะอาจารย์

อาจารย์คะ จากรูป หากต้องการจะสลับ 1 กับ 4 แล้วให้คำนวณจุดศูนย์กลางของแต่ละตัวออกมายังไงคะ

จะให้แต่ละช่องเซลล์มีขนาด 0.5x0.5 ในการคำนวณตำแหน่ง 1 เมื่อคำนวณแล้วให้ได้พิกัด x เป็นดังนี้ (B3+B4)/2 และ พิกัด y เป็นดังนี้ (B3+C3)/2

ต้องการให้โปรแกรมจุดศูนย์กลางใหม่ทุกครั้งเมื่อมีการสลับตำแหน่ง รบกวนด้วยนะคะ

การทำเช่นนั้นต้องเขียนด้วย VBA ลองเขียนมาก่อนครับ