Page 1 of 1
List code
Posted: Sun Feb 03, 2013 4:01 pm
by yukioh
สวัสดีครับ อาจารย์
รบกวนอาจารย์ช้วยดูให้ด้วยครับ
ผมต้องกานทีจะ เลือก cell ไหมก็ได้ แล้ว กดปุม "Select Code Here" ทำงานเพื้อที่จะได้เลือก code ตามที่ต้องกานครับ
Re: List code
Posted: Sun Feb 03, 2013 4:51 pm
by snasui
ลองดูตัวอย่าง Code ตามด้านล่างครับ
Code: Select all
Private Sub CommandButton1_Click()
Range("H7") = Cells(Selection.Row, 1)
Range("I7") = Cells(Selection.Row, 2)
End Sub
Re: List code
Posted: Sun Feb 03, 2013 5:03 pm
by yukioh
ไม่เข้าใจครับ ผมลองเอา ไปใส่แล้ว ไม่ได้ผนครับ
Re: List code
Posted: Sun Feb 03, 2013 5:04 pm
by snasui
คิดว่าไม่ต่างกับผมครับ ที่อธิบายมาผมไม่เข้าใจเช่นกันครับ
Re: List code
Posted: Sun Feb 03, 2013 5:45 pm
by yukioh
ครับ ha! ha! ha!
ครับ คือว้า ผมต้องกานทีจะ เลือก cell ไหมก็ได้ แล้ว กดปุม "Select Code Here"
พอ form ขิ้นมา ให้เราเลือก ผมก็เลือก code ตามที่ต้องกาน
แต่พอผมกด ปุ่ม select มันไม่ทำงานครับ
รบกวนอาจารย์ช้วยดูให้ด้วยครับ
ขอโทษมากๆ ครับ
Re: List code
Posted: Sun Feb 03, 2013 6:38 pm
by snasui
ผมทดสอบแล้ว Code ทำงานครับ แต่จะตรงกับที่ต้องการหรือไม่นั้นจำเป็นต้องอธิบายเงื่อนไขทั้งหมดที่ต้องการมา
เพราะมี Code อื่น ๆ สำหรับตรวจสอบเงื่อนไขเพิ่มเข้ามาและเมื่อไม่เข้าเงื่อนไขก็จะไม่ทำการเลือกค่าใน ListBox ครับ
Re: List code
Posted: Sun Feb 03, 2013 7:12 pm
by 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."
Re: List code
Posted: Sun Feb 03, 2013 7:23 pm
by snasui
ที่อธิบายมานั้นผมเข้าใจแล้วครับ
จาก
yukioh wrote:แต่พอผมเลือก แล้วกด ปุ่ม 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
Re: List code
Posted: Sun Feb 03, 2013 7:27 pm
by snasui
yukioh wrote:ผมต้องกานทีจะ เลือก 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)