VBA Excel - cách thiết lập tạo đường viền phác thảo trên một phạm vi ô

VBA Excel - cách thiết lập tạo đường viền phác thảo trên một phạm vi ô Tôi đang cố gắng tạo đường viền phác thảo trên một phạm vi ô bằng VBA. Tôi không gặp vấn đề gì khi tạo đường viền bên trong, nhưng đối với yêu cầu này thì tôi không cần chúng. Mã sử ​​dụng phạm vi

ĐANG LÀM VIỆC - chọn một phạm vi ô và áp dụng các đường viền, bao gồm cả các ô bên trong > > Đặt XLRange = xlApp.Range(Rangeval) ' Ví dụ Rangeval = "D6:F12" > > Với XLRange > .Borders.LineStyle = xlContinuous > .Borders. Màu = vbBlack > .Borders.Weight = xlThin > Kết thúc bằng >
>
> KHÔNG LÀM VIỆC - không có đường viền được hiển thị >
> > Đặt XLRange = xlApp.Range(Rangeval) > XLRange.BorderAround LineStyle:=xlContinuous, Color:=vbBlack >
>
> Sự giúp đỡ của bạn sẽ được đánh giá cao. >
>Ian


Trả lời:

CHÀO,

Nếu bạn đang tự động hóa Excel (tức là thao tác Excel từ mã chạy trong MSP), thì bạn cần bao gồm tệp xlAp. khi bạn tham chiếu đến bất kỳ đối tượng Excel nào (như Phạm vi).

> Với xlApp. Range("A1:C4") > .Borders.LineStyle = xlContinuous > .BordersAround Weight:=xlThick > End With > >Nếu không có "xlApp" ở đó, VBA sẽ giả định "Range" là một phương thức thuộc về MSP. > >Điều Bernie muốn nói là đừng đặt tên cho đối tượng Phạm vi của bạn là "XLRange"
> Dim xlRng Như Excel.Range
> > Đặt xlRng = xlApp.Range(Rangeval) > > Với xlRng > .Borders.LineStyle = xlContinuous > .Borders.Color = vbBlack > .Borders.Weight = xlThin > Kết thúc bằng >Chúc mừng
Giàu có

Comments

Popular posts from this blog

Excel 2016 - mở tất cả các tệp trong MỘT phiên bản

Điều tôi muốn làm trong Excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy nhập nhanh và chạy một macro cụ thể.

Khẩn cấp - File Excel chứa các ký tự đặc biệt ở họ và tên liên hệ