Sub InsertPicture() Dim FileDialog As FileDialog Dim FilePath As String Dim SelectedRange As Range Dim Image As Picture ' M? h?p tho?i đ? ch?n ?nh Set FileDialog = Application.FileDialog(msoFileDialogFilePicker) FileDialog.Title = "Ch?n m?t ?nh đ? chèn" FileDialog.Filters.Add "H?nh ?nh", "*.jpg; *.jpeg; *.png; *.bmp; *.gif", 1 If FileDialog.Show = -1 Then FilePath = FileDialog.SelectedItems(1) Else Exit Sub ' Thoát n?u ngư?i dùng không ch?n file End If ' L?y ô đư?c ch?n hi?n t?i Set SelectedRange = Application.ActiveCell ' Chèn ?nh vào worksheet Set Image = ActiveSheet.Pictures.Insert(FilePath) ' Đ?t l?i kích thư?c c?a ?nh đ? v?a v?i ô, gi? t? l? khung h?nh Dim AspectRatio As Double AspectRatio = Image.Width / Image.Height ' Tính toán kích thư?c m?i đ? v?a v?i ô If SelectedRange.Width / SelectedRange.Height > AspectRatio Then Image.Height = SelectedRange.Height Image.Width = SelectedRange.Height * AspectRatio Else Image.Width = SelectedRange.Width Image.Height = SelectedRange.Width / AspectRatio End If ' Đ?t l?i v? trí c?a ?nh Image.Left = SelectedRange.Left + (SelectedRange.Width - Image.Width) / 2 Image.Top = SelectedRange.Top + (SelectedRange.Height - Image.Height) / 2 ' C? đ?nh ?nh vào ô Image.Placement = xlMoveAndSize End Sub
@tinhocvanphong36915 күн бұрын
Hay anh có thể lấy tại đây ạ docs.google.com/document/d/1KMgJxB_U_Et3ihwycIriNVbbPlRbGsRl590th7G3n4E/edit
@minhgia411915 күн бұрын
@@tinhocvanphong369 cảm ơn thầy nhiều
@minhgia411910 күн бұрын
@@tinhocvanphong369 cho mình xin đoạn code cách lưu dữ liệu bảng chấm công cho từng tháng nhé. Thank you
@luyenvietchuepkhanhhoa6633Ай бұрын
em làm theo đến hàm countifs rồi lỗi ko làm đc nữa
@luyenvietchuepkhanhhoa6633Ай бұрын
đoạn 0%. em làm chỉ hiện số 0; 0,25 mà ko hiện % đằng sau thì làm làm sao a ơi
@xueluo1134Ай бұрын
Muốn bỏ công thức thì làm sao anh?
@tinhocvanphong36915 күн бұрын
xóa clear rule bạn ạ
@TAYSONTAYSON-ph5ku2 ай бұрын
Đăng ky học
@tinhocvanphong3692 ай бұрын
Sub Combine() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Combined" Sheets(2).Activate Range("A1").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("A1") For J = 2 To Sheets.Count Sheets(J).Activate Range("A1").Select Selection.CurrentRegion.Select Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) Next End Sub
@suongtran67112 ай бұрын
Ok ạ ❤
@p12345955543232 ай бұрын
K có code bạn
@tinhocvanphong3692 ай бұрын
Dạ mình gửi bạn nhé
@tinhocvanphong3692 ай бұрын
Sub Combine() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Combined" Sheets(2).Activate Range("A1").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("A1") For J = 2 To Sheets.Count Sheets(J).Activate Range("A1").Select Selection.CurrentRegion.Select Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) Next End Sub