Autofill đến dòng trống cuối cùng

vandong_pr · Đăng lúc 10/4/2014 18:59

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Bạn phải đăng nhập để xem được nội dung, nếu bạn chưa có tài khoản? hãy Đăng ký mới

x

Anh Em giúp dùm em vần đề này cái
Chả là em cũng làm 1 số file Excel tính thép, nhưng mỗi khi muốn tính thép thì phải nhâm double Click vào ô tính thép thì nó mới autofill tới dòng cuối, em làm 1 macro cho nó autofill ,nhưng không biết tới đâ nên cho nó autofill đến dòng 100000 thì cũng xài được nhưng nó ra số 0 tại các dòng dữ liệu trống, anh em có thể viết dùm em đoạn code để nó tự fill đến dòng dữ liệu trống cuối cùng được không. Cảm ơn trước
Đoạn macro em tự thu rồi chĩnh cho tới dòng 100000
Sub allto_fill_to_last_data_row()
'
' Macro4 Macro
'

'
Selection.autofill Destination:=ActiveCell.Range("A1:A100000")
ActiveCell.Range("A1:A100000").Select
End Sub

vandong_pr · Đăng lúc 10/4/2014 21:52

NOILUC.xlsx (1.63 MB, Lượt tải về: 20)

phamvana · Đăng lúc 10/4/2014 23:59

Tại sao khi tải file về thì macro bị mất hết, không có dòng lệnh nào cả.

vandong_pr · Đăng lúc 11/4/2014 04:39

http://www.mediafire.com/view/03ueija4tgbgvk7/NOILUC.xlsm
anh phamvana do diễn đàn không cho upload file duoi xlsm, cứ mỗi làn lưu về đuôi xlsx thì nó xóa hết macro

vandong_pr · Đăng lúc 11/4/2014 18:35

anh fubi giúp dùm em cái autofill, em cũng search trên web nước ngoài mà copy rồi về làm không được

fclinux · Đăng lúc 11/4/2014 22:27

Nhưng đôi lúc nó cần để giải quyết công việc anh FUBI ạ, e cũng đang cần tìm, nếu được a chỉ luôn anh nhé :)

fclinux · Đăng lúc 11/4/2014 22:58

Anh Fubi nói rất đúng, đó là lý do vì sao anh Fubi đã nhắc trong luật tham gia học VBA lần này. thực sự thì tụi em cũng đang mày mò, mọi người tham dự khóa học là để hy vọng sẽ từ từ xây dựng vững chắc nền móng của mình (như anh Fubi nhắc trong yêu cầu).

Anh Fubi biết không hiện em chỉ có 1 tuần để hoàn tất file của em, trong khi em đã mất gần 2 tháng để mò mẫm về VBA, tuy rất ngắn nhưng hiện cũng cho em biết một chút ít về VBA, hy vọng anh Fubi sẽ đồng ý một số yêu cầu riêng hoặc giả di chuyển mục này ra khỏi lớp học VBA sẽ đỡ lôn xộn

vandong_pr · Đăng lúc 11/4/2014 23:22

vandong_pr gửi lúc 11/4/2014 18:35

Đăng nhập/Đăng ký mở rộng

anh fubi giúp dùm em cái autofill, em cũng search trên web nước ngoài mà copy rồi về làm ...

vậy cũng tốt, em cảm ơn trước,chờ đến khi làm được

fubi · Đăng lúc 11/4/2014 23:28

fclinux gửi lúc 11/4/2014 22:27

Đăng nhập/Đăng ký mở rộng

Nhưng đôi lúc nó cần để giải quyết công việc anh FUBI ạ, e cũng đang cần tìm, nếu ...

Copy vào modules file của bạn ==> rồi bấm F8 để duyệt từng dòng lệnh bạn sẽ hiểu.

Sub ChonThep()
'
' Macro1 Macro
'
'
Dim dongcuoicung As Integer
Dim vungfill As String
dongcuoicung = Range("C65536").End(xlUp).Row ' gioi han dong excel 2003
vungfill = "O12:S" & dongcuoicung
Range("O12:S12").Select
Selection.AutoFill Destination:=Range(vungfill)
End Sub

Sao chép mã

tranhoe · Đăng lúc 12/4/2014 00:06

fubi gửi lúc 11/4/2014 23:28

Đăng nhập/Đăng ký mở rộng

Copy vào modules file của bạn ==> rồi bấm F8 để duyệt từng dòng lệnh bạn sẽ hiểu.

K/g anh Fubi!
Công nhận A rất nhiệt tình. Đã giải đáp thắc mắt của 1 số AE trên Diễn đàn, mặc dầu A vẫn biết là học kiểu này dễ "tẩu hỏa nhập ma".
Các AE học VBA thân mến!: Từ hôm nay, mục "Lớp VBA giúp nhau" sẽ là nơi để chúng ta đưa ra những yêu cầu riêng (trước hết là phục vụ cho công việc của mỗi thành viên), không nên post vào khu vực "Bài giảng" hoặc "Bài tập thành viên tự giải". Mục đích: không loãng chủ đề.

tranhoe · Đăng lúc 12/4/2014 00:22

tranhoe gửi lúc 12/4/2014 00:06

Đăng nhập/Đăng ký mở rộng

K/g anh Fubi!
Công nhận A rất nhiệt tình. Đã giải đáp thắc mắt của 1 số AE trên Di ...

Quan trọng nhất vẫn là: Bấm F8 để thực hiện từng dòng lệnh (Code), từ đó sẽ hiểu sâu về Code. Ví dụ:
dongcuoicung = Range("C65536").End(xlUp).Row (Ở đây cột C là cột chính, luôn có dữ liệu)
Ý của nó là gì?: Từ cell "C65536" (Dòng cuối của Office 2003) đi thẳng lên trên cho đến khi gặp Cell có dữ liệu, thì Cell đó là Cell cuối cùng (Dòng cũng là cuối cùng) của bảng Dữ liệu. Đây là cách để xác định Dòng cuối cùng của CSDL. Tùy theo từng bài toán cụ thể mà cột chính sẽ là C hay D hay ...
Nhớ nhé! Gặp bài toán khác ta sẽ áp dụng tương tự.

vandong_pr · Đăng lúc 12/4/2014 08:12

Cho em hỏi thêm cái này
Sub ChonThep()
'
' Macro1 Macro
'

'
Dim dongcuoicung As Integer
Dim vungfill As String
dongcuoicung = Range("C65536").End(xlUp).Row ' gioi han dong excel 2003
vungfill = "m12:p" & dongcuoicung
Range("m12:p12").Select
Selection.AutoFill Destination:=Range(vungfill)
End Sub
cái này anh FUBI viết là địa chỉ tuyệt đối, vậy muốn sử dụng địa chỉ tương đối trong như tại ô Active cell thì làm sao

fclinux · Đăng lúc 12/4/2014 08:34

fubi gửi lúc 11/4/2014 23:28

Đăng nhập/Đăng ký mở rộng

Copy vào modules file của bạn ==> rồi bấm F8 để duyệt từng dòng lệnh bạn sẽ hiểu.

Hi anh Fubi, e tự gõ hàm sau theo hàm của anh nhưng nó luôn báo một lỗi là" Run-time erro '1004'" Application - defined or defined error. còn khi copy nguyên dòng lại Ok, e đã soi kĩ rồi nhưng ko rõ vì sao

Sub chonthep()
Dim dongcuoicung As Integer
Dim vungfill As String
dongcuoicung = Range("C65536").End(xlUp).Row
vungfill = "012:S" & dongcuoicung
Range("O121:S12").Select
Selection.AutoFill Destination:=Range(vungfill)
End Sub

Đăng nhập/Đăng ký mở rộng

vandong_pr · Đăng lúc 12/4/2014 09:03

bạn đánh sai cái( vungfill = "012:S" & dongcuoicung ;Range("O121:S12").Select), cái o12 là địa chỉ tuyệt đối ,nhưng tại đó(012:s12) phải có dữ liệu thì mới autofill xuống được,
mình làm ngon lành rồi

,thử đi

fclinux · Đăng lúc 12/4/2014 09:20

vandong_pr gửi lúc 12/4/2014 09:03

Đăng nhập/Đăng ký mở rộng

bạn đánh sai cái( vungfill = "012:S" & dongcuoicung ;Range("O121:S12").Select), cái o12 là đ ...

hih, công nhận mình sơ xuất, nhưng mình view code lại lần nữa rồi, kể cả copy dòng của anh fubi vào nhưng chỉ chay được dòng của anh ấy còn dòng có màu vàng của mình thì tèo :p

Đăng nhập/Đăng ký mở rộng

vandong_pr · Đăng lúc 12/4/2014 09:37

fclinux gửi lúc 12/4/2014 09:20

Đăng nhập/Đăng ký mở rộng

hih, công nhận mình sơ xuất, nhưng mình view code lại lần nữa rồi, kể cả copy dòng c ...

bạn đưa đoạn code lên dạng text để mình copy về chạy thử xem sao , video mình làm thử

fclinux · Đăng lúc 12/4/2014 10:14

vandong_pr gửi lúc 12/4/2014 09:37

Đăng nhập/Đăng ký mở rộng

bạn đưa đoạn code lên dạng text để mình copy về chạy thử xem sao , video mình làm th ...

hi bạn tải file này xuống nhé, thử chạy 2 code coi có gì cho mình biết nhé :)
http://www.mediafire.com/view/3s8273zzlh2126a/Book01.xlsm

vandong_pr · Đăng lúc 12/4/2014 15:18

chả biết sao, chờ mấy ông anh làm thôi chứ, mình mới biết được chút ít , còn vụ lỗi này ra sao thì potay

vandong_pr · Đăng lúc 12/4/2014 21:09

flcinux đọc lại thật kỹ cái mà anh tranhoe hướng dẫn, mình làm lại được rồi

fclinux · Đăng lúc 12/4/2014 23:47

hihi hic hic, anh Fubi đang giận em út không nghe lời rồi, có vấp té mới thấy mình sai, đúng là em đã sai, chỉ cần đổi số 0 >> chữ O là được.
Cảm ơn anh Trần Hoe và anh Fubi nhiều lắm vì tui em trẻ danh ương ngạnh

tranhungdao12a3 · Đăng lúc 2/5/2014 16:19

Nếu ta biết đích xác cột có cell cuối có dữ liệu, có lẽ ta có thể làm thế này:
Sub ChonThep()
Dim Lastrow As Integer
Dim vungfill As String
Lastrow = cells(rows.count,14).End(xlUp).Row
' ví dụ biết cột 14 có cell có dữ liệu cuối cùng
vungfill = "O12:S" & Lastrow
Range("O12:S12").AutoFill Destination:=Range(vungfill)
End Sub

Tài khoản		Ghi nhớ?	Quên mật khẩu
Mật khẩu			Đăng ký mới

Autofill đến dòng trống cuối cùng

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá

Đánh giá

Đánh giá

Đánh giá

Đánh giá

Đánh giá

Đánh giá

Đánh giá

Đánh giá

Đánh giá

Đánh giá

Đánh giá

Autofill đến dòng trống cuối cùng

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá

Đánh giá

Đánh giá

Đánh giá

Đánh giá

Đánh giá

Đánh giá

Cảm ơn!

Đánh giá

Cảm ơn!

Đánh giá

Cảm ơn!

Đánh giá

Đánh giá

Cảm ơn!

Đánh giá

Cảm ơn!