: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 3693 matches

by puriwutpokin
Wed Mar 27, 2024 12:52 pm
Forum: Excel
Topic: ขอวิธีปรับ Excel VBA ให้พร้อมใช้กับ Excel 2007 และ 2021 ค่ะ
Replies: 15
Views: 299

Re: ขอวิธีปรับ Excel VBA ให้พร้อมใช้กับ Excel 2007 และ 2021 ค่ะ

suka wrote: Tue Mar 26, 2024 9:20 pm ค่ะ ไฟล์ที่แชร์ร่วมกันไม่รัน vba ค่ะ เป็นไฟล์ .xlsx ค่ะะ โดยจะรัน vba ผ่านไฟล์ .xlsm ค่ะ
ลองทำตามรูปนี้ดูครับ
by puriwutpokin
Tue Mar 26, 2024 8:32 pm
Forum: Excel
Topic: ขอวิธีปรับ Excel VBA ให้พร้อมใช้กับ Excel 2007 และ 2021 ค่ะ
Replies: 15
Views: 299

Re: ขอวิธีปรับ Excel VBA ให้พร้อมใช้กับ Excel 2007 และ 2021 ค่ะ

ไฟล์ที่เป็นแบบแชร์ ร่วมกันจะไม่สามารถรัน vba ได้ครับ
by puriwutpokin
Tue Mar 26, 2024 5:50 pm
Forum: Excel
Topic: VBA ซ่อนแถวที่มีค่าเป็น 0
Replies: 1
Views: 57

Re: VBA ซ่อนแถวที่มีค่าเป็น 0

เอาโค้ดนี้ครอบระหว่างคำสั่งครับ

Code: Select all

Sub HideRows()
    Application.Calculation = xlManual
    'Code
    Application.Calculation = xlAutomatic
End Sub
by puriwutpokin
Mon Mar 25, 2024 7:29 pm
Forum: Excel
Topic: ขอวิธีปรับ Excel VBA ให้พร้อมใช้กับ Excel 2007 และ 2021 ค่ะ
Replies: 15
Views: 299

Re: ขอวิธีปรับ Excel VBA ให้พร้อมใช้กับ Excel 2007 และ 2021 ค่ะ

ไฟล์ที่เป็น VBA อยู่ที่ Path ไหนก็ Copy ไว้ช่อง Add this website to zone ตามตัวอย่าง​ครับ ที่Server \\xxx.xxx.xxx.xxx
by puriwutpokin
Mon Mar 25, 2024 5:28 pm
Forum: Excel
Topic: ขอวิธีปรับ Excel VBA ให้พร้อมใช้กับ Excel 2007 และ 2021 ค่ะ
Replies: 15
Views: 299

Re: ขอวิธีปรับ Excel VBA ให้พร้อมใช้กับ Excel 2007 และ 2021 ค่ะ

puriwutpokin wrote: Wed Mar 20, 2024 6:08 pm ไฟล์​ที่ใช้ อยู่ใน เซิร์ฟเวอร์​หรือเปล่าครับ
ถ้าไม่ใช่การติ๊กค่าตามรูปก็ถูกแล้วครับ
ถ้าหมายถึง กระทู้นี้ ดูตามภาพครับ ที่ Control Panel เซ็ตตามรูปครับ
by puriwutpokin
Sat Mar 23, 2024 11:39 am
Forum: Excel
Topic: สอบถามการหาข้อมูลมาแสดงมากกว่า 2 เงื่อนไข
Replies: 7
Views: 166

Re: สอบถามการหาข้อมูลมาแสดงมากกว่า 2 เงื่อนไข

ลองทำตัวอย่างแบบที่แจ้งมาดูครับ ว่าข้อมูลประมาณ​ไหนครับ
by puriwutpokin
Fri Mar 22, 2024 10:19 am
Forum: Excel
Topic: อยากให้ Name ที่อยู่ใน sheet "template" แยกตาม dept ใน sheet "List"
Replies: 5
Views: 99

Re: อยากให้ Name ที่อยู่ใน sheet "template" แยกตาม dept ใน sheet "List"

ปรับ A2=IFERROR(INDEX(template!$A:$A,AGGREGATE(15,6,ROW(template!$B$5:$B$999)/(template!$B$5:$B$999=A$1),ROWS(A$2:A2))),IF(ROWS(A$2:A2)=1,"--- No Data ---",""))
by puriwutpokin
Fri Mar 22, 2024 9:10 am
Forum: Excel
Topic: ต้องการดึงข้อมูลล่าสุดของวัน ไปวางอีกไฟล์ โดยใช้ code vba
Replies: 7
Views: 194

Re: ต้องการดึงข้อมูลล่าสุดของวัน ไปวางอีกไฟล์ โดยใช้ code vba

ปรับตามนี้ครับ Sub CopyData_to_otherFile() Dim srb As Workbook, tgb As Workbook, srcRngs As Range, x As Long Set srb = Workbooks("Test_2024_addition total.xlsx") Set tgb = Workbooks("Copy_runLastdata.xlsx") myy = Format(Date, "mmyy") With srb.Worksheets(myy) x = Applica...
by puriwutpokin
Fri Mar 22, 2024 9:05 am
Forum: Excel
Topic: อยากให้ Name ที่อยู่ใน sheet "template" แยกตาม dept ใน sheet "List"
Replies: 5
Views: 99

Re: อยากให้ Name ที่อยู่ใน sheet "template" แยกตาม dept ใน sheet "List"

A2=IFERROR(INDEX(template!$A:$A,AGGREGATE(15,6,ROW(template!$B$5:$B$999)/(template!$B$5:$B$999=A$1),ROWS(A$2:A2))),"") Copy right and down
by puriwutpokin
Thu Mar 21, 2024 10:32 pm
Forum: Excel
Topic: ต้องการดึงข้อมูลล่าสุดของวัน ไปวางอีกไฟล์ โดยใช้ code vba
Replies: 7
Views: 194

Re: ต้องการดึงข้อมูลล่าสุดของวัน ไปวางอีกไฟล์ โดยใช้ code vba

ปรับตามนี้ Sub CopyData_to_otherFile() Dim srb As Workbook, tgb As Workbook, srcRngs As Range, x As Long Set srb = ThisWorkbook Set tgb = Workbooks("Copy_runLastdata.xlsx") myy = Format(Date, "mmyy") With srb.Worksheets(myy) x = Application.Match(9E+99, .Range("b1:b999"...
by puriwutpokin
Wed Mar 20, 2024 10:28 pm
Forum: Excel
Topic: ต้องการดึงข้อมูลล่าสุดของวัน ไปวางอีกไฟล์ โดยใช้ code vba
Replies: 7
Views: 194

Re: ต้องการดึงข้อมูลล่าสุดของวัน ไปวางอีกไฟล์ โดยใช้ code vba

ปรับตามนี้ครับ 'Other code 'Other code Dim srb As Workbook, tgb As Workbook, srcRngs As Range, myy As String Set srb = ThisWorkbook Set tgb = Workbooks("Copy_runLastdata.xlsx") myy = Format(Date, "mmyy") With srb.Worksheets(myy) Set srcRngs = .Range("b" & .Rows.Coun...
by puriwutpokin
Wed Mar 20, 2024 6:28 pm
Forum: Excel
Topic: การประกาศตัวแปรใน VBA Excel
Replies: 1
Views: 60

Re: การประกาศตัวแปรใน VBA Excel

ประกาศ ไว้บนสุดของ Sub แรกครับ
by puriwutpokin
Wed Mar 20, 2024 6:08 pm
Forum: Excel
Topic: ขอวิธีปรับ Excel VBA ให้พร้อมใช้กับ Excel 2007 และ 2021 ค่ะ
Replies: 15
Views: 299

Re: ขอวิธีปรับ Excel VBA ให้พร้อมใช้กับ Excel 2007 และ 2021 ค่ะ

ไฟล์​ที่ใช้ อยู่ใน เซิร์ฟเวอร์​หรือเปล่าครับ
ถ้าไม่ใช่การติ๊กค่าตามรูปก็ถูกแล้วครับ
by puriwutpokin
Wed Mar 20, 2024 3:23 pm
Forum: Excel
Topic: ขอวิธีปรับ Excel VBA ให้พร้อมใช้กับ Excel 2007 และ 2021 ค่ะ
Replies: 15
Views: 299

Re: ขอวิธีปรับ Excel VBA ให้พร้อมใช้กับ Excel 2007 และ 2021 ค่ะ

แก้ชื่อชีทให้ถูกต้องครับจาก Form เป็น From formBook.Sheets("Form").Range("Q2").Formula = "=TEXT(NOW(),""m;;"")" เป็น formBook.Sheets("From").Range("Q2").Formula = "=TEXT(NOW(),""m;;"")" แก้ทุกตัวนะครับ
by puriwutpokin
Mon Mar 18, 2024 5:43 pm
Forum: Excel
Topic: สูตรดึงข้อมูลข้ามไฟล์ตามเงื่อนไขที่กำหนด
Replies: 2
Views: 96

Re: สูตรดึงข้อมูลข้ามไฟล์ตามเงื่อนไขที่กำหนด

ที่ F2:F6 คีย์ Book1.xlsx ที่ G2:G6 คีย์ชื่อชีท SX3000II SX4000II OTHER SIMULATOR SX3000ec ที่ ฤ2=IFERROR(INDEX(INDIRECT("["&$F$2:$F$6&"]"&IFERROR(INDEX($G$2:$G$6,MATCH(TRUE,INDEX(COUNTIFS(F$1:F1,INDIRECT("["&$F$2:$F$6&"]!"&$G$2:$G$6))<...