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

Nhờ Mọi người giúp đỡ với giúp em giải câu excel ạ Cho em hỏi phần đơn giá em bị sai gì ạ ? Dùng hàm IF và hàm Vlookup Hàm tìm ngày trong khoảng thời gian xác định SANG DỮ LIỆU TỪ FILE 1 VÀO FILE 2 THEO THỨ TỰ. Cần các cao thủ về Mail merge trợ giúp ạ. ***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- Xin phép được up lại file nhờ mọi người xem giúp. tại sao khi in có dòng mã bên dưới cuối trang và xóa như thế nào Xem thêm