Trang web hiển thị tốt nhất trên các trình duyệt mới và được bật Javascript.

#baitapvba1 sau bài đầu tiên về validation không thấy bạn nào phản hồi, mình

PhamMinhTung1

#baitapvba1 sau bài đầu tiên về validation không thấy bạn nào phản hồi, mình cho 1 bài về VBA đơn giản thôi, chúng ta chọn 2 ô bất kì có thể liền kề hoặc không liền kề nhau (nếu không liền kề giữ CTrl để chọn ) sau đó bấm nút chuyển đổi thì 2 ô sẽ thay đổi giá trị cho nhau.

TranTai

Nói cụ thể hơn được k bạn? Nhấn chuyển đổi = cách nao

PhamMinhTung1

có 1 nút chuyển đổi đó bạn, mình bấm vào nút đó.

TranTai

Ấn = cách nào " sử dụng chuột hay tổ hợp phím ..."

DucThanhNguyen

Nói rõ hơn về đề bài: viết 1 đoạn macro để hoán đổi nội dung giữa 2 ô Excel đang được chọn.
VD: trước Macro: A1=1, A2=2 ||| sau Macro: A2=1, A1=2

PhamMinhTung1

thêm nữa là không nhất thiết 2 ô liền nhau, có thể A1 và B10 chẳng hạn

PhanHieu

TrMinh

Em viết thế này ổn ko ạ
Sub Macro1()
Dim Giatri(1 To 2) As String
Dim i As Integer: i = 1
For Each Cell In Selection
Giatri(i) = Cell.Value
i = i + 1
Next
i = 2
For Each Cell In Selection
Cell.Value = Giatri(i)
i = i - 1
Next
End Sub

SonDoan

Sub Thayso()
Set Rng = Selection
Select Case Rng.Cells.Count
Case 1: MsgBox ("Vui long lua chon nhieu hon 1 cell")
Case 2:
vl1 = Rng.Cells(1).Value
vl2 = Rng.SpecialCells(xlCellTypeLastCell).Value
Rng.SpecialCells(xlCellTypeLastCell).Value = vl1
Rng.Cells(1).Value = vl2
Case Else: MsgBox ("Ban chon nhieu hon 2 cell, vui long chon lai")
End Select
End Sub

SonDoan

Sửa lại như vậy thôi. Dài hơn 1 chút nhưng chắc ăn
Sub Thayso()
Set Rng = Selection
Select Case Rng.Cells.Count
Case 1: MsgBox ("Vui long lua chon nhieu hon 1 cell")
Case 2:
If Rng.Areas.Count = 1 Then
temp = Rng.Cells(1).Value
Rng.Cells(1).Value = Rng.Cells(2).Value
Rng.Cells(2).Value = temp
Else
temp = Rng.Areas(1).Value
Rng.Areas(1).Value = Rng.Areas(2).Value
Rng.Areas(2).Value = temp
End If
Case Else: MsgBox ("Ban chon nhieu hon 2 cell, vui long chon lai")
End Select
End Sub

SonDoan

Wow, mới phát hiện ra dùng cells thay thế cho offset được Nhưng chỉ là offset 1 cell thôi Nhiều cell thì nó sẽ tính cell đầu tiên.
Range("B2").cells(2,3) = Range("B2").offset(2,3)

PhamMinhTung1

sẵn đây góp 1 code để bạn nào chưa hiểu có thể hiểu thêm về các thuộc tính của selection:
Sub ChuyenDoi()
Dim temp As String
If Selection.Cells.Count > 2 Or Selection.Cells.Count < 2 Then
MsgBox "ban can phai chon 2 cell", vbCritical
End
End If

If Selection.Areas.Count > 1 Then
       temp = Selection.Areas(1).Cells(1, 1).Value
       Selection.Areas(1).Cells(1, 1).Value = Selection.Areas(2).Cells(1, 1).Value
       Selection.Areas(2).Cells(1, 1).Value = temp
ElseIf Selection.Rows.Count > Selection.Columns.Count Then
       temp = Selection.Range("A1").Value
       Selection.Range("A1").Value = Selection.Range("A2").Value
       Selection.Range("A2").Value = temp
Else
       temp = Selection.Range("A1").Value
       Selection.Range("A1").Value = Selection.Range("B1").Value
       Selection.Range("b1").Value = temp
End If
   
temp = ""

End Sub

-FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- ***Tặng phần mềm kế toán UNESCO Fee sử dụng vĩnh viễn các Version 6.0 - 5.1- KẾ TOÁN HÀNH CHÍNH SỰ NGHIỆP học ở đâu tại Hồ Chí Minh? Đào tạo chứng chỉ KẾ TOÁN VIÊN Trường Bồi dưỡng Cán bộ Tài chính-BTC ĐÀO TẠO KẾ TOÁN TRƯỞNG HÀNH CHÍNH SỰ NGHIỆP BỘ TÀI CHÍNH TPHCM Chuyên mục tặng phần mềm kế toán excel cho dân kế toán miễn phí mới nhất năm Mình có cái máy bị lỗi dấu chấm "." ở bên phím Numlock, khi chỉnh hệ thống Hỏi về cách chọn giá trị nhưng chỉ hiển thị thông tin nằm trong bảng đã chọn Tạo Hộp Thoại Search Thông tin Trông Ô Lấy nội dung của dòng bên trên ô selected Xem thêm