ต้องการโค๊ดให้ได้ข้อมูลคู่กันไปพร้อมกัน

[akekorn]

สวัสดีครับคุณคนควน และเพื่อนสมาชิกทุกท่าน

วันนี้ผมมีเรื่องรบกวน คือผมอยากจะโค๊ดในคราวแล้วได้ตัวแปรพร้อมกัน2คอลัมภ์แต่ผมคิดไม่ออกเพราะได้มาคอลัมภ์เดียวเลยอยากขอความช่วยเหลือจากผู้รู้ทุกท่านครับ
โค๊ดที่ผมเขียน
Sub kay()
Dim i As Integer
Dim a, b, c As String

Range("is1").Select
ActiveCell.Value = Range("a1").Value
Do While Not IsEmpty(ActiveCell.Value)
ii = ii + 1

a = ActiveCell.Value

MsgBox a
ActiveCell.Offset(1, 0).Select
Loop

End Sub
คือผมจะได้แค่ข้อมูลในคอลัมภ์A แต่คอลัมภ์ Bผมยังไม่ได้ครับต้องการให้รันแล้วได้ข้อมูลคอลัมภ์B คู่ขนานกันไปครับผม
รบกวนด้วยครับผม

[snasui]

ดู Code แล้วไม่เข้าใจครับ จากด้านล่าง

คือผมจะได้แค่ข้อมูลในคอลัมภ์A แต่คอลัมภ์ Bผมยังไม่ได้ครับต้องการให้รันแล้วได้ข้อมูลคอลัมภ์B คู่ขนานกันไปครับผม

ช่วยอธิบายว่าต้องการนำค่าจากไหน ไปไหน โดยมีเงื่อนไขอย่างไร

[akekorn]

ครับคือว่าตอนรัน msgbox จะขึ้นค่าเริ่มจาก cell A1 คือ ssi_t ต่อไปเรื่อยๆจนถึง ac_t แต่ผมอยากให้ขึ้น

ssi_t และอีก msg ขึ้น ssi_r ต่อไปทีละคู่ จนสุดบรรทัดข้างล่าง คือ ac_t และ ac_r ครับ

[snasui]

ช่วยตรวจสอบว่าแนบไฟล์มาผิดหรือไม่ครับ

Code ที่ให้มาทดสอบแล้วไม่ขึ้น Message ใดเนื่องจากไม่มีข้อมูลที่เข้าเงื่อนไข นั่นคือ Range("is1") ไม่มีข้อมูลอยู่ครับ

ตัวอย่างการ Loop เพื่อให้แสดงค่าใน A1:B23 ตามด้านล่างครับ

Code: Select all

Sub Test()
    Dim r As Range
    For Each r In Range("A1:A32")
        MsgBox r.Value & " And " & r.Offset(0, 1).Value
    Next r
End Sub

[akekorn]

ขอบคุณมากๆครับคุณคนควน