การเขียน Code VBA รับค่าจาก Cell
Posted: Wed Feb 05, 2014 1:24 pm
สวัสดีครับ อาจารย์
มีเรื่องรบกวนสอบถามครับ คือ ผมต้องการจะสร้างเงื่อนไขเพื่อรับค่าจาก Cell ดังตารางในรูปครับ สมมติผมมีค่าอยู่ 1 ค่า (ChainageFind(i)) ซึ่งมีค่าอยู่ระหว่างค่าใน Column B และ C และผมต้องการเก็บค่าจาก Column D และ E Crossfall1(i) และ Crossfall2(i) สมมติว่าผมมีค่าเท่ากับ 295 มีค่าอยู่ระหว่าง 291 - 365 ซึ่ง จะเก็บค่า -1.5 กับ 3.5 จะต้องเขียน Code อย่างไรครับ ขอคำแนะนำด้วยครับ
มีเรื่องรบกวนสอบถามครับ คือ ผมต้องการจะสร้างเงื่อนไขเพื่อรับค่าจาก Cell ดังตารางในรูปครับ สมมติผมมีค่าอยู่ 1 ค่า (ChainageFind(i)) ซึ่งมีค่าอยู่ระหว่างค่าใน Column B และ C และผมต้องการเก็บค่าจาก Column D และ E Crossfall1(i) และ Crossfall2(i) สมมติว่าผมมีค่าเท่ากับ 295 มีค่าอยู่ระหว่าง 291 - 365 ซึ่ง จะเก็บค่า -1.5 กับ 3.5 จะต้องเขียน Code อย่างไรครับ ขอคำแนะนำด้วยครับ
Code: Select all
If ChainageFind(i) >= ChainageStart(i) Or ChainageFind(i) < ChainageEnd(i) Then
Crossfall1(i) = Worksheets("Crossfall data (LT)").Cells(i + 4, 4)
Crossfall2(i) = Worksheets("Crossfall data (LT)").Cells(i + 4, 5)
End If