-
04-25-2014, 07:17 PM #31Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: 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).
Biết đâu ta cùng nhau khắc fục được thì sao?!
Chúc cuối tuần vui vẻ!
-
04-25-2014, 09:57 PM #32Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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
-
04-26-2014, 11:17 AM #33Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: 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]
-
04-26-2014, 09:51 PM #34Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Bạn xài macro này xem có thuận tiện hơn không:
Gửi bởi TQChanh
-
04-27-2014, 02:12 PM #35Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 2
Ðề: 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 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:
-
04-27-2014, 09:11 PM #36Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Bạn xài macro này xem có thuận tiện hơn không:
Gửi bởi TQChanh
-
04-30-2014, 05:58 PM #37Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 4
Ðề: 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]
-
05-01-2014, 03:39 AM #38Silver member
- Ngày tham gia
- Mar 2016
- Bài viết
- 207
Ðề: Thêm hay xóa số dòng giống nhau ở 5 trang tính cùng lúc
Gửi bởi TQChanh
Chúc bác nghỉ lế vui vẻ
-
05-01-2014, 09:29 PM #39Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
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 !
-
05-01-2014, 10:10 PM #40Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 5
Ðề: 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ẻ
(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
Bán pallet nhựa Phan Thiết giá tốt Pallet nhựa Phan Thiết là lựa chọn lý tưởng cho việc lưu trữ và vận chuyển hàng hóa nhờ vào độ bền cao, khả năng chịu tải tốt và tính chống thấm nước. Đặc biệt,...
Bán pallet nhựa Phan Thiết giá tốt