Test chức năng chia sẻ code VBA excel

fubi · Đăng lúc 2/5/2014 04:32

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

Chia sẻ code tại đây xem có tô màu dễ nhìn không?

Bài đầu tiên chưa hiện code được. Bài thứ 2 mới cho hiện code

[Visual Basic] 纯文本查看 复制代码

Sub LoadTaoThe()
'=====Bien Du lieu The =========================================
Dim strMc As String, strSection As String, strKind As String
Dim strDescrip As String, strReq As String
Dim strSap As String, strSapOld As String, strSapNew As String
Dim strID As String, strRele As String
Dim dateReque As Date, dateDead As Date
'===== Bien Chuong trinh ========================================
Dim rFind As Integer
Dim diachiFind As String
Dim rowTagO As Double
Dim ChonSave As Integer
strSapOld = Sheets("Create TAG card order").Range("C2").Value
'======= Xoa the ================================================
Sheets("Create TAG card order").Range("strMc") = vbNullString
Sheets("Create TAG card order").Range("strSection") = vbNullString
Sheets("Create TAG card order").Range("strKind").Value = vbNullString
End If
End Sub

[Visual Basic] 纯文本查看 复制代码

Sub DaoCotDL()
    Dim DongCuoi As Integer, d0 As Integer
    Range("B4").Select
    DongCuoi = Range("B" & Rows.Count).End(xlUp).Row
    'Tim buoc di chuyen xa nhat cua DL
    d0 = DongCuoi - 4
    'Tao vong lap lay DL va dao
    For i = d0 To 0 Step -1
        Range("B4").Offset(i, 2).Value = ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    Next i
End Sub

fubi · Đăng lúc 2/5/2014 04:45

[Visual Basic] 纯文本查看 复制代码

Sub LoadTaoThe()
 '=====Bien Du lieu The =========================================
 Dim strMc As String, strSection As String, strKind As String
Dim strDescrip As String, strReq As String
 Dim strSap As String, strSapOld As String, strSapNew As String
Dim strID As String, strRele As String
 Dim dateReque As Date, dateDead As Date
'===== Bien Chuong trinh ========================================
 Dim rFind As Integer
 Dim diachiFind As String
 Dim rowTagO As Double
 Dim ChonSave As Integer
 strSapOld = Sheets("Create TAG card order").Range("C2").Value
'======= Xoa the ================================================
 Sheets("Create TAG card order").Range("strMc") = vbNullString
Sheets("Create TAG card order").Range("strSection") = vbNullString
Sheets("Create TAG card order").Range("strKind").Value = vbNullString
End If
End Sub

tranhoe · Đăng lúc 2/5/2014 08:32

fubi gửi lúc 2/5/2014 04:45

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

[mw_shl_code=vb,true]Sub LoadTaoThe()
'=====Bien Du lieu The ==================================== ...

Tô màu như vậy là ổn rồi Fubi à!. Màu dịu mắt, đậm nhạt hợp lý, dễ phân biệt kiểu biến, thấy được các đối tượng.
Cả 2 bài 1&2 đều xem được code.

P/s: Cuối phần Code không có lựa chọn Sao chép mã, cũng cần thiết anh ạ!

tranhoe · Đăng lúc 4/5/2014 01:15

fubi gửi lúc 2/5/2014 04:45

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

[mw_shl_code=vb,true]Sub LoadTaoThe()
'=====Bien Du lieu The ==================================== ...

Bây giờ mới thấy:
Khi bấm vào liên kết "Bấm vào xem code" thì khung code sẽ hiện ra.
Rê con trỏ chuột lên khung code và để ý góc trên bên phải khung sẽ có 4 biểu tượng.
Biểu tượng thứ 2 là để sao chép code vào bộ nhớ.. Các Bạn nhớ điều này để sử dụng trong các bài viết về code VBA nhé!

tranhoe · Đăng lúc 4/5/2014 07:41

fubi gửi lúc 2/5/2014 04:45

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

[mw_shl_code=vb,true]Sub LoadTaoThe()
'=====Bien Du lieu The ==================================== ...

Bấm vào biểu tượng thứ 2 thì copy code vào bộ nhớ được, khi dán vào cửa sổ VBE thì đầu mỗi dòng thừa nhiều ký tự " "; nếu Xóa bằng tay sẽ rất lâu.
Thử làm cách khác: Bấm biểu tượng thứ 1 "xem code" sẽ mở ra cửa sổ riêng; bấm ^+a để chọn toàn bộ code, bấm ^+c để copy vào bộ nhớ, thì dán vào cửa sổ VBE rất chuẩn. Cách này cũng rất nhanh vì chỉ cần dùng 2 phím tắt mà thôi.

tranhoe · Đăng lúc 4/5/2014 09:33

fubi gửi lúc 2/5/2014 04:45

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

[mw_shl_code=vb,true]Sub LoadTaoThe()
'=====Bien Du lieu The ====================================== ...

A Fubi nói đúng chuẩn: nếu đầu (hoặc cuối) dòng code có các khoảng trắng thì khi copy xong Paste code sẽ bị thừa các ký tự "". Code có thụt đầu Dòng để thấy rõ cấp độ của từng câu lệnh trong macro, dễ kiểm soát code tuy nhiên lại khó khi copy để sử dụng lại.
P/s: A Fubi đã giải quyết được rồi!

fubi · Đăng lúc 4/5/2014 12:11

Đã lập trình lại:
- Kích đúp chuột tại bất kỳ dòng code nào sẽ tự động bôi đen toàn bộ code ==> cltr +c ==> Dán vào VBA là OK sẽ đầy đủ định dạng:

[Visual Basic] 纯文本查看 复制代码

Sub LoadTaoThe()
 '=====Bien Du lieu The =========================================
    Dim strMc As String, strSection As String, strKind As String
    Dim strDescrip As String, strReq As String
    Dim strSap As String, strSapOld As String, strSapNew As String
    Dim strID As String, strRele As String
    Dim dateReque As Date, dateDead As Date
'===== Bien Chuong trinh ========================================
    Dim rFind As Integer
    Dim diachiFind As String
    Dim rowTagO As Double
    Dim ChonSave As Integer
    strSapOld = Sheets("Create TAG card order").Range("C2").Value
'======= Xoa the ================================================
    If rFind > 0 Then
        Sheets("Create TAG card order").Range("strMc") = vbNullString
        Sheets("Create TAG card order").Range("strSection") = vbNullString
        Sheets("Create TAG card order").Range("strKind").Value = vbNullString
    End If
End Sub

fubi · Đăng lúc 4/5/2014 16:20

fubi gửi lúc 4/5/2014 16:09

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

[Visual Basic] 纯文本查看 复制代码

Sub DaoCotDL()
    Dim DongCuoi As Integer, d0 As Integer
    Range("B4").Select
    DongCuoi = Range("B" & Rows.Count).End(xlUp).Row
    'Tim buoc di chuyen xa nhat cua DL
    d0 = DongCuoi - 4
    'Tao vong lap lay DL va dao
    For i = d0 To 0 Step -1
        Range("B4").Offset(i, 2).Value = ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    Next i
End Sub

fubi · Đăng lúc 4/5/2014 16:21

[Visual Basic] 纯文本查看 复制代码

Sub DaoCotDL()
    Dim DongCuoi As Integer, d0 As Integer
    Range("B4").Select
    DongCuoi = Range("B" & Rows.Count).End(xlUp).Row
    'Tim buoc di chuyen xa nhat cua DL
    d0 = DongCuoi - 4
    'Tao vong lap lay DL va dao
    For i = d0 To 0 Step -1
        Range("B4").Offset(i, 2).Value = ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    Next i
End Sub

fubi gửi lúc 4/5/2014 16:20

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

[Visual Basic] 纯文本查看 复制代码

Sub DaoCotDL()
    Dim DongCuoi As Integer, d0 As Integer
    Range("B4").Select
    DongCuoi = Range("B" & Rows.Count).End(xlUp).Row
    'Tim buoc di chuyen xa nhat cua DL
    d0 = DongCuoi - 4
    'Tao vong lap lay DL va dao
    For i = d0 To 0 Step -1
        Range("B4").Offset(i, 2).Value = ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    Next i
End Sub

fubi · Đăng lúc 4/5/2014 16:48

fubi gửi lúc 4/5/2014 16:21

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

[Visual Basic] 纯文本查看 复制代码

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("C5:G19").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("I7").Select
End Sub

akatos · Đăng lúc 4/5/2014 18:46

Bá đạo thế anh ?

fubi · Đăng lúc 4/5/2014 22:47

akatos gửi lúc 4/5/2014 18:46

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

Bá đạo thế anh ?

Phù.... Lăn lộn mấy ngày trời cuối cùng đã thành công thêm chức năng chia sẻ code VBA 1 cách chuyên nghiệp add vào bài viết.

1. Code hiển thị đẹp và gần giống màu với màn hình VBE.
2. Code copy dễ dàng không bị lỗi khoảng trắng nữa.
3. Chú thích cách copy code rất tiện lợi dễ hiểu và thấy ngay vì màu đỏ.
4. Từng dòng code tô cách dòng rất dễ nhìn.
5. Chỉ có cái là: khi dòng code dài nó sẽ k tự cuộn xuống dòng (tuy giống như màn hình VBA nhưng bất tiện). Muốn xuống dòng thì dùng chức năng khác (nói sau).

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

Test chức năng chia sẻ code VBA excel

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á

Test chức năng chia sẻ code VBA excel

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á

Cảm ơn!

Đánh giá

Cảm ơn!

Cảm ơn!

Đánh giá

Đánh giá

Cảm ơn!

Đánh giá

Cảm ơn!