: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

สอบถามความหมายของ คำสั้ง Cell ใน vb ครับ

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and 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 Reply
titus
Member
Member
Posts: 89
Joined: Sun Aug 24, 2014 1:34 pm

สอบถามความหมายของ คำสั้ง Cell ใน vb ครับ

#1

Post by titus »

สอบถามความหมายของ คำสั้ง Cell ใน vb ครับ
พอดีต้องแก้สูตรของ คน เก่าที่เขียนไว้

Cells(9 + rwIndex, 3).Select
ตัว rwIndex เป็นตัวแปรที่รับ ค่า เป็นตัวเลข ถ้า ค่า rwIndex = 0
ค่าสูตรจะได้ Cells(9 , 3).Select
ตำแหน่ง 9 คือ คอลัม ที่ 9 แถว ที่ 3 ใช่ไหม ครับ
Top
OnliezU
Member
Member
Posts: 31
Joined: Wed Jul 19, 2017 9:49 am

Re: สอบถามความหมายของ คำสั้ง Cell ใน vb ครับ

#2

Post by OnliezU »

ค่าสูตรตามที่คุณเขียน Cells(9 , 3).Select จะอ่านเป็น เลือกเซลล์ใน (แถวที่ 9 ,คอลัมน์ที่ 3) ครับ

ถ้า default เลยก็จะเลือกเซลล์ที่ "C9" ครับ

อ้างอิงด้วยภาพเพิ่มเติมครับ :)
1150.jpg
You do not have the required permissions to view the files attached to this post.
Top
titus
Member
Member
Posts: 89
Joined: Sun Aug 24, 2014 1:34 pm

Re: สอบถามความหมายของ คำสั้ง Cell ใน vb ครับ

#3

Post by titus »

OnliezU wrote: Fri Nov 02, 2018 10:17 am ค่าสูตรตามที่คุณเขียน Cells(9 , 3).Select จะอ่านเป็น เลือกเซลล์ใน (แถวที่ 9 ,คอลัมน์ที่ 3) ครับ

ถ้า default เลยก็จะเลือกเซลล์ที่ "C9" ครับ

อ้างอิงด้วยภาพเพิ่มเติมครับ :)
1150.jpg
ขอบคุณครับ :thup:
Top
titus
Member
Member
Posts: 89
Joined: Sun Aug 24, 2014 1:34 pm

Re: สอบถามความหมายของ คำสั้ง Cell ใน vb ครับ

#4

Post by titus »

titus wrote: Fri Nov 02, 2018 10:47 am
OnliezU wrote: Fri Nov 02, 2018 10:17 am ค่าสูตรตามที่คุณเขียน Cells(9 , 3).Select จะอ่านเป็น เลือกเซลล์ใน (แถวที่ 9 ,คอลัมน์ที่ 3) ครับ

ถ้า default เลยก็จะเลือกเซลล์ที่ "C9" ครับ

อ้างอิงด้วยภาพเพิ่มเติมครับ :)
1150.jpg
ขอบคุณครับ :thup:
สอบถามเพิ่มเติมหน่อยครับ
Selection.AutoFill Destination:=Range(Chr(65) & Chr(68) & Trim(153) & ":" & Chr(65) & Chr(68) & Trim(153 + (qtyDate * 104) - 1)), Type:=xlFillDefault

คำสั่ง Selection.AutoFill Destination:=Range(.....), Type:=xlFillDefault คือคำสั่งลากสูตรมาตามช่องที่กำหนดใช่รึไม่ครับ
Top
OnliezU
Member
Member
Posts: 31
Joined: Wed Jul 19, 2017 9:49 am

Re: สอบถามความหมายของ คำสั้ง Cell ใน vb ครับ

#5

Post by OnliezU »

titus wrote: Fri Nov 02, 2018 11:08 am
สอบถามเพิ่มเติมหน่อยครับ
Selection.AutoFill Destination:=Range(Chr(65) & Chr(68) & Trim(153) & ":" & Chr(65) & Chr(68) & Trim(153 + (qtyDate * 104) - 1)), Type:=xlFillDefault

คำสั่ง Selection.AutoFill Destination:=Range(.....), Type:=xlFillDefault คือคำสั่งลากสูตรมาตามช่องที่กำหนดใช่รึไม่ครับ
ตามที่ผมเข้าใจ น่าจะเป็นคำสั่งผู้เขียนที่ต้องการนำข้อมูลจากที่ใดที่หนึ่งมาลงใน Range(......) โดยใช้ format เดียวกัน

ซึ่งผมคิดว่าแนบไฟล์มาด้วยจะดีกว่านะครับ อีกหลายๆ คนจะได้ช่วยเหลือได้ครับ

https://docs.microsoft.com/en-us/office ... e.autofill << อ้างอิงคำสั่ง autofill
Top
titus
Member
Member
Posts: 89
Joined: Sun Aug 24, 2014 1:34 pm

Re: สอบถามความหมายของ คำสั้ง Cell ใน vb ครับ

#6

Post by titus »

OnliezU wrote: Fri Nov 02, 2018 11:53 am
titus wrote: Fri Nov 02, 2018 11:08 am
สอบถามเพิ่มเติมหน่อยครับ
Selection.AutoFill Destination:=Range(Chr(65) & Chr(68) & Trim(153) & ":" & Chr(65) & Chr(68) & Trim(153 + (qtyDate * 104) - 1)), Type:=xlFillDefault

คำสั่ง Selection.AutoFill Destination:=Range(.....), Type:=xlFillDefault คือคำสั่งลากสูตรมาตามช่องที่กำหนดใช่รึไม่ครับ
ตามที่ผมเข้าใจ น่าจะเป็นคำสั่งผู้เขียนที่ต้องการนำข้อมูลจากที่ใดที่หนึ่งมาลงใน Range(......) โดยใช้ format เดียวกัน

ซึ่งผมคิดว่าแนบไฟล์มาด้วยจะดีกว่านะครับ อีกหลายๆ คนจะได้ช่วยเหลือได้ครับ

https://docs.microsoft.com/en-us/office ... e.autofill << อ้างอิงคำสั่ง autofill
ได้ ครับ อาจจะไม่ละเอียดเท่าไร ผมพยามศึกษาสูตรที่คนเก่าเขียนไว้อยู่อาจจะมีพลาดบางครับ ไฟล์เก่ามีขนาดใหญ่มาก
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 30917
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:
Contact snasui

Re: สอบถามความหมายของ คำสั้ง Cell ใน vb ครับ

#7

Post by snasui »

:D ไฟล์ที่แนบมาต้องการจะทำอะไร ปัญหาคืออะไร ต้องการคำตอบเป็นอย่างไร กรุณาอธิบายมาด้วยพอสังเขปในช่องความเห็นนี้ด้วยครับ
Top
titus
Member
Member
Posts: 89
Joined: Sun Aug 24, 2014 1:34 pm

Re: สอบถามความหมายของ คำสั้ง Cell ใน vb ครับ

#8

Post by titus »

snasui wrote: Sat Nov 03, 2018 10:43 am :D ไฟล์ที่แนบมาต้องการจะทำอะไร ปัญหาคืออะไร ต้องการคำตอบเป็นอย่างไร กรุณาอธิบายมาด้วยพอสังเขปในช่องความเห็นนี้ด้วยครับ
คือในไฟล์ ต้องการเพิ่มเครื่องจาก 13 เครื่อง เป็น 18 เครื่องครับ
แล้วจะมีการลบช่องออก 3 ช่อง แล้วเพิ่ม ช่อง อีก1 ช่อง ด้าน หลัง และแก้ตัวหาร และเพิ่มสูตรอีก มันค่อนข้างจะสับสนครับ
ผมเลยอยากขอความหมายของสูตร มาพยามแก้ปัญหาเองจะดีกว่าครับ ที่ผมแนบไฟล์มาเพื่อเพื่อนๆ จะได้เข้าไป ดู ไฟล์ต้นฉับบ ว่าคนเขียนชุดก่อน เค้าต้องการอะไร

อย่างเช่น ตอนนี้ ผมติดคำสั่ง

Code: Select all

 Selection.AutoFill Destination:=Range(Chr(65) & Chr(68) & Trim(153) & ":" & Chr(65) & Chr(68) & Trim(153 + (qtyDate * 104) - 1)), Type:=xlFillDefault
ผมอยากรู้ทีมาที่ไป ครับ ว่า คำสั่งSelection.AutoFill Destinationสั่งให้ทำอะไรในช่อง AD153:AD880
คือ จากการลอง กด F8 รันคำสั่งดู เหมือนว่าจะสั่ง ให้ copy ค่าใน Cell AD153 ลงมาใช่รึปล่าวครับ
อาจจะถามบ่อยหน่อยครับอาจารย์ :D :D
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 30917
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:
Contact snasui

Re: สอบถามความหมายของ คำสั้ง Cell ใน vb ครับ

#9

Post by snasui »

:D เป็นการคัดลอกสูตรจาก AD153 ลงไปด้านล่างครับ

Chr(65) คือ A
Chr(68) คือ D
Trim(153) คือเลข 153

Code พวกนี้ควรเขียนเสียใหม่ให้ง่ายต่อการทำความเข้าใจ เช่น

Code: Select all

Range("AD153").AutoFill Destination:=Range("AD153").Resize(qtyDate * 104), Type:=xlFillDefault
เป็นต้น
Top
titus
Member
Member
Posts: 89
Joined: Sun Aug 24, 2014 1:34 pm

Re: สอบถามความหมายของ คำสั้ง Cell ใน vb ครับ

#10

Post by titus »

snasui wrote: Sat Nov 03, 2018 12:12 pm :D เป็นการคัดลอกสูตรจาก AD153 ลงไปด้านล่างครับ

Chr(65) คือ A
Chr(68) คือ D
Trim(153) คือเลข 153

Code พวกนี้ควรเขียนเสียใหม่ให้ง่ายต่อการทำความเข้าใจ เช่น

Code: Select all

Range("AD153").AutoFill Destination:=Range("AD153").Resize(qtyDate * 104), Type:=xlFillDefault
เป็นต้น
ใช่ครับ อ่านยากมาก T T ขอบคุณครับ อาจารย์ :thup: :thup:
Top
titus
Member
Member
Posts: 89
Joined: Sun Aug 24, 2014 1:34 pm

Re: สอบถามความหมายของ คำสั้ง Cell ใน vb ครับ

#11

Post by titus »

สอบถามสูตรตัวนี้หน่อยครับ
Range(Chr(65) & Trim(151) & ":" & Chr(66) & Trim(153 + (qtyDate * 104) - 1)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"A7:B140"), Unique:=True
จะเขียน rezize ไปไปแทน แต่ตัวหน้าไม่เหมือนกันจะต้องเขียนยังไงครับ
ผมเขียนได้ประมาณนี้ ถูกไหมครับ
Range("A151":"B").Resize(qtyDate * 104 - 1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"A7:B140"), Unique:=True
Top
User avatar
puriwutpokin
Guru
Guru
Posts: 3792
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: สอบถามความหมายของ คำสั้ง Cell ใน vb ครับ

#12

Post by puriwutpokin »

ลองปรับตรงนี้ดูครับ

Code: Select all

Range("A151").offset(0,1).Resize(qtyDate * 104 - 1)
:shock: :roll: :D
Top
Post Reply

Return to “Excel”