Macro Oh easy

27/05/2022

จะทำดีไหม ...กราฟแบบเนี้ย!
วันก่อนบังเอิญไปพบวิธีทำกราฟแบบในเว็บ เห็นน่าสนใจ ถ้าทำแล้วคงสนุกไม่น้อย เท่อีกต่างหาก (แต่ในใจก็คิดว่าทำแบบปกติก็ได้นี่หน่า) แต่ก็ด้วยข้อดีที่มีของกราฟตัวนี้ก็เลยอดใจไม่ต้องลองทำซึ่งมันก็แจ่ม จริงๆ แหละ
#สร้างPieChartแทนที่จุดบนกราฟเส้น

้องหละใช้เถอะ
ถ้าขี้เกียจพิมพ์ก็คัดลอก Code ตามด้านได้เลยนะ
Sub PieMarker()
Application.ScreenUpdating = False
Dim chtMaker As Chart
Dim chtMain As Chart
Dim intPoint As Integer
Dim rngRow As Range
Dim IngPointIndex As Long
Set chtMaker = ActiveSheet.ChartObjects("chtPoint").Chart
Set chtMain = ActiveSheet.ChartObjects("chtLine").Chart
For Each rngRow In Range("Pie_Chart").Rows
chtMaker.SeriesCollection(1).Values = rngRow
chtMaker.Parent.CopyPicture xlScreen, xlPicture
IngPointIndex = IngPointIndex + 1
chtMain.SeriesCollection(1).Points(IngPointIndex).Paste
Next
Application.ScreenUpdating = True
End Sub
อ้างอิงจาก : อ้างอิงจาก : https://alesandrab.wordpress.com/2014/09/18/combination-line-pie-chart/?fbclid=IwAR3LBAc-UuRi3uEL8hEDnUX_F5arEZxtGly8FvYz_s9nZfetsfD41_mDYeo

25/05/2022

🙂ขอมาก็จัดไปครัช !

“พี่รับสอน VBA รึเปล่าคะ” ข้อความสั้น ๆ เตือนขึ้นมาในโทรศัพท์ของผม
ผม : “ครับ รับสอนครับ”
DM: "พี่คะ อยากให้ข้อมูลส่วนใหญ่จะกระจายอยู่หลายๆไฟล์ เเล้วหนูจะคอยนำมาสรุปอ่ะค่ะ หรือ บางที ต้อง cross check ว่า ข้อมูลของ file A กับ B ที่คนละคนกรอกมันตรงกันไหม สามารถใช้ VBA มาใช้กับงานได้ไหมคะ"
ผม : “ได้ครับ พอจะมีพื้นฐาน VBA ไหมครับ”
DM: “ไม่มีเลยคะ แต่อยากนำ VBA ไปใช้กับงานอะคะ”
ผม : “งั้นช่วยอธิบายสิ่งที่ต้องการประยุกต์กับงานหรือถ้ามีตัวอย่างให้ก็จะดีมากเลยครับ พี่จะได้จัดเนื้อหาสำหรับนำไปในการสอนให้เอาไปประยุกต์ใช้งานได้ครับ”
DM: “ได้คะ หนูส่งสิ่งที่อยากได้ให้นะคะ”
หลังจากนั้นงานผมก็เริ่มขึ้น โจทย์ก็คือจะสอนยังไงให้สามารถประยุกต์ VBA กับงานที่ค่อนข้าง ซับซ้อนให้ได้ภายใน 10-12 ชั่วโมง
ดังนั้นสิ่งที่ผมทำคือ ทำความเข้าใจกับงานของผู้เรียน จากนั้นขึ้น Code เพื่อให้ VBA สามารถทำงานตามที่ผู้เรียนต้องการ
หลังจากนั้นก็สรุป Code ที่เกี่ยวข้อง ออกมาเพื่อสอนให้ตรงประเด็นที่สุดเรียกได้ว่าสอนให้ตรงกับงานลูกค้าสุดๆ
😊🏆ผลลัพธ์ที่ได้ก็ถูกใจผู้เรียน ผู้สอนก็มีความสุข😊
ขอบคุณ น้องกุ้กไก่ และ น้องปาล์มมากๆ ครับที่แวะเวียนมาให้เราช่วยแนะนำการสอนครั้งนี้ครับ
้องหละใช้เถอะ

14/05/2022

☺️☺️☺️มาสร้างแถบสีตารางการทำงานใน Excel ให้ขึ้นอัตโนมัติดีกว่าครัชช สนุกดีนะครับ เอามาประยุกต์ในการสร้าง Plan งานอื่นๆ ได้ด้วยนะเอออ☺️☺️
้องหละใช้เถอะ

ถ้าขี้เกียจพิมพ์ก็ Copy ไปวางได้เลยจร้าาาาา🙃🙃
........................................................................................................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim startdate As Integer
Dim enddate As Integer
Dim nRow As Integer
Dim RefCol As Integer
Dim rng As Range
Dim rngClear As Range
nRow = Target.Row
Set rngClear = Range(Cells(nRow, 4), Cells(nRow, 34))
RefCol = 3
If Not Target.Column = 2 And Not Target.Column = 3 Or Target.Row >= 21 Then GoTo N
If Not Cells(nRow, 2) = Empty And Cells(nRow, 3) = Empty Then
startdate = Cells(nRow, 2) + RefCol
enddate = startdate
ElseIf Cells(nRow, 2) = Empty And Not Cells(nRow, 3) = Empty Then
enddate = Cells(nRow, 3) + RefCol
startdate = enddate
ElseIf Not Cells(nRow, 2) = Empty And Not Cells(nRow, 3) = Empty Then
startdate = Cells(nRow, 2) + RefCol
enddate = Cells(nRow, 3) + RefCol
ElseIf Cells(nRow, 2) = Empty And Cells(nRow, 3) = Empty Then
rngClear.Clear
GoTo N
End If
Set rng = Range(Cells(nRow, startdate), Cells(nRow, enddate))
rngClear.Clear
rng.Interior.Color = RGB(0, 255, 48)
N:
Application.EnableEvents = True
End Sub

10/05/2022

นอกจากการใช้สูตรนับตัวอักษรแบบ Count , CountA อะไรแบบนี้ เราสามารถสร้างสูตรสำหรับนับสีจากในตารางก็ได้นะเออ (เผื่อบางคนอยากนับแค่สี ไม่อยากนับตัวเลข ตัวอักษร)
Code อยู่ด้านล่าง ถ้าขี้เกียจพิมพ์ คัดลอกไปใช้ได้เลยคร้าบบบบ................................................................................................................................................................................................
Function CountColor(RngSelect As Range, RngColor As Range) As Integer
Dim rng As Range
For Each rng In RngSelect.Columns
If rng.Interior.Color = RngColor.Interior.Color Then
CountColor = CountColor + 1
End If
Next
End Function


#ลองทำดูจะรู้ว่าง่าย

28/04/2022

🤓วันนี้มาลองใช้ VBA ในการเปลี่ยนสีตัวอักษรแบบอัตโนมัติตัวที่เราสนใจ
ลองเล่นดูนะคัชช

ู่ในCommentคัดลอกและนำไปวางได้เลยคร้าบบบบ

25/04/2022

ลองมาสร้างสูตรแยกตัวเลขและต้วอักษรใน Excel ด้วย VBA เองกันก็😊สนุกดีนะ เหมาะแก่การประยุกต์ใช้กับงานได้หลายๆ ประเภทครัช
Code อยู่ใน Comment ถ้าขี้เกียจพิมพ์คัดลอกไปได้เลยคร้าบบบบ

02/05/2021

สอบไม่ได้ยากไม่ผ่านก็เอาใหม่
Microsoft Office Specialist (Excel 2019)
#รับสอน_Training_Excel_VBA_for_reduce_Working_time

27/08/2020

ปลื้มใจและ ขอบคุณมากที่สนใจและช่วยสร้างประโยชน์ได้ในงานของท่านได้ครับ

#ลองทำดูจะรู้ว่าง่าย

27/03/2018

เคยได้ยินเพื่อนเล่าเหมือนกันว่า ที่เรียนติวเตรียมสอบเข้าสาธิตเต็มไปถึงปี 64 แล้ว

บระเจ้า !!! สงสารเด็กไม่พอ สงสารพ่อแม่ด้วย แข่งขันอะไรจะปานนั้น

อ่านบทความเพิ่มเติมได้ที่ https://thepotential.org/2018/02/07/panatda-ef/

24/11/2016

ดูแล้วชอบหรือไม่ชอบอย่างไรติชมได้ครับที่ เพจ : Macro oh easy

21/11/2016