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 ...

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,"",ROW($A$1 ...

รบกวนช่วยแนะนำสูตรการตัดขัอมูลเลขซ้ำในแนวนอนให้ผมหน่อยรายล่ะเอียดตาม 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 ...

ขอคำแนะนำการใช้งาน 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 Sub ...

:D ลองค่อย ๆ แกะสูตรดูเองก่อน สูตรพวกนี้ไม่ได้ยากเกินกว่าที่จะทำความเข้าใจได้เอง

ดูคำอธิบายเกี่ยวกับ Emonth ได้ที่นี่ครับ https://support.microsoft.com/en-us/office/eomonth-function-7314ffa1-2bc9-4005-9d66-f49db127d628

ลองคีย์แต่ละส่วนประกอบของสูตรลงไปในเซลล์ใด ๆ แล้วสังเกตดูค่าที่ได้ เช่นด้านล ...