Snasui Excel Forum

ค่ะ ขอบคุณมากค่ะ ^^

เอา code ไปใส่แล้วค่ะ มันไม่แสดงค่าให้ใน TextBox1 ค่ะ

สอบถามเรื่อง userform(textbox) ค่ะ
คือต้องการให้ TextBox1_Change แสดงค่า Cal_distance ที่ได้จากการคำนวณมาค่ะ
จากไฟล์ที่แนบมา อยู่ใน userform นะคะชื่อ window_1 ค่ะ

ได้สีตรงตามที่ต้องการแล้วค่ะ ขอบคุณมากนะคะ :D:D

ติดปัญหาตรง module Drawlayout ค่ะ

ต้องการจะให้เก็บค่าสีจาก sheet Data มาค่ะ แล้วมาใส่ในsheet Layout
ตัวอย่างเช่น
สีที่เครื่องจักร 1 อยู่จะเป็นสีเหลือง
สีที่เครื่องจักร 2 อยู่จะเป็นสีเขียว
สีที่เครื่องจักร 3 อยู่จะเป็นสีฟ้า เป็นต้นค่ะ

ได้แล้วค่ะ ขอบคุณค่ะ

จากที่แนบไฟล์ ติดตรงการใช้ userform ค่ะ ที่ form Newmachine
ตรง RefEdit1 เมื่อเข้าไปแก้ไข code คือต้องการให้เมื่อคลิกคำสั่งนี้จะให้ไปที่หน้าชีท Layout

แต่ลองใส่ code ไปแล้ว ไม่เกิดอะไรขึ้นค่ะ

ลองตรวจสอบให้หน่อยนะคะ

ได้แล้วค่ะ ขอบคุณมากนะคะ ^^

ติดตรง Module Drawlayout ค่ะ

แนบไฟล์มาแล้วนะคะ

เกิดปัญหาในการรันค่ะ มันขึ้น run time error 1004 ไม่ทราบว่าเป็นเพราะสาเหตุใดคะ แล้วมีวิธีการแก้ไขอย่างไรบ้าง :o :o

Public Sub Drawlayout()
Dim i As Integer
Dim no_c As Single 'number of customer
Dim nb() As Integer 'หมายเลขเครื่อง
Dim mc() As String 'ชื่อเครื่องจักร
Dim rowstart() As Integer ...

ขอบคุณมากค่ะ )

คือไม่ทราบว่าใช้ฟังก์ชั่นใดในการเขียนเลยได้ทำการบันทึกแมโครดูแล้วค่ะ
ได้ code ดังในไฟล์อันใหม่ที่แนบมา ซึ่งยาวมาก ^^"
อยากถามว่ามีวิธีการอื่นไหมคะ

จากไฟล์ เมื่อกดปุ่มคำนวณระยะทางใน sheet1 แล้ว
จะคำนวณค่าออกมาซึ่งอยู่ในรูปแบบตารางใน sheetที่ชื่อ FromToDis ค่ะ แต่ติดตรงจะทำการตีตารางล้อมรอบทุกช่องที่มีข้อมูลในหน้านั้นค่ะ
มีแนวทางยังไงบ้างคะ

จะลองนำไปปรับใช้ค่ะ ขอบคุณอาจารย์มากๆ ^^

ถามเรื่องการสร้างเงื่อนไขการใช้ if หน่อยค่ะ
คือเขียน code แล้ว แต่เงื่อนไขยังรันไม่ได้

ต้องการให้โปรแกรม เวลาเลือกพื้นที่ส่วนที่เป็นเซลล์ว่างแล้วโปรแกรมจะให้ทำการเลือกใหม่อีกครั้งค่ะ

^^ ได้แล้วค่ะ ,,อายจังดันไป lock ช่องเซลล์ไว้

คือใน sheet3 คอลัมน์ H
ใช้สูตร =INDEX($C:$C,MATCH(1,IF($A:$A=$F$1,IF($B:$B=$G$1,1)),0)) ค่ะ

แต่ถ้าในชีทมีข้อมูล 10 ค่า ก็พอจะทำการใส่สูตรทีละแถวได้
คือเปลี่ยนในส่วน ($A:$A=$F $1 ,IF($B:$B=$G $1 ,1) เป็นทีละแถวใช่ไหมคะ

หากข้อมูลของดิฉันมีจำนวนแถวไม่จำกัด อาจมีข้อมูลมาเพิ่มทีหลังได้ ดิฉันควรทำอย ...

ได้ผลลัพธ์ตามที่ต้องการแล้วค่ะ ขอบคุณมาก

และขออภัยที่ไม่ได้บอกลายละเอียดให้ครบถ้วนค่ะ

อาจจะอธิบายไม่ละเอียดมาก ^^"

คือเวลาคำนวณจะดึงค่ามาใช้ค่ะ

sheet2
เครื่อง x y
1 3 4
2 6 12
3 12 4

sheet3 (เซลล์ c) ได้ดังนี้

=abs(3-3)+(4-4) '=abs(x(1)-x(1))+(y(1)-y(1)) คือ x(1) มีค่าเท่ากับ 3 y(1) มีค่าเท่ากับ 4 เป็นต้นค่ะ
=abs(3-6)+(4-9)
=abs(3-12)+(4-4)

:) คือตอนนี้ได้สร้าง array เพื่อเก็บค่า x และ y จาก sheet2แล้ว หากจะนำออกมาใช้เพื่อการคำนวณต่อจะเรียกมาใช้ได้ยังไงคะ
โดยใน sheet3 จะมีตัวเลขที่รันลงมา แล้วนำค่าจาก array มาคำนวณให้อยู่ในเซลล์ C

เช่น
A B C
1 1 =abs(x(1)-x(1))+(y(1)-y(1))
1 2 =abs(x(1)-x(2))+(y(1)-y(2))
1 3 =abs(x(1)-x(3))+(y(1)-y(3 ...