Page 1 of 1
บวกเพิ่มทีล่ะ 8
Posted: Sat Feb 20, 2016 10:16 am
by mr.zatan
ที่:
L5 มีค่าเริ่มต้นอยู่ที่ 1
M5 มีค่าเริ่มต้นอยู่ที่ 2
N5 มีค่าเริ่มต้นอยู่ที่ 3
O5 มีค่าเริ่มต้นอยู่ที่ 4
L6 มีค่าเริ่มต้นอยู่ที่ 5
M6 มีค่าเริ่มต้นอยู่ที่ 6
N6 มีค่าเริ่มต้นอยู่ที่ 7
O6 มีค่าเริ่มต้นอยู่ที่ 8
เมื่อคลิกที่ปุ่ม ก็จะบวกเพิ่มทีล่ะ 8 เพิ่มไปเรื่อยๆๆ
L5 ก็จะได้ 9
M5 ก็จะได้ 10
N5 ก็จะได้ 11
O5 ก็จะได้ 12
L6 ก็จะได้ 13
M6 ก็จะได้ 14
N6 ก็จะได้ 15
O6 ก็จะได้ 16
ผมเขียนแบบนี้ถูกต้องไหมครับ..
Code: Select all
Sub opennn8()
With Sheets("Print.Mini").Range("L5")
.Value = .Value + 8
End With
With Sheets("Print.Mini").Range("M5")
.Value = .Value + 8
End With
With Sheets("Print.Mini").Range("N5")
.Value = .Value + 8
End With
With Sheets("Print.Mini").Range("O5")
.Value = .Value + 8
End With
With Sheets("Print.Mini").Range("L6")
.Value = .Value + 8
End With
With Sheets("Print.Mini").Range("M6")
.Value = .Value + 8
End With
With Sheets("Print.Mini").Range("N6")
.Value = .Value + 8
End With
With Sheets("Print.Mini").Range("O6")
.Value = .Value + 8
End With
End Sub
เพราะผมรู้สึกว่า Code อันนี้ทำงานช้า กว่าจะไล่ตั้งแต่ 1 2 3..... กระดึบๆๆมาเรื่อยๆ
Re: บวกเพิ่มทีล่ะ 8
Posted: Sat Feb 20, 2016 10:44 am
by snasui
ใช้การลูปเข้ามาช่วย Code จะได้กระชับขึ้นครับ
Code: Select all
dim r as range
for each r in sheets("Print.Mini").range("l5:o6")
r.value = r.value + 8
next r
Re: บวกเพิ่มทีล่ะ 8
Posted: Sat Feb 20, 2016 11:58 am
by mr.zatan
ขอบคุณครับ
แล้วถ้าลดลงทีล่ะ 8
มาจนถึงค่าต้นล่ะครับ
Code: Select all
Sub opennn8()
Dim r As Range
For Each r In Sheets("Print.Mini").Range("l5:o6")
r.Value = r.Value - 8
Next r
End Sub
Re: บวกเพิ่มทีล่ะ 8
Posted: Sat Feb 20, 2016 12:05 pm
by snasui
โปรแกรมจะทราบได้อย่างไรว่าค่าตั้งต้นคือค่าใดครับ
โดยปกติหากมีค่าตั้งต้นจะมีการกำหนดไว้ล่างหน้าว่าเซลล์นั้นๆ มีค่าเท่าใด หากต้องการ Reset ก็จะนำค่าตั้งต้นที่กำหนดไว้นั้นมาวางได้เลย ไม่จำเป็นต้องวนลูปเพื่อจะลดไปยังค่านั้น หรือต้องการจะทำอะไร ด้วยเงื่อนไขใด ช่วยแจ้งมาให้ละเอียดครับ
Re: บวกเพิ่มทีล่ะ 8
Posted: Sat Feb 20, 2016 1:00 pm
by mr.zatan
เวลาลดลงมาทีล่ะ 8 ลงมาเรื่อยๆๆจนมาถึงค่าเริ่มต้น คือ 1,2,3.....8
กดอีกทีก็จะเป็นค่าติดลบ - ครับ -1,-2,-3.....-8
สามารถให้มาหยุดอยู่ที่ 1,2,3.....8 ได้ไหมครับ คือห้ามเกินไปกว่านี้
Re: บวกเพิ่มทีล่ะ 8
Posted: Sat Feb 20, 2016 1:31 pm
by snasui
สามารถใช้ Loop ให้ลบไปทีละ 8 และต้องมีเงื่อนไขที่จะออกจาก Loop หากถึงค่าเริ่มต้นแล้ว
ตัวอย่าง Code ซึ่งเขียนไว้ก่อน หรือ ภายใน Loop อีกที เช่น
if range("l5").value = 1 then exit sub
Re: บวกเพิ่มทีล่ะ 8
Posted: Tue Feb 23, 2016 8:00 am
by kreang
ขออนุญาตทดลองทำดูเป็นอีกแนวทาง เป็นคำสั่งฝังในปุ่มครับ
Code: Select all
Private Sub CommandButton1_Click()
'หาแถวสุดท้ายเพื่ออ้างอิง
Dim Lrow%: Lrow = Cells(Rows.Count, "O").End(xlUp).Row
'ป้องกัน Error กรณีไม่ใช่ตัวเลข
If Not IsNumeric(Cells(Lrow, 15)) Then Exit Sub
'กำหนดเงื่อนไขให้พิกัดอ้างอิงเมื่อเงื่อนไขเป็นจริง กรณีนี้คือ ค่าที่ Column 'O' ต้องหาร 8 ลงตัว
If Cells(Lrow, 15) Mod 8 = 0 Then
'เมื่อเงื่อนไขเป็นจริง
'ฝั่งซ้ายคือพิกัดเป้าหมาย ฝั่งขวาคือผลลัพท์ที่ต้องการ ซึ่งอ้างอิงค่าจากพิกัดอ้างอิง
With Cells(Lrow, 15)
.Offset(1, 0) = Cells(Lrow, 15) + 4
.Offset(1, -1) = Cells(Lrow, 15) + 3
.Offset(1, -2) = Cells(Lrow, 15) + 2
.Offset(1, -3) = Cells(Lrow, 15) + 1
.Offset(2, 0) = Cells(Lrow, 15) + 8
.Offset(2, -1) = Cells(Lrow, 15) + 7
.Offset(2, -2) = Cells(Lrow, 15) + 6
.Offset(2, -3) = Cells(Lrow, 15) + 5
End With
End If
End Sub
Re: บวกเพิ่มทีล่ะ 8
Posted: Tue Feb 23, 2016 8:53 am
by mr.zatan
ขอบคุณครับ