:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

Expand view Topic review: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#26

by suka » Sat Mar 23, 2013 12:10 pm

ขอบคุณค่ะอาจารย์ จะพยายามศึกษาการใช้ VBA ให้เข้าใจมากขึ้นค่ะ

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#25

by snasui » Sat Mar 23, 2013 11:22 am

:D ถ้าเขียน VBA ได้ก็ไม่จำเป็นที่จะต้องเขียนสูตรลักษณะนั้นครับ เพราะ VBA สามารถเขียนอย่างไรก็ได้

การใช้ VBA ข้อจำกัดอยู่ที่ผู้ใช้ครับ ไม่ใช่ติดว่าต้นแหล่งเป็นอะไร ต้นแหล่งเป็นอย่างไร

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#24

by suka » Sat Mar 23, 2013 11:18 am

การนำข้อมูลจากไฟล์อื่นมาต่อกันโดยใช้สูตร Excel ตามลิงค์นี้ http://snasui.blogspot.com/2009/12/sheet-sheet.html มาปรับใช้

กับการใช้ VBA บันทึกข้ามชีท มีผลต่างกันไหมคะ

อยากขอความรู้เรื่องข้อควรระวังทั้งการใช้ สูตร Excel และ การใช้ VBA ค่ะ

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#23

by snasui » Fri Mar 22, 2013 8:14 pm

:D สามารถนำข้อมูลจากไฟล์อื่นมาต่อกันได้แต่จะต้องเปิดไฟล์ต้นทางไว้ด้วยทุกครั้งครับ

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#22

by suka » Fri Mar 22, 2013 8:09 pm

:thup: ได้ตรงตามต้องการแล้วค่ะ ขอบคุณอาจารย์มากๆเลยค่ะ

ขอรบกวนถามเพิ่มนะคะ
ที่ชีท Sheet5 สูตรการนำข้อมูลจากหลาย Sheet มาต่อกันใน Sheet เดียว
หากเราต้องการนำข้อมูลจากไฟล์อื่นๆมาต่อด้วยจะได้ไหมค่ะ
Attachments
Bill.2.xls
(226 KiB) Downloaded 14 times

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#21

by snasui » Fri Mar 22, 2013 7:41 pm

:shock: Code ที่เขียนมาไม่มี End Sub ช่วยเขียนให้ครบแล้วแนบมาใหม่หากยังติดปัญหา

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

Code: Select all

'Other code
ElseIf Sheets("Database").Range("A2") = 1 Then
        .Range("N204") = .Range("N204") + 1
'Other code

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#20

by suka » Fri Mar 22, 2013 7:08 pm

อาจารย์คะ ใช้โค๊ดตามล่างด้างนี้ยังเกิด error ค่ะ
ความต้องการ หากค่าเซลล์ A2 ชีท Database เป็น 1 ให้เซลล์ N204 ชีท Enterthedata บวก 1 ค่ะ
ขอรบกวนอีกรอบนะคะ

Code: Select all

Sub PasteData()
Dim i As Integer
Dim rs As Range
Dim rt As Range
    Application.ScreenUpdating = False
    i = Worksheets("Enterthedata").Range("C225")
    With Worksheets("Template")
        Set rs = .Range(.Range("A2"), .Range("AC" & i + 1))
    End With
    Set rt = Worksheets("Database").Range("A65536").End(xlUp).Offset(1, 0)
    If Worksheets("Enterthedata").Range("C225") = True Then
        MsgBox "Please check your data. This transaction already recorded."
        Exit Sub
    End If
    If Worksheets("Enterthedata").Range("B204") = "" Then
        MsgBox "Your data is empty. Fill your data and click record button again."
        Exit Sub
    End If
    rs.Copy: rt.PasteSpecial xlPasteValues

    Application.CutCopyMode = False
    Sheets("Enterthedata").Range("D2,B204:B220,D204:D220,L204:L220,D222, E204:F220").ClearContents
With Worksheets("Enterthedata")
    If Len(.Range("M2")) = 6 Then
        .Range("M2") = Left(.Range("M2"), 2) & Right(.Range("M2"), 4) + 1
    ElseIf Len(.Range("M2")) = 7 Then
        .Range("M2") = Left(.Range("M2"), 1) & Right(.Range("M2"), 6) + 1
    ElseIf .Range("A2") = 1 Then
        .Range("N204") = .Range("N204") + 1
    Else
        .Range("M2") = .Range("M2") + 1
    End If
End With
Attachments
Bill.2.xls
(222.5 KiB) Downloaded 14 times

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#19

by snasui » Fri Mar 22, 2013 5:24 pm

:D ผมก็คิดว่ายังไม่ใช่อยู่ดีครับ การเขียนเงื่อนไขพ่วงเข้าไปในเงื่อนไขอื่น ๆ ลักษณะที่ถามมานั้นต้องเป็นเงื่อนไขที่ต่อเนื่องกัน ถ้าแยกจากกันชัดเจนก็ให้เขียนต่างหาก ซึ่งจะไม่ใช่ตามด้านล่างที่เขียนพ่วงเข้าด้วยกัน

จากที่พยายามอธิบายมาเขียนได้เป็นด้านล่างครับ

Code: Select all

    With Worksheets("Enterthedata")
        If Len(.Range("M2")) = 6 Then
            .Range("M2") = Left(.Range("M2"), 2) & Right(.Range("M2"), 4) + 1
        ElseIf Len(.Range("M2")) = 7 Then
            .Range("M2") = Left(.Range("M2"), 1) & Right(.Range("M2"), 6) + 1
        ElseIf .Range("A2") = 1 Then
            .Range("N204") = .Range("N204") + 1
        Else
            .Range("M2") = .Range("M2") + 1
        End If
    End With
กรณีเช่นนี้จะกระทบกับ M2

เงื่อนไขใน Code ด้านบน
  1. หากนับ M2 แล้วมีค่าเป็น 6 ให้นำค่าด้านซ้ายสุดของ M2 มา 2 อักขระเชื่อมกับอักขระ 4 ตัวท้ายของ M2 บวกด้วย 1 หากไม่เข้าเงื่อนไขให้ตรวจสอบเงื่อนไขในข้อ 2
  2. หากนับ M2 แล้วมีค่าเป็น 7 ให้นำค่าด้านซ้ายสุดของ M2 มา 1 อักขระเชื่อมกับอักขระ 6 ตัวท้ายของ M2 บวกด้วย 1 หากไม่เข้าเงื่อนไขให้ตรวจสอบเงื่อนไขในข้อ 3
  3. หากค่า A2 เป็น 1 ให้บวก N204 ด้วย 1 หากไม่เข้าเงื่อนไขให้ทำตามข้อ 4
  4. นอกจากเงื่อนไขข้างต้นทั้งหมด ให้บวก M2 ด้วย 1
จะเห็นว่าเป็นสิ่งจำเป็นอย่างยิ่งที่จะต้องทราบว่า เราต้องการบวก N204 เข้าไปเมื่อใด หรือด้วยเงื่อนไขใด เพื่อให้ได้ผลลัพธ์ตามต้องการ

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#18

by suka » Fri Mar 22, 2013 5:06 pm

ขอโทษค่ะอาจารย์ เกิดการงงมากไปค่ะ
ต้องการเพิ่มค่า N204 ด้วยเงือนไขที่ชีท Database เซลล์ A2 มีค่า 1 ค่ะ ขอบคุณค่ะ

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#17

by snasui » Fri Mar 22, 2013 4:39 pm

:lol: เป็นอันว่าผมขอยอมแพ้ปัญหานี้ครับ

ใน N205 ผมไม่เจอว่ามีค่าใด ๆ อยู่เลย สำหรับค่าเริ่ม 1 ที่บอกมาก็ไม่ใช่เงื่อนไข ส่วนเงื่อนไขคืออะไรผมก็แจ้งไปเป็นตัวอย่างแล้ว :roll:

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#16

by suka » Fri Mar 22, 2013 4:34 pm

ขออภัยค่ะอาจารย์ลืมโพสต์ว่าชีทไหนค่ะ
เป็นชีท Enterthedata เซลล์ N205 ค่าเริ่ม 1 ค่ะ ขอบคุณค่ะ

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#15

by snasui » Fri Mar 22, 2013 4:23 pm

:D N205 ของชีทไหน เนื้อหาในเซลล์เป็นข้อความว่าอย่างไร โพสต์แจ้งไว้ด้วยครับ

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#14

by suka » Fri Mar 22, 2013 4:07 pm

อ่อค่ะอาจารย์ ดูที่เซลล์ N205 ค่ะ ขอบคุณค่ะ

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#13

by snasui » Fri Mar 22, 2013 3:34 pm

:lol: นั่นไม่ใช่เงื่อนไขครับ ผมต้องการทราบเพียงว่าเราต้องการเพิ่ม N204 ด้วยเงือนไขใด

ตัวอย่างเช่น หากเซลล์ A1 มีค่าเท่ากับ 2 แล้วให้บวก N204 ไปอีก 1 เช่นนี้เป็นต้น เพื่อจะได้เขียน Code ด้วยเงื่อนไขนั้น ๆ ได้

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#12

by suka » Fri Mar 22, 2013 3:30 pm

snasui wrote: โดย snasui » 22 มี.ค. 2013 14:31
:D ช่วยอธิบายว่าเราต้องการเพิ่มค่า N204 ด้วยเงื่อนไขใดครับ
อธิบายว่า เหตุที่ทำมาจาก Sheet5 เซลล์ A2 ค่ะอาจารย์

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#11

by snasui » Fri Mar 22, 2013 3:27 pm

:shock: อ่านแล้วไม่เคลียร์ครับ อันนี้เกี่ยวกับเงื่อนไขการเพิ่ม N204 ด้านบน :roll: หรือไม่ครับ :?:

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#10

by suka » Fri Mar 22, 2013 3:24 pm

ค่ะอาจารย์ กำลังศึกษาตามลิงค์ด้างล่างนี้ค่ะ การนำข้อมูลจากหลาย Sheet มาต่อกันใน Sheet เดียว
ทดสอบดูเผื่อว่าจะช่วยให้คิดหาวิธีทำโปรแกรมเพื่อตัดวัตถุดิบได้ค่ะ อยากได้โปรแกรม ตัด สต๊อก วัตถุดิบ แต่เริ่มต้นไม่ถูกค่ะ
http://snasui.blogspot.com/2009/12/sheet-sheet.html

แนบไฟล์ตัวอย่างที่ Sheet5 ทดลองตามลิงค์ค่ะ
ซึ่ง หาวิธีทำมานานลองมามาหลายแบบแล้วค่ะ ไม่สำเร็จค่ะ
Attachments
Bill.2.xls
(222.5 KiB) Downloaded 14 times

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#9

by snasui » Fri Mar 22, 2013 2:58 pm

:lol: ช่วยตอบตามที่ผมถามดีกว่าครับ :ard:
snasui wrote:ช่วยอธิบายว่าเราต้องการเพิ่มค่า N204 ด้วยเงื่อนไขใดครับ

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#8

by suka » Fri Mar 22, 2013 2:55 pm

ลองปรับโค๊ดแล้ว error ตามรูปที่แนบมาค่ะ
Attachments
error.JPG
error.JPG (80.92 KiB) Viewed 4186 times

Re: ต้องการเพิ่มโค๊ด VBA รันตัวเลขเพิ่มอีกหนึ่งชุดค่ะ

#7

by snasui » Fri Mar 22, 2013 2:31 pm

:D ช่วยอธิบายว่าเราต้องการเพิ่มค่า N204 ด้วยเงื่อนไขใดครับ

จากด้านล่าง ซึ่งไม่ถูกต้อง

Code: Select all

    With Worksheets("Enterthedata")
        If Len(.Range("M2")) = 6 Then
            .Range("M2") = Left(.Range("M2"), 2) & Right(.Range("M2"), 4) + 1
        ElseIf Len(.Range("M2")) = 7 Then
            .Range("M2") = Left(.Range("M2"), 1) & Right(.Range("M2"), 6) + 1
        Else '<== ต้องเป็น ElesIf
            .Range("M2") = .Range("M2") + 1
        End If '<== ต้องเป็น Else
            .Range("N204") = .Range("N204") + 1
        End If
    End With

Top