สอนทำโปรแกรมทะเบียนทรัพย์สินด้วยเอ็กเซล [ Easy Excel SPEP.7 ]

วันนี้พี่จะมาสอนน้องๆทำโปรแกรมทะเบียนทรัพย์สิน ไว้ใช้งานในองกรครับ หัวข้อหลักๆ บันทึกรายละเอียดทรัพย์สินง่าย เก็บประวัติซื้อ การครอบครองและการตัดจำหน่าย ทำแท็กทรัพย์สินไปติด เวลาตรวจนับจะได้สแกนนับได้ มีการคำนวนค่าเสื่อมราคาแบบเส้นตรงอัตโนมัติ ค้นหาและแสดงรูปภาพทรัพย์สินได้ สมบูรณ์เป็นโปรแกรมหลักแสนเลยใช่ไหมล่ะ วันนี้พี่จะสอนให้ฟรีๆ เฉพาะสมาชิกช่องนะครับ --------------------------------------------------------------------------------------- VBA ที่ใช้ในคลิปนี้ ----- 1.ดึงรูปไปใส่ตารางอัตโนมัติ ---------------------------------------------- Sub FirstOne_add_picture() Dim mypath As String Dim mypic As Shape Dim i As Long On Error Resume Next For Each mypic In Sheet1.Shapes If Left(UCase(mypic.Name), 3) = "PIX" Then mypic.Delete End If Next mypic On Error GoTo 0 On Error GoTo ErrorHandler For i = 3 To 100 mypath = ThisWorkbook.Path & "\" & Cells(i, "C").Value Debug.Print mypath Rows(i).RowHeight = 100.5 ' Columns("D").ColumnWidth = 50 Set mypic = Sheet1.Shapes.AddPicture(mypath, msoFalse, msoCTrue, _ Cells(i, "D").Left + 5, Cells(i, "D").Top + 5, -1, -1) mypic.LockAspectRatio = msoTrue Dim targetWidth As Double, targetHeight As Double targetWidth = Cells(i, "D").Width - 10 targetHeight = Cells(i, "D").Height - 10 ' If (mypic.Width / mypic.Height) = (targetWidth / targetHeight) Then mypic.Width = targetWidth Else mypic.Height = targetHeight End If mypic.Left = Cells(i, "D").Left + (Cells(i, "D").Width - mypic.Width) / 2 mypic.Top = Cells(i, "D").Top + (Cells(i, "D").Height - mypic.Height) / 2 mypic.Name = "Pix" & Cells(i, "A").Value Next i Exit Sub ErrorHandler: ' MsgBox "Some picture not found in the folder.", vbCritical, "Error" End Sub ----- 2.รันมาโครอัตโนมัติ ------------------------------------------------------------- Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Selection.Count = 1 Then If Not Intersect(Target, Range("E7")) Is Nothing Then Call FirstOne_VBA Dim LocationPort As String Exit Sub End If End If End Sub ---------------------------------------------------------------------------------------------------- สมัครเป็นสมาชิกของช่องนี้มีอิโมจิเล็กๆน้อยๆ จากใจทีมงาน First one channel    / @1firstone   สมัครเป็นสมาชิกของช่องนี้ไม่มีสิทธิพิเศษใดๆให้ เรามีเพียงคำขอบคุณที่ช่วยสนับสนุนเราอย่างเป็นทางการ เป็นอิโมจิเล็กๆน้อยๆ จากใจทีมงาน First one channel    / @1firstone