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

by snasui
Wed Mar 20, 2024 11:40 am
Forum: Excel
Topic: ต้องการดึงข้อมูลล่าสุดของวัน ไปวางอีกไฟล์ โดยใช้ code vba
Replies: 7
Views: 194

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

:D ตัวอย่างการปรับ Code ครับ 'Other code Dim srb As Workbook, tgb As Workbook, srcRngs As Range Set srb = ThisWorkbook Set tgb = Workbooks("Copy_runLastdata.xlsx") With srb.Worksheets("0324") Set srcRngs = .Range("b" & .Rows.Count).End(xlUp).Resize(, 4) End With Wit...
by snasui
Sun Mar 17, 2024 8:13 am
Forum: Other
Topic: QR CODE
Replies: 1
Views: 75

Re: QR CODE

:D Excel สามารถสร้าง QR Code ได้ แต่ตัว Scan จะต้องซื้อแยกต่าง เช่นตัว Scan ที่เป็น Hand held อย่างที่เห็นใน Seven - eleven หรือใช้โปรแกรม Scan ที่มีในโทรศัพท์มือถือ เข่นนี้เป็นต้น ส่วนเรื่อง Scan แล้วจะให้มันค้นพบว่าเคยมาสมัครไว้แล้วหรือไม่นั้นมันจะต้องมีระบบอื่นเข้ามาด้วยไม่ใช่แค่ Scan QR code เท่...
by snasui
Sat Mar 16, 2024 1:20 pm
Forum: Excel
Topic: เขียนสูตรเชื่อมข้อความอย่างไร
Replies: 2
Views: 94

Re: เขียนสูตรเชื่อมข้อความอย่างไร

:D ตัวอย่างสูตรครับ

เซลล์ E28 คีย์

=TEXTJOIN(CHAR(10),TRUE,FILTER($C$9:$C$25,E9:E25=1))

Enter > Copy ไปทางขวา
by snasui
Sat Mar 16, 2024 7:52 am
Forum: Excel
Topic: สอบถามปัญหาการปิดฟอร์ม DatePiger อัติโนมัติ หลังจากเลือกวันที่ลงเซล
Replies: 2
Views: 84

Re: สอบถามปัญหาการปิดฟอร์ม DatePiger อัติโนมัติ หลังจากเลือกวันที่ลงเซล

:D ปัจจุบันผมไม่ได้ใช้ DatePicker ไม่สะดวกทีจะทดสอบติดตั้ง คงต้องรอเพื่อนสมาชิกที่มีประสบการณ์มาช่วยตอบครับ

วิธีที่ 2 ในเครื่องผมไม่สามารถทำงานได้ ติด Error ครับ
by snasui
Tue Mar 12, 2024 12:45 pm
Forum: Excel
Topic: แสดง Shapes ตามเงื่อนไข
Replies: 5
Views: 200

Re: แสดง Shapes ตามเงื่อนไข

:D การเขียนลักษณะนี้ต้องคอยกด Run เองครับ

หากใช้ Change Event จะทำงานอัตโนมัติดูตัวอย่างได้ที่ :arrow: https://learn.microsoft.com/en-us/offic ... eet.change
by snasui
Tue Mar 12, 2024 10:04 am
Forum: Excel
Topic: แสดง Shapes ตามเงื่อนไข
Replies: 5
Views: 200

Re: แสดง Shapes ตามเงื่อนไข

:D ตัวอย่าง Code ครับ Sub Macro1() ' ' Macro1 Macro ' If Range("B1").Value = 0 Then ActiveSheet.Shapes.Range(Array("Straight Connector 11")).Visible = False Else ActiveSheet.Shapes.Range(Array("Straight Connector 11")).Visible = True End If If Range("B2").Valu...
by snasui
Tue Mar 12, 2024 8:00 am
Forum: Excel
Topic: ขอสูตร "สถานะ" แบบหลายเงื่อนไขครับ
Replies: 2
Views: 110

Re: ขอสูตร "สถานะ" แบบหลายเงื่อนไขครับ

:D ผมให้แนวทางแล้วลองนำไปเขียนเองดูก่อน ติดแล้วค่อยถามกันต่อ โจทย์ลักษณะนี้ไม่ยากเกินไปที่จะฝึกเขียนให้เป็นครับ เซลล์ N2 เขียนสูตรเพื่อนับว่ามีข้อความ "ยังไม่สมัคร" ในช่วงอยู่กี่เซลล์ =Countif(h2:l2,"ยังไม่สมัคร") Enter > Copy ลงด้านล่าง หากได้คำตอบเป็น 0 แสดงว่าไม่เจอเลยหรือหมาย...
by snasui
Tue Mar 12, 2024 7:46 am
Forum: Excel
Topic: สอบถามการกำหนดให้ textbox ใน form คีย์ค่าในรูปแบบที่กำหนดเท่านั้น
Replies: 2
Views: 89

Re: สอบถามการกำหนดให้ textbox ใน form คีย์ค่าในรูปแบบที่กำหนดเท่านั้น

:D ตัวอย่าง Code ครับ 'Other code For i = 2 To lastRow If Worksheets("Bget").Cells(i, 11).Value = ProductId Then If IsNumeric(Worksheets("Bget").Cells(i, 3).Value2) Then If Worksheets("Bget").Cells(i, 3).Value2 < 200000 Then TextBox2.Text = Worksheets("Bget")....
by snasui
Mon Mar 11, 2024 7:38 pm
Forum: Excel
Topic: แสดง Shapes ตามเงื่อนไข
Replies: 5
Views: 200

Re: แสดง Shapes ตามเงื่อนไข

:D สามารถทำได้ด้วย VBA ลองเขียนมาเองดูก่อน ติดตรงไหนค่อยถามกันต่อครับ
by snasui
Mon Mar 11, 2024 10:56 am
Forum: Excel
Topic: ขออนุญาตถามกรณีปัญหาเขียน code เชื่อมต่อจาก workbook ไป google sheet
Replies: 4
Views: 146

Re: ขออนุญาตถามกรณีปัญหาเขียน code เชื่อมต่อจาก workbook ไป google sheet

:D การเช็คค่าตรง ๆ แบบนั้นไม่ได้เขียนสั้น ๆ แบบที่เขียนมาได้ครับ วิธีที่ผมทำตัวอย่างไว้นี้เป็นการทำให้สามารถทำงานต่อได้ หากพบว่าวิธีเดิมทำได้แบบง่าย ๆ รบกวนนำมาแชร์ด้วยครับ

ส่วนที่ขึ้นว่าข้อมูลตรงกันนั้น จำเป็นต้องตรวจสอบเงื่อนไขว่าเขียนเอาไว้อย่างไร ในเซลล์ A1 มีค่าอะไรอยู่ก่อนแล้วหรือไม่ครับ
by snasui
Mon Mar 11, 2024 8:09 am
Forum: Excel
Topic: ขออนุญาตถามกรณีปัญหาเขียน code เชื่อมต่อจาก workbook ไป google sheet
Replies: 4
Views: 146

Re: ขออนุญาตถามกรณีปัญหาเขียน code เชื่อมต่อจาก workbook ไป google sheet

:D ตัวอย่างการ Query ข้อมูลจาก Google Sheet มาเทียบกับค่าเป้าหมายใน Excel ครับ Sub Import_Sheets_to_Excel() Dim QRT As QueryTable, ul As String, ky As String With Worksheets("Main") If .QueryTables.Count > 0 Then .QueryTables(1).Delete .Range("b1:b2").ClearContents End If ky = &q...
by snasui
Fri Mar 08, 2024 5:04 pm
Forum: Excel
Topic: ขอสูตรเรียงตัวเลขแบบข้ามบรรทัดครับ
Replies: 7
Views: 213

Re: ขอสูตรเรียงตัวเลขแบบข้ามบรรทัดครับ

:D ตัวอย่างวิธีการทำงานครับ แทรกบรรทัดว่าง 2 บรรทัดแรก เซลล์ D3 คีย์ =SUMPRODUCT(--(A$3:A3="<tr>")) Enter > Copy ลงไปจนสุดข้อมูล (D17) เซลล์ E3 คีย์ =COUNTIF(D$3:D3,D3)<=3 Enter > Copy ลงไปจนสุดข้อมูล (E17) คลุม E2:E17 > เข้าเมนู Data > Filter > เลือกเฉพาะ True Copy ข้อมูลในคอลัมน์ D ที่ได...
by snasui
Fri Mar 08, 2024 10:24 am
Forum: Excel
Topic: ขอสูตรเรียงตัวเลขแบบข้ามบรรทัดครับ
Replies: 7
Views: 213

Re: ขอสูตรเรียงตัวเลขแบบข้ามบรรทัดครับ

:D กรุณาแนบข้อมูลต้นทางก่อนแทรกบรรทัดสีเหลืองประกอบมาด้วยครับ
by snasui
Fri Mar 08, 2024 10:18 am
Forum: Other
Topic: สอบถามปัญหาการใช้ Data Studio ค่ะ
Replies: 1
Views: 95

Re: สอบถามปัญหาการใช้ Data Studio ค่ะ

:D ไม่สามารถช่วยได้เนื่องจากเข้าไม่ถึงแหล่งข้อมูลครับ
by snasui
Thu Mar 07, 2024 12:21 pm
Forum: Power BI
Topic: สอบถามปัญหาการใช้ Data Studio ค่ะ
Replies: 3
Views: 135

Re: สอบถามปัญหาการใช้ Data Studio ค่ะ

:D Group นี้สำหรับ Power BI ครับ

Data Studio ของ Google จะอยู่ที่หมวด Other และจากปัญหาที่ถามมาลองตรวจสอบว่า Scope ของข้อมูลที่นำมาแสดงใน Chart ครอบคลุมข้อมูลทั้งหมดที่จะนำมาใช้แล้วหรือไม่ เนื่องจากไม่สามารถตรวจสอบให้ได้จึงตอบได้แต่ภาพรวมเท่านั้นครับ
by snasui
Thu Mar 07, 2024 11:54 am
Forum: Excel
Topic: Combobx : อยากให้ Combobox แสดงผลตามไฟล์แนบ
Replies: 14
Views: 327

Re: Combobx : อยากให้ Combobox แสดงผลตามไฟล์แนบ

ที่ 31 เป็นต้นไป จะเป็น List ของ Combobox อื่นๆ ที่ไม่ได้ยกตัวอย่าง :D จะเป็นบรรทัดที่เท่าไรและมีอีกกี่บรรทัดก็ไม่ใช่ประเด็น ถ้าเข้าใจ Code ก็สามารถปรับใช้ได้ ที่สำคัญปรับใช้ง่ายมาก สงสัยหรือไม่เข้าใจบรรทัดไหนควรถามบรรทัดนั้นครับ หากศึกษาแล้วไม่เข้าใจควรเปลี่ยนวิธีการออกแบบไม่ให้ข้อมูลซ้อน ๆ กัน ให...
by snasui
Wed Mar 06, 2024 7:15 pm
Forum: Excel
Topic: Combobx : อยากให้ Combobox แสดงผลตามไฟล์แนบ
Replies: 14
Views: 327

Re: Combobx : อยากให้ Combobox แสดงผลตามไฟล์แนบ

:D ช่วยอธิบายว่าที่ผมปรับไปเดิมมีปัญหาอะไรถึงกลับมาแก้เป็นแบบนั้น ถ้าไม่มีก็ปรับให้กลับไปเป็นที่ผมเขียนให้ไป และไปแก้ตำแหน่งอื่น ไม่เช่นนั้นจะเกิดปัญหาเดิม การปรับแก้ต้องไม่นำปัญหาเดิมกลับมาครับ
by snasui
Wed Mar 06, 2024 3:51 pm
Forum: Excel
Topic: Combobx : อยากให้ Combobox แสดงผลตามไฟล์แนบ
Replies: 14
Views: 327

Re: Combobx : อยากให้ Combobox แสดงผลตามไฟล์แนบ

:D ลองปรับมาเอง ติดตรงไหนค่อยถามกันต่อ ใน Code ที่ตอบไปมันมีตัวเลขที่พอจะเดาได้ว่าให้ขยายไปถึงไหน น่าจะสังเกตได้ไม่ยากครับ
by snasui
Wed Mar 06, 2024 3:27 pm
Forum: Excel
Topic: การ Update ข้อมูลที่มีการแก้ไขครับ
Replies: 5
Views: 143

Re: การ Update ข้อมูลที่มีการแก้ไขครับ

:D ผมต้องทดสอบอย่างไรให้พบปัญหานั้น ช่วยลำดับมาให้ด้วยจะได้เข้าถึงปัญหาโดยไวครับ
by snasui
Wed Mar 06, 2024 3:20 pm
Forum: Excel
Topic: Combobx : อยากให้ Combobox แสดงผลตามไฟล์แนบ
Replies: 14
Views: 327

Re: Combobx : อยากให้ Combobox แสดงผลตามไฟล์แนบ

:D ตัวอย่างการปรับ Code ครับ Private Sub ComboBox1_Change() Dim u As Range, r As Range ComboBox2.Clear With ComboBox2 Select Case ComboBox1 Case "SUR" With Sheet1 For Each u In .Range("C2", .Range("C" & .Rows.Count).End(xlUp)) With Sheet2.ComboBox2 .AddItem u.Value ...