2 сағат бұрын
4 сағат бұрын
19 сағат бұрын
21 сағат бұрын
21 сағат бұрын
14 күн бұрын
14 күн бұрын
14 күн бұрын
14 күн бұрын
14 күн бұрын
14 күн бұрын
21 күн бұрын
Ай бұрын
Ай бұрын
Пікірлер
@huyenvu3347 21 сағат бұрын
Cho e xin đoạn mã code
@vnpostbay_8427 2 күн бұрын
xin code shop ơi
@tuanpham-ky2wr 8 күн бұрын
CHO MÌNH XIN FILE VỚI BẠN.
@ແສງແດດ 8 күн бұрын
Mình xin vào nhóm
@PhucNguyễnHong-r3e 10 күн бұрын
Em muốn vào nhóm làm sau ạ
@HiệpVăn-c3j 11 күн бұрын
cho mình xin code chèn ảnh với ah
@ThaoNguyen-ov6fz 12 күн бұрын
cho mình xin đoạn code bạn nhé. cảm ơn bạn nhiều nhé
@Great-k8x 14 күн бұрын
Cho mình xin code với ạ
@Great-k8x 14 күн бұрын
Cho mình xin code với ạ
@quanghuytdh 14 күн бұрын
Cho mình xin đoạn code. Thanks
@minhgia4119 14 күн бұрын
cho minh xin file xuất nhập tồn kho nhé. Thank you
@tinhocvanphong369 15 күн бұрын
Target.Calculate =Cell("address",B2)=cell("address")
@tuanmc1984 17 күн бұрын
Cho mình xin bản code nha.Cám ơn!
@minhgia4119 17 күн бұрын
cho mình xin đoạn code nhé. Thank you
@minhgia4119 18 күн бұрын
cho mình xin đoạn code được không
@tinhocvanphong369 15 күн бұрын
em gửi ak
@tinhocvanphong369 15 күн бұрын
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
@tinhocvanphong369 15 күн бұрын
Hay anh có thể lấy tại đây ạ docs.google.com/document/d/1KMgJxB_U_Et3ihwycIriNVbbPlRbGsRl590th7G3n4E/edit
@minhgia4119 15 күн бұрын
@@tinhocvanphong369 cảm ơn thầy nhiều
@minhgia4119 10 күн бұрын
@@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?
@tinhocvanphong369 15 күн бұрын
xóa clear rule bạn ạ
@TAYSONTAYSON-ph5ku 2 ай бұрын
Đăng ky học
@tinhocvanphong369 2 ай бұрын
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
@suongtran6711 2 ай бұрын
Ok ạ ❤
@p1234595554323 2 ай бұрын
K có code bạn
@tinhocvanphong369 2 ай бұрын
Dạ mình gửi bạn nhé
@tinhocvanphong369 2 ай бұрын
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