: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: การส่งค่าข้อมูล

#15

by snasui » Tue Nov 09, 2010 11:38 am

:D ลองดูตัวอย่างตามไฟล์แนบครับ

Code ใน Module1

Code: Select all

Sub PasteData()
Dim rSource As Range
Dim rTarget As Range
    Application.ScreenUpdating = False
    Set rSource = Sheets("Temp").Range("A2:E10")
    Set rTarget = Sheets("Sheet2").Range("B65536").End(xlUp).Offset(1, 0)
    rSource.Copy
    rTarget.PasteSpecial xlPasteValues
    Application.ScreenUpdating = True
    MsgBox "Record Complete"
End Sub
Code ใน Sheet1

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Calendar1
        If ActiveCell.Address = "$E$8" Then
            .Visible = True
            .Top = ActiveCell.Offset(0, 0).Top
            .Left = ActiveCell.Offset(0, 1).Left
        Else
            .Visible = False
        End If
    End With
End Sub

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
End Sub
Attachments
สมุดงาน1.xls
(62 KiB) Downloaded 28 times

Re: การส่งค่าข้อมูล

#14

by mooae » Tue Nov 09, 2010 12:08 am

ตัวอย่างค่ะ (ต้องขอโทษเรื่องการใช้ภาษาค่ะ )
Attachments
สมุดงาน1.xls
(23.5 KiB) Downloaded 10 times

Re: การส่งค่าข้อมูล

#13

by snasui » Mon Nov 08, 2010 11:52 pm

mooae wrote:ขอรบกวนอีกหน่อย...(คงจะอีกนานกว่าโปรเจกจะเสด เหอๆ)

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

เยอะไปนิดนึง เหอๆ ....ยังไงก้อช่วยหน่อยนะคะ

ทามมายแนบไม่ได้อ่ะคะ แค่6M เอง
:shock: ทำเป็นตัวอย่างข้อมูลมาแทน แต่ต้องเป็นตัวแทนของข้อมูลจริงได้ ไม่ต้องส่งข้อมูลจริงมาครับ ระบุให้ชัดเจนว่าต้องการให้เซลล์ไหนไปบันทึกที่ชีทไหน เซลล์ไหนครับ :mrgreen:

Re: การส่งค่าข้อมูล

#12

by snasui » Mon Nov 08, 2010 11:49 pm

:roll: สำหรับในฟอรัมพยายามงดใช้ภาษาแชทนะครับ

กรณี Code ไม่ทำงานอาจจะต้องเปลี่ยนตำแหน่งการวาง Code ครับ เนื่องจากว่ากำหนดให้ชีทนั้นถูกคลิกเลือกก่อน Code จึงทำงาน

สามารถเปลี่ยนใหม่เป็นเปิดไฟล์มาแล้ว Code ทำงานเลย โดยคีย์ Code ตามด้านล่างที่ ThisWorkbook แทนครับ :mrgreen:

Code: Select all

Private Sub Workbook_Open()
    Worksheets("Sheet1").ScrollArea = "$A$1:$H$10"
End Sub
Attachments
SetScrollArea.png
SetScrollArea.png (51.88 KiB) Viewed 80 times

Re: การส่งค่าข้อมูล

#11

by mooae » Mon Nov 08, 2010 11:24 pm

ส่งเป็นรูปมาแทนละกัน แร้วก้อ code lock scroll ใส่ตามนั้นใช่มั้ยคะ ทำไมหนูใส่แร้วมันไม่ล็อกอ่า
Attachments
Untitled.png
Untitled.png (25 KiB) Viewed 82 times

Re: การส่งค่าข้อมูล

#10

by mooae » Mon Nov 08, 2010 11:14 pm

ขอรบกวนอีกหน่อย...(คงจะอีกนานกว่าโปรเจกจะเสด เหอๆ)

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

เยอะไปนิดนึง เหอๆ ....ยังไงก้อช่วยหน่อยนะคะ

ทามมายแนบไม่ได้อ่ะคะ แค่6M เอง

Re: การส่งค่าข้อมูล

#9

by snasui » Mon Nov 08, 2010 5:42 pm

:D คงต้องเขียน Macro เข้ามาช่วยครับ ไม่เช่นนั้นเปิดมาใหม่มันจะไม่มีผล ดูตัวอย่างการวาง Code ด้านล่างครับ

Code: Select all

Private Sub Worksheet_Activate()
     ActiveSheet.ScrollArea = "$A$1:$H$10"
End Sub
Attachments
SetScrollArea.png
SetScrollArea.png (40.86 KiB) Viewed 109 times

Re: การส่งค่าข้อมูล

#8

by snasui » Mon Nov 08, 2010 5:31 pm

:lol: ครับ...จากเดิมกำหนดเป็น a:h ถ้าจะกำหนดบรรทัดด้วยก็คีย์เป็นเช่น a1:h10 หมายความว่าให้เลือกได้เพียง a1:h10 เท่านั้น 8-)

Re: การส่งค่าข้อมูล

#7

by mooae » Mon Nov 08, 2010 5:29 pm

ขอบคุณค่ะแล้วด้านล่างนี่ทำไงหรอคะ ที่เป็นแถวอ่ะ....รบกวนอีกกนิด

Re: การส่งค่าข้อมูล

#6

by snasui » Mon Nov 08, 2010 5:12 pm

:D ลองดูการกำหนดค่าตามภาพด้านล่างครับ :mrgreen:
Attachments
RestrictExpandColumns.gif
RestrictExpandColumns.gif (219.06 KiB) Viewed 114 times

Re: การส่งค่าข้อมูล

#5

by mooae » Mon Nov 08, 2010 3:44 pm

แร้วหากเราจะfixหน้า ในexcel ตามที่เราต้องการ ไม่ให้มันเลื่อนไปอีก ได้มั้ยคะ เช่น คอลัมมี A- zzzzzz แต่เราจะเลือกแค่ A-H ได้มั้ยคะ

Re: การส่งค่าข้อมูล

#4

by snasui » Sat Nov 06, 2010 7:23 am

:D ผมใช้คอมพ์หลายเครื่อง แต่ละเครื่องก็อยู่ต่างที่กันไป สำหรับเครื่องที่เล่นอยู่นี้ไม่มีไฟล์เกี่ยวกับขายของหน้าร้านหรือสต็อคสินค้าครับ :mrgreen:

Re: การส่งค่าข้อมูล

#3

by mooae » Fri Nov 05, 2010 10:51 pm

ไม่ทราบว่ามีตัวอย่าง งาน ประเภท คลังสินค้า หรือ ร้านขายหน้าร้าน ไหมคะ

อิอิ...ทำการบ้านไปไม่ถูกจิงๆค่ะ

Re: การส่งค่าข้อมูล

#2

by snasui » Fri Nov 05, 2010 2:44 pm

:D การกรอกค่าใน Sheet1 เซลล์ A1 แล้วให้ค่าไปอยู่ใน Sheet2 เซลล์ A1 ให้ทำตามนี้ครับ

1. คลิก Sheet2 เลือก A1 แล้วคีย์เครื่องหมาย =
2. คลิก Sheet1 เลือก A1 แล้วกดแป้น Enter

กรณีต้องการสร้างฟอร์มโต้ตอบกับผู้ใช้ต่าง ๆ Listbox, Combo Box โดยมี VBA เป็นตัวควบคุม ให้สร้างในโปรแกรม VBE ครับ การเข้าโปรแกรม VBE ให้กดแป้น Alt+F11 ต้องการปิด VBE แล้วกลับมายัง Excel กดแป้น Alt+Q

กรณีสร้างเป็น Object ใน Excel ต้องทราบก่อนว่าเป็น Excel Version ใดครับ :mrgreen:

การส่งค่าข้อมูล

#1

by mooae » Fri Nov 05, 2010 2:24 pm

1.อยากถามเรื่อง การส่งค่าข้อมูลอ่ะคะ ไม่รุว่าสามารถใช้วิธีไหนได้บ้าง

เช่น เรากรอกชื่อ ไว้ในเซลล์ A1 ชีท 1 แร้วอยากดึงข้อมูลจากอันนั้น มาไว้ในชีทที่2 จะทำอย่างไรคะ

2. ในexcel สามารถสร้างฟอร์มต่างๆได้มั้ยคะ เช่น list box , กล่องตอบโต้ข้อความ ประมาณนี้อ่ะ ค่ะ ไม่ทราบว่าอยู่ตรงไหน

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

Top