Tạo thêm phần định dang theo tham số (1 người xem)

[Phù Du]

Mình mới tham gia diễn đàn này, mình xin mạn phép hỏi có thể viết ra 1 code để tạo thêm phần định dạng theo tham số ban đầu được không?
Ví dụ mình kèm theo file này. Mong mọi người giúp đỡ. Xin chân thành cám ơn

 

[Phù Du]

Hình như diễn đàn này chỉ trả lời những thành viên quen thuộc hay sao ấy

 

[viehoai]

Mình mới tham gia diễn đàn này, mình xin mạn phép hỏi có thể viết ra 1 code để tạo thêm phần định dạng theo tham số ban đầu được không?
Ví dụ mình kèm theo file này. Mong mọi người giúp đỡ. Xin chân thành cám ơn

Trong file bạn nói

Ví dụ như mình nhập tham số là 3 thì nó sẽ tự định dạng xuất hiện thêm 2 phần từ A4 đến N9.

Hập tham số 3 ở đâu bạn? rồi nó sẽ tự định dạng xuất hiện 2 phần từ (tử?) A4 đến N9 (là sao???).

Hình như diễn đàn này chỉ trả lời những thành viên quen thuộc hay sao ấy

Người ta giúp không kể người mà kể việc. Do yêu cầu của bạn không rõ ràng nên người ta nãn mà thôi

 

[Phù Du]

Trong file bạn nói

Hập tham số 3 ở đâu bạn? rồi nó sẽ tự định dạng xuất hiện 2 phần từ (tử?) A4 đến N9 (là sao???).

Người ta giúp không kể người mà kể việc. Do yêu cầu của bạn không rõ ràng nên người ta nãn mà thôi

XIn lỗi nhưng ý mình là ví dụ nếu nhập ở ô A2 giá trị là 3 thì nó sẽ đính dạng xuất hiện thêm 2 phân tử từ A4 đến N9

 

[ndu96081631]

Mình mới tham gia diễn đàn này, mình xin mạn phép hỏi có thể viết ra 1 code để tạo thêm phần định dạng theo tham số ban đầu được không?
Ví dụ mình kèm theo file này. Mong mọi người giúp đỡ. Xin chân thành cám ơn

Xem file cũng cóc hiểu muốn gì

Hình như diễn đàn này chỉ trả lời những thành viên quen thuộc hay sao ấy

Vì tôi NGU, đọc không hiểu nên không giúp được ---> Suy ra: trên diễn đàn này cũng có nhiều người NGU giống tôi
Ẹc... Ẹc...

 

[viehoai]

XIn lỗi nhưng ý mình là ví dụ nếu nhập ở ô A2 giá trị là 3 thì nó sẽ đính dạng xuất hiện thêm 2 phân tử từ A4 đến N9

Vậy khi bạn nhập ở ô A2 giá trị là 3 thì kết quả trong file bạn cần như thế nào đưa lên đây may ra mới hiểu được

 

[Phù Du]

Xem file cũng cóc hiểu muốn gì

Vì tôi NGU, đọc không hiểu nên không giúp được ---> Suy ra: trên diễn đàn này cũng có nhiều người NGU giống tôi
Ẹc... Ẹc...

Dạ em xin lỗi thầy và mọi người, tại cách em diễn đạt không dễ hiểu cho lắm. Và thành thật xin lỗi vì câu nói vừa rồi.
EM xin up lại file xin thầy và mọi người xem qua và giúp em. Tại em đang làm đề tài khoa học nên rất cần gấp. EM xin chân thành cám ơn tất cả mọi người và thầy

 

[ndu96081631]

Dạ em xin lỗi thầy và mọi người, tại cách em diễn đạt không dễ hiểu cho lắm. Và thành thật xin lỗi vì câu nói vừa rồi.
EM xin up lại file xin thầy và mọi người xem qua và giúp em. Tại em đang làm đề tài khoa học nên rất cần gấp. EM xin chân thành cám ơn tất cả mọi người và thầy

Code cho sự kiện Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lRs As Long
  On Error Resume Next
  If Target.Address = "$A$2" Then
    lRs = CLng(Target.Value)
    If lRs > 0 Then
      With Range("A4:N9")
        .Offset(.Rows.Count).Resize(1000).ClearFormats
        .Copy
        .Resize(.Rows.Count * lRs).PasteSpecial xlPasteFormats
        Application.CutCopyMode = 0
      End With
    End If
    Target.Select
  End If
End Sub

 

[viehoai]

Dạ em xin lỗi thầy và mọi người, tại cách em diễn đạt không dễ hiểu cho lắm. Và thành thật xin lỗi vì câu nói vừa rồi.
EM xin up lại file xin thầy và mọi người xem qua và giúp em. Tại em đang làm đề tài khoa học nên rất cần gấp. EM xin chân thành cám ơn tất cả mọi người và thầy

Bạn nhập số ở A2 xem đúng ý không nhé

 

[ndu96081631]

Bạn nhập số ở A2 xem đúng ý không nhé

Chỉ copy Format thôi nha viethoai... Và chỉ copy/paste thôi, cần gì phải For...Next?
Ngoài ra phải xoá format cũ trước khi paste chứ, nếu không sau khi nhập vào A2 số 4, xong lại nhập số 2 sẽ chẳng thấy có gì thay đổi cả

 

[Phù Du]

Code cho sự kiện Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lRs As Long
  On Error Resume Next
  If Target.Address = "$A$2" Then
    lRs = CLng(Target.Value)
    If lRs > 0 Then
      With Range("A4:N9")
        .Offset(.Rows.Count).Resize(1000).ClearFormats
        .Copy
        .Resize(.Rows.Count * lRs).PasteSpecial xlPasteFormats
        Application.CutCopyMode = 0
      End With
    End If
    Target.Select
  End If
End Sub

Dạ em cám ơn thầy rất nhiều. Em xin phép được hỏi thầy thêm một câu nữa được không ạ?
Em đang làm đề tài bên ngành xây dựng, và kết quả xuất ra từ file của SAP2000 nên em sử dụng hàm Hlookup kết hợp với hàm match nhiều điều kiện. Vậy em xin phép hởi thầy nếu mà

 

[Ba Tê]

Tham gia 1 "củ chuối" cho vui.
.........................

Dạ em cám ơn thầy rất nhiều. Em xin phép được hỏi thầy thêm một câu nữa được không ạ?
Em đang làm đề tài bên ngành xây dựng, và kết quả xuất ra từ file của SAP2000 nên em sử dụng hàm Hlookup kết hợp với hàm match nhiều điều kiện. Vậy em xin phép hởi thầy nếu mà

"Chời ơi!"
Hỏi 1 kiểu, dữ liệu thật 1 kiểu.

 

[Phù Du]

Tham gia 1 "củ chuối" cho vui.
.........................

"Chời ơi!"
Hỏi 1 kiểu, dữ liệu thật 1 kiểu.

Lúc đầu thì em định dùng phần Conditional Fortmartting trong excel để làm trắng giá trị đi thôi nhưng khi đưa code này vào thì nó lại không hoạt động

 

[viehoai]

Dạ em cám ơn thầy rất nhiều. Em xin phép được hỏi thầy thêm một câu nữa được không ạ?
Em đang làm đề tài bên ngành xây dựng, và kết quả xuất ra từ file của SAP2000 nên em sử dụng hàm Hlookup kết hợp với hàm match nhiều điều kiện. Vậy em xin phép hởi thầy nếu mà

Chẳng hiểu gì luôn
(Híc, cố theo dõi xem các thành viên khác hiểu được không mà chẳng thấy)