: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
🪷 คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ

ขอคำปรึกษา เเละคำเเนะนำครับ

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: ขอคำปรึกษา เเละคำเเนะนำครับ

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#25

by snasui » Wed Jun 08, 2011 12:47 pm

:D
liveday wrote:1.สินค้าผมเเบ่งเป็น 2 ประเภท เป็นสินค้าทาง GP เเละ GS
ผมเลยต้องการเเยกสินค้าใน Database ออกมาโดยเเบ่งออกไปตาม สินค้าของ GP เเละ GS เพื่อต้องการคำนวนว่าในเเต่ละเดือน เเต่ละที่ว่าขายสินค้าเเต่ละอย่างไปเท่าไหร่
ส่วน Countif คีย์ใว้ที่ B3
ใน Database ควรรวมสินค้าทุกประเภทไว้ด้วยกันครับ การนำไปใช้ค่อยดึงไปเฉพาะค่าหรือสินค้าที่ตรงตามเงื่อนไขไปใช้ได้ ไม่ว่าจะสรุปข้อมูลเป็นจำนวนนับหรือผลรวมก็สามารถทำได้ง่าย ๆ ด้วย PivotTable ครับ

ส่วน Countif ที่ว่านี้อยู่ในชีท Total ใช่หรือไม่ครับ หากใช่ ไม่ทราบว่าเงื่อนไขการดึงข้อมูลเป็นอย่างไร สำหรับการสรุปข้อมูลเราสามารถใช้ PivotTable สรุปรายงานจาก Database แทนการใช้สูตรได้ครับ
liveday wrote:2.(ที่ชีท Template เซลล์ K1 เขียนสูตร =COUNTIF(J:J,"*?")) เกี่ยวโยงอะไรกับสูตร VBA หรือเปล่าครับ บางทีผมจะเอาโค้ดของอาจารย์ ไปทำเเบบฟอร์มตัวอื่นดูครับ ขอคำเเนะนำด้วยนะครับ
เกี่ยวกับ VBA ครับ ผมใช้นับว่าปัจจุบันมีค่าที่ต้องการนำไปวางใน Database กี่รายการ สูตรดังกล่าวเป็นการนับเฉพาะเซลล์ที่มีค่าอักขระใด ๆ ไม่รวมอักขระที่แสดงค่าว่าง ซึ่งจะนำไปใช้ใน Code ด้านล่างครับ

Code: Select all

With Worksheets("Template")
    Set rs = .Range("A2", .Range("J" & .Range("K1")))
End With

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#24

by liveday » Wed Jun 08, 2011 10:14 am

เรียนอาจารย์
1.สินค้าผมเเบ่งเป็น 2 ประเภท เป็นสินค้าทาง GP เเละ GS
ผมเลยต้องการเเยกสินค้าใน Database ออกมาโดยเเบ่งออกไปตาม สินค้าของ GP เเละ GS เพื่อต้องการคำนวนว่าในเเต่ละเดือน เเต่ละที่ว่าขายสินค้าเเต่ละอย่างไปเท่าไหร่
ส่วน Countif คีย์ใว้ที่ B3
2.(ที่ชีท Template เซลล์ K1 เขียนสูตร =COUNTIF(J:J,"*?")) เกี่ยวโยงอะไรกับสูตร VBA หรือเปล่าครับ บางทีผมจะเอาโค้ดของอาจารย์ ไปทำเเบบฟอร์มตัวอื่นดูครับ
ขอคำเเนะนำด้วยนะครับ
ขอบคุณครับ
Attachments
FR_063_060654.xlsm
(42.62 KiB) Downloaded 11 times

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#23

by snasui » Tue Jun 07, 2011 10:07 pm

:D
liveday wrote:1.Code VBA ผมจะบันทึก 10 บรรทัดเเต่ Codeบันทึกใด้เเค่ 2 บรรทัดครับ ต้องเเก้ส่วนไหนเพิ่มเติมครับ
ที่ชีท Template เซลล์ K1 เขียนสูตร

=COUNTIF(J:J,"*?")

Enter

จากนั้นเปลี่ยน Code ใหม่เป็นตามด้านล่างครับ

Code: Select all

Sub PasteData()
Dim rs As Range
Dim rt As Range
With Worksheets("Template")
    Set rs = .Range("A2", .Range("J" & .Range("K1")))
End With
    Set rt = Worksheets("Database").Range("B65536").End(xlUp).Offset(1, -1)
    rs.Copy
    rt.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Finish."
End Sub
liveday wrote:2.จากรายการสินค้าที่ Database จะเเยกสินค้าออกมาเป็น 2 ที่ใด้หรือเปล่าครับ
3.ผมใด้ทำ COUNTIF ใว้เป็นการรวบรวมเพื่อจะส่งรายงานครับ เเต่ยัง Error อยู่
ไม่เข้าใจครับ ช่วยอธิบายเพิ่มเติมด้วยครับ แยกเป็นสองที่แยกอย่างไร ไปไว้ที่ไหน ส่วน Countif ที่ว่านั้นอยู่ที่ชีทไหน เซลล์ไหน

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#22

by liveday » Tue Jun 07, 2011 4:37 pm

รบกวนอาจารย์ อีกครับ
ผมใด้ลองศึกษาเเละ Coppy ดัดเเปลง Code บางส่วนซึ่งลองเทสดูเเล้วบางฟอร์มก็ผ่าน บางฟอร์มก็ไม่ผ่าน
อาจจะเกิดหลายๆอย่างที่ไม่ตรงกันในตัวโค้ด VBA เเต่ก็พยายามทำใด้ในบางส่วนใด้บ้างเเล้ว
เช่น ฟอร์มนี้ผมลองไล่ Code ดู มันก็ไปบันทึกใน database เเค่ 2 บรรทัดเอง
สิ่งที่จะทำในฟอร์มนี้ คือการบันทึก Database เพื่อรวบรวมรายชื่อสินค้าทั้งหมดเป็นรายวันเเละรวบรวมส่งรายงานเป็นรายเดือน
จะถามอาจารย์ ดังนี้ครับ
1.Code VBA ผมจะบันทึก 10 บรรทัดเเต่ Codeบันทึกใด้เเค่ 2 บรรทัดครับ ต้องเเก้ส่วนไหนเพิ่มเติมครับ
2.จากรายการสินค้าที่ Database จะเเยกสินค้าออกมาเป็น 2 ที่ใด้หรือเปล่าครับ
3.ผมใด้ทำ COUNTIF ใว้เป็นการรวบรวมเพื่อจะส่งรายงานครับ เเต่ยัง Error อยู่
รบกวนอาจารย์ด้วยครับ
Attachments
FR_063_060654.xlsm
(41.19 KiB) Downloaded 7 times

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#21

by liveday » Fri Apr 22, 2011 12:58 pm

ขอบคุณอาจารย์มากครับ จะลองศึกษาดูอีกทีนะครับ

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#20

by snasui » Fri Apr 22, 2011 11:57 am

:D Code อยู่ที่ Module1 ครับ

อันเดิมที่ว่านี้อยู่ที่ไหนครับ ถ้าไม่ใช่ที่ Module1 ให้ลบทิ้งไปครับ เว้นเสียว่าจะใช้งานอย่างอื่น ผมพบว่าอยู่ใน ThisWorkBook ด้วย ไม่แน่ใจว่าผมเขียนมาให้แล้ววางผิดที่หรือไม่ ให้ลบทิ้งไปด้วยครับ

ส่วนจะบันทึกกี่บรรทัดก็ใส่ข้อมูลเข้าไปตามต้องการ ลองบันทึก สังเกตดูผลครับ Code ที่เขียนมาให้นี้ได้ปรับเรื่องบรรทัดให้แล้วครับ

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#19

by liveday » Fri Apr 22, 2011 11:47 am

รบกวนอาจารย์ครับ
คือ เเล้ว สูตรของอาจารย์ดูใด้ตรงไหนหรือครับ พอดีผมเปิด Alt+F11 เเล้วสูตรมันมีเฉพาะอันเดิมไม่มีของอาจารย์ครับ
เเล้วผมจะดัดเเปลง จากการบันทึกเเค่ 1 บรรทัด ให้มากกว่านี้ใด้หรือเปล่าครับเเบบเป็น 2-5 บรรทัดต่อการบันทึก 1 ครั้ง เเล้วเเก้หรือเพิ่มเติมใด้จากโค้ดที่บรรทัดไหนหรือครับ
ขอบคุณ ครับ

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#18

by snasui » Fri Apr 22, 2011 10:01 am

ผมปรับ Code ให้ใหม่เป็นตามด้านล่าง ดูไฟล์แนบประกอบครับ

Code: Select all

Sub PasteData()
Dim rs As Range
Dim rt As Range
    Set rs = Worksheets("Form").Range("B3", Range("B10") _
        .End(xlUp).Offset(0, 16))
    Set rt = Worksheets("Data").Range("C65536").End(xlUp).Offset(1, -1)
    rs.Copy
    rt.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Finish."
End Sub
Sub PasteToReport()
Dim rs As Range
Dim rt As Range
    Set rs = Worksheets("Form").Range("B21", Range("B24") _
        .End(xlUp).Offset(0, 8))
    Set rt = Worksheets("Report").Range("A16").End(xlUp).Offset(1, 0)
    rs.Copy
    rt.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Finish."
End Sub
Attachments
BETA-1.xlsm
(44.27 KiB) Downloaded 17 times

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#17

by liveday » Fri Apr 22, 2011 9:28 am

เรียน อาจารย์
บรรทัด ที่ 11-17 ไม่ใด้ใช้ครับ พอดีผมจำลองขึ้นมาเฉยๆ ส่วนคำถามยังเหมือนเดิมครับ
คำถามประมาณนี้อ่ะครับ (จะใช้ Code ให้หาจำนวนรายการแล้ว Copy ไปเท่าจำนวนรายการที่มีครับ)

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#16

by snasui » Fri Apr 22, 2011 8:44 am

สงสัยเพิ่มครับ ในชีท Form บรรทัดที่ 2-8 กับ 11-17 เป็น Form เดียวกัน ต้องการใช้ Form ไหนครับ ปกติหาก Form เหมือนกันจะสร้างมาเพียง Form เดียว ส่วนจะเอา Data ไปไหนบ้างก็แล้วแต่กำหนด และข้อมูลที่จะเอาไปใช้นั้นหากใน Form มีการบันทึกจำนวนรายการไม่เท่ากันทุกครั้ง เรามักจะไม่กำหนดจำนวนบรรทัดที่จะ Copy ไว้ล่วงหน้าว่าเป็นเท่านั้นเท่านี้ แต่จะใช้ Code ให้หาจำนวนรายการแล้ว Copy ไปเท่าจำนวนรายการที่มีครับ

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#15

by liveday » Fri Apr 22, 2011 7:55 am

อาจารย์ช่วยดูทีนะครับ ตามไฟล์เเนบ
ที่ต้องการเพิ่ม คือ ต้องการก็อบจำนวนมากกว่า 1 เเถว ครับ
เเล้ว ตรง Copy to report พอก็อบปี้เเล้วมันไปแถวที่ 21 ของ report อยากให้มันเริ่มต้นอยู่ที่เเถวที่ 5 ครับ
Attachments
BETA.xlsm
(43.54 KiB) Downloaded 6 times

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#14

by snasui » Thu Apr 21, 2011 11:11 pm

liveday wrote:อยากถามอาจารย์ว่า เราสามารถกำหนดมากกว่า 1 เเถวใด้ไหมครับ
อย่างตัวนี้ Set rs = Worksheets("Form").Range("A3:Q3") มันใด้เเถวเดียว เพิ่มเป็น 2-5 เเถวใด้ไหมครับหรือมากกว่านั้น
สามารถกำหนดเป็นกี่แถวกี่คอลัมน์ก็ได้ครับ
เเล้วโค้ดสามารถกำหนดให้ไปบันทึกเฉพาะบางช่องเซล์ที่เราต้องการ ใด้หรือเปล่าครับ ถ้าใด้เป็นสูตร VBA เเบบไหนใด้ครับ
สามารถทำได้ส่วนจะเขียนแบบไหนอยู่ที่ว่ามีเงื่อนไขอย่างไรครับ
เเล้วทำเป็นช๊อตคัท (Copy pste) ของ macroใด้ยังไงครับ เเบบ อาจารย์ทำให้อ่ะครับ
ต้องวาด Oject ใด ๆ ขึ้นมาก่อนจากนั้นคลิกขวา > Assigned Macro ดูวิธีการที่นี่ครับ http://www.snasui.com/viewtopic.php?p=1061#p1061
ถามอีกอย่างว่ากรณีต้องการหาผลลัพท์ทั้งหมดเเล้วเเสดงนั้นช่องเซล์นั้นเลยใช้สูตรประมาณไหนครับ เช่น (A1*B1),ผลลัพท์ที่ใด้*30% เเล้วผลลัพท์ที่ใด้แสดงในช่อง C1 ประมาณนี่ครับ
รบกวนอาจารย์ด้วยนะครับ
ทำไฟล์ตัวอย่างมาด้วยครับจะได้สะดวกในการอ้างอิง

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#13

by liveday » Thu Apr 21, 2011 8:51 pm

อยากถามอาจารย์ว่า เราสามารถกำหนดมากกว่า 1 เเถวใด้ไหมครับ
อย่างตัวนี้ Set rs = Worksheets("Form").Range("A3:Q3") มันใด้เเถวเดียว เพิ่มเป็น 2-5 เเถวใด้ไหมครับหรือมากกว่านั้น
เเล้วโค้ดสามารถกำหนดให้ไปบันทึกเฉพาะบางช่องเซล์ที่เราต้องการ ใด้หรือเปล่าครับ ถ้าใด้เป็นสูตร VBA เเบบไหนใด้ครับ
เเล้วทำเป็นช๊อตคัท (Copy pste) ของ macroใด้ยังไงครับ เเบบ อาจารย์ทำให้อ่ะครับ
ถามอีกอย่างว่ากรณีต้องการหาผลลัพท์ทั้งหมดเเล้วเเสดงนั้นช่องเซล์นั้นเลยใช้สูตรประมาณไหนครับ เช่น (A1*B1),ผลลัพท์ที่ใด้*30% เเล้วผลลัพท์ที่ใด้แสดงในช่อง C1 ประมาณนี่ครับ
รบกวนอาจารย์ด้วยนะครับ

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#12

by snasui » Wed Apr 20, 2011 7:09 pm

ลองทำความเข้าใจตามด้านล่างครับ

Code: Select all

Sub PasteData() 'เริ่มคำสั่ง
Dim rs As Range 'กำหนดตัวแปร rs เป็นเซลล์หรือช่วงข้อมูล
Dim rt As Range 'กำหนดตัวแปร rt เป็นเซลล์หรือช่วงข้อมูล
    Set rs = Worksheets("Form").Range("A3:Q3") 'กำหนดตำแหน่งให้กับตัวแปร rs คือช่วงข้อมูล A3:Q3 ในชีท Form
    Set rt = Worksheets("Data").Range("D65536").End(xlUp).Offset(1, -1) 'กำหนดตำแหน่งให้กับตัวแปร rt คือถัดจากเซลล์สุดท้ายในคอลัมน์ C ของชีท Data
    rs.Copy 'Copy ตัวแปร rs
    rt.PasteSpecial xlPasteValues 'นำไปวางแบบค่าที่ตัวแปร rt
    Application.CutCopyMode = False 'ยกเลิกการ Copy
    MsgBox "Finish." 'แสดงกล่องโต้ตอบเพื่อบอกว่าทำงานเรียบร้อยแล้ว
End Sub 'สิ้นสุดคำสั่ง
สำหรับการ Enable Macro ดูที่นี่ครับ http://www.snasui.com/viewtopic.php?p=4982#p4982

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#11

by liveday » Wed Apr 20, 2011 9:42 am

ใด้เเล้วครับ ขอบคุณอาจารย์มากครับ
เเต่อยากรู้ความหมายของโค้ด เเต่ละบรรทัดที่อาจารย์เขียนมาให้ เพื่อจะไปดัดเเปลงในการใช้งานอื่นๆครั้งต่อไปครับ ขอบคุณครับ
เเล้วอีกอย่าง เราจะ Enable VBA ให้ใช้ใด้ตลอดไม่ต้องไป Allow ทุกครั้ง ไปเซตตรงไหนหรือครับ

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#10

by snasui » Tue Apr 19, 2011 11:38 pm

:D ปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub PasteData()
Dim rs As Range
Dim rt As Range
    Set rs = Worksheets("Form").Range("A3:Q3")
    Set rt = Worksheets("Data").Range("D65536").End(xlUp).Offset(1, -1)
    rs.Copy
    rt.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Finish."
End Sub

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#9

by liveday » Tue Apr 19, 2011 11:25 pm

ปรับตามที่บอกครับ
Attachments
PasteData.xlsm
(398.29 KiB) Downloaded 8 times

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#8

by snasui » Tue Apr 19, 2011 9:54 pm

ผมเขียน Code ให้แล้วตามด้านล่างดูไฟล์แนบประกอบครับ

Code: Select all

Sub PasteData()
Dim rs As Range
Dim rt As Range
    Set rs = Worksheets("Form").Range("A3:N3")
    Set rt = Worksheets("Data").Range("D65536").End(xlUp).Offset(1, -1)
    rs.Copy
    rt.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Finish."
End Sub
จากการทดสอบพบว่าชีท Form กับชีท Data คอลัมน์ไม่เท่ากัน การวางข้อมูลลงชีท Data จึงไม่ตรงตามตำแหน่งเช่นข้อมูลเดิมที่มีอยู่แล้ว ช่วยปรับ Form ให้เท่ากับ Data แล้วส่งมาใหม่จะได้ปรับ Code ให้ครับ
Attachments
PasteData.xlsm
(586.01 KiB) Downloaded 4 times

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#7

by liveday » Tue Apr 19, 2011 5:31 pm

ลืมใส่ From ไปด้วยครับ ก็ใด้ไปทีละขั้นตอน ดีใจจริงๆ ^ ^
ยังต้องการเหมือนเดิม เพียงเพิ่มบางอย่างเพื่อการดูง่ายขึ้นครับ
ขอบคุณอาจารย์ในทุกๆคำตอบครับ
Attachments
ข้อมูลประ...xlsx
(388.38 KiB) Downloaded 6 times

Re: ขอคำปรึกษา เเละคำเเนะนำครับ

#6

by snasui » Tue Apr 19, 2011 4:54 pm

:D ไม่ทราบว่ายังต้องการให้บันทึกข้อมูลลง Database อีกหรือไม่ครับ เพราะไม่มี Form มาให้

สำหรับสูตรที่ติดค่า #Ref! นั้น เนื่องจากสูตรที่ดึงข้อมูลมาแสดงนั้นได้นำเอาค่าที่เกินจากช่วงที่กำหนดมา จึงไม่สามารถนำมาแสดงได้

เช่นจากสูตรใน C19 คือ

=INDEX(Data,$M$2,13)

หมายความว่า จากช่วงข้อมูล Data ให้นำบรรทัดที่เป็นค่าของ M2 และคอลัมน์ที่ 13 มาแสดง หากข้อมูล Data มีไม่ถึง 13 คอลัมน์ก็จะเกิด Error ดังกล่าวครับ

การตรวจสอบว่า Data คือช่วงข้อมูลไหนให้คลิกที่เมนู Formula > Name manager > คลิกที่ชื่อ Data > ตรงด้านล่างที่เป็น Refer to: จะอ้างอิงตำแหน่งช่วงเซลล์มาให้

Top