Excel Forum

Posted: **Fri Apr 25, 2014 10:54 am**

ผมติดปัญหาคือ

ผมต้องการให้จำนวนวัสดุลด เมื่อมีการจ่ายออก และจำนวนวัสดุเพิ่มเมื่อมีการนำเข้า

ผมมีไฟล์ที่เป็นข้อมูลสต๊อกสินค้า มีสว่านอยู่ 10 เครื่อง

เมื่อผมกรอกข้อมูลเพื่อจะเอาของออก ใส่จำนวนไป 5 เครื่อง

ในสต๊อกสินค้า สว่าน จะต้องเหลืออยู่ 5 เครื่อง

และเมื่อผมนำ สว่าน กลับมาหมด

ในสต๊อกสินค้า สว่าน จะต้องมีทั้งหมด 10 เครื่อง

ผมอยากจะทราบวิธีการเขียนครับ

Code: Select all

Private Sub CommandButton1_Click()

Sheet7.Activate
Dim rg As Range

Set rg = ActiveSheet.Columns(3).Find(TextBox1.Value)


If TextBox1.Text = "" Then
    
    MsgBox "¡ÃØ³Ò¡ÃÍ¡¢éÍÁÙÅ", 0, "¡ÃØ³Ò¡ÃÍ¡¢éÍÁÙÅ"

ElseIf rg Is Nothing Then

    MsgBox "ID not found"

Else
 MsgBox rg.Address

Sheet6.Activate
Do
    r = r + 1
    Loop Until Cells(r, 1) = ""
    Cells(r, 1) = r - 1
    Cells(r, 2) = TextBox5.Value
    Cells(r, 3) = TextBox1.Text
    Cells(r, 4) = ComboBox1.Text
    Cells(r, 5) = tb2.Value - num
    Cells(r, 6) = ComboBox2.Text
    Cells(r, 7) = TextBox3.Text
    
    End If

End Sub

Posted: **Fri Apr 25, 2014 3:55 pm**

เป็นตัวอย่างหาสต็อกคงเหลือครับ
http://msdn.microsoft.com/en-us/library ... 11%29.aspx

Code: Select all

Private Sub CommandButton1_Click()
 With Worksheets(7).Range("c1:c" & Cells(Rows.Count, 3).End(xlUp).Row)
    Set c = .Find(TextBox1.Text, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
           qty = qty + c.Offset(0, 2).Value
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
     '   qty = qty - tb2.Value
        MsgBox "Stock :  " & qty & "-" & tb2.Value & "= " & qty - tb2.Value
    End If
  End With
End Sub

Posted: **Fri Apr 25, 2014 4:12 pm**

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

ถ้าผลออกมาเป็นยังไงจะมาแจ้งให้ทราบนะครับ

Posted: **Fri Apr 25, 2014 4:14 pm**

tupthai wrote:

เป็นตัวอย่างหาสต็อกคงเหลือครับ
http://msdn.microsoft.com/en-us/library ... 11%29.aspx

Code: Select all

Private Sub CommandButton1_Click()
 With Worksheets(7).Range("c1:c" & Cells(Rows.Count, 3).End(xlUp).Row)
    Set c = .Find(TextBox1.Text, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
           qty = qty + c.Offset(0, 2).Value
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
     '   qty = qty - tb2.Value
        MsgBox "Stock :  " & qty & "-" & tb2.Value & "= " & qty - tb2.Value
    End If
  End With
End Sub

ช่วยอธิบายโค้ดได้ไหมครับ

เพราะว่าผมเป็นมือใหม่นะครับ

ถ้าได้จะดีมากเลยครับ

Posted: **Fri Apr 25, 2014 4:44 pm**

มัน Error ครับ

With Worksheets(7).Range("c1:c" & Cells(Rows.Count, 3).End(xlUp).Row)

ตรง Rows.count ของผมมันเท่ากับ 100,000+ เลยครับ

แล้วก็ตรง end(xlUp).row ของผมมันเท่ากับ -4000+ ครับ

Posted: **Fri Apr 25, 2014 5:13 pm**

ลองอีกทีครับ

Code: Select all

Private Sub CommandButton1_Click()
Sheet7.Activate
lastrow = Cells(Rows.Count, 3).End(xlUp).Row
 With Range("c1:c" & lastrow)
    Set c = .Find(TextBox1.Text, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
           qty = qty + c.Offset(0, 2).Value
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
     '   qty = qty - tb2.Value
        MsgBox "Stock :  " & qty & "-" & tb2.Value & "= " & qty - tb2.Value
    End If 
  End With
End Sub

Posted: **Fri Apr 25, 2014 5:20 pm**

tupthai wrote:

ลองอีกทีครับ

Code: Select all

Private Sub CommandButton1_Click()
Sheet7.Activate
lastrow = Cells(Rows.Count, 3).End(xlUp).Row
 With Range("c1:c" & lastrow)
    Set c = .Find(TextBox1.Text, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
           qty = qty + c.Offset(0, 2).Value
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
     '   qty = qty - tb2.Value
         MsgBox "Stock :  " & qty & "-" & tb2.Value & "= " & qty - tb2.Value
    End If 
  End With
End Sub

มันติดตรง Msgbox ครับ มันบอก Type mismatch

Posted: **Fri Apr 25, 2014 5:35 pm**

ลองดูในไฟล์แนบครับ

Posted: **Fri Apr 25, 2014 5:38 pm**

ได้แล้วครับขอบคุณมากครับ

คงเหนื่อยน่าดูเลย ขอโทษด้วยนะครับ

ผมไม่เข้าใจจริงๆ

Posted: **Fri Apr 25, 2014 6:48 pm**

tupthai wrote:ลองดูในไฟล์แนบครับ

มีเรื่องให้ช่วยอีกแล้วครับ

นั่งงมตั้งนาน

คือ 1. ผมต้องการให้ค่าที่ใส่ในช่องจำนวน ลงไปใน เซลจำนวน

ตรงเครื่องหมาย ??? ผมควรจะใส่โค้ดอะไรครับให้มันรู้ตำแหน่ง

Code: Select all

Private Sub CommandButton1_Click()
Sheet7.Activate
lastrow = Cells(Rows.Count, 3).End(xlUp).Row
 With Range("c1:c" & lastrow)
    Set c = .Find(TextBox1.Text, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstaddress = c.Address
        Do
           qty = qty + c.Offset(0, 2).Value
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress
        'qty = qty - tb2.Value
        'MsgBox "Stock :  " & qty & "-" & tb2.Value & "= " & tb2.Value - gty
        
        Cells(???, 5) = gty - tb2.Value
    End If
    End With
End Sub

Posted: **Fri Apr 25, 2014 6:59 pm**

ต้องการไว้ชีทไหน แถวไหนครับ

Posted: **Fri Apr 25, 2014 7:09 pm**

ถ้าต้องการต่อจากแถวสุดท้าย ของชีท 7
ใช้

Code: Select all

Cells(lastrow+1, 5) = gty - tb2.Value

Posted: **Sat Apr 26, 2014 7:47 am**

คือผมอยากรู้ว่า

สมมุติว่า รายการ aaa

ถ้าเราเลือก aaa มันจะอยู่ row ที่เท่าไหร่

ถ้าเราเลือก sss มันจะอยู่ row ที่เท่าไหร่

เพราะว่าผมจะให้มันไปเปลี่ยนจำนวนสินค้าครับ Cells(???, 5) = gty - tb2.value

ตรง 5 นี้ คือแถวที่ชื่อว่าจำนวน แต่ผมไม่รู้ว่าแถว aaa มันอยู่ row ที่เท่าไหร่

Posted: **Sat Apr 26, 2014 8:16 am**

ความเป็นไปได้ รายการ aaa จะมีแค่ 1 รายการหรือหลายรายการครับ

Posted: **Sat Apr 26, 2014 10:10 am**

มีอยากอื่นที่เราจะติดต่อกันง่ายกว่านี้ไหมครับ

พอดีว่าผมไม่เข้าใจจริงๆ

แล้วงานก็เร่งด้วย

ผมจะบ้าตาย

Posted: **Sat Apr 26, 2014 10:18 am**

คุณควรตอบตามที่คุณ tubthai ถาม จะได้ช่วย Clear เป็นลำดับไปได้

ค่าที่คุณหานั้นเป็นเพียงค่าเดียว หรือ มีหลายค่า การที่มีค่าเดียวกับมีหลายค่าจะใช้ Code ต่างกัน หากมีหลายค่าจะต้อง Loop เข้าไปจัดการทุกค่า

การหาค่าเดียวสามารถใช้ฟังก์ชั่น Match เข้ามาช่วยได้ เช่น

Code: Select all

x = application.match(aaa,sheets(1).range("a:a"),0)

x คือลำดับที่ พบ aaa ใน คอลัมน์ A ของ sheet ที่ 1

Posted: **Sat Apr 26, 2014 11:15 am**

aaa จะมีแค่หนึ่งรายการครับ

Posted: **Sat Apr 26, 2014 11:37 am**

Code: Select all

Private Sub CommandButton1_Click()
Sheet7.Activate
lastrow = Cells(Rows.Count, 3).End(xlUp).Row
 With Range("c1:c" & lastrow)
    Set c = .Find(TextBox1.Text, LookIn:=xlValues)
    If Not c Is Nothing Then
        c.Offset(0, 2).Value = c.Offset(0, 2).Value - tb2.Value
     End If
  End With
End Sub

Posted: **Sat Apr 26, 2014 12:26 pm**

ขอบคุณมากครับได้แล้ว

T^T ผมซึ้งใจคนในนี้จริงๆเลย

Posted: **Sat Apr 26, 2014 1:13 pm**

Code: Select all

Private Sub CommandButton1_Click()
Sheet7.Activate
lastrow = Cells(Rows.Count, 3).End(xlUp).Row
 With Range("c1:c" & lastrow)
    Set c = .Find(TextBox1.Text, LookIn:=xlValues)
    If tb2.Text = "" Then
    
    MsgBox "¡ÃØ³Ò¡ÃÍ¡¨Ó¹Ç¹"
    
    ElseIf tb2.Value > c.Offset(0, 2).Value Then
    
    MsgBox c.Offset(0, 2).Value
    MsgBox tb2.Value
    'ElseIf c.Offset(0, 2).Value <= 0 Then
    
    'MsgBox "ËÁ´"
    
    'ElseIf c.Offset(0, 2) >= tb2.Value Then
        
        'c.Offset(0, 2).Value = c.Offset(0, 2).Value - tb2.Value
     End If
  End With
End Sub

ทำไมมันถึงวิ่งเข้า elseif tb2.value > c.offset(0, 2).value then

ในเมื่อ tb2.value มีค่าน้อยกว่า c.offset(0, 2).value ล่ะครับ???

เช่นในเซลจำนวนมี 400 ผมกรอกไป 50 มันก็วิ่งเข้าelseif ตัวนั้นครับ

Excel Forum

อยากทราบวิธีการคำนวนข้าม sheet VBA

อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA

Re: อยากทราบวิธีการคำนวนข้าม sheet VBA