Thay f2+ enter bằng VBA

[Huonggiang13]

Anh chị giúp em với.Dùng code VBA nào để có thể thay phím f2+enter cho cột trong excl với cả nghìn dòng

 

[befaint]

Ý tưởng quá tuyệt vời luôn... để xử lý chuyển số giả thành số thật.

Mình chỉ cần đơn giản dùng thủ thuật copy 1 cell rỗng, paste special add value là được rồi.

Nếu để hiển thị cảnh báo định dạng thì chọn convert to number là xong.

 

[Huonggiang13]

Dữ liệu của e ần phảiaans thao tác F2 enter rồi mới nhảy dữ liệu bên cạnh được ạ

 

[befaint]

Gõ thêm hai dấu trừ vào là khỏi bệnh.

 

[Huonggiang13]

Gõ thêm hai dấu trừ vào là khỏi bệnh.

A nói rõ phương thức làm giúp em được không ạ e chưa hiểu lắm

 

[Hoàng Tuấn 868]

là khỏi bệnh.

Vụ này phải chữa mấy bệnh liền rồi anh ơi.

 

[VetMini]

Ý tưởng quá tuyệt vời luôn... để xử lý chuyển số giả thành số thật.

Mình chỉ cần đơn giản dùng thủ thuật copy 1 cell rỗng, paste special add value là được rồi.

Nếu để hiển thị cảnh báo định dạng thì chọn convert to number là xong.

Thủ thuật copy... tốn mấy động tác? Ở diễn đàn nyaf bao nhiêu năm mà còn ngây thơ quá.
Ở đây, trên diễn đàn này, hễ câu hỏi có từ "code" hoặc "VBA" là người ta muốn "bấm một phát".

Đã nói người hay viết chữ e, a, dc, và ko là dân hời hợt, cái gì cũng muốn lướt qua nhanh mờ.

 

[Huonggiang13]

Thủ thuật copy... tốn mấy động tác? Ở diễn đàn nyaf bao nhiêu năm mà còn ngây thơ quá.
Ở đây, trên diễn đàn này, hễ câu hỏi có từ "code" hoặc "VBA" là người ta muốn "bấm một phát".

Đã nói người hay viết chữ e, a, dc, và ko là dân hời hợt, cái gì cũng muốn lướt qua nhanh mờ.

Là sao e k hiểu

 

[namvu230397]

Là sao e k hiểu

Là không viết tắt. Các bác trên diễn đàn này rất ngại việc viết tắt, bạn sửa nhanh may ra còn được hộ trợ

 

[bebo021999]

Copy cột /paste value tại chỗ.
Được chưa bạn?
Nếu chưa thì share file lên nhé

 

[befaint]

Copy cột /paste value tại chỗ.

Hổng có tác dụng gì anh ạ

 

[VetMini]

Hổng có tác dụng gì anh ạ

Có. Để phản biện lại bài #9 rằng cũng có nhiều "bác" trên diễn đàn này thích làm Hiệp Sĩ Trắng (White Knight), sẵn sàng ra tay cứu người đẹp trong cơn khốn (a damsel in distress) không màng chuyện viết tắt.

 

[Huonggiang13]

Copy cột /paste value tại chỗ.
Được chưa bạn?
Nếu chưa thì share file lên nhé

Dạ chưa được ạ. Em muốn dẫy hàng bên sheet 1 tự động coppy sang sheet 2 và tự chạy . Nếu coppy thủ công thì phải nhấn f2 + enter mới chạy đuọc dữ liệu cột bên như hình trên ạ

 

[befaint]

Hai dấu trừ là khỏi bệnh.

Mỗi thế thôi.

Làm việc với tụi jav mà úp dữ liệu lên đây thế này không lo họ đuổi cổ à?

 

[TH2]

Dạ chưa được ạ. Em muốn dẫy hàng bên sheet 1 tự động coppy sang sheet 2 và tự chạy . Nếu coppy thủ công thì phải nhấn f2 + enter mới chạy đuọc dữ liệu cột bên như hình trên ạ

Mua code chạy bằng cơm về, là xong nhanh nhất

 

[ngocbaovu]

Có phải copy cột A từ A2 của sheet 1 sang cột B từ B5 rồi chạy cho ra các cột sau không?
Sub Copy()
Dim i, lastRow As Long
Dim wb As Workbook
Application.Calculation = xlCalculationManual
Set wb = ThisWorkbook
lastRow = wb.Worksheets("STOCK_DATA").Cells(Rows.Count, 1).End(xlUp).row
wb.Worksheets("STOCK_DATA").Range("A2:A" & lastRow).Copy Destination:=wb.Worksheets("ACTUAL_ACCOUNT_DATE_INPUT").Range("B5")
For i = 5 To lastRow + 3
wb.Worksheets("ACTUAL_ACCOUNT_DATE_INPUT").Range("B" & i) = wb.Worksheets("ACTUAL_ACCOUNT_DATE_INPUT").Range("B" & i)
Next i
Application.Calculation = xlCalculationAutomatic
End Sub

 

[Huonggiang13]

Có phải copy cột A từ A2 của sheet 1 sang cột B từ B5 rồi chạy cho ra các cột sau không?
Sub Copy()
Dim i, lastRow As Long
Dim wb As Workbook
Application.Calculation = xlCalculationManual
Set wb = ThisWorkbook
lastRow = wb.Worksheets("STOCK_DATA").Cells(Rows.Count, 1).End(xlUp).row
wb.Worksheets("STOCK_DATA").Range("A2:A" & lastRow).Copy Destination:=wb.Worksheets("ACTUAL_ACCOUNT_DATE_INPUT").Range("B5")
For i = 5 To lastRow + 3
wb.Worksheets("ACTUAL_ACCOUNT_DATE_INPUT").Range("B" & i) = wb.Worksheets("ACTUAL_ACCOUNT_DATE_INPUT").Range("B" & i)
Next i
Application.Calculation = xlCalculationAutomatic
End Sub

Dạ đúng rồi ạ. Gán code xong tự chạy hay phải ấn tổ hợp vậy anh

 

[ngocbaovu]

Gửi bạn file xem sao. Thử lại file thấy mỗi vòng lặp lại phải unprotect sheet 2

----
Gở file theo yêu cầu tác giả vì bảo mật.

 

[befaint]

File dữ liệu còn kia thì khả năng mai nghỉ làm rồi.

 

[ngocbaovu]

File dữ liệu còn kia thì khả năng mai nghỉ làm rồi.

Đợi bạn ấy thử xong rồi xóa bài.