Page 1 of 1
ทำอย่างไรให้ค่าของTextBoxไปในคอลัมน์ที่ต้องการ
Posted: Sun Nov 06, 2016 7:35 pm
by sharp
ผมสร้างปุ่มCommandButton1มาเพื่อใช้กับTextBox1 โดยเมื่อพิมพ์ค่าใดๆก็ตามเข้าไปจะให้ค่าเรียงลงมาตามตารางที่ผมActiveCellไว้แต่แรกโดยใช้Offsetให้ค่าถัดจากCellไปทีละ1Cell
แต่ผมอยากให้ค่าที่ถัดจากCellถึงตามที่ต้องการไปขึ้นในColumnใหม่CellแรกของColumn ผมต้องเขียนCodeใหม่ว่าอย่างไรครับ
Code: Select all
Private Sub CommandButton1_Click()
ActiveCell = TextBox1.Value
ActiveCell.Offset(1, 0).Select
End Sub
จากในรูปตามที่ป้อนข้อมูลผ่าน TextBox1 พอถึง A11 อยากให้การ ActiveCell ไปขึ้นของ Column B ที่ B1 ครับ
โดยที่สามารถพิมพ์ข้อความต่อใน TextBox1 ได้เลยไม่ต้องไปคลิกที่ B1 ครับและเมื่อถึง B11 ก็ไปขึ้นที่ C1 ตามลำดับจนจบที่ D11 ครับ
Re: ทำอย่างไรให้ค่าของTextBoxไปในคอลัมน์ที่ต้องการ
Posted: Sun Nov 06, 2016 7:45 pm
by snasui
แนบตัวอย่างไฟล์ Excel มาด้วยจะได้สะดวกในการตอบครับ
Re: ทำอย่างไรให้ค่าของTextBoxไปในคอลัมน์ที่ต้องการ
Posted: Sun Nov 06, 2016 8:15 pm
by sharp
ไฟล์ Excel ครับขอบคุณมากครับ
Re: ทำอย่างไรให้ค่าของTextBoxไปในคอลัมน์ที่ต้องการ
Posted: Sun Nov 06, 2016 8:35 pm
by snasui
ต้วอย่าง Code ครับ
Code: Select all
If ActiveCell.Row = 12 And ActiveCell.Column <= 5 Then
ActiveCell.Offset(-11, 1).Select
Else
If ActiveCell.Column >= 5 Then Range("a1").Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(1, 0).Select
End If
Re: ทำอย่างไรให้ค่าของTextBoxไปในคอลัมน์ที่ต้องการ
Posted: Sun Nov 06, 2016 8:48 pm
by sharp
ทำได้ตามที่ต้องการเลยครับ ขอบคุณมากครับ แต่ถ้าไม่เป็นการรบกวนผมอยากทราบการอธิบายสูตรพอจะเป็นไปได้ไหมครับ
Re: ทำอย่างไรให้ค่าของTextBoxไปในคอลัมน์ที่ต้องการ
Posted: Sun Nov 06, 2016 8:55 pm
by snasui
Code ลักษณะนั้นเรียกว่า VBA ไม่ใช่สูตรครับ
ความหมาย Code คือให้ดูว่าเซลล์ปัจจุบันมีบรรทัดเท่ากับ 12 และคอลัมน์ของเซลล์ปัจจุบันน้อยกว่าหรือเท่ากับ 5 หรือไม่ หากใช่ให้เลื่อนไปยังเซลล์แรกของคอลัมน์ถัดไป หากว่าไม่เป็นตามนั้นให้เลื่อนเซลล์ไปด้านล่างและเติมค่าตาม TextBox แต่หากคอลัมน์ของเซลล์ปัจจุบันมากกว่าหรือเท่ากับ 5 ให้กลับไปเริ่มที่เซลล์ A1 ใหม่ครับ
Re: ทำอย่างไรให้ค่าของTextBoxไปในคอลัมน์ที่ต้องการ
Posted: Mon Nov 07, 2016 1:36 am
by sharp
_/\_ กราบขอบพระคุณมากครับ จะพยายามศึกษาเรื่อง VBA ให้มากขึ้นครับ