Excel Forum

ทำไมไม่รวมไว้ที่ไฟล์เดียวกันล่ะครับ ในเมื่อ Excel มันสามารถสรุปข้อมูลได้หลายๆิวิธีในกรณีที่ข้อมูลอยู่รวมกันมากๆ เช่น Auto filter หรือ Pivot Table ก็ได้ โดยมีสัก Field หนึ่งไว้เป็นตัวกรองเงื่อนไข เช่น สัปดาห์ หรือ วันที่ ถ้าวันข้างหน้า ต้องการข้อมูลทุกข้อมูลมาสรุปเป็นรายปี คุณก็ตายสิครับแบบนี้ (อันนี...

เอาแบบนี้ไปแก้ขัดก่อนนะครับ พอดีวันนี้ฉลองกันนิดหน่อย :D เลยคิดไม่ค่อยออก Private Sub cmdSort_Click() Row = 2 MyPaste = 2 Do While Range("A" & Row).Value <> "" Range("A" & Row, "C" & Row + 1).Copy Range("E" & MyPaste).PasteSpecial Pas...

เราสามารถเข้าไปกำหนดได้จาก Conditional Formatting ครับ โดยคุณกำหนดเงื่อนไขว่า ถ้าค่าใน Cell เท่ากับ 0
ลองเข้าไปดูกระทู้นี้นะครับ http://www.snasui.com/viewtopic.php?f=3&t=2452

2007 ก็เป็นแบบนี้ละครับ ถ้า 2003 เวลายกเลิกผสาน cells มันจะเหลือแค่ค่าเดียว ดังนั้นเวลาใช้งานควรทำเหมือนที่ท่านอาจารย์บอก ต้องใช้ความระมัดระวังตลอดเวลา ไม่ว่า version ใดก็ตาม เพราะถ้าพลาดแค่ cell เดียว หมายถึงข้อมูลคุณจะผิดหมด วิธีที่ดี ผมแนะนำให้คุณใช้ข้อมูลแค่ Column เดียวแล้วปรับความกว้างเอาน่าจะ...

ที่เราต้องนำ Code ไปไว้ที่ ThisWorkbook เพราะเราจะกระทำกับ Events หรือสถานะการณ์ ที่มีอยู่ใน Workbook นั้นๆครับ แต่ถ้าหากเราต้องการกระทำกับ worksheets เราก็ต้องนำ Code ไปไว้ใน Worksheet ที่ต้องการครับ ซึ่งตัวเลือกต้อง Events ก็จะต่างกันออกไป เช่น การกระทำต่อสมุดงาน อาจมีตัวเลือก เมื่อเปิด เมื่อปิด เ...

แบบนี้ได้ไหมครับ Private Sub Workbook_Open() 'ตอนเปิดไฟล์ ซ่อนหมดเลย For Each sh In Worksheets If sh.Name <> "Main" Then sh.Visible = xlSheetVeryHidden Next End Sub Sub UnHidden() 'อันนี้ไว้ยกเลิกซ่อนนะครับ For Each sh In Worksheets sh.Visible = xlSheetVisible Next End Sub

ต้องแบบนี้หรือป่าวเอ่ย =IF(AND(C3="",F3<>"",G3<>""),G3,IF(G3<>"",C3+G3,IF(G3="",C3+F3,IF(F3="",C3,F3)))) เท่าที่ดูสูตรแล้ว สูตรที่คุณแจ้งว่ามัน Error ที่ข้อ 5 เพราะว่ามันไปเจอเงื่อนไข C3 ว่างครับ ดังนั้นเราต้องสลับการตรวจสอบใหม่ ลองเอาสูตรไ...

ลองแล้ว OK เลยครับ ปรับแต่งงายดี + สวยดีด้วย ลองเล่นสักครู่เดี่ยว รู้สึกว่า OK
ขอบคุณครับ

เครื่องอื่น Ping เจอเครื่อง Boon2 ไหมครับ

ถ่ายรูปสวยๆมาฝากพวกเราด้วยนะครับอาจารย์

ข้อมูลมีการผสาน Cells ไว้ครับลองแก้ไขสูตรที่ Cell ตามนี้นะ
V59 =SUM(V14:V58)
AC59 =SUM(AC14:AC58)
AJ59 =SUM(AJ14:AJ58)
ลองดูนะครับ

จากที่ลองเล่นลูกบอลกระเด้งใน Excel ครั้งก่อน กันไปแล้ว คราวนี้เรามาทำนาฬิกาเล่นกันดีกว่า อาจมี Error บ้างนะ

เอาแบบนี้ได้ไหม Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then Cells(ActiveCell.Row, 2).Select End Sub เวลาที่คนอื่นมาคลิกที่คอลัมน์ A มันจะเด้งออก แต่เวลาที่เราต้องการแก้ไข เราต้องกด Design Mode ก่อนนะ Code จะได้ไม่ Run เพิ่มเติมนิดหนึ่งนะครับ เท่าที่ลองคิดดู...

อาจารย์เรานี่ถ่อมตัวจริงๆ ว่าแต่วันนี้ท่านอาจารย์ไปไหน เงียบไปเลย

ลองตามนี้ครับ ไปที่หน้า VBE ครับ insert Module ขึ้นมา แล้วเอา Function ไปใส่ Function UserUpdate() As String Dim MyName As Object On Error Resume Next Set MyName = CreateObject("WScript.NetWork") UserUpdate = MyName.UserName Set objNet = Nothing End Function หรือถ้าชอบสั้นๆ ก็ Function Use...

ถูกต้องนะครับ พวกเรามิอาจเทียบท่าน "คนควน" ได้ครับ เพราะท่านเป็นอาจารย์พวกเราอีกที

ผมอ่านหลายรอบ แต่ก็งงครับ

ที่หน้า VBE (หน้าที่ใช้เขียน Code ) เลือกที่ Tool - Options - เลือก Tab Editor Format ที่ Font ให้เลือกตัวที่ลงท้ายด้วย Thai ครับ ผมใช้ AngsanaUPC แล้วก็เลือกขนาดรับ ลองดูนะ

เอา VBA แทนได้ไหมครับ เวลาคลิกไปโดนคำว่า ออกจากโปรแกรม มันจะปิดให้ ถ้าเรื่อง Links ผมไม่แน่ใจครับ ลองถามอาจารย์อีกทีนะ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Value = "ออกจากโปรแกรม" Then If MsgBox("แน่ใจหรือที่จะปิดไฟล์", vbQuestion + vbYesNo, ...

ลองแบบนี้ได้ไหมครับ ให้มันตามหา คอลัมน์ Total เองว่าอยู่คอลัมน์ที่เท่าได
ที่ sheet2 cell B2 ใส่
=IF(ISBLANK($A2)," ",VLOOKUP($A2,Sheet1!$A$2:$G$3,MATCH(B$1,Sheet1!$A$1:$AT$1,0),FALSE))