Snasui Excel Forum

ขอบคุณ ครับอาจารย์ ได้ความรู้เพิ่มครับผม

อาจารย์ครับ ผมต้องการให้คลิ๊กแล้วโปรแกรมทำการวนลูป ลบค่าใน Textbox1 ลงเรื่อยๆ(อัตโนมัติ)จนกว่า label2จะ มากกว่าหรือเท่ากับศูนย์ครับ
แต่มัน Error ครับรบกวนแนะนำการเขียน Code ทีครับ

Sub test()
Dim lc As Long
Dim r As Range
lc = Cells(2, Columns.Count).End(xlToLeft).Column
With Sheets("Sheet1")
For Each r In Range(Cells(2, 1), Cells(2, lc))
If r = "D/0" Then
r.Offset(1, 0).Resize(8, 1).Formula = "=$A$1+$B$1"
End If
Next r
End With
End Sub
แบบนี้ใช้ได้ไหมครับ
ขอบคุณอาจารย ...

Sub btnCopyPasteFormula_Click()

Dim lngColumnNum As Long, lngRound As Long, strColumn As String
'strColumn = IIf(Application.Version >= 12, "XFD", "IV")
'lngColumnNum = Range(strColumn & "2").End(xlToLeft).Column
lngColumnNum = Range("V2").End(xlToLeft).Column

Worksheets("Sheet1").Range("C1 ...

ตอบครับ
1. เปลี่ยนแปลงครับ
2. บรรทัดเริ่มต้นและบรรทัดสุดท้ายคงที่ครับ

คือผมต้องการวางสูตรไว้ตาม Colum ที่ผมได้ถามไปข้างต้น เพราะตารางของจริงมี Colum จำนวนมากครับ
จึงอยากรบกวน ขอคำชี้แนะเรื่อง Loop for ครับ

คือผมต้องการให้วางสูตรในคอลัมภ์ที่เรากำหนดไปเรื่อยๆครับจนสุดตาราง
ปัญหาคือผมยังไม่ค่อยคล่องเรื่องคำสั่ง Loop ครับถ้าไม่ใช้ Loop เข้ามาช่วย
หากช่องตารางมีจำนวนมาก ผมต้องใช้สูตรเป็นจำนวนมากเลยครับในการใส่โค๊ด
จึงขอคำชี้แนะจากผู้รู้ครับ ผมลองมาหลายโค๊ด จนตอนนี้ไปไม่ได้แล้วครับ
ขอบพระคุณครับ