สอบถามการสร้างปุ่มเพิ่มข้อมูลใน excel ครับ

[toompk]

สอบถามเรื่องวิธีการสร้างปุ่มครับ
คือผมต้องการสร้างปุ่มกดเพื่อใส่ข้อความในช่องแบบเรียบจากแถวที่ 1 ช่อง 1 ถึง ช่อง 10 พอครบช่องที่ 10แล้วให้ขึ้นแถวที่ 2 ต่อครับ
ผมต้องเขียนคำสั่งยังไงบ้างครับ ลบกวนผู้รู้ช่วยหน่อยครับ
รูปตัวอย่างครับ
https://www.picz.in.th/image/kXalL8

[toompk]

กดปุ่ม A ให้ใส่ 1
กดปุ่ม B ให้ใส่ 2
กดปุ่ม C ให้ใส่ 2
กดปุ่มลบให้ลบไป 1 ช่อง
กดปุ่มลบทั้งหมดให้ลบทุกช่อง

ประมาณนี้ครับ ผมต้องเขียนคำสั่งยังไงครับ

[OnliezU]

จริงๆ การที่จะสร้างปุ่มด้วย VBA อ.ตั้งกฎให้ลองเขียนมาก่อนตามข้อ 5 นะครับ

5.สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ

แต่ขออนุญาตช่วยด้วยการ ไกด์ลิ้งบางส่วน ให้ลองศึกษาดูครับ
1.สร้างปุ่มแบบง่าย >>> http://snasui-excelvba.blogspot.com/201 ... macro.html
2.สอนการใช้งาน VBA เบื้องต้น >>> http://mpa-r1.blogspot.com/2011/05/6-user-form.html

ปล. ผมไม่มีส่วนได้เสียในลิ้งทั้งสองลิ้งแค่อยากช่วยเหลือครับ หากผิดกฎ อ.สามารถลบความเห็นผมได้เลยนะครับ

[snasui]

ปล. ผมไม่มีส่วนได้เสียในลิ้งทั้งสองลิ้งแค่อยากช่วยเหลือครับ หากผิดกฎ อ.สามารถลบความเห็นผมได้เลยนะครับ

สามารถตอบด้วย Link เพื่อให้เพื่อนสมาชิกได้ศึกษาได้ ไม่ถือว่าผิดกติกาครับ

[toompk]

ผมลองทำตามที่แนะนำแล้วครับ แต่ผมติดปัญหาตรงที่ เวลาผมกด A ใส่ไปก่อนแล้ว พอกด B มันไปทับ A ที่ใส่ก่อนหน้าครับ
ผมต้องเขียนคำสั่งยังไงครับ ไม่ให้มันใส่ข้อมูลทับกับครับ แล้วพอใส่ข้อมูลถึง A10 แล้วให้ขึ้นแถวใหม่ B1 ต่อครับ
ช่วยแนะนำหน่อยครับอาจารย์
รูปที่ผมเขียนโค้ดเองครับ https://www.picz.in.th/image/kaILat

[logic]

เขียนมาถึงตรงไหนแล้วช่วยโพสต์มาพร้อมกับแนบไฟล์ด้วย เพื่อน ๆ จะได้พอแนะนำกันได้ครับ

การแนบไฟล์ทำตามกฎด้านบนด้วยครับ

[toompk]

เขียนได้เท่านี้ครับผม

Sub Button1_Click()
Range("A1:E10").ClearContents
End Sub
Sub Button2_Click()
Range("A1") = "A"
End Sub
Sub Button3_Click()
Range("A1") = "B"
End Sub
Sub Button4_Click()
Range("A1") = "C"
End Sub

[toompk]

ผมลองทำตามที่แนะนำแล้วครับ แต่ผมติดปัญหาตรงที่ เวลาผมกด A ใส่ไปก่อนแล้ว พอกด B มันไปทับ A ที่ใส่ก่อนหน้าครับ
ผมต้องเขียนคำสั่งยังไงครับ ไม่ให้มันใส่ข้อมูลทับกับครับ แล้วพอใส่ข้อมูลถึง A10 แล้วให้ขึ้นแถวใหม่ B1 ต่อครับ
ช่วยแนะนำหน่อยครับอาจารย์

ผมเขียนได้เท่านี้ครับ

Sub D()
Range("A1:E10").ClearContents
End Sub
Sub A()
Range("A1") = "A"
End Sub
Sub B()
Range("A1") = "B"
End Sub
Sub E()
Range("A1") = "C"
End Sub

[logic]

แนบไฟล์เอ็กเซลล์มาด้วยครับ

[toompk]

ไฟล์งานที่ผมทดลองทำครับ

[snasui]

การโพสต์ Code ควรโพสต์ให้แสดงเป็น Code อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ

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

Code: Select all

Sub Button1_A()
    Call LoopRange("A")
End Sub
Sub Button1_B()
    Call LoopRange("B")
End Sub
Sub Button1_C()
    Call LoopRange("C")
End Sub
Sub Button1_Del()
    Range("A1:C10").ClearContents
End Sub

Sub LoopRange(cell As String)
    Dim rngAll As Range
    Dim r As Range
    Dim i As Integer
    With Worksheets("Sheet1")
        Set rngAll = .Range("a1:C10")
        For i = 1 To 3
            For Each r In rngAll.Columns(i).Cells
                If r.Value = "" Then
                    r.Value = cell
                    Exit Sub
                End If
            Next r
        Next i
    End With
End Sub

[toompk]

ขอบคุณครับอาจารย์ ผมต้องขอโทษด้วยที่ผมไม่ได้ทำตามกฏของอาจารย์