Snasui Excel Forum

ขอบคุณครับท่าน

เราสามารถหา codeได้จากการบันทึกมาโครแล้วนำcodeมาปรับใช้

Public Sub Enter()
Sheets("111").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Worksheets("ORG").txtName.Text
Call Default
End Sub

:thup: :cp: โอ้ขอบคุณมากครับท่าน :cp: :thup:

ช่วยขยายความหน่อยได้ไหมท่าน บันทึกมาโครแล้วนำ code ...

จากไฟล์แนบนะครับ กดปุ่ม NewSheet กด enter แล้วผมให้ copy sheet 111 ออกมา แต่ผมอยากให้ sheet ที่ copy ออกมานั้น rename ตามชื่อใน Textbox น่ะครับ

ขอบคุณทุกท่านมากๆเลยครับ ตอนนี้ได้เอาไปปรับใช้ในงานเรียบร้อยแล้วครับ ขอบคุณครับ

:D กำหนด Format ของคอลัมน์ A ให้เป็น Text เสียก่อนครับ โดย
คลุมคอลัมน์ A
เข้าเมนู Data > Text to columns > Delimited > Next > Next > Text > Finish

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

logic wrote:ตอนให้ชื่อ SCell คุณเขียนสูตรโดยอ้างอิงผิดเซลล์ ในไฟล์แนบผมแก้มาให้แล้ว ลองเทียบกับไฟล์เดิมดูครับ

ขอบคุณครับ แต่ก็เจอปัญหาเหมือนกันเลยครับคือถ้ามีแค่ค่าเดียว เช่น 5% ค่าที่ได้จะได้ 0% แทนที่จะได้ 5% น่ะครับ

logic wrote:แนบไฟล์มาดีกว่าครับ แบบภาพมาเพื่อนสมาชิกทดสอบให้ไม่ได้ครับ

รบกวนด้วยครับ

logic wrote:หากเป็นเช่นนั้นคุณลอง Save ไฟล์เป็นนามสกุล .xlsm ดูครับ

ตอนทำข้อ 1-5 เสร็จแล้วขึ้นตามรูปครับ

save เป็น xlsm แล้ว พอปิดแล้วเปิดไฟล์นี้ขึ้นมาใหม่ก็ขึ้นตามรูปเช่นกันครับ

:D ทำตามที่ท่านอาจารย์แนะนำครบหรือยังครับ
สูตรนี้ต้องใช้ Excel 4 Macro Function จำเป็นจะต้องกำหนดการใช้งาน Macro ด้วย
หรือถ้าต้องการแบบแยกลองดูครับที่ G5 คีย์
=TRIM(MID(SUBSTITUTE(","&$E5,",",REPT(" ",LEN($E5))),COLUMNS($G5:G5)*LEN($E5)+ISERR(FIND(",",$E5)),LEN($E5))) Enter คัดลอกไปทางขวาและลงล ...

snasui wrote:

ziapay wrote:ส่งไฟล์มาแล้วครับ รบกวนด้วยนะครับ

ยังไม่ได้ทำข้อ 1-5 ตามที่ผมแนะนำไปครับ

ผมทำแล้วครับไม่ได้ แต่พอ save ไปแล้วเปิดขึ้นมาใหม่ ข้อ 1-5 ที่ทำไว้ หายหมดเลยอ่ะครับ

ส่งไฟล์มาแล้วครับ รบกวนด้วยนะครับ

Enable Macro แล้ว ทำตามแล้วได้ผลตามรูปครับ (ทำเฉพาะ B1)

snasui wrote: มีหลักการคิดอย่างไรจึงได้คำตอบเป็น 9% ครับ

ตามรูปนะครับ ถ้าผมต้องการคำตอบแบบช่อง B ตัวสีแดง (เอาตัวเลขในเซลล์ A มาบวกกัน) จะใช้สูตรอย่างไรได้บ้างครับ

ผมแนบไฟล์ไม่เป็น ขออภัยด้วยครับ

รบกวนสอบถามครับสมมุติผมมีตัวเลข 100 ที่ A1 และ 3%,2%,4% ที่ B1
ผมอยากให้ C1 นำ A1 ลบด้วย B1 ค่าที่ได้จะเท่ากับ 91 ครับ

หรือจะทำยังไงให้ C1 = 9% ครับ