snasui.com

snasui

:D ตัวอย่างการปรับสูตรตามด้านล่างครับ ที่ D2 คีย์สูตรเพื่อเป็นคอลัมน์ช่วย =SUMPRODUCT(LEN($C$2:C2)-LEN(SUBSTITUTE(C$2:C2,CHAR(10),""))+1)-(LEN(C2)-LEN(SUBSTITUTE(C2,CHAR(10),""))) Enter > Copy ลงด้านล่าง ที่ D1 คีย์สูตรเพื่อเป็นตัวนับ =SUMPRODUCT(LEN(C2:C182)-LEN(SUBSTITUTE(C2:C1...

snasui

กรุณาแนบเป็นไฟล์ Excel มาที่ฟอรัมนี้โดยตรงตามกฎการใช้บอร์ดข้อ 4 ด้านบน

ครับ

snasui

กรุณาแนบไฟล์ Excel ที่มี Code นี้แล้วมาด้วย จะได้สะดวกในการตอบของเพื่อนสมาชิกครับ

snasui

:D ตัวอย่างสูตรตามด้านล่างครับ ที่ D3 คีย์สูตรเพื่อเป็นคอลัมน์ช่วย =SUMPRODUCT(LEN($C$3:C3)-LEN(SUBSTITUTE(C$3:C3,CHAR(10),"")))-(LEN(C3)-LEN(SUBSTITUTE(C3,CHAR(10),"")))+1 Enter > Copy ลงด้านล่าง ที่ C9 คีย์สูตรเพื่อแสดงรายการอาหาร =TRIM(LEFT(SUBSTITUTE(FILTERXML("<t><s>&qu...

snasui

คิดว่าพอมีทางทำได้ ลองแนบไฟล์ Excel ที่ทำเป็นตัวอย่างมาด้วยเพื่อน ๆ จะได้ช่วยหาวิธีให้ได้ครับ

snasui

เราจะใช้สูตรใดให้สามารถนอกจากสูตร =IF(AND(D3=Main!$E$7,E3=Main!$E$9),LOOKUP(9.99999999999999E+307,$P$2:P2)+1,"") เพื่อดึงค่ามาแสดงได้ โดยไม่ต้องแก้ไขรูปแบบเซล (ไม่ว่า E35.........จะเป็นข้อความหรือเป็นตัวเลขสูตรก็ทำงาน) :D ตัวอย่างการปรับสูตรที่ P3 ครับ =IF(AND(D3=Main!$E$7,E3 +0 =Main!$E$...

snasui

ตัวอย่างการ Loop ครับ

Code: Select all

for i = 1 to 5
    me.controls("t" & i + 1).value = rs.fields(i).value
next i

snasui

เนื่องจากค่าวรรคในคอลัมน์ F ไม่ใช่ค่าวรรคของการเคาะ Space bar ครับ

วิธีแก้ไข

เขียนสูตรที่ E8 เป็น
=SUBSTITUTE(F8,CHAR(160)," ")
Enter > Copy สูตรลงด้านล่าง
คัดลอกสูตรในคอลัมน์ E ไปวางเฉพาะ Value ในคอลัมน์ F
ลบสูตรในคอลัมน์ E ทิ้งไป

snasui

:D ลองปรับ Code เป็นด้านล่างครับ Sub Macro8() ' Range("C3:I162").Select ' Selection.Copy ' Sheets("Sheet2").Select ' Range("C3").Select ' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ ' :=False, Transpose:=False ' Range("C3").Sel...

snasui

:D เมื่อทำงานกับวันที่ ควรใช้แบบคริตศักราชเสมอครับ สำหรับตัวอย่างนี้การแปลงทำได้ด้วยวิธีง่าย ๆ โดยใช้การ Replace (Ctrl+F) โดยช่องบนคีย์ 2565 ช่องล่างคีย์ 2022 > คลิกปุ่ม Replace All INDEX($I$5:$L$5,MATCH(C$1,$I$3:$L$3,0)) สูตรนี้แปลว่า จากช่วง $I$5:$L$5 ให้นำ ลำดับที่ ที่เป็นผลลัพธ์ของ MATCH(C$1,$I$...

snasui

:D ตัวอย่างสูตรที่ C2 ครับ =($B2=AGGREGATE(15,6,ROW(INDIRECT(EOMONTH(B2,-1)+1&":"&EOMONTH(B2,0)))/(WEEKDAY(ROW(INDIRECT(EOMONTH(B2,-1)+1&":"&EOMONTH(B2,0))),2)= 2 ), 2 ))*INDEX($I$5:$L$5,MATCH(C$1,$I$3:$L$3,0)) Enter > Copy ลงด้านล่าง > ปรับใช้กับคอลัมน์ที่เหลือ เ...

snasui

ใช้ rs.fields(x) มาช่วยแสดงคำตอบได้ครับ เช่น

t2.Value = rs.fields(0) แสดงค่าของ Fields แรก
t2.Value = rs.fields(1) แสดงค่าของ Fields ที่สอง เป็นต้น

snasui

ช่วยยกตัวอย่างโดยคีย์คำตอบที่ถูกต้องลงมาในไฟล์พร้อมอธิบายว่าค่านั้น ๆ มีวิธีการคิดอย่างไรจะได้เข้าถึงปัญหาโดยไวครับ

snasui

ดึงค่าใดมาวางโดยใช้เงื่อนไขใด สูตรที่เขียนไว้แล้วนั้นผิดพลาดตรงไหน อย่างไรครับ

snasui

Excel ไม่มี Option การพิมพ์ซ้ำท้ายตาราง การเลือกใช้ภาพจึงเป็นทางเลือกที่ดีแล้วครับ

snasui

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
Dim lng As Long
lng = Rows.Count
i = Range("B" & lng).End(xlUp).Row
Do
    i = i - 1
Loop Until Range("b" & i).Value <> ""

ActiveSheet.PageSetup.PrintArea = "$A$2:$G$" & i
'Other code

snasui

ถ้าเงื่อนไขบังคับว่าไม่ต้องการ Format เครื่อง ไม่สามารถลง Antivirus ตัวใหม่ ก็คงต้องเลือกทำอย่างเช่นที่ทำอยู่ปัจจุบันครับ

snasui

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

เมื่อกำหนด Format เป็น % มีทศนิยมเป็น 1 ตำแหน่งด้วยวิธีปกติแล้วจึงค่อยเข้าไปกำหนด Conditional formatting หากกำหนดถูกต้องตามสาระสำคัญในภาพ จะต้องได้คำตอบครับ

snasui

กำหนด Format เป็น % ให้แสดงทศนิยม 1 ตำแหน่งด้วยวิธีปกติก่อน จากนั้นค่อยกำหนด Conditional Formatting

จากคำตอบที่ให้ไปเปลี่ยนสูตรจาก =d3=round(d3,1) เป็น =d3=round(d3,2) และเปลี่ยน Format จาก 0.0% เป็น 0% ครับ

snasui

:D ตัวอย่างการกำหนด Conditional formatting ครับ คลุม D3:D5 เข้าเมนู Home > Conditional formatting > New rule Use a formula to determine which cells to format ที่ช่อง Format values where this formula is true: คีย์สูตร =d3=round(d3,1) คลิกปุ่ม Format > คลิกแถบ Number > ที่ช่อง Type: คีย์ 0.0% OK > OK

snasui.com

EXCEL TOOLS

Search found 29170 matches

Re: สอบถามวิธีการดึงข้อมูลใน Excel ที่ขึ้นบรรทัดใหม่ ให้แยกอยู่ในรูปแบบ Row

Re: สอบถามวิธีการดึงข้อมูลใน Excel ที่ขึ้นบรรทัดใหม่ ให้แยกอยู่ในรูปแบบ Row

Re: vba ดึงเบอร์โทรจากอีก cell มาอีก cell เลข 0 ไม่มาด้วย ต้องทำยังไงครับ

Re: สอบถามวิธีการดึงข้อมูลใน Excel ที่ขึ้นบรรทัดใหม่ ให้แยกอยู่ในรูปแบบ Row

Re: สอบถามวิธีการดึงข้อมูลใน Excel ที่ขึ้นบรรทัดใหม่ ให้แยกอยู่ในรูปแบบ Row

Re: สอบถามสูตร Lookup แล้วไม่สามารถดึงข้อมูลมาได้

Re: ผมอยากให้ record ที่เลือกจาก mysql แสดงใน textbox ด้วย vba ต้องทำยังไงต่อครับ

Re: สูตรเก่าที่ใส่เอาไว้ ไม่แสดงผล

Re: สอบถามปัญหาการ Copy ข้อมูลจากชีทหนึ่งไปอีกชีทหนึ่ง

Re: สอบถามหาสูตรการหาวันที่จ่ายเงินทุกเดือน

Re: สอบถามหาสูตรการหาวันที่จ่ายเงินทุกเดือน

Re: ผมอยากให้ record ที่เลือกจาก mysql แสดงใน textbox ด้วย vba ต้องทำยังไงต่อครับ

Re: สอบถามหาสูตรการหาวันที่จ่ายเงินทุกเดือน

Re: การใช้สูตรดึงข้อมูลข้ามชีท

Re: สอบถามการใช้ VBA กำหนดSetPrintArea ครับ

Re: สอบถามการใช้ VBA กำหนดSetPrintArea ครับ

Re: ล้างไวรัสซ่อนไฟล์ ออกจาก PC

Re: ถ้าเปอร์เซ็น จุดทศนิยมไม่มี ไม่ต้องแสดง แต่ถ้ามีให้แสดงตามจริง

Re: ถ้าเปอร์เซ็น จุดทศนิยมไม่มี ไม่ต้องแสดง แต่ถ้ามีให้แสดงตามจริง

Re: ถ้าเปอร์เซ็น จุดทศนิยมไม่มี ไม่ต้องแสดง แต่ถ้ามีให้แสดงตามจริง