ขอรบกวนช่วยเรื่อง Code VBA เมื่อเทียบค่าตรงกัน

[snasui]

ตอนนี้ซ้อนมาแล้ว 7 ชั้น จะไม่สามารถซ้อนสูตรได้อีก เนื่องจาก Excel 2003 ไม่สามารถซ้อนเกิน 7 ชั้นได้ครับ

[suka]

พอจะมีตัวช่วยอื่นๆช่วยได้บ้างไหมคะ

[snasui]

มีครับ เขียน VBA จัดการแทนสูตร ซึ่งต้องเขียนมาก่อน ติดตรงไหนแล้วค่อยถามกันครับ

[suka]

อาจารย์คะ ต้องประกาศตัวแปรไหมคะ

Code: Select all

Dim r As Range
Dim i As Integer

และลอง Code ตามนี้ได้ไหมคะ

Code: Select all

Set r = Sheets("Form").Range("E1")
With Sheets("Database")
    i = Application.Match(r, .Range("C:C"), 0)
    If .Range("D" & i) Then
        Exit Sub
    End If

[snasui]

สำหรับการประกาศหรือไม่ประกาศตัวแปรลองทบทวนที่ผมเคยตอบไปที่นี่ครับ http://www.snasui.com/viewtopic.php?f=3&t=1605#p10099

ส่วน Code ที่เขียนมานั้นได้ทดลองแล้วยังว่าใช้ได้หรือไม่และติดบรรทัดไหนครับ

[suka]

Code ก่อนหน้านี้ลองแล้วไม่ได้ค่ะ และลองใช้ Code ด้านล่างนี้ก็ error ตามรูปค่ะ
พอเอา End If ออก กดปุ่ม Record ที่ชีท Form ก็ไม่ทำงานเลยค่ะอาจารย์

Code: Select all

Sub BeenArL()                           ' ปุ่มบันทึกรับชำระ ชีท Form
    Dim rSource As Range
    Dim rTarget As Range
    Dim rs As Range
    Dim rt As Range
    Dim i As Double
    Dim r As Range
    Set r = Sheets("Form").Range("E1")
    With Sheets("Database")
    i = Application.Match(r, .Range("C:C"), 0)
        Exit Sub
    End If
    End With
    With Sheets("Form")
        Set rSource = .Range("B3:B47")
    End With
    With Sheets("Database")
        Set rTarget = .Range("D2", .Range("D" & Rows.Count).End(xlUp))
    End With
    With ActiveSheet
     i = (.Range("L4") + .Range("L6"))
    If i <> .Range("J8") Then
        MsgBox "โปรดตรวจจำนวนเงินและบันทึกใหม่"
        Exit Sub
    End If
    End With
    Application.Calculation = xlCalculationManual
    For Each rs In rSource
        For Each rt In rTarget
            If rt = rs Then rt.Offset(0, 25) = "Y"
        Next rt
    Next rs
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = False
    Sheets("TemBilling").Range("A12:O12").Copy
    Sheets("AR").Range("A" & Rows.Count).End(xlUp) _
        .Offset(1, 0).PasteSpecial xlPasteValues
    Sheets("TemBilling").Range("P12:W12").Copy
    Sheets("Report").Range("A" & Rows.Count).End(xlUp) _
        .Offset(1, 0).PasteSpecial xlPasteValues
    Sheets("Form").Range("H1,J2,I4:L4,L6,G4").ClearContents
    With Sheets("Form")
            .Range("J6") = .Range("J6") + 1
        End With
        Application.ScreenUpdating = True
End Sub

[snasui]

ตาม Error ที่แนบมานั้น มีความหมายว่าก่อนที่จะมี End If ได้ต้องมี If มาก่อนครับ

[suka]

ค่ะอาจารย์ เอา End If ออก กดปุ่ม Record ที่ชีท Form ก็ไม่ทำงานเลยค่ะ

[snasui]

การลบ End If ออกไปอย่างเดียวย่อมทำงานไม่ได้ ถูกต้องแล้วครับ เพราะว่ามีการเขียน Exit Sub ซึ่งแปลว่าให้ออกจาก Procedure (ออกจากการ Run Code) เอาไว้ก่อนหน้านั้น

ปกติ Exit Sub จะเขียนเอาไว้ภายใต้เงื่อนไขใด ๆ ไม่ใช่เขียนขึ้นมาลอย ๆ ยกตัวอย่างเช่น ถ้าผู้ใช้ไม่เติมค่าใน A1 ก็ให้ Exit Sub ซึ่งคำว่าถ้าหมายถึงว่าต้องมี If เข้ามาช่วยดักจับเงื่อนไข ถ้าเข้าเงื่อนไขจึงออกจาก Procedure เช่นนี้เป็นต้น

[suka]

ขอรบกวนช่วยเรื่อง Code นี้ค่ะ ว่ามีส่วนใดเกินหรือส่วนใดขาดน่ะค่ะ เพื่อใช้สำหรับแก้ปัญหาด้านล่างนี้กับไฟล์แนบค่ะ
ขอบคุณค่ะ

ขอรบกวนเรื่องปรับสูตรเพิ่มค่ะ

ไฟล์แนบที่ชีท Form จากเดิมเลือกวันที่เริ่มต้นเซลล์ B1 และวันที่สิ้นสุดเซลล์ D1

ให้สูตรเรียกเพิ่มเป็น

เลือกวันที่เริ่มต้นเซลล์ B1 และวันที่สิ้นสุดเซลล์ D1 และเลือกกลุ่มเอกสารที่เซลล์ E1 ค่ะ

ขอบคุณค่ะ

Code: Select all

    With Sheets("Form")
        Set rSource = .Range("G1")
    End With
    With Sheets("Database")
        Set rTarget = .Range("F2", .Range("F" & Rows.Count).End(xlUp))
    End With
    With Sheets("Form")
        Set rSource = .Range("E1")
    End With
    With Sheets("Database")
        Set rTarget = .Range("C2", .Range("F" & Rows.Count).End(xlUp))
    End With
    With Sheets("Form")
     i = (.Range("A3") > .Range("A2"))
    End With
    With Sheets("Database")
        Set rTarget = .Range("E2", .Range("E" & Rows.Count).End(xlUp))
    End With

[snasui]

หากต้องการใช้ VBA ควรจะทราบได้เองครับว่า Code ดังกล่าวมีความมุ่งหมายอะไร

Code ที่นำมาถามควรเป็น Code ที่ใช้สำหรับการทำงานใด ๆ แล้วติดขัดหรือไม่ได้ผลลัพธ์ตามต้องการ

Code ที่เขียนมาด้านบนนั้น ทราบหรือไม่ว่าแต่ละบรรทัดมีความหมายว่าอย่างไรบ้างและเขียนเพื่อจุดประสงค์ใดครับ

[suka]

ขออภัยค่ะอาจารย์ ลองจนมึนน่ะค่ะ ยังไม่ได้ไว้ลองใหม่ค่ะ

[suka]

ขอถามค่ะ Code ด้านล่างนี้ค่ะ ถ้า r = 1 ให้นับทางขวา 1 คอลัมน์ ถ้า r = 2 ให้นับทางขวา 2 คอลัมน์ ได้เท่านี้ค่ะ มีต่อด้วย = 3 then
next r ทั้งหมดนี้หมายถึงอะไรคะ

Code: Select all

if r = 1 and r.offset(0,1) = 2 and r.offset(0,2) = 3 then
next r

[snasui]

สำหรับความหมายของ code ตามที่ถามมาคือด้านล่างครับ

ถ้า r มีค่าเท่ากับ 1 และ
ค่าถัดไปด้านขวาของ r 1 คอลัมน์มีค่าเท่ากับ 2 และ
ค่าถัดไปด้านขวาของ r 2 คอลัมน์มีค่าเท่ากับ 3 แล้ว

ส่วน Next r คือ r ตัวถัดไป

If คือ ถ้า
and คือ และ
then คือ แล้ว
next คือ ถัดไป

[suka]

ค่ะอาจารย์ Code ด้านล่างนี้ความหมายของ Code เป็นอย่างไรคะ ถ้าค่าในเซลล์ a1:a10 มีค่าเท่ากับ 1 ค่าถัดไปเป็นคอลัมน์ B หรือ C คะนับไม่ถูกค่ะ และมีตรง next r หมายถึงตัวช่วยเพิ่มค่าให้ใช่ไหมคะ

Code: Select all

dim rall as range, r as range
set rall = range("a1:a10")
for r in rall
if r = 1 and r.offset(0,1) = 2 and r.offset(0,2) = 3 then
next r

[snasui]

ปกติการ Loop ด้วย For ก็เพื่อให้เข้าถึงสมาชิกแต่ละตัวของ Collection ครับ

set rall = range("a1:a10") หมายถึงกำหนดให้ rall เป็นช่วงข้อมูล a1:a10
for each r in rall เป็นการเป็นการเข้าถึงสมาชิกแต่ละตัวของ rall
if r = 1 and r.offset(0,1) = 2 and r.offset(0,2) = 3 then หมายถึง ถ้า a1 มีค่าเท่ากับ 1 และ b1 มีค่าเท่ากับ 2 และ c1 มีค่าเท่ากับ 3 แล้ว
... <== ตรงนี้จะต้องเขียนคำสั่งให้ทำอย่างใดอย่างหนึ่งก่อนจะไปยัง r ตัวถัดไป
next r หมายถึงไปยัง r ตัวถัดไป ซึ่งก็คือ a2 จนถึง a10

[suka]

ขอบคุณอาจารย์มากๆค่ะ

[suka]

เรียนถามอาจารย์และท่านผู้รู้ค่ะ
ชีท Database เซลล์ C2:C13 เก็บข้อมูลกลุ่มเอกสาร
ชีท Form เซลล์ E1 ต้องการเรียกกลุ่มเอกสาร
Code แบบด้านล่างนี้ได้ไหมคะ

Code: Select all

With Worksheets("Form") .Range("E1")
    With Worksheets("Database")
    Set rall = .Range("C2:C13")

[snasui]

ช่วยอธิบายว่าแต่ละบรรทัดต้องการจะทำอะไรครับ

การเขียน Code ควรเขียนมาให้ครบ ยกตัวอย่างเช่น ถ้าเปิดด้วย With ก็ต้องปิดด้วย End With เสมอครับ

[suka]

ค่ะอาจารย์ ไม่ทราบเข้าใจถูกต้องหรือไม่ค่ะ ว่าก่อนใช้ Code ด้านล่างนี้

ปกติการ Loop ด้วย For ก็เพื่อให้เข้าถึงสมาชิกแต่ละตัวของ Collection ครับ

set rall = range("a1:a10") หมายถึงกำหนดให้ rall เป็นช่วงข้อมูล a1:a10
for each r in rall เป็นการเป็นการเข้าถึงสมาชิกแต่ละตัวของ rall
if r = 1 and r.offset(0,1) = 2 and r.offset(0,2) = 3 then หมายถึง ถ้า a1 มีค่าเท่ากับ 1 และ b1 มีค่าเท่ากับ 2 และ c1 มีค่าเท่ากับ 3 แล้ว
... <== ตรงนี้จะต้องเขียนคำสั่งให้ทำอย่างใดอย่างหนึ่งก่อนจะไปยัง r ตัวถัดไป
next r หมายถึงไปยัง r ตัวถัดไป ซึ่งก็คือ a2 จนถึง a10

เมื่อต้องการให้ Code ทำงานตามด้านล่างนี้

ขอรบกวนเรื่องปรับสูตรเพิ่มค่ะ

ไฟล์แนบที่ชีท Form จากเดิมเลือกวันที่เริ่มต้นเซลล์ B1 และวันที่สิ้นสุดเซลล์ D1

ให้สูตรเรียกเพิ่มเป็น

เลือกวันที่เริ่มต้นเซลล์ B1 และวันที่สิ้นสุดเซลล์ D1 และเลือกกลุ่มเอกสารที่เซลล์ E1 ค่ะ

ขอบคุณค่ะ

ต้องใส่วันที่เริ่มต้นและวันที่สิ้นสุดและตัวเลือกเอกสาร ให้ Code ก่อนไหมคะ
ชีท Form วันที่เริ่มต้น เซลล์ B1 วันที่สิ้นสุดเซลล์ D1 เลือกกลุ่มเอกเซลล์ E1 รหัสร้านค้า G1 ค่ะ เพื่อทราบว่าถูกหรือไม่อยากให้อาจารย์ดูก่อนค่ะ

Code: Select all

With ActiveSheet
    i = (.Range("D1") - .Range("B1")) * 1 + 1
    If i < 0 Then
        MsgBox "Please check date."
        Exit Sub
    End If
    End With
    With Sheets("Form")
        Set rSource = .Range("E1")
    End With
    With Sheets("Database")
    Set rall = .Range("C2")
    End With
    With Sheets("Form")
        Set rSource = .Range("G1")
    End With
    With Sheets("Database")
    Set rall = .Range("F2")
    End With