Page 1 of 1
สอบถามการสร้างปุ่มเพิ่มข้อมูลใน excel ครับ
Posted: Wed Oct 17, 2018 1:48 pm
by toompk
สอบถามเรื่องวิธีการสร้างปุ่มครับ
คือผมต้องการสร้างปุ่มกดเพื่อใส่ข้อความในช่องแบบเรียบจากแถวที่ 1 ช่อง 1 ถึง ช่อง 10 พอครบช่องที่ 10แล้วให้ขึ้นแถวที่ 2 ต่อครับ
ผมต้องเขียนคำสั่งยังไงบ้างครับ ลบกวนผู้รู้ช่วยหน่อยครับ
รูปตัวอย่างครับ
https://www.picz.in.th/image/kXalL8
Re: สอบถามการสร้างปุ่มเพิ่มข้อมูลใน excel ครับ
Posted: Wed Oct 17, 2018 1:52 pm
by toompk
กดปุ่ม A ให้ใส่ 1
กดปุ่ม B ให้ใส่ 2
กดปุ่ม C ให้ใส่ 2
กดปุ่มลบให้ลบไป 1 ช่อง
กดปุ่มลบทั้งหมดให้ลบทุกช่อง
ประมาณนี้ครับ ผมต้องเขียนคำสั่งยังไงครับ
Re: สอบถามการสร้างปุ่มเพิ่มข้อมูลใน excel ครับ
Posted: Wed Oct 17, 2018 2:52 pm
by 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
ปล. ผมไม่มีส่วนได้เสียในลิ้งทั้งสองลิ้งแค่อยากช่วยเหลือครับ หากผิดกฎ อ.สามารถลบความเห็นผมได้เลยนะครับ
Re: สอบถามการสร้างปุ่มเพิ่มข้อมูลใน excel ครับ
Posted: Wed Oct 17, 2018 6:29 pm
by snasui
OnliezU wrote: Wed Oct 17, 2018 2:52 pm
ปล. ผมไม่มีส่วนได้เสียในลิ้งทั้งสองลิ้งแค่อยากช่วยเหลือครับ หากผิดกฎ อ.สามารถลบความเห็นผมได้เลยนะครับ
สามารถตอบด้วย Link เพื่อให้เพื่อนสมาชิกได้ศึกษาได้ ไม่ถือว่าผิดกติกาครับ
Re: สอบถามการสร้างปุ่มเพิ่มข้อมูลใน excel ครับ
Posted: Thu Oct 18, 2018 10:57 am
by toompk
ผมลองทำตามที่แนะนำแล้วครับ แต่ผมติดปัญหาตรงที่ เวลาผมกด A ใส่ไปก่อนแล้ว พอกด B มันไปทับ A ที่ใส่ก่อนหน้าครับ
ผมต้องเขียนคำสั่งยังไงครับ ไม่ให้มันใส่ข้อมูลทับกับครับ แล้วพอใส่ข้อมูลถึง A10 แล้วให้ขึ้นแถวใหม่ B1 ต่อครับ
ช่วยแนะนำหน่อยครับอาจารย์
รูปที่ผมเขียนโค้ดเองครับ
https://www.picz.in.th/image/kaILat
Re: สอบถามการสร้างปุ่มเพิ่มข้อมูลใน excel ครับ
Posted: Thu Oct 18, 2018 11:32 am
by logic
เขียนมาถึงตรงไหนแล้วช่วยโพสต์มาพร้อมกับแนบไฟล์ด้วย เพื่อน ๆ จะได้พอแนะนำกันได้ครับ
การแนบไฟล์ทำตามกฎด้านบนด้วยครับ
Re: สอบถามการสร้างปุ่มเพิ่มข้อมูลใน excel ครับ
Posted: Thu Oct 18, 2018 1:21 pm
by 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
Re: สอบถามการสร้างปุ่มเพิ่มข้อมูลใน excel ครับ
Posted: Thu Oct 18, 2018 1:35 pm
by 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
Re: สอบถามการสร้างปุ่มเพิ่มข้อมูลใน excel ครับ
Posted: Thu Oct 18, 2018 3:29 pm
by logic
แนบไฟล์เอ็กเซลล์มาด้วยครับ
Re: สอบถามการสร้างปุ่มเพิ่มข้อมูลใน excel ครับ
Posted: Thu Oct 18, 2018 4:59 pm
by toompk
ไฟล์งานที่ผมทดลองทำครับ
Re: สอบถามการสร้างปุ่มเพิ่มข้อมูลใน excel ครับ
Posted: Thu Oct 18, 2018 8:49 pm
by 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
Re: สอบถามการสร้างปุ่มเพิ่มข้อมูลใน excel ครับ
Posted: Thu Oct 18, 2018 9:07 pm
by toompk
ขอบคุณครับอาจารย์ ผมต้องขอโทษด้วยที่ผมไม่ได้ทำตามกฏของอาจารย์