บวกเพิ่มทีล่ะ 8

[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..... กระดึบๆๆมาเรื่อยๆ

[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

[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

[snasui]

โปรแกรมจะทราบได้อย่างไรว่าค่าตั้งต้นคือค่าใดครับ

โดยปกติหากมีค่าตั้งต้นจะมีการกำหนดไว้ล่างหน้าว่าเซลล์นั้นๆ มีค่าเท่าใด หากต้องการ Reset ก็จะนำค่าตั้งต้นที่กำหนดไว้นั้นมาวางได้เลย ไม่จำเป็นต้องวนลูปเพื่อจะลดไปยังค่านั้น หรือต้องการจะทำอะไร ด้วยเงื่อนไขใด ช่วยแจ้งมาให้ละเอียดครับ

[mr.zatan]

เวลาลดลงมาทีล่ะ 8 ลงมาเรื่อยๆๆจนมาถึงค่าเริ่มต้น คือ 1,2,3.....8

กดอีกทีก็จะเป็นค่าติดลบ - ครับ -1,-2,-3.....-8

สามารถให้มาหยุดอยู่ที่ 1,2,3.....8 ได้ไหมครับ คือห้ามเกินไปกว่านี้

[snasui]

สามารถใช้ Loop ให้ลบไปทีละ 8 และต้องมีเงื่อนไขที่จะออกจาก Loop หากถึงค่าเริ่มต้นแล้ว

ตัวอย่าง Code ซึ่งเขียนไว้ก่อน หรือ ภายใน Loop อีกที เช่น if range("l5").value = 1 then exit sub

[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

[mr.zatan]

ขอบคุณครับ