[Help] Xin hỏi dùng macro để gán dữ liệu. (1 người xem)

[Heracles1976]

Các Bác giúp E trường hợp muốn gán dữ liệu vào 1 ô bằng cách chạy Macro thế nào với ạ, đơn giản mà không biết làm huhu...

 

[PacificPR]

Các Bác giúp E trường hợp muốn gán dữ liệu vào 1 ô bằng cách chạy Macro thế nào với ạ, đơn giản mà không biết làm huhu...

Bạn dùng cái này thử:

Public Sub Chenthang()
    Dim n As Integer
On Error GoTo Thoat
n = Application.InputBox("Nhap so thang: ")
Range("F4") = n
Thoat:
End Sub

 

[Heracles1976]

Bạn dùng cái này thử:

Public Sub Chenthang()
    Dim n As Integer
On Error GoTo Thoat
n = Application.InputBox("Nhap so thang: ")
Range("F4") = n
Thoat:
End Sub

Được rồi Bác ạ, E cảm ơn Bác.. đơn giản quá!

 

[phulien1902]

Được rồi Bác ạ, E cảm ơn Bác.. đơn giản quá!

Đơn giản?

Sub abc()
    Dim a
    a = InputBox("Xin moi nhap 1 so", "GPE", 1)
    Range("F4").Value = a
End Sub

 

[Heracles1976]

Đơn giản?

Sub abc()
    Dim a
    a = InputBox("Xin moi nhap 1 so", "GPE", 1)
    Range("F4").Value = a
End Sub

Cảm ơn Bác, cái này còn đơn giản hơn..

Tiện đây cho E hỏi thêm 1 cái macro xóa dòng trong bảng tính. VD: Khi chạy marco đó nó sẽ hỏi: "Bạn muốn xóa dòng số mấy: ", mình nhập số 8 vào thì nó xóa cả dòng số 8 trong bảng tính đó với ạ.

 

[phulien1902]

Cảm ơn Bác, cái này còn đơn giản hơn..

Tiện đây cho E hỏi thêm 1 cái macro xóa dòng trong bảng tính. VD: Khi chạy marco đó nó sẽ hỏi: "Bạn muốn xóa dòng số mấy: ", mình nhập số 8 vào thì nó xóa cả dòng số 8 trong bảng tính đó với ạ.

Bạn thử:

Sub Delet_abc()
    Dim b As Long
    b = InputBox("Xin moi nhap dong can xoa", "GPE", 1)
    Range(Cells(b, 2), Cells(b, 3)).Delete Shift:=xlUp
End Sub

 

[Heracles1976]

Bạn thử:

Sub Delet_abc()
    Dim b As Long
    b = InputBox("Xin moi nhap dong can xoa", "GPE", 1)
    Range(Cells(b, 2), Cells(b, 3)).Delete Shift:=xlUp
End Sub

Đẹp quá, E cảm ơn Bác.!

 

[Heracles1976]

Bạn thử:

Sub Delet_abc()
    Dim b As Long
    b = InputBox("Xin moi nhap dong can xoa", "GPE", 1)
    Range(Cells(b, 2), Cells(b, 3)).Delete Shift:=xlUp
End Sub

Ơ Bác ơi, cái này nó chỉ xóa 2 ô thôi ạ..?

Em muốn nó xóa cả dòng như kiểu mình bôi đen bằng Shift+Space rồi phải chuột chọn Delete cơ thì phải làm sao ạ

 

[PacificPR]

Ơ Bác ơi, cái này nó chỉ xóa 2 ô thôi ạ..?

Em muốn nó xóa cả dòng như kiểu mình bôi đen bằng Shift+Space rồi phải chuột chọn Delete cơ thì phải làm sao ạ

Bạn sửa thành như thế này xem được không

Sub Delet_abc()
    Dim b As Long
b = InputBox("Xin moi nhap dong can xoa", "GPE", 1)
Cells(b, 1).EntireRow.Delete
End Sub

 

[befaint]

Bạn sửa thành như thế này xem được không

Sub Delet_abc()
    Dim b As Long
b = InputBox("Xin moi nhap dong can xoa", "GPE", 1)
Cells(b, 1).EntireRow.Delete
End Sub

InputBox là phải bẫy lỗi (khi Cancel).
Sao không dùng Rows().Delete?
Nếu "ăn gian" thì có thể viết kiểu thế này:

On Error Resume Next
Rows(InputBox("Xin moi nhap dong can xoa", "GPE", 1)).Delete

 

[PacificPR]

InputBox là phải bẫy lỗi (khi Cancel).
Sao không dùng Rows().Delete?
Nếu "ăn gian" thì có thể viết kiểu thế này:

On Error Resume Next
Rows(InputBox("Xin moi nhap dong can xoa", "GPE", 1)).Delete

Hay quá anh à. Nhưng Vậy thì ngắn quá anh ơi

 

[phulien1902]

InputBox là phải bẫy lỗi (khi Cancel).
Sao không dùng Rows().Delete?
Nếu "ăn gian" thì có thể viết kiểu thế này:

On Error Resume Next
Rows(InputBox("Xin moi nhap dong can xoa", "GPE", 1)).Delete

Quả là ngắn gọn, mà không nghĩ ra.

 

[Heracles1976]

Quả là ngắn gọn, mà không nghĩ ra.

Hay quá Bác.

E xin hỏi thêm tí tí, liệu E chỉ cho phép xóa dòng thứ 18 trở đi thì có làm được không ạ, cần phải sửa macro thế nào ạ.

 

[phulien1902]

Hay quá Bác.

E xin hỏi thêm tí tí, liệu E chỉ cho phép xóa dòng thứ 18 trở đi thì có làm được không ạ, cần phải sửa macro thế nào ạ.

Bạn thử:

Sub abc()
    Dim LR As Long, i As Long
    With Sheets(1)
        LR = .Range("A" & .Rows.Count).End(xlUp).Row
             For i = LR To 18 Step -1
          Rows(i).EntireRow.Delete
        Next i
    End With
End Sub

 

[Heracles1976]

Bạn thử:

Sub abc()
    Dim LR As Long, i As Long
    With Sheets(1)
        LR = .Range("A" & .Rows.Count).End(xlUp).Row
             For i = LR To 8 Step -1
          Rows(i).EntireRow.Delete
        Next i
    End With
End Sub

Như macro này thì lại không cho hỏi và chọn dòng cần xóa ạ?

 

[giaiphap]

Bạn thử:

Sub abc()
    Dim LR As Long, i As Long
    With Sheets(1)
        LR = .Range("A" & .Rows.Count).End(xlUp).Row
             For i = LR To 8 Step -1
          Rows(i).EntireRow.Delete
        Next i
    End With
End Sub

Tôi nghĩ vầy sẽ nhanh hơn, không biết có đúng không nửa.

Sub abc()
    Dim LR As Long
    With Sheets(1)
        LR = .Range("A" & .Rows.Count).End(xlUp).Row
        If LR > 17 Then Rows("18:" & LR).EntireRow.Delete
    End With
End Sub

 

[giaiphap]

Như macro này thì lại không cho hỏi và chọn dòng cần xóa ạ?

Nếu vậy sửa thế này.

Sub GPE()
    Dim b As Long
    b = InputBox("Xin moi nhap dong can xoa", "GPE", 1)
    If b > 17 Then Rows(b).EntireRow.Delete
End Sub

 

[thanhlanh]

Vậy thử đúng ý ko?
Sub xyz()
On Error Resume Next
Rows(InputBox("Xin moi nhap dong can xoa", "GPE", 18) & ":" & Cells.Rows.Count).Delete
End Sub

 

[Heracles1976]

Nếu vậy sửa thế này.

Sub GPE()
    Dim b As Long
    b = InputBox("Xin moi nhap dong can xoa", "GPE", 1)
    If b > 17 Then Rows(b).EntireRow.Delete
End Sub

Bấm cancel thì báo lỗi macro rồi Bác ơi

 

[phulien1902]

Nếu vậy sửa thế này.

Sub GPE()
    Dim b As Long
    b = InputBox("Xin moi nhap dong can xoa", "GPE", 1)
    If b > 17 Then Rows(b).EntireRow.Delete
End Sub

@ giaiphap
Code này chưa đúng, chỉ xóa được 1 dòng

 

[PacificPR]

Bấm cancel thì báo lỗi macro rồi Bác ơi

Bạn lấy bẫy lỗi của bài 10 bỏ vào là xong thôi

 

[Heracles1976]

Bạn lấy bẫy lỗi của bài 10 bỏ vào là xong thôi

Dạ, chạy thử thấy được rồi ạ. Macro mạnh quá đi mất...

Cho E hỏi thêm câu cuối. Sau khi chạy mấy thứ trên, E muốn đặt 1 dòng lệnh tại A19 bằng công thức: =IF(RC[1]=0;0;COUNTIF(R18C3:RC[1];"<>0")) thì E phải viết thế nào ạ, hi hi

 

[phulien1902]

Dạ, chạy thử thấy được rồi ạ. Macro mạnh quá đi mất...

Cho E hỏi thêm câu cuối. Sau khi chạy mấy thứ trên, E muốn đặt 1 dòng lệnh tại A19 bằng công thức: =IF(RC[1]=0;0;COUNTIF(R18C3:RC[1];"<>0")) thì E phải viết thế nào ạ, hi hi

Bạn thử:

Range("A19").Formula = "=IF(RC[1]=0;0;COUNTIF(R18C3:RC[1];""<>0""))"

 

[Heracles1976]

Bạn thử:

Range("A19").Formula = "=IF(RC[1]=0;0;COUNTIF(R18C3:RC[1];""<>0""))"

Mỗi lần E đưa cái công thức này vào thì nó báo lỗi như trên và Gạch vàng ở dòng Range("A19").Formula = "=IF(RC[1]=0;0;COUNTIF(R18C3:RC[1];""<>0""))" Bác ạ, sao thế nhỉ?

 

[thanhlanh]

View attachment 182417

Mỗi lần E đưa cái công thức này vào thì nó báo lỗi như trên và Gạch vàng ở dòng Range("A19").Formula = "=IF(RC[1]=0;0;COUNTIF(R18C3:RC[1];""<>0""))" Bác ạ, sao thế nhỉ?

Bạn có thể tự làm code gán công thức của bạn như sau:
1. Nhập công thức như ý muốn của bạn bằng thủ công
2. Bấm Record macro
3. Kích đôi chuột vào ô chứa công thức mong muốn -> Enter
4. Stop Rec...
Vào VBA "thu hoạch" code .

 

[Heracles1976]

Bạn có thể tự làm code gán công thức của bạn như sau:
1. Nhập công thức như ý muốn của bạn bằng thủ công
2. Bấm Record macro
3. Kích đôi chuột vào ô chứa công thức mong muốn -> Enter
4. Stop Rec...
Vào VBA "thu hoạch" code .

Hay quá Bác, E tự xử được luôn cái của E rồi. tks Bác nhiều!

 

[thanhlanh]

Hay quá Bác, E tự xử được luôn cái của E rồi. tks Bác nhiều!

Giải lao tí, "cái của em" ... em là Boy hay Girl vậy? kkk

 

[giaiphap]

Bấm cancel thì báo lỗi macro rồi Bác ơi

Vậy thì thêm vào phần kiểm tra lỗi nửa là xong.

@ giaiphap
Code này chưa đúng, chỉ xóa được 1 dòng

Thì tác giả chỉ muốn xóa một dòng mà bác.

 

[Heracles1976]

Giải lao tí, "cái của em" ... em là Boy hay Girl vậy? kkk

Boy chính gộc không pha trộn Bác ạ