Snasui Excel Forum

ขอโทษนะครับ ผมไม่ค่อยมีความรู้ด้าน VBA สักเท่าไร ยังงงๆ ดูไม่ออก ว่าควรจะปรับตรงไหน ผมได้แนบไฟล์ตัวอย่างมาให้ครับ รบกวนด้วยนะครับ ด่วนมากๆ เลย

คือถ้าลองก๊อปปี้ Code จากด้านบนไปใส่ใน Macro ของ Excel จะขึ้น error ว่า Too Many Line Continuations ครับ

ต้องการคั่นข้อมูลระหว่าง Column ด้วย Pipe (|) ตอนนี้ผมหา Code VBA ได้แล้ว แต่ติดปัญหาตรงที่ Column ผมมีเยอะตั้งแต่ A-AO พอนำ Code ไปวางแล้วมันฟ้องเหมือนกับว่ายาวเกินไป Code ที่ผมใช้คือ

Sub AddPipe()
Dim Handle As Integer, File_Name As String
Dim Row As Long, PutStr As String
Dim sh As Worksheet ...

ลองตามนี้ดูครับที่ B3 คีย์
=SUMPRODUCT(--(YEAR(Transaction!$B$4:$B$11)=A3),--(Transaction!$C$4:$C$11="B"),Transaction!$D$4:$D$11)-SUMPRODUCT(--(YEAR(Transaction!$B$4:$B$11)=A3),--(Transaction!$C$4:$C$11="S"),Transaction!$D$4:$D$11)
Enter >Copy ลงล่าง

ขอบคุณมากครับ ใช้ได้แล้วครับ

ดึงข้อมูลตามปีโดยใช้ SUMPRODUCT + SUMIF ไม่ผ่าน พอจะมีวิธีไหนอีกรึเปล่าครับ รายละเอียดตามไฟล์แนบครับ
:D ที่ B2 ลองคีย์ =SUMPRODUCT(--(YEAR(Transaction!$B$4:$B$11)=A3),Transaction!$D$4:$D$11) คัดลอกลงมา


ตามสูตรนี้มันนำตัวเลข B กับ S ใน Sheet Transaction มาบวกกันไม่ใช่เหรอครับ
ที่ผมต้องการค ...

ดึงข้อมูลตามปีโดยใช้ SUMPRODUCT + SUMIF ไม่ผ่าน พอจะมีวิธีไหนอีกรึเปล่าครับ รายละเอียดตามไฟล์แนบครับ

joo wrote: ลองแนบไฟล์ที่ได้ลองทำแล้วไม่ได้มาดูกันหน่อยครับ

ขออภัยครับ ตอนนี้ทำได้แล้วครับ เกิดจากการผมสร้าง Rang Name เลือกพื้นที่ผิดจุดครับ ขอบคุณครับ

:D ลองตามนี้ดูครับ
ที่ B3 คีย์ =SUMPRODUCT(--(YEAR(Transaction!$B$4:$B$11)=$A3),Transaction!C$4:C$11) Enter > Copy ไปทางขวาและลงล่าง


ขอบคุณครับ ทำได้แล้วครับ รบกวนสอบถามต่อครับ ไม่ทราบว่าตรงส่วน Transaction!$B$4:$B$11 สามารถสร้าง Rang Name ได้รึเปล่าครับ ผมทดสอบด้วย Rang Name กับไฟล์งานของจริงใช ...

รบกวนขอสูตรดึงข้อมูลตามรายปี เช่น เราต้องการข้อมูลการฝากเงินและถอนเงินปี 2013 ก็ให้ดึงเฉพาะปี 2013 มาลงในเซลที่ต้องการ รายละเอียดตามไฟล์แนบครับ

ล่าสุดตอนนี้ผมเจอ code vba ที่สามารถเปลี่ยนอักษรให้เป็นตัวพิมพ์ใหญ่ทั้งไฟล์ได้ แต่ถ้าต้องการเปลี่ยนแค่เซลเดียวที่ A1 แบบอัตโนมัติยังหาไม่ได้

Sub ChagetoUpper()
Dim r As Range
Dim i As Integer
For i = 1 To Worksheets.Count
For Each r In Worksheets(i).UsedRange
r = UCase(r)
Next r
Next i
End ...

ysamroeng wrote:หรือลองปรับตารางงานที่ทำสักเล็กน้อย เช่น คีย์ในเซลนึง (A1) แล้วให้แสดงผลในอีกเซลนึง (B1) โดยในเซล B1 พิมพ์สูตร =UPPER(A1)

ขอบคุณมากครับ เดี๋ยวจะลองนำไปใช้ดูครับ

อยากทราบวิธีแปลงเป็นตัวอักษรใหญ่อัตโนมัติทุกครั้งที่เราพิมพ์ข้อมูล เช่น

ต้องการทำที่เซล A1 เมื่อพิมพ์ตัวอักษร Cat หรือ cat พอเคาะ enter แล้ว ให้มันแปลงเป็น CAT อัตโนมัติ

ysamroeng wrote:ทำได้ครับ

พอจะชี้แนะได้รึเปล่าครับ ตอนนี้ผมใช้วิธี Record จาก Macro ทำได้แค่ check box แล้วมัน highlight cell ที่ต้องการได้
แต่พอเอา check box ออก cell ที่ highlight มันยังอยู่อะครับ

ไม่ทราบว่า Excel สามารถทำ Check box Highlight Cell ที่ต้องการได้รึเปล่าครับ เช่น

ผมสร้าง Check box ขึ้นมา เมื่อติ๊กถูกลงในช่อง ก็ให้ Highlight สีพื้นที่ Cell A9 - A20 เป็นต้น แต่พอเอาเครื่องหมายถูกออกสีที่ Highlight ไว้ก็หายไปกลายเป็นสีขาว

คือผมได้ออกแบบฟอร์ม excel ขึ้นมา เดิมทีตอนนี้หากต้องการดูข้อมูลสินค้าวันไหนก็พิมพ์วันที่เข้าไป แต่ผมอยากเปลี่ยนรูปแบบให้เป็นรูปแบบปฏิทินครับ

เราสามารถสร้างปฏิทินบน Excel แบบนี้ได้มั๊ยครับ ผมได้แนบรูปมาให้ดูครับ

ขอบคุณครับ ผมสนใจวิธีคำนวนแบบ เข้าก่อนออกก่อนครับ

ผมอยากทราบวิธีการคำนวนต้นทุนเฉลี่ย เฉพาะสินค้าที่ซื้อมาเท่านั้นนะครับ และเมื่อมีการขายสินค้าชนิดนั้นออกไปหมดแล้ว ต้นทุนก็จะเป็น 0

เช่น
วันที่ 1 ซื้อสินค้า A มาราคา 100 บาท จำนวน 1000 ชิ้น
วันที่ 2 ขายสินค้า A ไปราคา 110 บาท จำนวน 500 ดังนั้นจะเหลือสินค้า 500 ชิ้น ส่วนต้นทุนยังคงเป็น 100 บาท
วันท ...

:D สามารถใช้ ComboBox ได้เช่นกันแต่จะซับซ้อนกว่า Validation ครับ

ลองตามนี้
คลิกขวาที่ ComboBox > Format Control ที่ Cell Link คีย C1 ที่ D1 คีย์สูตร =INDEX(Product,C1) ทดสอบเลือกค่าใน ComboBox กรณีต้องการให้เลือกมาเฉพาะค่าไม่ซ้ำ เราไม่สามารถใช้ Validation และ ComboBox ดึงค่ามาได้ จะต้องจัดการข้อม ...

เดิมทีผมได้สร้าง Drop down list ในเซล เมื่อเลือกสินค้าแล้ว จะมีข้อมูลของสินค้าชนิดนั้นขึ้นมา โดยไปดึงข้อมูลจากชีท Transaction

แต่คราวนี้ผมอยากลองเปลี่ยนมาใช้ combo box บ้าง ไม่แน่ใจว่าจะทำได้มั๊ย

ซึ่งผมได้สร้างไว้แล้ว มีรายการสินค้าขึ้นแล้ว แต่ไม่รู้ว่าจะทำยังไงให้มันดึงข้อมูลจากชีท Transaction ...

ขอบคุณครับ สามารถใช้งานได้แล้วครับ