Ai rành VBA thì viết giúp mình cái code này nha!

T

tung9630

Member
Hội viên mới
mình muồn copy dữ liệu xuống đến dòng tiếp theo có dữ liệu, nhưng mà copy bằng tay thì lâu quá, mình nghĩ VBA thì cái này quá đơn giản! cảm ơn các bạn!
 

Đính kèm

  • PN7-12.XLS
    20.5 KB · Lượt xem: 194
Ðề: Ai rành VBA thì viết giúp mình cái code này nha!

VBA là cái j dzạ, nó có ăn đc hok dzạ?các bạn trả lời rúp mình nhạ :))
 
Ðề: Ai rành VBA thì viết giúp mình cái code này nha!

Dim dòngDữLiệu, dòngHiệnTại, dòngCuốiCùng as integer
Tìm dòngCuốiCùng

dòngDữLiệu = 1
dòngHiệnTại = 2
do while dòngHiệnTại < dòngCuốiCùng
if range(dòngHiệnTại) = trống then
range(dòngHiệnTại) = range(dòngDữLiệu)
dòngHiệnTại = dòngHiệnTại + 1
else
dòngDữLiệu = dòngHiệnTại
end if
loop
 
Ðề: Ai rành VBA thì viết giúp mình cái code này nha!

VetMini nói:
Dim dòngDữLiệu, dòngHiệnTại, dòngCuốiCùng as integer
Tìm dòngCuốiCùng

dòngDữLiệu = 1
dòngHiệnTại = 2
do while dòngHiệnTại < dòngCuốiCùng
if range(dòngHiệnTại) = trống then
range(dòngHiệnTại) = range(dòngDữLiệu)
dòngHiệnTại = dòngHiệnTại + 1
else
dòngDữLiệu = dòngHiệnTại
end if
loop
Nhấn để mở rộng...
bạn viết thế này mình cũng thua bạn à, mình không biết VBA
 
Ðề: Ai rành VBA thì viết giúp mình cái code này nha!

tung9630 nói:
mình muồn copy dữ liệu xuống đến dòng tiếp theo có dữ liệu, nhưng mà copy bằng tay thì lâu quá, mình nghĩ VBA thì cái này quá đơn giản! cảm ơn các bạn!
Nhấn để mở rộng...

PHP: 
Sub CopyRow()
    Dim n As Long, i As Integer
    n = Sheet1.Range("A65000").End(xlUp).Row
    For i = 5 To n
        If Sheet1.Range("A" & i) = "" Then
            Sheet1.Range("A" & i - 1 & ":F" & i - 1).Copy Destination:=Sheet1.Range("A" & i)
        End If
    Next
End Sub
 
Ðề: Ai rành VBA thì viết giúp mình cái code này nha!

Xuân Phương nói:
PHP: 
Sub CopyRow()
    Dim n As Long, i As Integer
    n = Sheet1.Range("A65000").End(xlUp).Row
    For i = 5 To n
        If Sheet1.Range("A" & i) = "" Then
            Sheet1.Range("A" & i - 1 & ":F" & i - 1).Copy Destination:=Sheet1.Range("A" & i)
        End If
    Next
End Sub
Nhấn để mở rộng...
thanks ban !
ban co giao trinh nao ve VBA co the cho minh xin ko! minh cung co kien thuoc ve lap trinh c! :) cai nay cung tuong doi giong ngon ngu C ha!
 
Ðề: Ai rành VBA thì viết giúp mình cái code này nha!

Nó là anh của VB6, nên nó giống VB6 hơn.
 
Ðề: Ai rành VBA thì viết giúp mình cái code này nha!

Trời đất, code như vậy mà nói là giống C. Học C ở đâu vậy cha nội?
C là compiler language. BASIC là interpreter language. Chỉ riêng cách chạy đã khác nhau rồi.
 
Ðề: Ai rành VBA thì viết giúp mình cái code này nha!

VetMini nói:
Trời đất, code như vậy mà nói là giống C. Học C ở đâu vậy cha nội?
C là compiler language. BASIC là interpreter language. Chỉ riêng cách chạy đã khác nhau rồi.
Nhấn để mở rộng...

bữa giờ bận làm BCT, bạn có tài liệu thì cho mình, xin cảm ơn, còn bạn thích chứng tỏ sự "uyên bác" của mình thì làm ơn đi thi Viet Nam Idol giúp mình, bấm nút!
 
Ðề: Ai rành VBA thì viết giúp mình cái code này nha!

Ở nơi đây, chính bạn là người khỏi xướng ra câu "minh cung co kien thuoc ve lap trinh c! :) cai nay cung tuong doi giong ngon ngu C ha!"
Xét kỹ lại xem ai là người 'thích chứng tỏ sự "uyên bác" của mình' ?
 
Sửa lần cuối:
Ðề: Ai rành VBA thì viết giúp mình cái code này nha!

VetMini nói:
Ở nơi đây, chính bạn là người khỏi xướng ra câu "minh cung co kien thuoc ve lap trinh c! :) cai nay cung tuong doi giong ngon ngu C ha!"
Xét kỹ lại xem ai là người 'thích chứng tỏ sự "uyên bác" của mình' ?
Nhấn để mở rộng...
cau tren la co chut kien thuc ma viet nham ,nhưng mà cơ bản là mình là kế toán chứ không phải programer, neu bạn mà có biết nhiều thì chỉ bảo , mình xin cảm ơn, đừng có tỏ ra nguy hiểm nữa, như bạn Xuân Phương kia là được rôi! và bạn cũng đừng vịn vào cái câu nói có chút kiến thức về C để vịn mình, xin hãy nhìn vào cái tiêu đề bài viết đi kìa!
đã cám ơn bạn rồi! biến giúp mình nha!
 
Bạn phải đăng nhập hoặc đăng ký để bình luận.

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Cách làm file Excel quản lý lãi vay

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top