List code

[yukioh]

สวัสดีครับ อาจารย์

รบกวนอาจารย์ช้วยดูให้ด้วยครับ
ผมต้องกานทีจะ เลือก cell ไหมก็ได้ แล้ว กดปุม "Select Code Here" ทำงานเพื้อที่จะได้เลือก code ตามที่ต้องกานครับ

[snasui]

ลองดูตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Private Sub CommandButton1_Click()
    Range("H7") = Cells(Selection.Row, 1)
    Range("I7") = Cells(Selection.Row, 2)
End Sub

[yukioh]

ไม่เข้าใจครับ ผมลองเอา ไปใส่แล้ว ไม่ได้ผนครับ

[snasui]

คิดว่าไม่ต่างกับผมครับ ที่อธิบายมาผมไม่เข้าใจเช่นกันครับ

[yukioh]

ครับ ha! ha! ha!

ครับ คือว้า ผมต้องกานทีจะ เลือก cell ไหมก็ได้ แล้ว กดปุม "Select Code Here"
พอ form ขิ้นมา ให้เราเลือก ผมก็เลือก code ตามที่ต้องกาน
แต่พอผมกด ปุ่ม select มันไม่ทำงานครับ

รบกวนอาจารย์ช้วยดูให้ด้วยครับ

ขอโทษมากๆ ครับ

[snasui]

ผมทดสอบแล้ว Code ทำงานครับ แต่จะตรงกับที่ต้องการหรือไม่นั้นจำเป็นต้องอธิบายเงื่อนไขทั้งหมดที่ต้องการมา เพราะมี Code อื่น ๆ สำหรับตรวจสอบเงื่อนไขเพิ่มเข้ามาและเมื่อไม่เข้าเงื่อนไขก็จะไม่ทำการเลือกค่าใน ListBox ครับ

[yukioh]

คือว้า ผมต้องกานทีจะ เลือก cell ไหมก็ได้ตัวอย่างเช้น cell D1 แล้ว กดปุม "Select Code Here"
พอ form ขิ้นมา ให้เราเลือก Code ตามที่ต้องกาน แล้วให้สะแดงผนตรงที่ cell เราเลือกไว้ครับ

แต่พอผมเลือก แล้วกด ปุ่ม select มันจะมื box เตือนขิ้นมา "Your cursor was not in a cell that can receive an entry from this pop-up window."

[snasui]

ที่อธิบายมานั้นผมเข้าใจแล้วครับ

จาก

แต่พอผมเลือก แล้วกด ปุ่ม select มันจะมื box เตือนขิ้นมา "Your cursor was not in a cell that can receive an entry from this pop-up window."

ไม่ทราบว่าใส่ Code เหล่านั้นเข้าไปทำไมครับ

สำหรับปัญหานี้ ผมเคยตอบไว้รอบนึงแล้วไม่ทราบว่ามีปัญหาอะไรกับ Code ตาม Link นี้ถึงไม่ใช้กับงานนี้ครับ viewtopic.php?p=24614#p24614

[snasui]

ผมต้องกานทีจะ เลือก cell ไหมก็ได้ตัวอย่างเช้น cell D1 แล้ว กดปุม "Select Code Here"
พอ form ขิ้นมา ให้เราเลือก Code ตามที่ต้องกาน แล้วให้สะแดงผนตรงที่ cell เราเลือกไว้ครับ

ปรับ Code เป็นตามด้านล่างครับ

Code: Select all

    Dim i As Integer
    i = Code.ListBox1.ListIndex
    Selection = Code.ListBox1.Column(0, i)
    Selection.Offset(0,1) = Code.ListBox1.Column(1, i)