XD360 KÍNH CHÚC CHO MỌI NHÀ VẠN SỰ AN LÀNH!

Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng

 Quên mật khẩu
 Đăng ký mới
Anh Trần HòeBùi Quốc Hưng
Xem: 5717|Trả lời: 7
In Chủ đề trước Tiếp theo
Thu gọn cột thông tin

[Hỏi] VBA về công thức truy suất ngược!

[Lấy địa chỉ]
Nhảy đến trang chỉ định
1#

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
Chào mọi người!Mọi người cho mình hỏi chút về công thức truy suất ngược ( sử dụng tổ hợp phím CTRL + "[" ) trong VBA sử dụng thế nào với ạ?
Mình muốn tìm chính xác vị trí của ô được truy suất ngược. Ví dụ công thức ô A1 là "=A2" . Mình muốn dùng vba để tìm vị trí ô A2 khi ấn CTRL + "[" ở ô A1
Cảm ơn mọi người nha!

Đánh giá

ở ô A1 bấm phím F2 là thấy thôi. k cần dùng VBA  Đăng lúc 2/10/2015 19:40

www.xaydung360.vn XÂY TÂM, DỰNG TẦM CHUYÊN NGHIỆP

2#
votinh3290 Đăng lúc 2/10/2015 19:25 | Chỉ xem của tác giả
Dùng phép xử lý chuỗi có thể giải quyết được việc này

www.xaydung360.vn XÂY TÂM, DỰNG TẦM CHUYÊN NGHIỆP

3#
tranhoe Đăng lúc 3/10/2015 07:33 | Chỉ xem của tác giả
Nếu Bạn gửi file lên thì mình sẽ chèn macro và gán lệnh tắt cho Bạn.
Code này cho phép Bạn di chuyển đến ô mà nó lấy giá trị kể cả tại sheet khác (không có chứa công thức trong đó nhé), Bạn chép code vào file và tự tạo lệnh tắt nhé:
[Visual Basic] 纯文本查看 复制代码
Sub TimDiaChi()
    Dim DiaChi As String
    On Error GoTo Thoat
    DiaChi = ActiveCell.FormulaR1C1
    DiaChi = Right(DiaChi, Len(DiaChi)- 1)  
    Application.Goto Reference:=DiaChi
    Exit Sub
Thoat:
     MsgBox "Cell dang chon khong co lien ket, hoac lien ket phuc tap", vbOKOnly
End Sub


Đánh giá

Mong bạn tiếp tục chia sẻ. Thanks!: 2.0
Thu macro rồi sửa lại. Cái chiêu tự thu macro có nhiều cái hay lắm đấy!  Đăng lúc 8/10/2015 21:33
Mong bạn tiếp tục chia sẻ. Thanks!: 2
Cách này hay này chú, cháu vẫn chưa nghĩ tới  Đăng lúc 8/10/2015 20:31

www.xaydung360.vn XÂY TÂM, DỰNG TẦM CHUYÊN NGHIỆP

4#
votinh3290 Đăng lúc 9/10/2015 21:56 | Chỉ xem của tác giả
Cháu thì có cách củ chuối này, không hay lắm vì phải xử lý nhiều chuỗi quá, và nếu ở trong 1 chương trình phức tạp thì chắc chắn không nhanh bằng của chú

Sub ctrl()
    Dim StR As String, Sheetname As String, ad As String
    Dim a As Long
    On Error Resume Next
    StR = Selection.Formula
    StR = Replace(Replace(StR, "'", ""), "=", "")
    a = InStr(1, StR, "!", vbTextCompare)
    Sheetname = Left(StR, a - 1)
    ad = Right(StR, Len(StR) - a)
    Sheets(Sheetname).Select
    Range(ad).Select
End Sub

Đánh giá

Mong bạn tiếp tục chia sẻ. Thanks!: 5.0
Mong bạn tiếp tục chia sẻ. Thanks!: 5
  Đăng lúc 13/11/2015 15:52

www.xaydung360.vn XÂY TÂM, DỰNG TẦM CHUYÊN NGHIỆP

Phiên bản Mobile|Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng  

Phần mềm dự toán xây dựng excel | Hướng dẫn lập dự toán xây dựng | Phần mềm tư vấn giám sát | Phần mềm quản lý chất lượng xây dựng |

Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng

Phần mềm ôn thi sát hạch chứng chỉ hành nghề Kiến Trúc sư

Phần mềm ôn thi sát hạch chứng chỉ hành nghề Đấu thầu

GMT+7, 23/4/2024 17:15 , Processed in 0.131776 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2013 Kiso Comsenz Inc.