Excel Forum

ปรับแก้ได้แล้ว ขอบพระคุณครับอาจารย์

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


Sub CreateChart()

Dim chartName As String, r As Range
chartName = "ChartData"
With Worksheets("Summary")
For Each r In .Range("a3:a7")
r.Value = " " & r.Value & " "
Next r
End With
'Other code



ผมปรับ code ตามที่อาจารย์แนะนำแล้วครับ แต่ยังมีข้อมูลปีข ...

ขออนุญาตช่วยปรับVBAในการสร้างกราฟ ผมใช้ Macro Record ช่วยในการสร้างกราฟและปรับเพิ่มหลังจากนั้น แต่ติดที่ยังหาวิธีเอาข้อมูลปีออกจากแกน X ไม่ได้ รบกวนขอคำแนะนำด้วยครับ ขอบพระคุณครับ

Sub CreateChart()

Dim chartName As String
chartName = "ChartData"

Dim myChart As ChartObject
'ให้สร้างกราฟที่ช ...

:D ใช้กับไฟล์ตัวอย่างแล้วได้คำตอบไหมครับ

ถ้าได้ให้ตรวจสอบโดยการ Debug ดูว่ากำหนดค่าไฟล์ตัวอย่างกับไฟล์จริงไว้อย่างไรก็จะได้คำตอบได้ไม่ยากครับ

การกำหนดชื่อตัวแปร กำหนดชื่อ Procedure มาสอบถาม กรุณาเขียนเป็นภาษาอังกฤษทั้งหมด ผมใช้ Font สำหรับการเขียน Code เป็นภาษาอังกฤษล้วน มี Font ที่แสดงเป ...

ขออนุญาตครับ ผมนำไปปรับไปใช้ในสมุดงานจริง แต่ไม่สามารถทำงานได้ครับ ไม่มีข้อมูลออกมา ขอคำแนะนำด้วยครับ ขอบพระคุณครับ

Sub CountAndSumData()
Dim wsSource As Worksheet
Dim wsDest As Worksheet
Dim lastRowSource As Long
Dim lastRowDest As Long
Dim i As Long, j As Long
Dim countค่าบริกร As Long ...

ต้องการหาจำนวนเงินและจำนวนสินค้าเป็นชิ้นที่ได้รับเงิน โดยหาผลรวมจำนวนเงินในคอลัมน์Tโดยที่ต้องมีข้อมูลในคอลัมนX เป็น Y และเอามาใส่ในชีทDTTM เช่น ถ้าสินค้าเป็นAA1 ให้เอาจำนวนเงินมาในที่คอลัมน์Bath และใส่จำนวนสินค้าที่ช่องunit โดยที่มีหัวคอลัมน์เป็นAA และให้รวมจำนวนสินค้าที่ได้รับเงินทุกชนิดมาใส่ที่คอล ...

ขออนุญาตสอบถามต่อครับ เนื่องจากเป็นงานเดียวกันครับ ผมเขียนคำสั่งเพื่อหาผลรวมและจำนวนชิ้นมาวางในแต่ละแถวและแต่ละคอลัมน์ แยกเป็นเป็นจำนวนเงินและจำนวนชิ้นที่ได้รับเงิน โปรแกรมรันทำงานได้ปกติ แต่ไม่มีข้อมูลขึ้น และจำนวนคอลัมน์ในแถวที่3ของsectionมีจำนวนแน่นอน รบกวนขอคำแนะนำด้วยครับ ขอบพระคุณครับ


Sub ...

ปรับเรื่องงวดได้แล้วครับ

ปรับตามนี้ครับ
Sub ReportDTTM()
Dim wsCombined As Worksheet
Dim wsDTTM As Worksheet
Dim lastRowCombined As Long
Dim lastRowDTTM As Long
Dim i As Long, j As Long
Dim total As Double
Dim combinedValue As String
Dim dttmValue As String

' กำหนดชีท
Set wsCombined = ThisWorkbook.Sheets ...

ขออนุญาติครับ ตอนนี้ผมสามารถคำนวณได้ถูกต้องแล้ว เหลือที่ทำไม่ได้คือ ให้ข้อมูลมาวางให้ตรงกับคอลัมน์ในชีทDTTM โดยที่จำนวนตัวอักษรหลักที่7ถึง21ต้องตรงกับข้อมูลในคอลัมน์BชีทCOMBINED_DATA_DTTM ครับ ขอคำแนะนำด้วยครับ

Sub ReportDTTM()
Dim wsCombined As Worksheet
Dim wsDTTM As Worksheet
Dim ...

ผมปรับให้คำสั่งใหม่ แต่ไม่แสดงผลรวมทั้งหมดที่รงตรมเงื่อนไข จะแสดงแค่จำนวนในแถวแรกที่เจอ และไม่อีกคอลัมน์ไม่แสดงจำนวน รบกวนขอคำแนะดวยครับ

Sub CalculateAndCopyData()
Dim wsCombined As Worksheet
Dim wsDTTM As Worksheet
Dim lastRowCombined As Long
Dim lastRowDTTM As Long
Dim i As Long, j As Long ...

ขออนุญาตสอบถามครับ ผมเขียนVBA เพื่อคำนวณหาผลรวมในชีทชื่อCOMBINED_DATA_DTTM โดยหาผลรวมในแต่ละแถวในคอลัมน์TลงมาในชีทCOMBINED_DATA_DTTM โดยที่คอลัมน์Xลงมามีคำว่าY นำมาวางในชีทDTTM ตั้งแต่แถวD4ลงมา โดยแถวที่วางผลรวมต้องมีข้อมูลในคอลัมน์B4ลงมาของชีทDTTM ตรงกับข้อมูลในคอลัมน์B2ลงมาในชีทCOMBINED_DATA_DTTM ...

ได้แล้วครับ ขอบพระคุณครับอาจารย์

ขออนุญาตสอบถามกรณีเขียนVBAตรวจสอบข้อมูลที่ตรงกัน โดยที่ให้เอาข้อมูลในช่องJ1ของชีทMain ไปตรวจว่าตรงกับข้อมูลในคอลัมน์AของชีทSectionหรือไม่ ถ้าตรงกันให้เอาข้อมูลในคอลัมน์FของชีทSectionในแถวที่ข้อมูลตรงกัน ไปตรวจว่าข้อมูลในคอลัมน์ตั้งแต่ B7ลงมาต้องมีข้อมูลข้อมูลในคอลัมน์FของชีทSectionตรงกับข้อมูลคอลัมน ...

:D ลองปรับส่วนด้านล่างนี้ดู ติดตรงไหนค่อยถามกันต่อครับ

'Other code
With Worksheets("Paid_No")
.Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Resize(, 177).Value = _
Worksheets(strShN).Cells(rw, "a").Resize(, 177).Value
End With
'Other code


ใช้ได้ครับอาจารย์ ขออภัยที่เข้ามาแจ้งผลช้าครับ

:D กรณีไม่ต้องการหัวคอลัมน์และบรรทัดว่างมาด้วยต้องใส่เงื่อนไขเข้าไปเพิ่มครับ เช่น

'Other code ' ลูปผ่านชีทที่ไม่มีคำว่า "CP" ในชื่อ และไม่ใช่ชีท "Paid_Yes", "Paid_No", "Main"
For Each ws In ThisWorkbook.Sheets
If Not InStr(1, ws.Name, "CP") > 0 And ws.Name <> "Paid_Yes" And ws.Name <> "Paid_No ...

ผมปรับ code ให้นำเข้าข้อมูลได้อย่างที่ต้องการแล้ว ติดแค่ช่องที่จะวางไม่ใช่ B6 ในชีทชื่อ Pain_No อย่างที่ต้องการ รบกวนขอคำแนะนำด้วยครับ ขอบพระคุณครับ

Sub Paid_N()

Dim wsCP As Worksheet
Dim ws As Worksheet
Dim wsTarget As Worksheet
Dim lastRowCP As Long, lastRow As Long
Dim i As Long, j As ...

ขออนุญาตช่วยปรับVBAในการคัดลอกข้อมูลมาวางต่อเรียงกันโดยไม่เอาหัวแถวมาด้วย codeที่ผมใช้จะคัดลอกแถวโดยเริ่มจากคอลัมน์AจนถึงAQจากชีทที่มีคำว่าCPอยู่ในชื่อแท็บโดยมีเงื่อนไขว่าข้อมูลในคอลัมน์ตั้งแต่C10ลงมาของชีทที่มีคำว่าCPอยู่ในชื่อแท็บต้องไม่ตรงกับข้อมูลในคอลัมน์C9ลงมาของชีทที่ไม่มีคำว่าCPในชื่อช ...

snasui wrote: Sat Aug 24, 2024 5:40 pm ผมไม่ได้ใช้ Looker studio ไม่ทราบว่ามี Link ให้ลองหรือเปล่าครับ

ทราบปัญหาแล้วครับอาจารย์ Looker studio ไม่สามารถทำรูปแบบได้เหมือน excel ครับ

ปรับตามนี้ดูครับ
Sub CopyDataToDetailSheet()
Dim ws As Worksheet
Dim detailSheet As Worksheet
Dim lastCol As Long
Dim copyRange As Range
On Error Resume Next
Set detailSheet = ThisWorkbook.Sheets("detail")

lastCol = 2

For Each ws In ThisWorkbook.Sheets
If ws.Name <> "data" And ws.Name ...