làm thế nào viết code có thanh trượt

ongtrungducmx25 · 2/4/08

xin hỏi là code viết sao để tạo ra thanh trượt
vd:

PHP:

Sub kebang()
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=LEN(A1)>0"

    With Selection.FormatConditions(1).Borders(xlLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

    With Selection.FormatConditions(1).Borders(xlRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

    With Selection.FormatConditions(1).Borders(xlTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

    With Selection.FormatConditions(1).Borders(xlBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

    ActiveCell.FormulaR1C1 = "4"
    Range("A1").Select
    Selection.Copy
    Range("A1:H15").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.ClearContents

End Sub

em muốn có thanh trượt ngang và dọc bài này có thanh trượt:
http://www.giaiphapexcel.com/forum/showthread.php?t=2625

FunnyBoy · 2/4/08

Khi viết bài có các đoạn code đính kèm thì bạn quét chọn đoạn code đó và nhấn nút # thay vì nút PHP nhé!

FB

ongtrungducmx25 · 2/4/08

là sao nhỉ nó rõ hơn di nhé!

anhtuan1066 · 2/4/08

Hình như vụ có thanh trượt hay ko là do GPE quyết định (dựa vào độ ngang dọc của trang), ta ko thể can thiệp dc thì phải... Các mod cho biết ý kiến xem!
ANH TUẤN

ongtrungducmx25 · 5/4/08

ai biết cách làm cho show-Icon, lúc trước có biểu tượng này sau ngày mất tiêu rồi các pác, có phần mềm nào tạo lại không!

FunnyBoy · 5/4/08

Các bác xem ví dụ:

PHP:

    Sub kebang()
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=LEN(A1)>0"
    With Selection.FormatConditions(1).Borders(xlLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.FormatConditions(1).Borders(xlRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.FormatConditions(1).Borders(xlTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.FormatConditions(1).Borders(xlBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    ActiveCell.FormulaR1C1 = "4"
    Range("A1").Select
    Selection.Copy
    Range("A1:H15").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub 
Sub kebang()
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=LEN(A1)>0"
    With Selection.FormatConditions(1).Borders(xlLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.FormatConditions(1).Borders(xlRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.FormatConditions(1).Borders(xlTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.FormatConditions(1).Borders(xlBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    ActiveCell.FormulaR1C1 = "4"
    Range("A1").Select
    Selection.Copy
    Range("A1:H15").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub
    Sub kebang()
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=LEN(A1)>0"
    With Selection.FormatConditions(1).Borders(xlLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.FormatConditions(1).Borders(xlRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.FormatConditions(1).Borders(xlTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.FormatConditions(1).Borders(xlBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    ActiveCell.FormulaR1C1 = "4"
    Range("A1").Select
    Selection.Copy
    Range("A1:H15").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub 
Sub kebang()
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=LEN(A1)>0"
    With Selection.FormatConditions(1).Borders(xlLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.FormatConditions(1).Borders(xlRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.FormatConditions(1).Borders(xlTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.FormatConditions(1).Borders(xlBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    ActiveCell.FormulaR1C1 = "4"
    Range("A1").Select
    Selection.Copy
    Range("A1:H15").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

Khi đoạn code đủ dài --> xuất hiện thanh trượt dọc và nếu chiều ngang quá dài sẽ xuất hiện thanh trượt ngang.

PHP:

Sub kebang()
' Khi đoạn code đủ dài --> xuất hiện thanh trượt dọc và nếu chiều ngang quá dài sẽ xuất hiện thanh trượt ngang.
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=LEN(A1)>0"

    With Selection.FormatConditions(1).Borders(xlLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

    With Selection.FormatConditions(1).Borders(xlRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

    With Selection.FormatConditions(1).Borders(xlTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

    With Selection.FormatConditions(1).Borders(xlBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

    ActiveCell.FormulaR1C1 = "4"
    Range("A1").Select
    Selection.Copy
    Range("A1:H15").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.ClearContents

End Sub

ongtrungducmx25 · 5/4/08

để mình làm thư nhé!

PHP:

Sub kebang()
 Khi đoạn code đủ dài --> xuất hiện thanh trượt dọc và nếu chiều ngang quá dài sẽ xuất hiện thanh trượt ngang.
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=LEN(A1)>0"
 
    With Selection.FormatConditions(1).Borders(xlLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

otd

làm thế nào viết code có thanh trượt

ongtrungducmx25

Thành viên gạo cội

FunnyBoy

Thành viên chính thức

ongtrungducmx25

Thành viên gạo cội

anhtuan1066

Thành viên gạo cội

ongtrungducmx25

Thành viên gạo cội

File đính kèm

FunnyBoy

Thành viên chính thức

ongtrungducmx25

Thành viên gạo cội

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian