: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

Search found 11 matches

by Singhamanuss
Tue Jun 13, 2023 11:54 am
Forum: Excel
Topic: การเขียน code การเปิดไฟลล์ และคัดลอก ข้ามไฟลล์ โดยระบุชื่อตามเซลล์ที่กำหนด
Replies: 2
Views: 255

การเขียน code การเปิดไฟลล์ และคัดลอก ข้ามไฟลล์ โดยระบุชื่อตามเซลล์ที่กำหนด

ผมต้องการเปิดไฟลล์ต้นทางชื่อ 2544 โดยผมจะระบุชื่อไฟลล์ ไว้ตำแหน่ง b2 ในชีท sheet3 ไฟลล์ 'งานทะเบียนนักเรียน' และจะทำการตัดลอก ไฟลล์ต้นทางดังกล่าว ผมติดตรงนี้ครับ Workbooks(Range("b2").Value & ".xls") คือต้องการให้เป็นชื่อไฟลล์ตามเซลล์ b2 ครับ

Sub SelectionChange()
Dim wb As Workbooks
Workbooks ...
by Singhamanuss
Wed Mar 10, 2021 8:42 pm
Forum: Excel
Topic: วน loop ToggleButton ทำอย่างไร
Replies: 1
Views: 469

วน loop ToggleButton ทำอย่างไร

ผมต้องการวน loop ToggleButton โดยผมมี ToggleButton1 ถึง 17 ต้องทำอย่างไรครับ แต่ติด error ตรงตำแหน่ง If ToggleButton(i) ผมไม่แน่ใจว่าผมเขียนถูกหรือไม่ ถ้าผิดช่วยแก้ให้หน่อยครับ

Private Sub cmdAdd_Click()
Dim i As Long
For i = 1 To 17
If ToggleButton(i).Value = True Then
Drng.End(xlDown).Offset ...
by Singhamanuss
Sun May 17, 2020 5:35 pm
Forum: Excel
Topic: การดึงข้อมูลข้ามไฟล์ แบบไม่เปิดไฟล์ต้นทางด้วย vba
Replies: 3
Views: 513

Re: การดึงข้อมูลข้ามไฟล์ แบบไม่เปิดไฟล์ต้นทางด้วย vba

ข้อคุณครับ
สอบถามเพิ่มเติมครับ เราสามารถเขียน code ให้ง่ายกว่านี้ได้ไหมครับ
และผมข้อตัวอย่างการเขียน Code สร้าง Link หน่อยครับ
by Singhamanuss
Sat May 16, 2020 1:50 am
Forum: Excel
Topic: การดึงข้อมูลข้ามไฟล์ แบบไม่เปิดไฟล์ต้นทางด้วย vba
Replies: 3
Views: 513

การดึงข้อมูลข้ามไฟล์ แบบไม่เปิดไฟล์ต้นทางด้วย vba

ผมได้ทำการเขียน code vba เพื่อดึงข้อมูลจากหลายๆ ไฟล์ (คือไฟล์ 1_1 ถึง 1_15 ตำแหน่งที่อยู่ คือ D:\Timetable63_1\ม.1\1_1) มารวมไว้ไฟล์เดี่ยว (คือไฟล์ ม.1) แต่ติดที่ ผมต้องเปิดไฟล์ต้นทาง เสมอ ถ้าไม่เปิด จะเกิดการ error ทันที ครับ มีวิธีแก้ให้ดึงข้อมูแบบไม่ต้องเปิดไฟล์ต้นทางไหมครับ และแนะนำการเขียน แบบ ...
by Singhamanuss
Thu May 14, 2020 1:21 am
Forum: Excel
Topic: อยากทราบว่ามีวิธีเขียนที่ง่ายกว่านี้หรือเปล่าครับ
Replies: 6
Views: 941

Re: อยากทราบว่ามีวิธีเขียนที่ง่ายกว่านี้หรือเปล่าครับ


Sub SchedulingTable2()
With Sheets("Mon")
.Range("J2").Cells.Value = T1.Range("I9") & " " & T1.Range("I10")
.Range("J3").Cells.Value = T2.Range("I9") & " " & T2.Range("I10")
.Range("J4").Cells.Value = T3.Range("I9") & " " & T3.Range("I10")
.Range("J5").Cells.Value = T4.Range("I9") & " " & T4.Range ...
by Singhamanuss
Thu May 14, 2020 1:14 am
Forum: Excel
Topic: อยากทราบว่ามีวิธีเขียนที่ง่ายกว่านี้หรือเปล่าครับ
Replies: 6
Views: 941

อยากทราบว่ามีวิธีเขียนที่ง่ายกว่านี้หรือเปล่าครับ

Sub SchedulingTable2()
With Sheets("Mon")
.Range("J2").Cells.Value = T1.Range("I9") & " " & T1.Range("I10")
.Range("J3").Cells.Value = T2.Range("I9") & " " & T2.Range("I10")
.Range("J4").Cells.Value = T3.Range("I9") & " " & T3.Range("I10")
.Range("J5").Cells.Value = T4.Range("I9") & " " & T4 ...