Excel Forum

ลองเอา Code นี้ไป Run ที่ sheet1 ดูครับ


Sub RenameSheets()
Row = 3 'เราเริ่มบรรทัดที่ 3
For Each o In Worksheets
If Range("C" & Row).Value = "" Then Exit For
If o.Name <> "Sheet1" Then o.Name = Range("C" & Row).Value
Row = Row + 1
Next
End Sub

โปรแกรมหา Combobox ไม่เจอครับ ดูจากภาพ คุณเขียนอยู่ที่ Sheet2 หรือป่าวครับ ไม่ใช่ Sheet8 ลองเช็คดูครับ

ลองสูตรนี้ดูนะครับ
=IF(OR(D3="",G3=""),"",IF(D3=G3,"",F3&" "&G3&"x"&H3&D3))

คัดลอกไปไว้ที่ J3 แล้วคัดลอกลงล่าง

แบบนี้ได้หรือป่าวครับ ใช้ Code เข้ามาช่วย
Sub Test()
Dim intRow As Integer
intRow = 19
Do While Range("G" & intRow).Value <> ""
If (Range("R" & intRow).Value + Range("S" & intRow).Value + Range("T" & intRow).Value) = 0 Then
Rows(intRow).Delete Shift:=xlUp
End If
intRow = intRow + 1
Loop
MsgBox ...

ถ้าคอล้มน์ว่างๆสักช่อง เอา Stock + BO + Forecast แล้วก็ใช้ autofilter กรองค่าบรรทัดที่เป็น 0 แล้วลบออกก็ได้นี่ครับ

แบบนี้หรือป่าวครับ เปิด TextFile แล้ววน Loop เอามาวาง

Private Sub CommandButton1_Click()
Dim Handle As Integer, File_Name As String
Dim WriteRow As Long, TemArr, OneLine As String
Dim intRow As Integer
intRow = 1
Handle = FreeFile
File_Name = "ทีอยู่ TextFile"
Open File_Name For Input As ...

แบบสั้นๆครับ เปิดได้ทุกนามสกุลที่ผมใช้อยู่นะ


Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Sub ...

ลองสร้าง Field ที่เป็น PK ขึ้นมาใหม่สิครับ โดยเอาสอง Field ที่ต้องการหาเอามารวมกับโดยใช้ & เช่น คุณอยากทราบ ชนิดภัย กับ อำเภอว่ากี่ครั้ง คุณก็เอา Field ชนิดภัย & อำเภอ จะได้ว่า อัคคีภัยบางมะพร้าว ประมาณนี้ เราก็จะได้ PK ใหม่ เอาไว้ใช้ร่วมกับสูตรพื้นฐานเช่น Countif และ Sumif ได้อย่างสบายๆครับ ลองดูนะ

Position
Excel Development Staff (ด่วน)
Functional Area
ซ.เพชรเกษม 122
Properties
เพศ ช/ญ อายุ 23 ปีขึ้นไป จบการศึกษาระดับปริญญาตรีในสาขาคอมพิวเตอร์หรืออืน ๆ ที่เกี่ยวข้อง ใช้ Mocrosoft Excel ได้เป็นอย่างดี Auto Filter ,PivotTable,สร้างกราฟได้,สูตร Vlookup,สูตร Match , สูตร SUM, สูตร IF ซ้อน IF หรือ ...

จากที่อ้างอิงชื่อ Field เปลี่ยนเป็นอ้างอิงลำดับที่ของ Field ได้ไหมครับ เช่น Text1.text = rs.fields(1)

อาจารย์ต้องเปิดห้องสอนภาษาไทยแล้วล่ะผมว่า

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

ลองดูครับ
Sub Test()
Dim Score As Integer
Score = [C1]
If Score > [E7] Then ' มากกว่าเวลามากที่สุด
MsgBox "++Champion++ คุณคือผู้ทำเวลาได้ดีที่สุดในขณะนี้"
ElseIf Score = [E7] Then 'เท่ากับเวลามากที่สุด
MsgBox "ดีมากครับ...คุณทำเวลาได้เท่ากับเวลาที่ดีที่สุดในขณะนี้"
ElseIf Score >= [E5] Then ...

อาจารย์ผมลองดูวันที่แล้ว เป็น Text ทั้งดุ้นเลยครับ เหมือนดึงมาจากฐานข้อมูลที่มี Format เป็น Varchar เลยครับ ดึง Value ออกมาใช้ไม่ได้เลย
เอาแบบนี้ได้ไหม แปลงวันที่ก่อน แล้วค่อยนำสูตรท่านอาจารย์ไปใช้

แปลง Text ของคุณเป็นวันที่ก่อน ที่ D3 พิมพ์
=DATE(RIGHT(C3,4)-543,MATCH((TRIM(MID(C3,MAX(IF(ISERROR ...

หาอายุงาน เรามักจะใช้ Datedif ครับ
หาปี = Datedif(วันที่เริ่ม,Today(),"Y")
หาเดือน = Datedif(วันที่เริ่ม,Today(),"YM")
หาัวัน = Datedif(วันที่เริ่ม,Today(),"MD")

ลองสูตรของผมดูนะครับ ผมคำนวนแล้วได้เวลาทั้งสิ้น 136 ชั่วโมง 20 นาที
ที่ B8 ใส่ =(SUM(HOUR(IF(ISNUMBER($B$12:$B$42),$B$12:$B$42,0))))+(INT((SUM(MINUTE(IF(ISNUMBER($B$12:$B$42),$B$12:$B$42,0)))/60)))+(((MOD((SUM(MINUTE(IF(ISNUMBER(B12:B42),B12:B42,0)))/60),1)*60))/100)
Ctrl + Shift + Enter

ผมแยกช ...

ใช้ userForm เข้ามาช่วยในการ Login สิครับ ซึ่งแต่ละคนก็จะมี User และรหัสผ่านเป็นของตนเอง จากนั้นเราค่อยกำหนดสิทธิ์การใช้งานของแต่ละ user

งง

Transpose ใช้ในกรณีที่เราต้องการวางข้อมูลสลับกับข้อมูลตั้งต้น เช่น คัดลอกมาเป็น Row แล้ววางเป็น Column ครับ หรือ คัดลอกมาเป็นแบบ Column แล้ววางเป็น Row ครับ (สวัสดีวันสงกรานต์ครับ)

ถ้าเป็นแบบน้้นส่วนใหญ่ผมจะนำข้อมูลทั้งหลายไปเก็บไว้ใน Sql server ครับ โดยใช้โปรแกรม Excel เป็นตัวคีย์ข้อมูลเข้าไป ซึ่งกรณีข้อมูลมากจากหลายแหล่งข้อมูล เราก็จะทำไฟล์ให้แต่ละส่วนใช้งาน ซึ่งไฟล์ที่ทำส่วนมาก มักจะทำหน้าตาเดิมๆ เพราะ user ส่วนใหญ่มักกลัวการเปลี่ยนแปลง (โดยเฉพาะคนเก่าคนแก่ กลัวเทคโนโลยี) แ ...