Hỗ trợ làm macro cơ bản

[ppndts]

Mọi người ơi, mình đi học có môn Macro này khó quá, không hiểu gì hết.
Hiện giờ mình có 1 bài tập cần nộp gấp sáng mai, các bạn có thể giúp mình viết macro này được không ạ. (File đính kèm).

Mình cảm ơn các bạn nhiều!

 

[Hoang2013]

Câu 1:

Sub GhiVôD4()
  [D4].Value = "Chào Nhá!"
 End Sub

Bạn tự tiếp đi nha; Mình không đọc được đề bài tiếp được nữa, rất xin lỗi!

 

[befaint]

Mọi người ơi, mình đi học có môn Macro này khó quá, không hiểu gì hết.
Hiện giờ mình có 1 bài tập cần nộp gấp sáng mai, các bạn có thể giúp mình viết macro này được không ạ. (File đính kèm).

Mình cảm ơn các bạn nhiều!

Không được gửi nhiều bài cùng nội dung lung tung như vậy nhá chủ thớt:

http://www.giaiphapexcel.com/diendan/threads/hỗ-trợ-làm-macro-cơ-bản.131049/

 

[be_09]

Mọi người ơi, mình đi học có môn Macro này khó quá, không hiểu gì hết.
Hiện giờ mình có 1 bài tập cần nộp gấp sáng mai, các bạn có thể giúp mình viết macro này được không ạ. (File đính kèm).

Mình cảm ơn các bạn nhiều!

Bạn vi phạm nội quy tại khoản 2, mục III. Quy định về tiêu đề bài viết:
Và vi phạm nội quy tại khoản 2, mục II. Hình thức của bài viết (do đăng 2 bài có cùng nội dung).
Gấp hay cần cái gì thì cũng nên đọc nội quy (trước khi đăng bài).
Đọc lại nội quy ở Link sau để hiểu rõ hơn.
http://www.giaiphapexcel.com/diendan/threads/nội-quy-diễn-đàn-cập-nhật.76052/

 

[ppndts]

Câu 1:

Sub GhiVôD4()
  [D4].Value = "Chào Nhá!"
 End Sub

Bạn tự tiếp đi nha; Mình không đọc được đề bài tiếp được nữa, rất xin lỗi!

Câu 2) đề yêu cầu khi mình gõ vào ô bất kỳ 1 địa chỉ ô khác, thì tại ô khác đõ sẽ hiện ra chữ "bonjour": ví dụ tại ô A2 gõ là "B3" thì tại ô B3 xuất hiện chữ bonjour
câu 3) thay vì gõ chữ bonjour như câu 2 thì gõ địa chỉ ô: ví dụ tại A2 gõ là "B3" thì tại ô B3 sẽ xuất hiện chữ A2

 

[ppndts]

 

[giaiphap]

Câu 2) đề yêu cầu khi mình gõ vào ô bất kỳ 1 địa chỉ ô khác, thì tại ô khác đõ sẽ hiện ra chữ "bonjour": ví dụ tại ô A2 gõ là "B3" thì tại ô B3 xuất hiện chữ bonjour
câu 3) thay vì gõ chữ bonjour như câu 2 thì gõ địa chỉ ô: ví dụ tại A2 gõ là "B3" thì tại ô B3 sẽ xuất hiện chữ A2

Câu 2.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        Range(Target.Value) = "bonjour"
    Application.EnableEvents = True
End Sub

Câu 3.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        Range(Target.Value) = Replace(Target.Address, "$", "")
    Application.EnableEvents = True
End Sub

 

[HieuCD]

Câu 2) đề yêu cầu khi mình gõ vào ô bất kỳ 1 địa chỉ ô khác, thì tại ô khác đõ sẽ hiện ra chữ "bonjour": ví dụ tại ô A2 gõ là "B3" thì tại ô B3 xuất hiện chữ bonjour
câu 3) thay vì gõ chữ bonjour như câu 2 thì gõ địa chỉ ô: ví dụ tại A2 gõ là "B3" thì tại ô B3 sẽ xuất hiện chữ A2

Chỉ là những thao tác cơ bản mà không làm được chứng tỏ bạn không có hứng thú gì về môn học, tốt nhất không nên tiếp tục học môn nầy, chỉ mất thời gian mà không có kết quả.

 

[ppndts]

Câu 2.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        Range(Target.Value) = "bonjour"
    Application.EnableEvents = True
End Sub

Câu 3.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        Range(Target.Value) = Replace(Target.Address, "$", "")
    Application.EnableEvents = True
End Sub

Cảm ơn bạn nhiều!

 

[ppndts]

Chỉ là những thao tác cơ bản mà không làm được chứng tỏ bạn không có hứng thú gì về môn học, tốt nhất không nên tiếp tục học môn nầy, chỉ mất thời gian mà không có kết quả.

khổ tâm lắm bạn ơi

 

[VetMini]

khổ tâm lắm bạn ơi

Biết khổ tâm thì chịu khó học hỏi. Tôi thấy trước mắt là bạn chỉ biết sợ khổ não.