กระทู้เมื่อเร็วๆ นี้

หน้า: [1] 2 3 ... 10
1
Programming & SEO / Union – Join Multiple Ranges การเชื่อมหลายๆ ranges ด้วย VBA
« กระทู้ล่าสุด โดย administrator เมื่อ 26/01/20 »


ตัวอย่าง การรวม หลายๆ ranges เข้าด้วยกัน ด้วย VBA ใน Excel  ทำได้ง่าย ไม่ยากเลย

อ้างถึง
Sub UnionExample()
 
Dim Rng1, Rng2, Rng3, Rng4 As Range
 
Set Rng1 = Range("A1,A3,A5,A7,A9,A11,A13,A15,A17,A19,A21")
Set Rng2 = Range("C1,C3,C5,C7,C9,C11,C13,C15,C17,C19,C21")
Set Rng3 = Range("E1,E3,E5,E7,E9,E11,E13,E15,E17,E19,E21")
 
Set Rng4 = Union(Rng1, Rng2, Rng3)
Rng4.Select
 
End Sub

2
Programming & SEO / การนับสีเซลล์ ใน excel ด้วย ฟังชั่น Countcolor
« กระทู้ล่าสุด โดย administrator เมื่อ 24/01/20 »


ผลที่ได้


ตัวอย่าง แบบสมบูรณ์


โค๊ดตามนี้นะครับ  นำไปปรับประยุกต์ใช้ได้เลย แต่ต้องมีทักษะการใช้ VBA ใน  Excel  ด้วยนะครับ

อ้างถึง
Function Countcolor(range_data As Range, criteria As Range) As Long
    Dim datax As Range
    Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
        Countcolor = Countcolor + 1
    End If
Next datax
End Function
3
การนับแถว และการนับคอลัมน์ที่มีข้อมูลใน excel ด้วย VBA

ตัวอย่างการนับแถว



อ้างถึง
Sub DataCount()

CountRows = Application.WorksheetFunction.CountA(Range("B:B")) ' นับที่คอลัมน์ B

MsgBox "มีข้อมูลจำนวน  " & CountRows & " แถว"

End Sub

บรรทัดแรก ในตัวแปร CountRows จะเก็บค่าเลข 8 คือผลจากการใช้ฟังก์ชั่น CountA ในคอลัมน์ B

ส่วนบรรทัด MsgBox จะมีข้อความแสดง “มีข้อมูลจำนวน  8 แถว”
นำไปประยุกต์เอานะครับ

ตัวอย่างการนับคอลัมน์



อ้างถึง
Sub Datacount2()

CountColmn = Application.WorksheetFunction.CountA(Rows(2))  'นับแถวที่ 2

MsgBox "มีข้อมูลจำนวน  " & CountColmn & " คอล้มน์"

End Sub

ส่วนนี้ เป็นการนับคอลัมน์ ซึ่งไม่ต่างจากการนับแถว
4


ตัวอย่างระบบการป้องกันการซ้ำซ้อน หรือการกรอกข้อมูลซ้ำกัน ในระบบ VBA
ุ้ถ้ามีข้อมูลที่ซ้ำกันใน Range ที่กำหนดประกาศไว้ จะขึ้นสีแดง

อ้างถึง
Sub check_dubplicate_formatConditions1()
    ' ระบบป้องกันการใส่ข้อมูลซ้ำกัน (ในเซลล์ที่กำหนดนี้ หากข้อมูลซ้ำกัน จะขึ้นสีแดง)
Set rng = Union(Range("d6,d8,d10,d12,d14,d16,d18,d20,d22,d24,d26,d28,d30,d32,d34,d36,d38,d40,d42,d44,d46,d48,d50,d52,d54,d56,d58,d60,d62,d64,d66,d68,d70,d72,d74,d76,d78,d80,d82,d84,d86,d88,d90" _
), Range("d92,d94,d96,d98,d100,d102,d104,d106,d108,d110,d112,d114,d116,d118,d120,d122,d124,d126,d128,d130,d132,d134,d136,d138,d140,d142,d144,d146,d148,d150,d152,d154,d156,d158,d160,d162,d164,d166,d168,d170,d172,d174,d176,d178,d180" _
), Range("d182,d184,d186,d188,d190,d192,d194,d196,d198,d200,d202,d204,d206,d208,d210,d212,d214,d216,d218,d220,d222,d224,d226,d228,d230,d232,d234,d236,d238,d240,d242,d244,d246,d248,d250,d252,d254,d256,d258,d260,d262,d264,d266,d268,d270" _
), Range("d272,d274,d276,d278,d280,d282,d284,d286,d288,d290,d292"))

Set uv = rng.FormatConditions.AddUniqueValues
uv.DupeUnique = xlDuplicate
uv.Interior.ColorIndex = 3
End Sub

โค๊ดนี้อยู่ในระบบของโปรแกรมจัดตารางสอน ที่จัดทำด้วยระบบ Excel โดย นายจรัญญ์ ตะวงษา
5




แนวคิดสำหรับการจัดห้อง รายวิชา และจำนวนคาบของรายวิชา เพื่อนำมาจัดสุ่ม


อ้างถึง
Dim wsh As Worksheet
    Set wsh = Worksheets("subject2tabrand")
   
    Columns(5).Select
    Selection.Clear
        'wsh.Range("d20:d" & Rows.Count).ClearContents
        'wsh.Range("a21:f21").Select
        'Selection.Copy
        lastrow = Worksheets("subject_list").Range("c" & Rows.Count).End(xlUp).Row 
        'wsh.Range("c3:c" & lastrow).Select
        'Selection.Copy
        'MsgBox lastrow
        'Selection.PasteSpecial xlPasteFormats

Dim i_room As Integer
Dim i_subject As Integer
Dim i_period As Integer

For i_room = 1 To 12 ' จำนวนห้อง
    For i_subject = 3 To lastrow
            For i_period = 1 To Worksheets("subject_list").Range("d" & i_subject).Value
            wsh.Range("e" & Rows.Count).End(xlUp).Offset(1, 0).Select
            Selection.Value = "ห้องที่_" & i_room & " & Worksheets("subject_list").Range("c" & i_subject) '& "_" & "คาบที่ " & i_period
            Next i_period
    Next i_subject
Next i_room

6
Programming & SEO / โค๊ดสุ่ม แนวคิดการจัดตารางสอน ใน VBA
« กระทู้ล่าสุด โดย administrator เมื่อ 23/01/20 »


โค๊ดสุ่ม การจัดตารางสอน ใน VBA

อ้างถึง
Dim f As Integer
Dim i As Integer
Dim K As Integer
Dim d As Integer

' เขียนโค้ด เลือกคอมลัมน์ เพื่อเคลียร์คอลัมก่อน
Worksheets("sheet1").Activate
Columns(8).Select
Selection.Clear
'เริ่มวาง
For f = 3 To WorksheetFunction.CountA(Range("c3:A10"))
For i = 1 To Worksheets("sheet1").Range("c" & f).Value
    For K = 1 To Worksheets("sheet1").Range("d" & f).Value
           
            Worksheets("sheet1").Range("h" & Rows.Count).End(xlUp).Offset(1, 0).Select
            Selection.Value = Worksheets("sheet1").Range("b" & f) & "   ห้องที่ " & K & "    คาบที่ " & i
       
    Next K
Next i
Next f

เป็นแนวคิด การจับผูกชุดข้อมูล ก่อนนำไปสุ่มเพื่อจัดเข้าตารางสอน
7


แนะนำโปรแกรมสำหรับเปลี่ยนชื่อไฟล์ พร้อมกันทีละหลายๆ ไฟล์

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

ลำพังการเปลี่ยนชื่อไฟล์ทีละไฟล์ ในระบบของ Windows Explorer นั้นทุกคนทราบดี และทำได้กันเป็นส่วนมาก คงไม่มีใครที่เล่นคอมพิวเตอร์เป็นแล้วทำไม่ได้ (คาดว่านะ) 

แต่เดาว่าผู้อ่านประมาณส่วนมาก และคิดว่ามีมากว่า 90%  มีความสนใจในการเปลี่ยนชื่อไฟล์และรูปภาพ และไฟล์ตระกูล MP3 เป็นจำนวนมาก ในขณะที่อีกส่วนหนึ่งจำนวนน้อย เปลี่ยนชื่อไฟล์หลายพันไฟล์ทุกวันแบบทีละไฟล์ ด้วยความอุตสาหะพยายาม และอดทน แต่มันมีทางออกที่ดีกว่านั้น ซึ่งหลายคนเหล่านั้น ยังไม่อยากเสียเวลาเพื่อหาเรื่องทุ่นแรง ที่มันมีประสิทธิภาพและยั่งยืน อาจจะด้วยหาไม่เป็นหรือกลัวเสียเงินซื้อ
มาดูกันว่า มีโปรแกรมอะไรบ้างที่นำมาแนะนำกันที่นี่

FastStone Image Viewer เป็น โปรแกรมดูรูปภาพ ในเครื่องคอมฯ ที่ สามารถ ดูรูป ตกแต่งรูปภาพทั้งครอป Crop รูป ย่อขยายรูปภาพ และ ใส่ลูกเล่นต่างๆ มากมาย  ตัวนี้เล็กกระทัดรัด ใช้งานได้ยอดเยี่ยม ผมใช้ตัวนี้อยู่ครับ ฟรีครับ ตัวนี้ ฟรี ฟรี ฟรี

ACDSee โปรแกรม ACDSee Free ตัวนี้ อยู่ในตระกูล โปรแกรมดูรูปภาพ ACDSee แต่เป็นเวอร์ชั่นแจกฟรี (Free) ที่ทางผู้พัฒนาเปิดให้ดาวน์โหลดไปใช้งานกันได้โดยไม่ต้องเสียค่าใช้จ่ายใดๆ (แต่ต้องลงทะเบียนก่อนใช้งานนิดหน่อย) หากกล่าวถึงประวัติของโปรแกรม ACDSee นั้นต้องบอกเลยว่า มีความยาวนานมากว่ายี่สิบปี โดยโปรแกรมกำเนิดเกิดขึ้นครั้งแรกสมัยที่เรายังใช้ Windows 95 เลยทีเดียว เรื่องความน่าเชื่อถือคงไม่ต้องพูดถึง เรื่องประสิทธิภาพก็ไว้ใจได้เลย  และที่สำคัญ มันใช้เปลี่ยนชื่อไฟล์ แบบหลายๆ ไฟล์ ได้ง่ายมาก ๆ  ลองเอามาใช้ดูก่อนนะครับ

File Renamer Basic  ยูทิลิตี้ทีสุดยอด ใช้เปลี่ยนชื่อหลายไฟล์ รูปภาพและภาพถ่ายด้วยระบบ REGEX


Bulk Rename Utility  ซอฟต์แวร์เปลี่ยนชื่อไฟล์ที่ใช้งานง่ายมีประสิทธิภาพและทำงานได้ดี


Advanced Renamer มีอินเตอร์เฟซที่น่าสนใจและเปลี่ยนชื่อไฟล์หลายๆไฟล์และโฟลเดอร์ได้ง่ายๆ

Siren เป็นหนึ่งในผู้เปลี่ยนชื่อที่ทรงพลังที่สุดที่ฉันได้ทดสอบ สำหรับผู้ใช้ระดับสูงที่มีงานหลากหลายและหลากหลายเพื่อทำให้ไซเรนสมบูรณ์แบบจะทำให้ชีวิตของคุณง่ายขึ้นมาก ในด้านลบไซเรนมีช่วงการเรียนรู้ที่สูงชันเมื่อเทียบกับเรนาเมอร์คนอื่น สิ่งที่สำคัญคือไลบรารีของแท็กที่กำหนดไว้ล่วงหน้าการเปลี่ยนชื่อที่ง่ายที่สุดจะต้องมีการศึกษาไฟล์ช่วยเหลือเล็กน้อย ไซเรนไม่ได้รับการพัฒนาอีกต่อไป ไม่จำเป็นต้องติดตั้ง

Lupas Rename มีอินเตอร์เฟสที่ใช้งานง่ายพอสมควรและเมื่อคุณทราบวิธีการใช้งานแล้วการเปลี่ยนชื่อไฟล์ที่ซับซ้อนด้วยยูทิลิตี้ที่ทรงพลังนี้นั้นง่าย แต่น่าเสียดายที่ Lupas Rename ไม่ได้รับการพัฒนาอย่างจริงจังอีก แต่ก็นำมาใช้ได้ ไม่จำเป็นต้อง ทำการติดตั้ง สามารถใช้งานได้เลย (ยกเว้นว่าบทความนี้มันจะเก่าจนเขาทำระบบใหม่แล้ว)

ReNamer มีอินเทอร์เฟซใหม่ทั้งหมดรองรับ Meta Tag ที่ต่างกันเล็กน้อยและมีตัวเลือก PascalScript  ที่ทรงพลังสำหรับผู้ใช้ ระบบไม่จำเป็นต้องทำการติดตั้ง

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


Metamorphose นั้นมีความซับซ้อนในการใช้งานมากกว่า renamers อื่น ๆ ต้องอ่านคู่มือเพื่อใช้งานบ้างเล็กน้อย เพื่อจะได้ไม่พลาด

Rename Master รองรับแท็ก EXIF และ ID3  ระบบ REGEX และสคริปท์ ไม่จำเป็นต้องทำการติดตั้ง

Wild Rename เป็นระบบเปลี่ยนชื่อพื้นฐานที่สามารถทำงานได้ด้วยการสนับสนุนการแสดงออกปกติ ไม่รองรับแท็ก EXIF หรือ ID3 ไม่จำเป็นต้องทำการติดตั้ง

Flexible Renamer รองรับอักขระที่ไม่ถูกต้องการแก้ไขคุณสมบัติไฟล์แท็กข้อมูลเมตาสำหรับเอกสารการถ่ายภาพและเสียง ยังรองรับสคริปต์ VB, Javascript  และ REGEX  ต้องใช้ทักษะการเรียนรู้ทำความเข้าใจมากเกินไป ยากเอาเรื่องและเสียเวลาที่จะใช้ แต่ก็นำมาเสนอให้เป็นทางเลือกครับ

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

Rename-It!  เป็นโปรแกรมที่ง่ายมากมีคุณสมบัติไม่กี่อย่าง มันมีอินเตอร์เฟซที่ใช้งานง่าย  แต่มีฟังก์ชั่นน้อยกว่าโปรแกรมเปลี่ยนชื่ออื่น ๆ

Ant Renamer รองรับการแสดงออกปกติแท็ก EXIF และแท็ก ID3 v1

A.F.5 Rename  เป็นตัวเปลี่ยนชื่ออย่างง่ายสำหรับการใช้งานพื้นฐานแบบวันต่อวัน  ใช้งานง่าย

Multi File Renamer เป็นระบบเปลี่ยนชื่อพื้นฐานที่แนะนำอีกตัวหนึ่ง  ไม่รองรับแท็ก ID3 หรือ EXIF,  เหมาะสำหรับงานพื้นฐาน
8

กฎกระทรวง กำหนดหลักเกณฑ์ วิธีการและเงื่อนไข ในก่ารคำนวณมูลค่าที่ดินหรือสิ่งปลูกสร้างที่ไม่มีราคาประเมินทุนทรัพย์ พ.ศ. 2562

DownLoad

หมายเหตุ
เหตุผลในกำรประกำศใช้กฎกระทรวงฉบับนี้ คือ โดยที่มาตรา ๓๕ วรรคสาม แห่งพระราชบัญญัติภาษีที่ดินและสิ่งปลูกสร้าง พ.ศ. ๒๕๖๒ กำหนดให้การคำนวณมูลค่ากรณีที่ดินหรือ สิ่งปลูกสร้างที่ไม่มีราคาประเมินทุนทรัพย์ ให้เป็นไปตามหลักเกณฑ์ วิธีการและเงื่อนไขที่กำหนด ในกฎกระทรวง จึงจำเป็นต้องออกกฎกระทรวงนี้
9
กฎกระทรวง การงดหรือลดเบี้ยปรับ พ.ศ. 2562

DownLoad

หมายเหตุ
เหตุผลในการประกาศใช้กฎกระทรวงฉบับนี้ คือ โดยที่มาตรา ๗๑ แห่งพระราชบัญญัติภาษี ที่ดินและสิ่งปลูกสร้าง พ.ศ. ๒๕๖๒ กำหนดให้เบี้ยปรับอาจงดหรือลดลงได้ตามที่กำหนดในกฎกระทรวง เพื่อเป็น การบรรเทาภาระภาษีค้างช าระให้แก่เจ้าของที่ดินหรือสิ่งปลูกสร้างในกรณีที่ดินหรือสิ่งปลูกสร้างถูกยึดหรือ อายัดตามกฎหมาย จึงจำเป็นต้องออกกฎกระทรวงนี้
10
กฎกระทรวง กําหนดให้หน่วยงานอื่นเป็นหน่วยงานของรัฐ ตามพระราชบัญญัติการจัดซื้อจัดจ้างและการบริหารพัสดุภาครัฐ พ.ศ. ๒๕๖๐

DownLoad

หมายเหตุ  เหตุผลในการประกาศใช้กฎกระทรวงฉบับนี้ คือ เนื่องจากพระราชบัญญัติการจัดซื้อจัดจ้าง และการบริหารพัสดุภาครัฐ พ.ศ. ๒๕๖๐ ได้กําหนดเกณฑ์มาตรฐานกลางเพื่อให้หน่วยงานของรัฐนําไปใช้ เป็นหลักปฏิบัติเพื่อให้การดําเนินการจัดซื้อจัดจ้างและการบริหารพัสดุภาครัฐมีกรอบการปฏิบัติงานที่เป็น มาตรฐานเดียวกัน โดยการกําหนดให้หน่วยงานอื่นที่มิใช่ราชการส่วนกลาง ราชการส่วนภูมิภาค ราชการส่วนท้องถิ่น รัฐวิสาหกิจตามกฎหมายว่าด้วยวิธีการงบประมาณ องค์การมหาชน องค์กรอิสระ องค์กรตามรัฐธรรมนูญ หน่วยธุรการของศาล มหาวิทยาลัยในกํากับของรัฐ หน่วยงานสังกัดรัฐสภาหรือในกํากับของรัฐสภา และหน่วยงานอิสระของรัฐ เป็นหน่วยงานของรัฐตามพระราชบัญญัติดังกล่าว ให้เป็นไปตามที่กําหนดใน กฎกระทรวง สมควรกําหนดให้หน่วยงานอื่นบางแห่งเป็นหน่วยงานของรัฐเพิ่มเติม จึงจําเป็นต้องออก กฎกระทรวงนี้
หน้า: [1] 2 3 ... 10