Excel Forum

:D เป็นเช่นนี้ทุกไฟล์หรือเฉพาะไฟล์นี้ไฟล์เดียวครับ ลองนำไปเปิดที่เครื่องอื่น ๆ ดูว่าเป็นเช่นนี้หรือไม่ หากเครื่องอื่นปกติแต่เป็นที่เครื่องนี้ก็จะได้มั่นใจว่าโปรแกรมจะมีปัญหา อาจะต้อง Repair หรือ Install ตัวสมบูรณ์ลงไปใหม่ครับ ผมทดลองเปิดไฟล์เทียบการเข้า View Code เทียบ2ไฟล์ในเครื่องที่ผมใช้งานอยู่พ...

:D ลองเข้าไปเช็ค Event โดยการกดแป้น Alt+F11, Ctrl+G จากนั้นคีย์ ?application.enableevents > Enter แล้วสังเกตคำตอบว่าเป็น True หรือ False หากเป็น False ต้องกำหนดให้เป็น True โดยคีย์ตำแหน่งเดิมเป็น application.enabnableevents = true ครับ ผมลองทำตามตำแนะนำแล้วครับคำตอบที่ได้เป็น True ครับ...แต่เวลาเปิ...

:D ลองเข้าไปเช็ค Event โดยการกดแป้น Alt+F11, Ctrl+G จากนั้นคีย์ ?application.enableevents > Enter แล้วสังเกตคำตอบว่าเป็น True หรือ False หากเป็น False ต้องกำหนดให้เป็น True โดยคีย์ตำแหน่งเดิมเป็น application.enabnableevents = true ครับ ผมลองทำตามตำแนะนำแล้วครับคำตอบที่ได้เป็น True ครับ...แต่เวลาเปิ...

:D ผมทดลองแล้วมีการเปิด UserForm ให้ Login ตามที่เขียนไว้ครับ กรณีที่เปิดแล้วโปรแกรมไม่แสดง UserForm แสดงว่าเครื่องนั้นมีการ Protect Macro เอาไว้ก็เป็นได้ หากนำไปเปิดที่เครื่องอื่น ก่อนที่จะเปิดไฟล์ให้ไปที่ File Explorer > คลิกขวาที่ไฟล์นั้น > Properties > เลือก Unblock > Apply > OK เสียก่อนครับ หา...

ผมอยากให้เวลาเปิดไฟล์ Excel แล้วให้แสดงหน้าFormLogin เลย เมื่อใส่ User/Password แล้วค่อยแสดงSheet ต่างๆตามที่ให้สิทธิ แบบนี้สามารถทำได้ไหมครับ ผมลองใส่ Code ที่ Thisworkbook ตามด้านล่างนี้เวลาเปิดไฟล์ก็ยังไม่แสดงหน้า Userform สำหรับ Login ได้เลยครับ ขอคำแนะนำหน่อยครับผม ๊User:Test Pass:111111 Privat...

snasui wrote: ↑Sun May 09, 2021 7:32 pm เท่าที่ลองดู Property ของ Control WebBrowser ไม่มี Property ใดให้ Set Background ได้ครับ

สำหรับ img tag ตรง <img style=...ซึ่งเป็น HTML สามารถใส่ Background Color เพิ่มได้ แต่ลองใส่แล้วไม่เกิดผลใด ๆ เช่นกันครับ

ขอบคุณสำหรับคำแนะนำครับอาจารย์

ทำตัวอย่างเลียนแบบไฟล์จริง ใสโค้ดแล้วแนบมาด้วย จะได้ช่วยกันดูได้ครับ ผมได้ลองนำCode ที่ได้รับคำแนะนำมาจากอาจารย์ท่านหนึ่งมาทดลองปรับใช้งานดู ได้ขนาดภาพอยู่ในกรอบตามต้องการแล้ว ถ้าเราไม่ต้องการให้เห็นกรอบหรือรูปเฟรมให้แสดงเห็นแต่ภาพเคลื่อนไวลอยๆสามารถทำได้ไหมครับกับ WebBrowser(ToolBox) ถ้าได้ต้องปรั...

สวัสดีครับอาจารย์และพี่ๆสมาชิก ช่วยแนะนำการนำภาพ File.gif ไปแสดงบน UserForm VBA ให้ผมหน่อยครับ ตอนนี้ผมใช้WebBrowser (Toolbox) ในการใส่ภาพ .gif ภาพมีขนาดใหญ่ ผมอยากให้ภาพแสดงขนาดพอดีกับเฟรมที่เราลากไว้ และไม่แสดงกรอบเฟรมได้ไหมครับ code ที่ผมใช้ในตอนนี้ครับ มี Code หรือ Tool ตัวไหนที่จะนำภาพ .gif ไปแ...

สูตร Microsoft 365 =LET(des,input!$E$3:$E$29,p,D3,q,FILTER(input!$F$3:$F$29,des=p),s,SEQUENCE(ROWS(q)),m,MMULT(--(s>TRANSPOSE(s)),q),c,SUMIFS(E$2:E2,D$2:D2,p),in,FILTER(input!$C$3:$C$29,des=p),d,MATCH(c+E3*{0,1},m),TEXTJOIN("/",,FILTER(in,(s>=INDEX(d,1))*(s<=INDEX(d,2))))) Version ต่ำกว่า...

=INDEX($B$2:$Q$2,SMALL(IF(FREQUENCY($B$2:$Q$2,$B$2:$Q$2)=0,"",ROW($A$1:$A$15)),COLUMN(A:A))) FREQUENCY ใช้ในการนับตัวซ้ำที่มีคับ ใช้ if ในการตัดค่าที่ไม่ซ้ำออกและแทนค่าใหม่ ใช้ small ในการเลือกค่าที่ถูกแทนค่าที่ละตำแหน่ง เพื่อกำหนด ค่าให้ range ให้ index แสดงค่าที่มีออกมา ผมอธิบายคราวๆ ได...

เป็นข้อมูลของการตัด Stock สินค้าแต่ล่ะรายการ สิ่งที่ต้องการนำมาแสดงผลที่ Sheet Output คือ เลขที่ Invoice ที่มีการดึงสินค้ามาใช้ในแต่ละรายการของแต่ล่ะครั้งโดยให้ตัด Stock สินค้าตามลำดับก่อนหลังเพื่อต้องการทราบข้อมูลการนำสินค้ามาใช้ว่าเอามาจากเชขที่ Invoice อะไร ตาม File แนบมาผมจะต้องใช้สูตรอย่างไรครั...

=INDEX($B$2:$Q$2,SMALL(IF(FREQUENCY($B$2:$Q$2,$B$2:$Q$2)=0,"",ROW($A$1:$A$15)),COLUMN(A:A))) Array formula {} Copy right >>>> ได้แบบเคียงๆ ขอบคุณครับได้ผลตามต้องการครับ รบกวนช่วยอธิบายสูตรที่ใช้พอเป็นแนวทางศึกษาหน่อยครับผม =INDEX($B$2:$Q$2,SMALL(IF(FREQUENCY($B$2:$Q$2,$B$2:$Q$2)=0,"&...

รบกวนช่วยแนะนำสูตรการตัดขัอมูลเลขซ้ำในแนวนอนให้ผมหน่อยรายล่ะเอียดตาม File แนบครับ

puriwutpokin wrote: ↑Mon Sep 14, 2020 4:00 pm ปรับเป็น

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a2:a10")) Is Nothing Then
Target.Offset(0, 1).Value = ""
End If
End Sub

-ขอบคุณครับ

การทำแบบนั้นเมื่อมีการเปลี่ยนค่าใน Dropdown แล้วให้เป็นค่าว่าง ต้อง อาศัย VBA มาช่วยครับ ลองบันทึก Macro ดูแล้วแก้ไข ติดตรงไหนมาถามต่อครับ ผมลองใช้ VBA แล้ว ถ้าจะให้ Drop down list ชั้นที่ 2 เป็นค่าว่างก็ต่อเมื่อมีการเปลี่ยนค่า Drop down list ชั้นที่1 ต้องปรับ VBA Code อย่างไรครับ Private Sub Works...

ขอคำแนะนำการใช้งาน Drop down list แบบ 2 ชั้นหน่อยครับ เมื่อเรามีการเลือกค่าใน Drop down list ชั้นที่ 1 และ 2 ได้ตามต้องการแล้ว แต่ถ้าเราต้องการเปลี่ยนค่า Drop down list ชั้นที่ 1 ใหม่ และให้ค่าในช่องถัดไปซึ่งเป็นค่า Drop down list ชั้น 2 เป็นค่าว่างจนกว่าจะมีการเข้าไปเลือกค่าใหม่ สามารถทำได้ไหมครับแ...

ขอคำแนะนำครับ ถ้ารูปแบบวันที่ที่ดึงข้อมูลมาเป็นแบบนี้ 01-ส.ค.-2563 ต้องการแปลงเป็นแบบนี้ 1/8/2020 สามารถทำได้ไหมครับ
01-ส.ค.-2563 ==> 1/8/2020

:D การจะให้คำนวณทันทีจะต้องพึ่ง Change Event ครับ ดูตัวอย่าง Change Event ได้ที่นี่ครับ https://snasui.com/viewtopic.php?t=6455 เมื่อเกิด Change Event ที่ Object ใด ๆ แล้วเราจะเขียนให้โปรแกรมทำงานอย่างอื่น ๆ ต่อไปได้ ไม่ว่าจะไปจัดการกับ Object เซลล์ ชีต ไฟล์ ฯลฯ ครับ -ขอบคุณครับ ผมจะลองเข้าไปศึกษาด...

ได้แล้วครับ ขอบคุณ คุณServerChita มากเลยครับ ลองปรับเปลี่ยนโค้ดใหม่ ก็จะได้คอมม่า และ จุดทศนิยมด้วย โค้ดที่ได้ เป็นดังนี้ครับ Private Sub CommandButton1_Click() Dim x, y, sum As Double x = Val(TextBox1.Text) y = Val(TextBox2.Text) sum = x + y TextBox3.Text = Format(sum, "##,##0.00") End S...

:D ลองค่อย ๆ แกะสูตรดูเองก่อน สูตรพวกนี้ไม่ได้ยากเกินกว่าที่จะทำความเข้าใจได้เอง ดูคำอธิบายเกี่ยวกับ Emonth ได้ที่นี่ครับ https://support.microsoft.com/en-us/office/eomonth-function-7314ffa1-2bc9-4005-9d66-f49db127d628 ลองคีย์แต่ละส่วนประกอบของสูตรลงไปในเซลล์ใด ๆ แล้วสังเกตดูค่าที่ได้ เช่นด้านล่าง ...