Làm thế nào để lấy công thức một ô làm tham số cho công thức ở một ô khác? (2 người xem)

[phamvandunghp84]

Mình dùng excel 2007. mình muốn hỏi công thức nào để lấy được số hàng (muốn lấy số 3 ở sau chữ B.. trong công thức =sanpham!B3) để làm viết thành công thức =sanpham!A3.

Mình diễn đạt hơi khó hiểu; tức là như này:
Cột A cần viết công thức theo công thức ở cột B.

ở cột B có công thức =sanpham!B3 thì cột A cần viết công thức =sanpham!A3
ở cột B có công thức =sanpham!B5 thì cột A cần viết công thức =sanpham!A5
ở cột B có công thức =sanpham!B30 thì cột A cần viết công thức =sanpham!A30

 

[huynhphucduy71]

sao bạn ko làm ngược lại, cột B chứa tên sản phẩm còn cột B là VLOOKUP cột A

 

[Nhattanktnn]

Mình dùng excel 2007. mình muốn hỏi công thức nào để lấy được số hàng (muốn lấy số 3 ở sau chữ B.. trong công thức =sanpham!B3) để làm viết thành công thức =sanpham!A3.

Mình diễn đạt hơi khó hiểu; tức là như này:
Cột A cần viết công thức theo công thức ở cột B.

ở cột B có công thức =sanpham!B3 thì cột A cần viết công thức =sanpham!A3
ở cột B có công thức =sanpham!B5 thì cột A cần viết công thức =sanpham!A5
ở cột B có công thức =sanpham!B30 thì cột A cần viết công thức =sanpham!A30

Dùng UDF để lấy công thức, sau đó indirect
Bản office cao thì hình như có hàm để show công thức luôn. Mình dùng bản thấp nên chưa thử

 

[phamvandunghp84]

Dùng UDF để lấy công thức, sau đó indirect
Bản office cao thì hình như có hàm để show công thức luôn. Mình dùng bản thấp nên chưa thử

bạn ơi cho mình hỏi mình muốn lấy công thức của ô rồi dùng hàm lặp lại để giải quyết bài toán trên.
mình viết hàm như này mà không được, bạn chỉ giúp mình với
congthuc = thamso.FormulaR1C1


Function Taocongthuc(thamso As Range, congthuc As String) As String
congthuc = thamso.FormulaR1C1
MsgBox (congthuc)
Taocongthuc = Replace(congthuc, "B", "A")
End Function


nếu viết SUB thì mình thấy như này chạy đúng, mà giờ muốn chuyển thành Function thì mình không biết viết như nào mới đúng?
Sub Taocongthuc_1()
Dim congthuc As String
congthuc = Range("B6").Formula
Range("A6").Formula = Replace(congthuc, "B", "A")
End Sub

 

[ndu96081631]

Mình dùng excel 2007. mình muốn hỏi công thức nào để lấy được số hàng (muốn lấy số 3 ở sau chữ B.. trong công thức =sanpham!B3) để làm viết thành công thức =sanpham!A3.

Mình diễn đạt hơi khó hiểu; tức là như này:
Cột A cần viết công thức theo công thức ở cột B.

ở cột B có công thức =sanpham!B3 thì cột A cần viết công thức =sanpham!A3
ở cột B có công thức =sanpham!B5 thì cột A cần viết công thức =sanpham!A5
ở cột B có công thức =sanpham!B30 thì cột A cần viết công thức =sanpham!A30

Copy cột B rồi paste sang cột A là tự nhiên nó được thôi

 

[Nhattanktnn]

bạn ơi cho mình hỏi mình muốn lấy công thức của ô rồi dùng hàm lặp lại để giải quyết bài toán trên.
mình viết hàm như này mà không được, bạn chỉ giúp mình với
congthuc = thamso.FormulaR1C1


Function Taocongthuc(thamso As Range, congthuc As String) As String
congthuc = thamso.FormulaR1C1
MsgBox (congthuc)
Taocongthuc = Replace(congthuc, "B", "A")
End Function


nếu viết SUB thì mình thấy như này chạy đúng, mà giờ muốn chuyển thành Function thì mình không biết viết như nào mới đúng?
Sub Taocongthuc_1()
Dim congthuc As String
congthuc = Range("B6").Formula
Range("A6").Formula = Replace(congthuc, "B", "A")
End Sub

Có thể như này:

Function GetData(Rng As Range)
Dim Fml As String
Fml = Rng.Formula
GetData = Evaluate(Replace(Fml, "!B", "!A"))
End Function

Nhưng nó sẽ hạn chế cột B và cột A thôi, còn bạn mở rộng ra cột khác thì phải sửa function hoặc nghiên cứu lại code

 

[phamvandunghp84]

Copy cột B rồi paste sang cột A là tự nhiên nó được thôi

Cảm ơn Bác. có những cái đơn giản mà mò mãi không ra !

nhận tiện đây em muốn hỏi
Application.OnKey "{F1}", "hoctap1"
Application.OnKey "{F2}", "hoctap2"

đây là phương thức với bàn phím.
vậy còn phương thưc với chuột thì viết như nào mới đúng?

em thử như này mà không đúng :
Application.OnClick "{F1}", "hoctap1"
Application.OnDclick "{F2}", "hoctap2"