: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: คีย์รหัสแล้วออกชื่อของโรงเรียน

#8

by snasui » Thu Jun 21, 2012 5:00 pm

:D ลองดูตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub Test()
    Dim rAll As Range, l As Long
    Dim rTarget As Range, rt As Range
    l = Rows.Count
    With Sheets("List")
        Set rAll = .Range("A1", .Range("A" & l).End(xlUp))
    End With
    With Sheets("Name")
        Set rTarget = .Range("A1", .Range("A" & l).End(xlUp))
    End With
    For Each rt In rTarget
        If Application.CountIf(rAll, rt) > 0 Then
            rt = rAll(Application.Match(rt, rAll, 0)).Offset(0, 1)
        End If
    Next rt
End Sub

Re: คีย์รหัสแล้วออกชื่อของโรงเรียน

#7

by วังวู ช่ง » Thu Jun 21, 2012 4:36 pm

เรียน ท่านอาจารย์ ที่เคาลบครับ ไม่รู้จะอะทิบายอย่างไลดีครับ แต่ขอเรียนท่าน อาจารย์ ตามนี้ครับ
๑. เรียนท่าน อาจารย์ ดูไปเสียๆใน Sheet List และ name ครับ
๒. ขอเรียน ท่าน อาจารย์ Run Macro ครับ

ความต้องกานคืว่า เมื่อ Run Macro แล้ว D1 ใน Sheet "List" และ A1 ใน Sheet "name" ต้องออกมาเหมือนกันครับ ขอโทดที่ลบกวนท่าน อาจารย์ ครับ

ขอบคุณล่วงหน้าครับ
Attachments
คีย์รหัดแล้วออกชื่ของโรงเรียน.xlsm
(15.96 KiB) Downloaded 14 times

Re: คีย์รหัสแล้วออกชื่อของโรงเรียน

#6

by snasui » Thu Jun 21, 2012 3:28 pm

:lol: ไม่เข้าใจครับ ช่วยยกตัวอย่างมาสัก 2-3 ตัวอย่างว่าคีย์ค่าในเซลล์ใดและต้องการคำตอบในเซลล์ใดเป็นค่าใดบ้าง

Re: คีย์รหัสแล้วออกชื่อของโรงเรียน

#5

by วังวู ช่ง » Thu Jun 21, 2012 3:22 pm

เรียน ท่านอาจารย์ ที่เคาลบครับ ผมได้ใช้ VBA เข้าช่วยครับแต่ทำงานได้แค่ใน Sheet List เท่านั้นครับ ผมต้องกานให้ทำงานไปที่ Sheet Name เมื่อคีย์รหัดใน Sheet Name ด้วยครับ

ขอบคุณล่วงหน้าครับ
Attachments
คีย์รหัดแล้วออกชื่ของโรงเรียน.xlsm
(15.9 KiB) Downloaded 4 times

Re: คีย์รหัสแล้วออกชื่อของโรงเรียน

#4

by snasui » Thu Jun 21, 2012 1:23 pm

:D ศึกษาจาก Link ที่ผมให้ไป ลองทำดูก่อน ติดตรงไหนสามารถถามได้เรื่อย แนบสูตรที่ลองทำเองมาด้วยทุกครั้งครับ

Re: คีย์รหัสแล้วออกชื่อของโรงเรียน

#3

by วังวู ช่ง » Thu Jun 21, 2012 11:43 am

เรียน ท่านอาจารย์ ที่เคาลบครับ

บันหาในหัวข้อนี้คืว่า อยากให้ท่าน อาจารย์ ช่วยดัดปับโคดที่ส้างในไฟลล์ที่แนบมา ชึ่งสามาดทำงานได้แค่ใน Sheet List เท่านั้นครับ แต่ผมต้องกานคีร์ใน Sheet Name แล้วทำงานได้ครับ จำต้องดัดปับตงไหนครับ

ขอบพระคุณล่วงหน้าครับ
Attachments
คีย์รหัดแล้วออกชื่ของโรงเรียน.xlsm
(15.89 KiB) Downloaded 3 times

Re: คีย์รหัดแล้วออกชื่ของโรงเรียน

#2

by snasui » Tue Jun 19, 2012 4:25 pm

:D สามารถใช้ Vlookup มาช่วยได้ครับ

ลองตามนี้ครับ
  1. ที่ D1 คีย์ตัวเลข 10806001
  2. ที่ E1 คีย์สูตรเพื่อดึงชื่อที่ตรงกันมาแสดง
    =VLOOKUP(D1,name,2,0)
    Enter
อ่านเพิ่มเติมเกี่ยวกับ Vlookup ได้ที่นี่ครับ http://snasui.blogspot.com/2009/12/vlookup.html

คีย์รหัสแล้วออกชื่อของโรงเรียน

#1

by วังวู ช่ง » Tue Jun 19, 2012 4:15 pm

เรียน ท่านอาจารย์ ที่เคาลบครับ ช่วยดูด้วยครับ บันหาคืว่า ผมต้องกานคีย์ รหัดแล้วออกชืโรงเรียนของรหัดนั้นๆ ใน Excel ทำได้ไม่ครับ? มีตัวย่างมาให้ดูด้วยครับ

ใน E1 เมื่อคีย์รหัดใน A1 ใส่ไม้ให้ออก 10806001 แต่ต้องกานให้ออก »». ¯½«ö´Â²­Ä§ (คืข้อมูนใน B1)
Attachments
คีย์รหัดแล้วออกชื่ของโรงเรียน.xlsx
(9.35 KiB) Downloaded 14 times

Top