• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Cập nhật control user form excel

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Help] Cập nhật control user form excel
• Cập nhật control user form excel

• Cập nhật control user form excel

  tranthanhan1962 > 03-05-21, 07:42 AM

  Lâu quá không đụng đến excel. Giờ gần như quên hết. Bạn nào con nhớ cái lệnh cập nhật rowsource của listbox trong user form (kiểu giống như requery) chỉ dùm mình. Vì khi mình đổi rowsource của listbox, dữ liệu cũ vẫn không đổi chỉ khi bấm vào nó một cái thì nó mới chịu cập nhật 

• RE: Cập nhật control user form excel

  ongke0711 > 03-05-21, 09:51 AM

  Thông thường thì chỉ cần chạy lại cái lệnh gán Listbox.RowSoure = "Sheet1!A1:A10" là listbox tự refresh rồi anh.
  
  demo: https://www.mediafire.com/file/dfechco96....xlsb/file

• RE: Cập nhật control user form excel

  tranthanhan1962 > 04-05-21, 04:12 PM

  Đúng là lâu lắm rồi mới quay lại excel. Giống như người mới học   . Thực ra, mình có thằng cháu ở quê. Chú cháu trước đây cũng thân. Nhà nó bán tạp hóa, dịp rồi lên trên mình thấy mấy cái chương trình khoái quá. Muốn mình viết 1 cái để quản lý kho. Tình nghĩa mình hứa viết tặng. Nhưng mà nó lại không rành máy tính. Nó cũng có một thằng cháu vợ chuyên xử lý bằng excel mà cứ bị sai lệch hoài. Thấy cái này đơn giản mình làm nhoáng 1 cái rồi gởi mail qua nó. Nhưng nó báo không chạy đươc. Kiểm tra không thấy bị lỗi gì, nên có dịp rảnh mình về quê sẳn kiểm tra máy móc nó xem sao. Về quê đến nhà nó phát hiện nó giao hết chuyện quản lý cái máy tính cho thằng cháu nó. Mà office chỉ cài word và excel chứ không có access. Mình nói cài thiếu để mình cài lại. Bổng nhiên thằng nhóc nổi điên bảo office của nó là office bản quyền không được cài lại (bản quyền cái đầu nó nó kiếm đâu ra cái bản office portable 2010 chỉ có word + excel). Mà lúc đó trông nó rất ghê nó lớn tiếng cự giống như muốn đánh mình luôn, giong nói vừa ngọng vừa cà lăm. Mình hoảng hốt nói vọng vào nhà trong với thằng cháu ra quán đợi nó. Khi thằng cháu đến quán mình mới hỏi: mày mướn thằng khùng nào vậy. Hóa ra, thằng này là con thằng anh vợ nó, từ nhỏ bị sanh thiếu tháng, bệnh tùm lum trong đó có bệnh tự kỷ, đầu có tật luôn bị niểng 1 bên, nói ngọng ,nói lắp. Nhà thằng anh nghèo nó đem về nuôi từ nhỏ, học đến lớp 8 thì nghỉ, nó cho học khóa A tin học về làm tiếp cho nó đến bây giờ. Không hiểu sao nó lại thích món này và trở thành giỏi nhất xóm (mấy thằng học bằng A trong xóm cũng công nhận điều này mà mấy thăng này đâu có bệnh). Hóa ra mấy cái bảng excel đó là công trình vĩ đại của thằng nhỏ. Đụng đến lòng tự hào của nó nó nổi điên cũng phải. Tôi nói với thằng cháu là sẽ phát triển phần mền bằng cách hệ thống lại trên nền excel của nó. Giờ ngồi làm mới thấy lu bu. Mấy kiến thức không xài quên hết trọi

• RE: Cập nhật control user form excel

  ongke0711 > 04-05-21, 05:01 PM

   Đụng trùm cuối của xóm rồi.
  Office 2010 đã được khuyến cáo không xài rồi do có nhiều lỗi linh tinh, đã vậy còn là bản Portable nữa thì càng mệt.
  
  Khi em chuyển qua làm thử mấy cái trên Excel, Userform là phải hỏi lại những cái cơ bản nhất của nó.
  - Excel VBA có nhiều cái khác Access VBA cũng khá nhiều, nhất là mấy vụ tương tác với Sheet, range Excel là phải học lại rồi. 
  - Các control trên Userform của Excel cũng thiếu nhiều method, properties so với control trên Access Form.
  - Thiếu nhiều control so với Access. Nội cái vụ không dùng được Subform mà phải dùng Listbox là thấy mệt rồi. Mặc dù listbox nó nhẹ nhưng việc định dạng nó mất công và xấu.
  -...
  Nói chung nếu muốn thiết kế UserForm Excel đẹp, tiện dụng như Access thì tốn nhiều code, mất thời gian hơn.
  Nếu anh có cần hỗ trợ gì thi cứ trao đổi trên đây để ra thành phẩm cho nhanh chứ chờ ngâm cứu từ đầu thì mất thời gian.

• RE: Cập nhật control user form excel

  tranthanhan1962 > 04-05-21, 06:21 PM

  Nói chung quên thì quên vậy nhưng vào help office tra lại thì cũng nhớ ra liền. NHưng mắc mấy cái vụ này cũng bị nhứt đầu, Ví dụ:
  Sub HienDuLieu()
      Dim ws As Worksheet
      Dim lastRowN As Double
      Set ws = ThisWorkbook.Sheets("DSHH")
      lastRow = Excel.WorksheetFunction.CountA(ws.Range("B:B"))
        With LsbHangHoa
              .ColumnCount = 5
              .ColumnHeads = True
              .ColumnWidths = "55;100;60;100;30"
              .RowSource = ws.Name & "!A3:E" & (lastRow + 1)
       End With
  End Sub
  
  Đưa cái này vô để hiển thị giá trị LsbHangHoa khi mở form thì lúc được lúc không!
  Private Sub UserForm_Activate()
      Call HienDuLieu
  End Sub
  
  
  Nếu lỗi thì không được còn lúc được lúc không là sao! Có khi bấm đại vài cái vào form thì hiện ra có khi bấm mõi tay vẫn không thấy gì.
  Còn cái này mới tức nè:
  
  Đoạn mã để sửa giá trị:
  Private Sub BtnSua_Click()
      Dim ws As Worksheet
      Dim XRow As Double
      Set ws = ThisWorkbook.Sheets("DSHH")
      XRow = ThuTu.Value
          ws.Range("B" & XRow + 2) = TenHang.Value
          ws.Range("C" & XRow + 2) = DonGia.Value
          ws.Range("D" & XRow + 2) = LoaiVo.Value
  End Sub
  Với đoạn mã này thì Tên hàng: SG NT (chai) --> SG NT (chai)xxxxxx, Đơn giá: 750-->1042, Loại vỏ: NT --> XK/Lager/Lạc Việt
  Nhưng chỉ thực hiện được Tên hàng, Còn đơn giá và loại vỏ không những không thực hiện mà các textbox còn trả về giá trị cũ. Mà lệnh thì copy, paste y chang nhau.
  
  Cái này giống như ba trợn

• RE: Cập nhật control user form excel

  ongke0711 > 04-05-21, 09:06 PM

  Nên hạn chế gọi WorksheetFunction trong code để cải thiện tốc độ. Anh tìm lastRow bằng code như:
      lastRow = ws.Range("A" & .Rows.Count).End(xlUp).Row
   hoặc:
      lastRow = ws.Cells(.Rows.Count, "B").End(xlUp).Row
  
  - Thêm dòng: để macro chạy nhanh hơn
      Application.ScreenUpdating = False
           ...code
      Application.ScreenUpdating = True
  
  Còn vụ thêm bị lỗi thì em cũng không biết nguyên nhân gì, nếu có file thì mò xem thử.

• RE: Cập nhật control user form excel

  tranthanhan1962 > 05-05-21, 01:03 AM

  Thank bạn.
  Tôi sử dụng: lastRow = Excel.WorksheetFunction.CountA(ws.Range("B:B")) để tìm dòng cuối khi xử lý nhập record mới hoặc xử giá trị địa chỉ của rowsource thì OK không sao. Nhưng khi sửa thì dùng XRow lấy giá trị trực tiếp số dòng trên listbox. Giá trị này đươc xác đinh trên textbox ThuTu. Code VB nó cũng nhận được bằng chứng nó sửa giá trị cho ô B3 theo giá trị mới mình gõ vào textbox, Nhưng các ô C3, D3 thì nó chẳng những không sửa mà con trả ngược giá trị các textbox về giá trị của của các ô tương ứng trong sheet.
  
  
  
  Cùng 1 lệnh, nhưng bạn sẽ nhìn thấy ô B3 được thay thế bằng giá trị của textbox TenHang. còn ô C3 và D3 đáng lẽ sẽ được thay thế bằng giá trị của các textbox DonGia và LoaiVo thì ngược lại các textbox DonGia và LoaiVo lại trả về các giá trị của các ô C3 và D3.
  Cái lệnh:
  ws.Range(Địa chỉ ô) = Textbox.Value
  Là lệnh gán giá trị ô bằng giá trị textbox. Nhưng nó chỉ đúng khi gán ô B3. còn khi chạy với ô C3 và D3 thì nó lại làm ngược, tức là lấy giá trị textbox bằng giá trị ô.
  Mà trường hợp này thì rõ ràng lệnh của nó phải là:
  Textbox.Value = ws.Range(Địa chỉ ô).
  Bởi vậy mới thấy nó lạ lùng.

• RE: Cập nhật control user form excel

  tranthanhan1962 > 05-05-21, 07:40 AM

  Gởi ongke0711 Nhờ kiểm tra dùm các dòng code
  https://www.mediafire.com/file/s2ziqqq53....xlsm/file
  
  

• RE: Cập nhật control user form excel

  ongke0711 > 05-05-21, 07:45 AM

  Vụ này thì lạ thật. Có khi nào bị ảnh hưởng bởi code anh load dữ liệu từ listbox lên các textbox không?

• RE: Cập nhật control user form excel

  tranthanhan1962 > 05-05-21, 08:43 AM

  Rowsource của listbox chọn nguyên vùng mà, chứ đâu có load từ dòng. Vả lại textbox ThuTu chỉ lấy giá trị dòng trong listbox để làm địa chỉ row cho các ô và giá trị này ở các cell là giống nhau. khi dùng MsgBox kiểm tra thì nó cũng xác định đúng nhưng khi thưc hiện lệnh gán thì nó làm tầm bậy. Mình đang sử dụng office 2019. Đang định cài thêm bản khác để kiểm tra. Bạn chạy thử trên máy bạn xem có bị vậy không? Lỗi là ở chỗ đáng lẽ nó phải gán giá trị A1 cho A2, B1 cho B2, C1 cho C2 Thì nó lại gán A1 cho A2, B2 cho B1, C2 cho C1 (Trong khi 3 lệnh gán này giống nhau đều sử dụng cùng công thức f(x): gán x1 cho x2) lệnh gán là lệnh đơn giản nhất của VBA, vậy mà...
• Bài trước Bài tiếp