Làm sao điền số (1 người xem)

[concogia]

Mình có 5 số từ 1 đến 5. Viết thế nào để điề 5 số này vào 25 cẹll Điều kiện: hàng ngang không được trùng số ,
Muốn viết hàng dọc có hai số giống nhau đi liền thì viết ra sao
Mong các bạn giúp . Cám ơn nhiều
Mình là thành viên mới vì phát hiện ra diễn đàn này được vài hôm thôi

 

[ndu96081631]

Mình có 5 số từ 1 đến 5. Viết thế nào để điề 5 số này vào 25 cẹll Điều kiện: hàng ngang không được trùng số ,
Muốn viết hàng dọc có hai số giống nhau đi liền thì viết ra sao
Mong các bạn giúp . Cám ơn nhiều
Mình là thành viên mới vì phát hiện ra diễn đàn này được vài hôm thôi

Cho hỏi:
- 25 cell ấy thế nào ---> Là 5 x 5 à?
- 5 cell mà điền từ 1 đến 5, lại không trùng ---> Vậy ta gõ luôn 1, 2, 3... 5 cho rồi
vân... vân... còn nhiều chổ vẫn chưa hiểu ý bạn ---> Đưa file lên đi

 

[concogia]

Đúng. Có gởi kèm file nhưng sao không thấy
mình làm đúng hướng dẫn mà. Sẵ d9a66y chỉ giúp mình luôn nhé.
Cám ơn rất nhiều

 

[concogia]

Nếu tạo sẵn bảng ( trên 100 trường hợp xảy ra ) rồi dùng Vlookup chạy cũng đươc. Nhưng thế thì bèo quá nên mới phải nhờ giúp

 

[khoavu87]

bạn thực hiện như thế này để đưa file lên nè

đầu tiên nhìn trên cái ảnh mình gửi lên đó.trên menu đó có các công cụ di chuột trái trên các biểu tượng đó.các dòng chữ sẽ hiện lên khi nào thấy tên là:File đính kèm" thì kích chuột vào nó sẽ hiện lên màn hình biểu tượng bạn chọn nút "Browse" và tải file của bạn lên,khi tải lên bạn chọn "thêm file"xong khi thực hiện xong bạn quay về trang bạn ban đầu (tức là trang chứa các biểu tượng đó..)và viết cái gì cần hỏi theo....nhớ viết nhé để mọi người dễ đọc ko ko có ai đọc mấy đâu.
viết xong bạn bạn kéo chuột tít xuống dưới và chọn nút "gửi "cuối cùng ấy nhé cái nút mà hiện lên có cả file đính kèm ấy

 

[nghiaphuc]

Điền số tự động

Bạn click phải vào nhãn trang tính, chọn View Code và dán đoạn code này vào rồi thử lại xem sao:

Private Sub Worksheet_Change(ByVal Target As Range)
      Dim So, Hang, Cot As Integer
      If Target.Address <> "$K$8" Then
          Exit Sub
      Else
          Delete_Data
          If Target > 0 Then
              Hang = 11
              Cot = 0
              For So = 1 To Target
                  Cot = Cot + 1
                  Cells(Hang, Cot) = So
                  If Cot = 15 Then
                     Hang = Hang + 1
                     Cells(Hang, 1).EntireRow.Insert
                     Cot = 0
                  End If
              Next
          End If
      End If
End Sub
Private Sub Delete_Data()
      Do While Cells(11, 1) <> ""
         Cells(11, 1).EntireRow.Delete
      Loop
      Cells(11, 1).EntireRow.Insert
End Sub

Bài này mình trả lời cho 1 bạn (mình cũng không nhớ tên), nhưng lại quên trích dẫn. Bài của bạn này viết không dấu nên sau đó đã bị xóa mất. Bây giờ bài của mình nằm đây thấy kỳ cục quá...

 

[concogia]

đầu tiên nhìn trên cái ảnh mình gửi lên đó.trên menu đó có các công cụ di chuột trái trên các biểu tượng đó.các dòng chữ sẽ hiện lên khi nào thấy tên là:File đính kèm" thì kích chuột vào nó sẽ hiện lên màn hình biểu tượng bạn chọn nút "Browse" và tải file của bạn lên,khi tải lên bạn chọn "thêm file"xong khi thực hiện xong bạn quay về trang bạn ban đầu (tức là trang chứa các biểu tượng đó..)và viết cái gì cần hỏi theo....nhớ viết nhé để mọi người dễ đọc ko ko có ai đọc mấy đâu.
viết xong bạn bạn kéo chuột tít xuống dưới và chọn nút "gửi "cuối cùng ấy nhé cái nút mà hiện lên có cả file đính kèm ấy

Mình làm đúng thứ tự vậy nhưng vẫn báo file không up lên đươc.
Câu báo lỗi nằm ở góc trên bên trái
Cám ơn bạn
Chúc bạn khỏe