Snasui Excel Forum

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

จริงๆก้อถูกน่ะค่ะ แต่ผลลัพธ์ที่จะนำมาคำนวณจิงๆมันอยู่คอลัมน์ที่ 4,5ค่ะ
หนูแนบไฟล์ตัวอย่างผลลัพธ์จิงๆไปค่ะที่ Grand total จะคำนวณแค่ที่เปนฟอแมตเส้นฟ้าค่ะ
ส่วน Grand total2.5กับ 3.5ก็จะคำนวณทุกครั้งที่เจอ 2.5,3.5 ค่ะ

มัน error ค่ะ
Range("F1:F" & lr).RemoveDuplicates Columns:=1, Header:=xlNo

ถูกค่ะ แต่ค่าที่ sum ทั้งหมดจะอยู่ที่ row "Grand Total" น่ะค่ะ
แล้วที่ "Grand Total 2.5" จะซัมชื่อ family ที่ตรงกับ 2.5 ในคอลัมน์ที่สาม ส่วน "Grand total 3.5" ็จะซัม row ตรงกับ 3.5 ค่ะ

โปรแกรมอยู่ที่ Module1 ค่ะ คือหนูอยากให้
"Grand total 2.5" กับ"Grand total 3.5" ะบายสีออกมาเหมือน "Grand Total" ค่ะอาจารย์

MPS.xlsx

จะให้ชื่อ "Grand total 2.5" กับ"Grand total 3.5" ระบายสีเหมือน "Grand Total" ทำไงดีค่ะ
แนบไฟล์คู่กับโค้ดไม่ได้ค่ะไฟล์ใหญ่เกินไป รบกวนผู้รู้ช่วยตอบทีน่ะค่ะ ขอบคุณค่ะ



Public Sub compareprocap() 'refferenccompare
Application.ScreenUpdating = False
ActiveWorkbook.Sheets("MPS COMPARE ...

ได้แล้วค่ะอาจารย์

พอใช้การต่อข้อความมารับพอวนเจอบรรทัดที่เป็น total แล้ว มันเกิด total ซ้ำอีกค่ะอาจารย์


For j = 1 To no_d 'sum commit sub total
r = pro2(j) + " Total" 'พอใช้ r มารับ
If pro2(j) <> r Then
sum = sum + Worksheets("MPS COMPARE").Cells(6 + j, 3).Value

ElseIf pro2(j) = r Then
Worksheets("MPS ...

หนูจำลองรูปแบบผลลัพธ์ที่หน้า worksheet :MPS COMPARE น่ะค่ะ
โค้ดอยู่ในไฟล์แล้วค่ะ แก้ไขแล้วค่ะอาจารย์

Public Function comparefmonth1mps1()
Application.ScreenUpdating = False
Dim i As Integer, x As Integer, j As Integer
Dim Fmonth() As String
Dim pro As String
Dim cap As String
Dim pro2() As String
Dim cap2() As String
Dim commit() As String
Dim no_c As Single, no_d As Single, sum As Single, total ...

pro2 = "ACCUS"
r = pro2+ "Total"

คือ r = ACCUSTotal

อยากให้แสดงออกมา "ACCUS Total"
จะเว้นบรรทัดด้วยวิธีไหนค่ะช่วยแนะนำด้วยค่ะ

สั่งปิดไฟล์ไม่ได้ค่ะอาจารย์วันนั้นลองแล้วได้แต่พอมาลองรันวันนี้กลับไม่ยอมปิดไฟล์ที่เปิดมาแล้วค่ะ
ActiveWorkbook(s).Close savechanges:=False
พอเข้าเงื่อนไขการปิดไฟล์นี้กลับไม่ยอมปิดค่ะ

Sub GetDataMPS1() 'input data mps1
On Error Resume Next
Dim MPS1_NAME As String
Dim filename As String
Dim s As ...

ได้หมดแล้วค่ะอาจารย์ ขอบคุณอาจาร์ยที่คอยแนะนำค่ะ :D


Sub GetDataMPS1() 'input data mps1
On Error Resume Next
Dim filename As String
Dim Directory As String
Dim FileSource As String
Dim f As String

Application.ScreenUpdating = False
MPS1_NAME = Sheet7.Cells(25, 3)

f = Dir(Directory) 'use ...

สั่งปิดไฟล์ workbook โดยไม่ต้องถาม save หรือไม่ เขียนยังไงค่ะอาจารย์


Workbooks(f).Close

วิธตัด path ไฟล์ทำยังไงหรอค่ะอาจารย์อยากให้แสดงแค่ชื่อไฟล์ Workbooks(MPS1_NAME) ยังแสดงออกมาทั้ง path เลยค่ะ

หนูลองใช้วิธีนี้ดูค่ะอาจารย์คิดว่าอาจจะง่ายกว่าแต่ติดตรง
บรรทัดนี้ Sheets("Data").Activate
พอสั่งเปิดไฟล์ได้แล้วพอจะมาหน้า Data เพื่อที่จะก๊อปปี้ข้อมูลในชีตนี้กลับไม่ได้ค่ะ
ThisWorkbook.Activate 'ตรงนี้เราอ้างถึง pathที่จะเปิดไฟล์ได้ไหมค่ะ


Sub GetDataMPS()

Application.ScreenUpdating = False ...

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

Function getfilesheetdataMPS1()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim wk As Workbook
Dim i As Integer, j As Integer
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0 ...

แล้วถ้าเกิดไฟล์ที่ brows เข้ามาไม่ได้เป็นชื่อไฟล์ชื่อนี้ตลอดละค่ะอาจารย์
คือจะนำมาจากที่อยู่ของไฟล์อีกทีค่ะ

ขอบคุณค่ะที่คอยตักเตือนน่ะค่ะอาจารย์

ขอบคุณค่ะอาจารย์ที่คอยเตือนเสมอ


คือตอนนี้สามารถเบราซ์นำชื่อไฟล์มาแสดงที่ช่องเซลได้แล้วค่ะนูอยากให้ไฟล์ c.123 ที่ sheet :data มาแสดงในไฟล์ aindata ที่ sheet :input data MPS ค่ะ จะมีวิธีไหนดึงข้อมูลมาไว้ข้ามไฟล์ได้หรือปล่าวค่ะอาจารย์
maindata.xlsm


ไฟล์ที่ใช้ในการ brows
c.123.xlsm

Option ...