Tạo Function giống như Property

[SoiBien]

Các bạn giúp mình về vấn đề này với.
Mình muốn tạo một function, có thể làm 2 việc đọc giá trị của một cell, hoặc gán giá trị cho cell đó.

tương tự như
range("a1").value = range("a2").value

 

[Nguyễn Duy Tuân]

Các bạn giúp mình về vấn đề này với.
Mình muốn tạo một function, có thể làm 2 việc đọc giá trị của một cell, hoặc gán giá trị cho cell đó.

tương tự như
range("a1").value = range("a2").value

Nếu hàm này chạy trong VBA thì được còn chạy trên worksheet sẽ không được.

 

[SoiBien]

Vâng, ý mình muốn là tạo hàm chạy trong VBA

 

[dmtdmtbb]

Sub Doc()
[COLOR=seagreen]      ' Cells(1,1) = A1[/COLOR]
      Sheet2.Cells(1,1) = Sheet1.Cells(1,1)
[COLOR=seagreen]      ' Rán/đọc ô A1 Sheet2 = ô A1 của Sheet1[/COLOR]
End Sub

 

[SoiBien]

có thể làm 2 việc đọc giá trị của một cell, hoặc gán giá trị cho một cell.

@Dm ý của mình như trên bạn ơi, VD của bạn Doc chỉ là một sub.

 

[dmtdmtbb]

- File này mình làm đã lâu nên chưa được tốt lắm mà củng không có thời gian để sửa lại .
- Bạn thử cái này xem download

 

[SA_DQ]

Các bạn giúp mình về vấn đề này với.
Mình muốn tạo một function, có thể làm 2 việc đọc giá trị của một cell, hoặc gán giá trị cho cell đó.

Bạn thửu tham khảo cách sau:

 [B]Function DocGanTri (Rng As Range, Doc As Boolean, Optional Rng0 As Range)[/B]
 
   If Not Doc Then
           Rng0 = Rng
   Else
       DocGanTri=Rng
   End If
[B]End Function [/B]

 

[SoiBien]

cám ơn hai bạn để mình tìm hiểu thêm file của Dmtd (tên gì mà khó nhớ quá, viết tắt thì.... :d
Cách của HYen17 có vẻ hợp yêu cầu rồi, tks nhé!

 

[dmtdmtbb]

cám ơn hai bạn để mình tìm hiểu thêm file của Dmtd (tên gì mà khó nhớ quá, viết tắt thì.... :d

- Mình tên Đỗ Minh Trí , còn dmtdmtbb (đi mua tiêu đi mua tỏi bỏ bọc),
hoặc bạn có thể nghĩ ra cái khác hay hơn .