Các cách thêm dòng mới vô 1 CSDL (cơ sở dữ liệu) đã sẵn

**duthu94** · 04-25-2014, 07:17 PM

Ðề: Các cách thêm dòng mới vô 1 CSDL (cơ sở dữ liệu) đã sẵn

; Mặc dù còn chút xíu lỗi nhỏ trong quá trình chạy code (Do đặc thù flie dữ liệu của em nó vậy).

Bạn có thể nói cho biết cái đặc thù của dữ liệu bạn đang sở hữu được không vậy?

Biết đâu ta cùng nhau khắc fục được thì sao?!

Chúc cuối tuần vui vẻ!

**actech1** · 04-25-2014, 09:57 PM

Ðề: Các cách thêm dòng mới vô 1 CSDL (cơ sở dữ liệu) đã sẵn

Chúc cuối tuần vui vẻ![/B][/QUOTE]
:metwa:

View attachment 15047

**Gà Con** · 04-26-2014, 11:17 AM

Ðề: Bạn xài macro này xem có thuận tiện hơn không:

Mã nguồn PHP:


[COLOR=#000000]
Option Explicit
Sub InsertRowsForNumbers[/COLOR][COLOR=#007700]()
 [/COLOR][COLOR=#0000BB]Dim Rws [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]NumFrom [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Dm [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte
 Dim Cls [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range
 ReDim Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1 To 1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1 To 3[/COLOR][COLOR=#007700])
  
 [/COLOR][COLOR=#0000BB]Rws [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]A2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDown[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row
 Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]ScreenUpdating [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]False
 [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rws To 2 Step [/COLOR][COLOR=#007700]-[/COLOR][COLOR=#0000BB]1
    With Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"A"[/COLOR][COLOR=#007700])
        [/COLOR][COLOR=#0000BB]NumFrom [/COLOR][COLOR=#007700]= .[/COLOR][COLOR=#0000BB]Value
        [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]NumFrom [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0 Then [/COLOR][COLOR=#007700]GoTo [/COLOR][COLOR=#0000BB]GPE
        [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]NumFrom[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]EntireRow[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Insert
        Arr[/COLOR][COLOR=#007700]() = .[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value
        [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]Each Cls In [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]NumFrom[/COLOR][COLOR=#007700])
            [/COLOR][COLOR=#0000BB]Dm [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Dm [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1
            Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]NumFrom [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]Dm
            Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]()
        [/COLOR][COLOR=#0000BB]Next Cls
    End With
    Dm [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0
GPE[/COLOR][COLOR=#007700]:
 [/COLOR][COLOR=#0000BB]Next J
 Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]ScreenUpdating [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]True
End Sub
[/COLOR]

:nhaykieumoi:

**damtuyen232** · 04-26-2014, 09:51 PM

Ðề: Bạn xài macro này xem có thuận tiện hơn không:

Gửi bởi TQChanh

Mã nguồn PHP:


[COLOR=#000000]
Option Explicit
Sub InsertRowsForNumbers[/COLOR][COLOR=#007700]()
 [/COLOR][COLOR=#0000BB]Dim Rws [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]NumFrom [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Dm [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte
 Dim Cls [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range
 ReDim Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1 To 1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1 To 3[/COLOR][COLOR=#007700])
  
 [/COLOR][COLOR=#0000BB]Rws [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]A2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDown[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row
 Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]ScreenUpdating [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]False
 [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rws To 2 Step [/COLOR][COLOR=#007700]-[/COLOR][COLOR=#0000BB]1
    With Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"A"[/COLOR][COLOR=#007700])
        [/COLOR][COLOR=#0000BB]NumFrom [/COLOR][COLOR=#007700]= .[/COLOR][COLOR=#0000BB]Value
        [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]NumFrom [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0 Then [/COLOR][COLOR=#007700]GoTo [/COLOR][COLOR=#0000BB]GPE
        [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]NumFrom[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]EntireRow[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Insert
        Arr[/COLOR][COLOR=#007700]() = .[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value
        [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]Each Cls In [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]NumFrom[/COLOR][COLOR=#007700])
            [/COLOR][COLOR=#0000BB]Dm [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Dm [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1
            Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]NumFrom [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]Dm
            Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]()
        [/COLOR][COLOR=#0000BB]Next Cls
    End With
    Dm [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0
GPE[/COLOR][COLOR=#007700]:
 [/COLOR][COLOR=#0000BB]Next J
 Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]ScreenUpdating [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]True
End Sub
[/COLOR]

:nhaykieumoi:

Wow! Quá tuyệt vời. E ko biết nói j hơn nữa, thật lòng cám ơn bác TQchanh rất rất nhiều! Ko biết bác ở đầu e có thể mời bác đi uống nước đc ko?

**phuonglan11** · 04-27-2014, 02:12 PM

Ðề: Bạn xài macro này xem có thuận tiện hơn không:

Wow! Quá tuyệt vời. E ko biết nói j hơn nữa, thật lòng cám ơn bác TQchanh rất rất nhiều! Ko biết bác ở đầu e có thể mời bác đi uống nước đc ko?

(*) Bạn chưa nói là đã giảm đi từ 2 giờ xuống còn bao nhiêu giờ?

(*) Bạn nên nói trước rằng, hiện đang ngụ nơi mô?!, Mình đến cầu Ng. Tri Fương thì gần!
Chúc cuối tuần vui vẻ!:kingkong:

**seonghe** · 04-27-2014, 09:11 PM

Ðề: Bạn xài macro này xem có thuận tiện hơn không:

Gửi bởi TQChanh

(*) Bạn chưa nói là đã giảm đi từ 2 giờ xuống còn bao nhiêu giờ?
:kingkong:

Cám ơn bác nhé

**wassing123** · 04-30-2014, 05:58 PM

Ðề: Thêm hay xóa số dòng giống nhau ở 5 trang tính cùng lúc

Nội dung macro như sau:

Mã nguồn PHP:


[COLOR=#000000]
Option Explicit
Sub gpeThemXoaDong[/COLOR][COLOR=#007700]()
 [/COLOR][COLOR=#0000BB]Dim AddDel [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]ShName [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String
 Dim DongDau [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte
 
 Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"MaU"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select
 AddDel [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]InputBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Them : 'T'" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Chr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]10[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"Xóa: 'X'"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"Hay Nhap Chu Cái Thích Hop:"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"T"[/COLOR][COLOR=#007700])
 [/COLOR][COLOR=#0000BB]AddDel [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]UCase[/COLOR][COLOR=#007700]$([/COLOR][COLOR=#0000BB]AddDel[/COLOR][COLOR=#007700])
 [/COLOR][COLOR=#0000BB]DongDau [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]InputBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Hay Nhap Dòng Dàu De Xu Lý:"[/COLOR][COLOR=#007700])
 [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]InputBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Nhap Só Dòng Càn Xu Lý:"[/COLOR][COLOR=#007700]) - [/COLOR][COLOR=#0000BB]1
 [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To 5
    ShName [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Choose[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"T01"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"T02"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"T03"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"THop"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"Form"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"GPE"[/COLOR][COLOR=#007700])
    [/COLOR][COLOR=#0000BB]With Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ShName[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Rows[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]DongDau [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]":" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]DongDau [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]SoDong[/COLOR][COLOR=#007700])
        If [/COLOR][COLOR=#0000BB]AddDel [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"T" [/COLOR][COLOR=#0000BB]Then
            [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Insert Shift[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]xlDown
        [/COLOR][COLOR=#007700]ElseIf [/COLOR][COLOR=#0000BB]AddDel [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"X" [/COLOR][COLOR=#0000BB]Then
            [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Delete
        [/COLOR][COLOR=#007700]Else
            [/COLOR][COLOR=#0000BB]MsgBox [/COLOR][COLOR=#DD0000]"GPE.COM Xin Chào Ban!"
        [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If
    [/COLOR][COLOR=#0000BB]End With
 Next J
End Sub
[/COLOR]

Chúc nghĩ lễ vui vẻ!:cuoiranuocmat:

**robedungbds** · 05-01-2014, 03:39 AM

Ðề: Thêm hay xóa số dòng giống nhau ở 5 trang tính cùng lúc

Gửi bởi TQChanh

Nội dung macro như sau:

Mã nguồn PHP:


[COLOR=#000000]
Option Explicit
Sub gpeThemXoaDong[/COLOR][COLOR=#007700]()
 [/COLOR][COLOR=#0000BB]Dim AddDel [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]ShName [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String
 Dim DongDau [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte
 
 Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"MaU"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select
 AddDel [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]InputBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Them : 'T'" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Chr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]10[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"Xóa: 'X'"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"Hay Nhap Chu Cái Thích Hop:"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"T"[/COLOR][COLOR=#007700])
 [/COLOR][COLOR=#0000BB]AddDel [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]UCase[/COLOR][COLOR=#007700]$([/COLOR][COLOR=#0000BB]AddDel[/COLOR][COLOR=#007700])
 [/COLOR][COLOR=#0000BB]DongDau [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]InputBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Hay Nhap Dòng Dàu De Xu Lý:"[/COLOR][COLOR=#007700])
 [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]InputBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Nhap Só Dòng Càn Xu Lý:"[/COLOR][COLOR=#007700]) - [/COLOR][COLOR=#0000BB]1
 [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To 5
    ShName [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Choose[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"T01"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"T02"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"T03"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"THop"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"Form"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"GPE"[/COLOR][COLOR=#007700])
    [/COLOR][COLOR=#0000BB]With Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ShName[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Rows[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]DongDau [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]":" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]DongDau [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]SoDong[/COLOR][COLOR=#007700])
        If [/COLOR][COLOR=#0000BB]AddDel [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"T" [/COLOR][COLOR=#0000BB]Then
            [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Insert Shift[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]xlDown
        [/COLOR][COLOR=#007700]ElseIf [/COLOR][COLOR=#0000BB]AddDel [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"X" [/COLOR][COLOR=#0000BB]Then
            [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Delete
        [/COLOR][COLOR=#007700]Else
            [/COLOR][COLOR=#0000BB]MsgBox [/COLOR][COLOR=#DD0000]"GPE.COM Xin Chào Ban!"
        [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If
    [/COLOR][COLOR=#0000BB]End With
 Next J
End Sub
[/COLOR]

Chúc nghĩ lễ vui vẻ!:cuoiranuocmat:

Bác TQchanh ơi e chạy code nó báo lỗi ở dòng 11. mà Bác có biết về VBA của Cad không? E sưu tầm dc doạn code VBA của cad nhưng khi chạy ko đc theo ý mình nhờ bác sửa giúp
Chúc bác nghỉ lế vui vẻ

**phatthu** · 05-01-2014, 09:29 PM

nhờ các bác giúp vấn đề này

em không rành về excel lắm nên nhờ các đàn anh giúp em chỗ này với ạ!
yêu cầu như sau: mỗi khi ô A1 thay đổi dữ liệu thì tự động cập nhập vào cột B:B từ trên xuống dưới
mong các bác giúp em !

**vmb_thaibui** · 05-01-2014, 10:10 PM

Ðề: Thêm hay xóa số dòng giống nhau ở 5 trang tính cùng lúc

(1)Bác TQchanh ơi e chạy code nó báo lỗi ở dòng 11.
(2) Mà Bác có biết về VBA của Cad không? E sưu tầm dc doạn code VBA của cad nhưng khi chạy ko đc theo ý mình nhờ bác sửa giúp
Chúc bác nghỉ lế vui vẻ

(1) Dòng 11 là dòng nào vậy, sao bạn không trích dẫn ra luôn dùm đi?!

(2) VBA trong OTOCad chắc bạn qua GPE.COM hỏi coi sao;
Ở đó Thầy Hướng vững nhiều về thứ này!

Chúc vui nhân ngày 1/5

Chủ đề: Các cách thêm dòng mới vô 1 CSDL (cơ sở dữ liệu) đã sẵn

Công cụ Chủ đề

Tìm Chủ đề

Hiển thị

Quyền viết bài

Pallet nhựa Bà Rịa Vũng Tàu hỗ trợ giá tốt

Nguyên nhân thời nay có nhiều các cô sử dụng đồ chơi tình yêu?

Pallet nhựa Dĩ An chịu lực tốt

Một vài điều cần thận trọng trong việc chọn lựa chim giả cho đàn bà

Hướng dẫn dùng dụng cụ người lớn cho chị em

Sectoy tình ái có nguồn gốc từ cơ quan sinh dục phái mạnh hoặc nữ

Pallet nhựa Tân Phú giao hàng nhanh

Bật mí điều thích nhất ở Tenga Flip Hole do chính tiết lộ

Chày rung không dây Svakom Elva khiến các cô sung và sướng

Pallet nhựa Bạc liêu siêu sale mạnh