ทำอย่างไรให้ค่าของTextBoxไปในคอลัมน์ที่ต้องการ

[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 ครับ

[snasui]

แนบตัวอย่างไฟล์ Excel มาด้วยจะได้สะดวกในการตอบครับ

[sharp]

ไฟล์ Excel ครับขอบคุณมากครับ

[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

[sharp]

ทำได้ตามที่ต้องการเลยครับ ขอบคุณมากครับ แต่ถ้าไม่เป็นการรบกวนผมอยากทราบการอธิบายสูตรพอจะเป็นไปได้ไหมครับ

[snasui]

Code ลักษณะนั้นเรียกว่า VBA ไม่ใช่สูตรครับ

ความหมาย Code คือให้ดูว่าเซลล์ปัจจุบันมีบรรทัดเท่ากับ 12 และคอลัมน์ของเซลล์ปัจจุบันน้อยกว่าหรือเท่ากับ 5 หรือไม่ หากใช่ให้เลื่อนไปยังเซลล์แรกของคอลัมน์ถัดไป หากว่าไม่เป็นตามนั้นให้เลื่อนเซลล์ไปด้านล่างและเติมค่าตาม TextBox แต่หากคอลัมน์ของเซลล์ปัจจุบันมากกว่าหรือเท่ากับ 5 ให้กลับไปเริ่มที่เซลล์ A1 ใหม่ครับ

[sharp]

_/\_ กราบขอบพระคุณมากครับ จะพยายามศึกษาเรื่อง VBA ให้มากขึ้นครับ