Điền số tự động cách 12

[emgaingayngo]

GPE ơi! Giúp em đoạn mã để điền số vào bảng như hình sau :

Cảm ơn các bạn!

 

[yeuthamhangxom]

GPE ơi! Giúp em đoạn mã để điền số vào bảng như hình sau :

Cảm ơn các bạn!

Ở hàng đầu tiên bạn gõ các số đầu. tại cột tương ứng. bạn chọn vùng vần tự động nhảy số (đơn vị 12) bạn vào Edit/Fill/Series trong mục Step value bạn gõ 12 vào rồi ok.
Thao tác này sẽ nhảy số tự động 12 so với số đầu tiên.
Chúc bạn vui vẻ.

 

[emgaingayngo]

Làm vậy là OK rùi nhưng sau đó phải đến dòng cuối xoá đi những số trùng lắp với dòng đầu, vì các số ở hàng trăm trên cùng một cột là giống nhau và mình phải thao tác với 12 bảng như vậy. Vì nếu viết được macro thì sẽ OK hơn!

 

[ndu96081631]

Làm vậy là OK rùi nhưng sau đó phải đến dòng cuối xoá đi những số trùng lắp với dòng đầu, vì các số ở hàng trăm trên cùng một cột là giống nhau và mình phải thao tác với 12 bảng như vậy. Vì nếu viết được macro thì sẽ OK hơn!

Thử code này xem:

Sub Test()
  Dim i As Long, iR As Long, iC As Long
  For i = 4 To 998 Step 12
    iR = 1 - iR * (Int(i / 100) + 1 <= iC)
    iC = Int(i / 100) + 1
    Cells(iR, iC).NumberFormat = "000"
    Cells(iR, iC) = i
  Next i
End Sub

 

[yeuthamhangxom]

Làm vậy là OK rùi nhưng sau đó phải đến dòng cuối xoá đi những số trùng lắp với dòng đầu, vì các số ở hàng trăm trên cùng một cột là giống nhau và mình phải thao tác với 12 bảng như vậy. Vì nếu viết được macro thì sẽ OK hơn!

Bạn ndu96081631 làm có đúng ý bạn không. Mình mới nghiên cứu VBA chưa thạo lắm. Lên chưa viết được bằng VBA. Nếu bạn ndu96081631 làm đúng rồi thì bạn gửi file bạn làm lên cho tớ tham khảo với nha.

 

[emgaingayngo]

Cảm ơn bác ndu96081631nhiều! Hoàn toàn chính xác.

@yeuthamhangxom : Bạn mở một book mới - Alt+F11 -insert module - copy đoạn mã vào rùi bạn sẽ thấy thui! Chúc bạn vui vẻ!

 

[ndu96081631]

Bạn ndu96081631 làm có đúng ý bạn không. Mình mới nghiên cứu VBA chưa thạo lắm. Lên chưa viết được bằng VBA. Nếu bạn ndu96081631 làm đúng rồi thì bạn gửi file bạn làm lên cho tớ tham khảo với nha.

Gữi file cho bạn tham khảo luôn đây
Code mới này cho phép bạn đặt dảy số ở bất kỳ nơi đâu bạn thích

 

[DOSNET]

Gữi file cho bạn tham khảo luôn đây
Code mới này cho phép bạn đặt dảy số ở bất kỳ nơi đâu bạn thích

Thêm mục lựa chọn số đầu tiên của dãy số nữa thì tốt.

 

[ndu96081631]

Thêm mục lựa chọn số đầu tiên của dãy số nữa thì tốt.

Lở rồi thì thêm mấy cái này nữa cho.. sướng
- Nhập số đầu tiên
- Nhập số cuối cùng
- Gõ vào "bước nhảy"
Ẹc... Ẹc...
Kiểu vầy được không:

Sub Test()
  Dim i As Long, iR As Long, iC As Long, FirstNum As Long, EndNum As Long, Step As Long
  On Error GoTo Thoat
  FirstNum = Application.InputBox("Nhap so dau tien", Type:=1)
  EndNum = Application.InputBox("Nhap so cuoi cung", Type:=1)
  Step = Application.InputBox("Buoc nhay la bao nhieu?", Type:=1)
  If FirstNum >= EndNum Then Exit Sub
  With Application.InputBox("Chon cell dau tien", Type:=8)
    For i = FirstNum To EndNum Step Step
      iR = 1 - iR * (Int(i / 100) + 1 <= iC)
      iC = Int(i / 100) + 1
      With .Parent.Cells(iR - 1 + .Row, iC - 1 + .Column)
        .NumberFormat = "000"
        .Value = i
      End With
    Next i
  End With
Thoat:
End Sub

Chưa test, không biết nó chạy thế nào

 

[yeuthamhangxom]

Cám ơn ban emgaingayngo và bạn ndu96081631 em làm được rồi. Chúc cả nhà vui vẻ.