Em mong các bác hướng dẫn cách lấy lập công thức và chuyển số liệu vào một Sheet

[thangtctk]

Em có một mong muốn như file em gửi kèm theo đây, em mong các bác chỉ giúp em cách làm. Câu hỏi em gửi kèm ở trong File. File của em hơi dài, mong các bác thông cảm và xem giúp em.

Các bác MOD ơi,em định gửi câu hỏi này vào trong mục Lập trình với Excel, nhưng em tìm không thấy, nên em gửi câu hỏi vào đây, Nếu không đúng mục thì mong các bác chuyển giúp em về đúng nơi quy định nhé.

Em cảm ơn tất cả các bác.

 

[SA_DQ]

/)/hiều vấn đề lắm đó!

Việc đầu tiên là bạn phải có 1 ComboBox để chọn tỉnh (để mà chép!?) - Bạn hãy tìm đọc ~ bài về ComboBox (hay lựa chỉ mục từ danh sách chọn)!

/(ết quả: khi nào bạn chọn tên HCM trong DS gồm HN, HP, ĐN, HCM, AG thì nó hiện ở đâu đó số 4 (. . .) là qua bước tiếp theo!
Hẹn gặp lại sau khi bạn nhuyễn về ComboBox!

 

[thangtctk]

cảm ơn bác SA_DQ đã hướng dẫn cách làm. Bác ơi, cho em hỏi chút, khi làm Combo Box thì làm theo Form hay theo Control Toolbox.

Nếu làm Combo box theo Form thì làm như sau:

+ Chọn Combo Box trên Form rồi vẽ lên sheet trên EXCEL, sau đó nhấn chuột right để chọn Format Control, trong cửa sổ Format Control chọn Input Range để chưa danh sách các tỉnh vào, trong Cell Link lấy một ô để làm địa chỉ ô liên kết.

Nếu làm Combo Box theo Control Toolbox thì làm như sau:
+ Chon Combo Box trên Control Toolbox:chọn biểu tượng Combo Box trên Control Toolbox, sau đó vẽ biểu tượng lên trên sheet, rồi right chuột chọn Properties, sau đó đua vùng đặt tên vào ListFillrange, đưa địa chỉ ổ lieên kết và LinkedCell.

Em làm theo một trong 2 cách trên, cách nào đúng theo ý bác.

Mong bác tiếp tục hướng dẫn em.

Cảm ơn bác nhiều.

 

[ThuNghi]

Vậy là bạn quá siêu rồi, cách nào cũng OK tùy bạn thích.

 

[thangtctk]

Cảm ơn bác ThuNghi đã khen, thật ra tìm hiểu mãi em mới biết cách làm đấy.
Bác ThuNghi ơi, nhưng đến đây em không biết phải tiếp tục làm như thế nào nữa.

Mong các bác xem file của em và hướng dẫn em cách làm tiếp theo.

 

[ThuNghi]

Cái này bạn dùng VBA sẽ tiện hơn nhiều. Gợi ý nhé:
1/ Tìm B4 trong MauNhapLieu là hàng thứ mấy trong Danh mục tỉnh (cột B sh chitiet)
2/ Nên có cột tiểu mục (Mục &Tiểu mục - 100-01) trong MauNhapLieu và đồng nhất với dòng tiểu mục trong sh chitiet
3/ Gán số liệu của tiểu mục trong MauNhapLieu vào Cells mà có dòng là hàng thứ mấy trong Danh mục tỉnh, và có cột là tiểu mục trong MauNhapLieu = với tiểu mục trong sh chitiet
Bạn cắt bớt file gởi lại và bỏ link tôi làm thử cho.

 

[thangtctk]

bác ThuNghi ơi, cho em hỏi Bác luôn nhé, khi trả lời các bác như thế này, em muốn Attach một file kem theo, nhưng em không thấy chỗ nào để gửi File kèm theo cả, bác hướng dẫn em với (Trong tạo chủ đề mới thì có chỗ để gửi kèm File)

 

[anhtuan1066]

Bạn bấm vào nút "Đỗi sang khung lớn" nằm ở dưới khung soạn thảo này thì sẽ có nút cho bạn đính kèm file giống như khi bạn viết chủ đề mới vậy
ANH TUẤN

 

[SoiBien]

bạn phải bấm nút "Post Reply" thì mới có chỗ để attach, còn mục dưới cùng là trả lời nhanh thì không có.

 

[anhtuan1066]

Trời... nghe Soibien nói mới đễ ý thấy có 1 nút POST REPLY nữa nằm ở trên cùng topic... trước giò chưa hề nhìn thấy (tại ko đễ ý)... khi muốn đính kèm file tôi toàn bấm vào nút "Đỗi sang khung lớn" ko hà...
Quả thật ko phải ai cũng có thể biết hết các chức năng trong 1 trang web nhỉ

 

[thangtctk]

em gửi Bác ThuNghi và các bác file em muốn làm (đã rút ngắn bớt)

Mong các bác xem, hướng dẫn và làm mẫu cho em cách làm theo như câu hỏi em gửi kèm theo trong file.

 

[Mr Okebab]

cảm ơn bác SA_DQ đã hướng dẫn cách làm. Bác ơi, cho em hỏi chút, khi làm Combo Box thì làm theo Form hay theo Control Toolbox.

Nếu làm Combo box theo Form thì làm như sau:

+ Chọn Combo Box trên Form rồi vẽ lên sheet trên EXCEL, sau đó nhấn chuột right để chọn Format Control, trong cửa sổ Format Control chọn Input Range để chưa danh sách các tỉnh vào, trong Cell Link lấy một ô để làm địa chỉ ô liên kết.

Nếu làm Combo Box theo Control Toolbox thì làm như sau:
+ Chon Combo Box trên Control Toolbox:chọn biểu tượng Combo Box trên Control Toolbox, sau đó vẽ biểu tượng lên trên sheet, rồi right chuột chọn Properties, sau đó đua vùng đặt tên vào ListFillrange, đưa địa chỉ ổ lieên kết và LinkedCell.

Em làm theo một trong 2 cách trên, cách nào đúng theo ý bác.

Mong bác tiếp tục hướng dẫn em.

Cảm ơn bác nhiều.

Hãy làm theo cách 2 bạn ạ. Chấp nhận dấn thân vào đau khổ thì cho đau khổ luôn.
Muốn hưởng thú tốc độ phải đi xe phân khối lớn.
Muốn có bạn gái phải bị . . chó cắn mấy lần (vì hái trộm hoa tặng nàng!!)

Thân!

 

[SA_DQ]

Cảm ơn bác ThuNghi, nhưng đến đây em không biết phải tiếp tục làm như thế nào nữa. Mong các bác xem file của em và hướng dẫn em cách làm tiếp theo.

Bạn đã có địa chỉ hàng nơi cần chép đến (từ Combobox - Combobox nào cũng xong bạn à!)
Tiếp theo cần tọa độ cột nữa:
Bây chừ bạn thử ghi 1 macro chép 3 hay 5 ô được kích hoạt theo 1 cột (VD D5860 từ sheets("NLieuB") & đem sang sheets # & dán lên nó theo hàng ! đọc macro để hiểu êxcel nó viết zì!;
Bạn sẽ phải thêm vô macro gia vị sau: Khai báo 1 biến để ghi lại nội dung chứa trong ô cột B cùng với hàng đầu của cột đã chép +1 (theo VD là B57)
(Mục đích là dữ liệu copy xong phải đem đúng đến hàng (tỉnh đã nêu trên), mà còn phải đem đúng đến cột để ấn vô)
( Bạn nên nghiên cứu thêm phw thức OFSET() )
Theo mình bạn đi từ đơn zản đến phức tạp!
Có zìmới thông báo cho biết với nha!

 

[thangtctk]

bác SoiBien ơi, bác gửi cho em xin file bác đã làm mẫu. Em theo cách chỉ dẫn của các bác trên diễn đàn về để tự làm nhưng ko có kết qủa.

 

[SoiBien]

Chắc bác làm được một mớ rồi, tui gửi cái tui làm lên cho bạn xem nhé. Tuy nhiên nếu bạn làm rồi thì chỉ nên tham khảo, cái của bạn sau này mới dễ tủy biến.

 

[ThuNghi]

Chắc bác làm được một mớ rồi, tui gửi cái tui làm lên cho bạn xem nhé. Tuy nhiên nếu bạn làm rồi thì chỉ nên tham khảo, cái của bạn sau này mới dễ tủy biến.

Tôi cũng vậy, cách Bác SioBien làm sợ khó hiểu đấy.
Tôi đã chuẩn hóa sơ lại về data của Thangtctk (Loại 13-01)
Khi nhập thì xóa hết và lock chỉ có những phần nhập mói cho phép, pass=1
Phần này học từ SoiBien, Tedaynui, Okebab, ttphong.
Khi gán dữ liệu, phần này chẳng qua là copy hàng dọc chuyển thành hàng ngang.

 

[SA_DQ]

Bạn tham khảo & thử lại nha!

Option Explicit[b]

Sub CopyTo()[/b]
    Dim Matx, Dich, Rng As Range, Rng0 As Range, StrC As String
    Dim DeMuc, lHang As Long, iCot As Integer, iJ As Integer
    
    Sheets("Nhap").Select [COLOR="Blue"]'Mình đã đổi tên Sheet[/COLOR]
    lHang = Range("F51").Value + 6
    Set Rng = Selection:                Selection.Copy
    Matx = Rng.Offset(-1, -2).Value
    DeMuc = Matx(1, 1)  'Xem thêm [COLOR="blue"]LBOUND()[/COLOR]    
    Sheets("ChiTiet").Select
    For iJ = 4 To 24 Step 4
      StrC = Chr(65 + iJ) & 3:
      Dich = Range(StrC).Value
      
      If DeMuc = Dich Then
         Cells(lHang, iJ + 1).Select
         Exit For
      End If
    Next iJ
          
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
   Application.CutCopyMode = False [b]
End Sub[/b]

Bạn chú í các đề mục tại sheet("ChiTiet") cần được chép từ Sheets("Nhap") để đảm bảo ễcl tìm ra đúng theo iêu cầu;
Hiện zờ file của bạn chưa đúng, êxcel sẽ không tìm ra!!