Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Gitiho for leading business
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long Dim rng As Range i = Sheet1Range("a"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim rng As Range
i = Sheet1.Range("a" & Rows.Count).End(xlUp).Row
If Not Application.Intersect(Target, Range("a1:a" & i)) Is Nothing Then
For Each rng In Range("a1:a" & i)
rng.Value = Application.WorksheetFunction.Proper(rng.Value)
Next rng
End If
End Sub
9 câu trả lời
359 lượt xem
vỗ tay
Chào bạn, bạn cần thay đổi sang 1 ô song song mới dc nhé, bạn dùng hàm offset nhé
vỗ tay
vỗ tay
Bạn thay rng. Value thành rng.offset(0,1).Value nhé
vỗ tay
vỗ tay
Thầy giải thick thêm cho e tại sao k đk ngay trực tiế ngay trong vùng sự kiện đó ah. Mục đich của e là n diễn ra ngay trong vùng đó có cách nào k ah
vỗ tay
Chào bạn do bạn đùng sự kiện nên nó ko thể đề lên đúng vị trí bạn chạy được như công thức bạn không thể viết trên cùng ô điều kiện được
vỗ tay
Nếu bạn chạy sub thao tác của bạn lại ok
vỗ tay
Thầy có cách nào khắc phục k ah
vỗ tay
vỗ tay
Câu hỏi liên quan
Top
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông