Excel Forum

ขอบคุณครับ พอได้แนวทาง ไว้เดี๋ยวต้องลองทำดู

= Text(A2,"[$-409] D-mmm-yyyy")

เช่น ในไฟล์ A มีปุ่มให้เลือกไฟล์เอกเซลเป้าหมาย
พอเลือกไฟล์ B ปุ๊ป ก็จะสร้างโค้ด vba ให้ไฟล์ B ขึ้นมาอัตโนมัติ
ไม่รู้ว่าสามารถทำได้โดยไม่ใช้โปรแกรมอื่นมาเสริมได้หรือเปล่าครับ

อ๋อ ลองทำดูแล้วครับ ฟอนท์อ่านยากจริงด้วย แถมสระก็กินพื้นที่ไปอีก 1 ช่องด้วย
ถ้างั้นคงต้องแก้ปัญหาโดยออกแบบให้ user ปรับความห่างของช่องว่างได้เองดีกว่า โดยใช้เงื่อนไขว่าถ้า User ไม่ปรับก็จะ default ความห่างให้ตามสูตร แต่ถ้า User ต้องการความสวยงาม ก็มี option ให้ปรับได้ด้วย

วิธีที่ว่าซับซ้อนหรือเปล่าครับ ซับซ้อนใกล้เคียงกับเรื่องการดึงค่าจาก object ที่ผมเคยถามหรือเปล่าครับ

ตามตัวอย่างไฟล์ครับ ผมอยากจัดให้อยู่ในรูปแบบที่อยากได้ โดยการลากสูตรทีเดียวแล้วจะได้ให้มันอัตโนมัติทุกครั้งที่มีการเพิ่มข้อมูล ไม่ทราบว่ามีวิธีเขียนสูตรอย่างไรให้มันหน้าตาเรียบร้อยแบบคอลัมน์สิ่งที่ต้องการหรือเปล่า ความต้องการนำไปใช้คือ เพื่อให้ USER สามารถเลือกสินค้าที่ต้องการและคลิกปุ่มเพื่อแอดสินค...

อ๋อได้ละครับ ขอบคุณครับ

จากสูตรช่อง D3 คุณอ้างอิงเซลล์ผิดหนึ่งจุดครับ
=VLOOKUP($C3,'Due Date'!$D$1:$E$150,MATCH($D$1,'Due Date'!$D$1:$E$1,0),0)
ต้องเปลี่ยนเป็น
=VLOOKUP($C3,'Due Date'!$D$1:$E$150,MATCH($D$1,'Due Date'!$D$2:$E$1,0),0)

=countif(A:A,"A")+countif(A:A,"B")+...+countif(A:A,"Z")
เขียนให้สั้นๆยังไงครับ

tool option สินะครับ ค่อยยังชั่วนึกว่าเวอร์ชั่นใหม่ต้องประกาศตัวแปรไม่งั้นงานเข้าตายเลย เดี๋ยวลองไปเช็คอีกเครื่องดูว่ามีเซ็ตอะไรแบบนี้ไว้หรือเปล่า
ส่วนประเด็นอื่นเดี๋ยวได้เครื่องมารันสูตรแล้วจะรบกวนถามอีกทีครับ แบบนี้ก็ค่อยโล่งใจหน่อย

ผมสับสนแค่คำเรียกน่ะครับ เท่าที่เล่นมา 2016 กำหนดค่าตัวแปรอย่างเดียวไม่ได้ ต้องประกาศตัวแปรด้วย แต่เวอร์ชั่นต่ำกว่านั้น สามารถกำหนดค่าตัวแปรได้เลยโดยไม่ต้องประกาศ และคำสั่ง sheets("xxx").range("a1").pastespecial xlvalues ผมรันบนเวอร์ชั่นต่ำได้ แต่พอไปรันใน 2016 แล้วมันขึ้น debug ...

ในสูตร
VLOOKUP($E$7&"0"&$E12,'08 (2)'!A5:I64,1)
ก่อนจะลากสูตรลงบรรทัดล่าง ต้องใส่ $ $ ดังนี้ด้วยครับ VLOOKUP($E$7&"0"&$E12,'08 (2)'!$A$5:$I$64,1)

ตามไฟล์แนบครับน่า

ถ้าจะถามแบบนี้ ผมก็ตอบว่าเอาเชือกดึงเลยครับแหม่ ไม่มีข้อมูลอะไรเลย

ผมเอาไฟล์ไปรันในเครื่อง 2016 แล้วคำสั่งเช่น pastespecial, sendtoback, sendtofront และการประกาศตัวแปรที่จะใช้ xxx= ..... โดยละ Dim ไม่ได้ต้องมี Dim xxx ก่อนทุกตัว ซึ่งจากทีว่ามา แนวโน้มของ excel จะเป็นยังไงครับ จะต้องปรับตัวตาม Code ใหม่ใน 2016 หรือว่าเป็นสิ่งที่ ms office น่าจะต้องแก้ไขในอนาคต หรือจ...

หาก DataType เป็น Integer เช่นที่ผมโพสต์ไป แสดงว่ามีค่าตั้งต้นที่ 0 หาก DataType เป็น String ค่าเริ่มต้นจะเป็น "" เช่นนี้เป็นต้น อ๋อ ผมก็เดาว่า j น่าจะเริ่มที่ 0 เพราะวิเคราะห์จากผลลัพธ์ที่ได้ ถ้างั้น j ก็น่าจะเป็นแค่การเช็คว่าจะวนลูปกี่รอบ ใช่ครับเข้าใจยากมาก จะหาใน google ก็ไม่รู้เลยว่า...

ยังไม่รู้ความหมาย แต่พอจะแกะได้แล้วครับว่า ถ้าจะเพิ่ม object ก็ต้องเปลี่ยนเลขจาก
Resize(1, 2). เป็น Resize(1, 7). และ
c(0, 2) As Variant เป็น c(0, 7) As Variant
เป็นต้น

ขอกลับมาถามใหม่อีกรอบหน่อยครับ 1. If j = 0 Then ่j=0 เป็นการเช็คอะไรเหรอครับ เพราะผมไม่เจอการประกาศเลยว่า j คืออะไร เจอแต่ j as integer 2. c(0, j - 1) = a(i) c(0, j - 1) มันคืออะไรเหรอครับ ผมไม่เจอการประกาศ c เช่นกัน เจอแต่ c(0, 2) as variant ไม่เข้าใจว่ามันมีความหมายยังไง คือผมลองเพิ่ม object เข้าไ...

I alway solve this problem with
=index(... : ..., sumifs(... : ...,........))

คงต้องฝึกวิชาอื่นอีกเยอะก่อนถึงจะเข้าใจได้สินะครับ ขอบคุณมากครับ