Excel Forum

ขอบคุณมากครับ คุณ logic

จากคำสั่งที่คุณ logic แก้ให้ผมยังติดตรงที่เวลากดแล้วมันใส่ค่าพร้อมกันที่เดียว 3 ช่องเลยครับ
ผมอยากให้ใส่ทีละ 1 ช่องลงมาเลื่อนๆครับ ต้องใช้คำสั่งอะไรครับผม

Sub Button_250()
Call LoopRange("250")
End Sub
Sub LoopRange(cell As String)
Dim rngAll As Range
Dim r As Range
Dim ...

สวัสดีครับ
ผมสอบถามการเขียนคำสั่ง VBA ให้มีการบันทึกลงพร้อมกันทั้ง 3 sheet หน่อยครับ พอดีว่าผมไม่เก่งเรื่องการเขียนคำสั่ง vba ครับ
ผมเขียนมาได้เท่านั้นครับ
Sub Button_250()
Call LoopRange("250")
End Sub
Sub LoopRange(cell As String)
Dim rngAll As Range
Dim r As Range
Dim i As Integer
With ...

สวัสดีครับ พอดีผมติดปัญหาเรื่องการเขียนโค้ด Module ในมันบันทึกพร้อมกับทั้ง 3 sheet ครับผม
ผมได้แนบโค้ดและไฟล์งานที่ผมได้เขียนเองมาให้ดูด้วยครับผม

Sub Button_250()
Call LoopRange("250")
End Sub
Sub LoopRange(cell As String)
Dim rngAll As Range
Dim r As Range
Dim i As Integer
With Worksheets ...

Sub Button_250()
Call LoopRange("250")
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:A20")
For i = 1 To 1
For Each r In rngAll.Columns(i).Cells
If r.Value = "" Then
r.Value = cell
Exit Sub
End ...

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

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

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

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

Sub D()
Range("A1:E10 ...

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

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

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

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

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

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