Danh mục: Thủ Thuật Công Nghệ
Code Copy/Paste trong vba của Excel
Dưới đây là code Vba về một số hình thức copy/paste Sử dụng phương thức paste special Sub copy_paste_special()’Sử dụng phương thức Range.PasteSpecial để dán dữ liệu copy ‘Copy và PasteSpecial trongrange Range(“A1”).Copy Range(“A3”).PasteSpecial Paste:=xlPasteFormats ‘Copy và PasteSpecial giữa các worksheets Worksheets(“Sheet1”).Range(“A2”).Copy Worksheets(“Sheet2”).Range(“A2”).PasteSpecial Paste:=xlPasteFormulas ‘Copy và PasteSpecial giữa các workbooks Workbooks(“Book1.xlsx”).Worksheets(“Sheet1”).Range(“A1”).Copy Workbooks(“Book2.xlsx”).Worksheets(“Sheet1”).Range(“A1”).PasteSpecial Paste:=xlPasteFormats ‘Xóa đường viền copy xung quanh khu vực chọn copy Application.CutCopyMode = FalseEnd Sub Phương thức copy/paste đơn giản Sub copy_paste_simple()’Sử dụng phương thức Range.Copy cho copy/paste ‘Phương thức Range.Copy để Copy & Paste trên một dòng…
Read MoreĐưa Hàm Index/Match vào Vba của Excel
Làm thế nào để đưa hàm index và hàm match chuyên tìm kiếm thông tin như dưới đây vào trong vba của Excel =INDEX(Data!B:F,MATCH(B4,Data!B:B,0),5) Dưới đây là code cần thiết để làm điều đó. Sub Dienthoai() Dim i As Integer Dim LastRow1 As Long LastRow1 = Worksheets(“Free 50k”).Cells(4, “B”).End(xlDown).Row Application.Interactive = False Application.EnableEvents = False Application.ScreenUpdating = False For i = 4 To LastRow1 ‘Cells(i, 11).Value = “=INDEX(Data!B:F,MATCH(B4,Data!B:B,0),5)” Cells(i, 11).Value = Application.Index(Worksheets(“data”).Range(“B:F”), Application.Match(Range(“B” & i), Worksheets(“data”).Range(“B:B”), 0), 5) Next i Application.Interactive = True Application.EnableEvents = True Application.ScreenUpdating = True End…
Read MoreUsing the GetOpenFilename Method in Windows
To add the GetOpenFilename method to Excel for Windows Add a standard module to the Microsoft Visual Basic for Applications (VBA) project in your workbook. Type Alt+F11 to open the Visual Basic Editor, click Insert, and then click Module. Paste or type the following macro into the module. Sub Select_File_Or_Files_Windows() Dim SaveDriveDir As String Dim MyPath As String Dim Fname As Variant Dim N As Long Dim FnameInLoop As String Dim mybook As Workbook ‘ Save the current directory. SaveDriveDir = CurDir ‘ Set the path to the folder that…
Read MoreCông cụ test tốc độ website, mobile-friendly không đồng bộ với PageSpeed Insights
Google mới ra mắt công cụ kiểm tra tốc độ website và mobile-friendly https://testmysite.thinkwithgoogle.com/ cho phép bạn kiểm tra MOBILE FRIENDLINESS, MOBILE SPEED và DESKTOP SPEED. Thì cũng không có gì mới mẻ ở đây cả, trước đó thì công cụ đánh giá đều nằm ở https://developers.google.com/speed/pagespeed/insights/ nó cũng cho phép bạn kiểm tra và xem các đề xuất để tối ưu website. testmysite.thinkwithgoogle.com không đồng bộ với PageSpeed Insights Tại sao mình nói điều này, có lẽ công cụ mới này có một thứ gì đó mới, như mình…
Read MoreTạo Ghost Button
Ghost button là gì? Ghost button là button ẩn khi đưa chuột vào thì nó mới hiện hình lên, đơn giản vậy thôi. .ghost-button {display: inline-block;width: 200px;padding: 8px;color: #fff;border: 2px solid #fff;text-align: center;outline: none;text-decoration: none;transition: background-color 0.2s ease-out,color 0.2s ease-out;}.ghost-button:hover,.ghost-button:active {background-color: #fff;color: #000;transition: background-color 0.3s ease-in,color 0.3s ease-in;} Cách sử dụng: class=”ghost-button”. Ví dụ: Nếu bạn muốn thêm một download link, thì sử dụng code dưới đây <a class=”ghost-button” href=”link cần”>Download Now</a> Demo: Download Now
Read MoreCách xóa Album ảnh Picasa trên các thiết bị Android
Nhatthienkt.net – Bạn cài mới điện thoại, chạy lại chương trình hoặc đăng nhập vào một tài khoản Google mới (tài khoản gmail) khi trang thái điện thoại đang được “Đồng bộ” có nghĩa là mọi hình ảnh đều được tải lên Google và chúng cũng được đồng bộ về điện thoại mà nơi lưu trữ là Google Picasa (nay được lưu trên Google Photos). Nếu bạn không thích những album ảnh đồng bộ tạo ngay trên “Bộ sưu tập” trong điện thoại của bạn. Bạn hoàn toàn có thể…
Read MoreMảng trong vba của excel
Sử dụng vòng lặp for để tạo mảng trong vba của excel.Dưới đây là code xuất giá trị vào một ô có vị trí là dòng thứ (i) và cột thứ (j) trong một sheet của excelSử dụng công thức countifs để đếm giá trị thỏa mãn yêu cầu và sau đó xuất giá trị (value) vào vị trí mình muốn. Sub Macro1() Dim i As Integer, j As Integer, a As Integer, b As Integer, kq As Integer Dim LastRow1 As Long Dim LastRow2 As Long Dim Macro1 As…
Read More