em dùng 1 textbox và 1 button , em đã thữ dùng macro ghi lại và co được đoạn code này

có nghĩ là mình đánh giá trì từ 1 ~ n thì màu sẽ thay đổi ,

Ý đồ : em muốn đánh RED vào textbox thì nó sẽ ra màu đỏ , YELLOW thì ra màu vàng . thì cần phải thêm code gì nữa

với lại cho em hỏi là em dùng macro ghi Group 2 hình lại với nhau . nhưng khi chạy macro thì no' lại báo lỗi

. Em mới làm quen với VBA trong Excel , nên mong ae trong 4rum giúp đỡ ^^!!

tiện thể cho em xin tài liều về VBA trong excel từ căng bản đến nâng cao ạ . em cám ơn nhiều !!!

Em là người mới học nên câu hỏi hơi "ngớ ngẩn" mong các bac' chỉ giúp nhé, rất cảm ơn mọi người

Tập tin đính kèm

• New Microsoft Excel Worksheet.xls (36.0 KB)

Mình đang gặp phải 1 vấn đề cần nhờ các bác chỉ giáo.Mình có 1 file gồm 2 cột, cột A là cột mã, cột B là số lượng.Câu hỏi là làm cách nào để khi gõ số lượng vào cột B sẽ sinh ra số dòng tương ứng với số lượng gõ vào cột B.

Tập tin đính kèm

• Test.xls (13.5 KB)

Em mới đọc qua VBA, định viết một đoạn code nhập dữ liệu từ file dữ liệu khác từ sap2000 sang bảng tổ hợp nội lực. Mục đính là khi chạy Macro thì hiện lên một box hỏi nhập số Phần tử cột, sau đó nó sẽ tự lấy dữ liệu từ file nội lực như hình .Em thử viết nhưng lộn xộn quá, không biết sai ở đâu
Sub Get_Data()
i = 0
Do While i <= Application.InputBox("Nhap so phan tu cot:", "So Phan Tu Cot", Type:=1)
ActiveCell.Offset(5 + 6 * i, 3).Range("A1").Select
ActiveWindow.ActivateNext
ActiveCell.Offset(3 + 2 * i, 9).Range("A1").Select
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
ActiveCell.Offset(6 + 6 * i, 3).Range("A1").Select
ActiveWindow.ActivateNext
ActiveCell.Offset(3 + 2 * i, 4).Range("A1").Select
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
ActiveCell.Offset(8 + 6 * i, 3).Range("A1").Select
ActiveWindow.ActivateNext
ActiveCell.Offset(4 + 2 * i, 9).Range("A1").Select
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
ActiveCell.Offset(9 + 6 * i, 3).Range("A1").Select
ActiveWindow.ActivateNext
ActiveCell.Offset(4 + 2 * i, 4).Range("A1").Select
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
i = i + 1
Loop
End Sub


Thanks các bác nhiều.

Hình đính kèm

• Untitled-1.jpg (423.8 KB)

Tập tin đính kèm

• Tổ hợp nội lực.xlsx (156.9 KB)
• Book2.xlsx (10.9 KB)

Chào cả nhà !!! xin giúp mình cái này
khi mình search tên chi nhánh / nhân viên ở ô E 5 của sheet CongNo thì nó chỉ ra được dữ liệu được nhập lần đầu tiên (những dòng đầu) ở sheet da ta thì nó ra đúng. nhưng nếu nhập dữ liệu tiếp theo cho sheet da ta ở những dòng tiếp theo với 1 tên chi nhánh/ nhân viên khác thì nó ko ra .
Mình ko biết code sai ở chổ nào , mình nghỉ nó bị giới hạn số dòng nhưng mình đã sữa vẫn không được .
Mong các cao nhân chỉ ra chổ sai giùm (mình đang học VBA chập chững nên còn gà lắm )
mình post nhầm bài
CÁC BẠN VÀO FILE CongNo-Ver03-3.rar NHA

THANKS

Tập tin đính kèm

• CongNo-Ver03.rar (16.4 KB)
• CongNo-Ver03-3.rar (27.1 KB)

Chào các ACE trong diễn đàn! EM có một việc cần nhờ đến ACE
Em có 1 file Nhập Xuất tồn
Trên File đó em muốn tạo một nút lệnh, khi click vào nút đó thì một Files mới hiện lên(File báo cáo), em chỉ cần chọn ngày trong tháng cần làm báo cáo và click vào nút lệnh Lấy dữ liệu trên files Báo cáo đó thì nó xẽ cập nhật chính xác số liệu của ngày hôm đó( Có thể chọn 1 ngày hoặc nhiều ngày)
VD: Từ ngày 02/09/2010 đến ngày: 05/09/2010
Em xin cám ơn

hướng dẫn nhanh cho mình với nhé

KÍNH CHÀO CÁC CÔ BÁC ANH CHI!
MONG CÁC CÔ BÁC ANH CHỊ GIÚP EM VỚI Ạ:
TRONG BẢNG THU- CHI CUẢ EM DÙNG CÔNG THỨC LỌC DỮ LIỆU AUTO FILTER ĐỂ LỌC RA CỘT CHI TIỀN.NHƯNG DO SƠ Ý,KHI THOÁT KHỎI EXCEL EM LẠI QUÊN KO TRẢ VỀ TRẠNG THÁI BAN ĐẦU.NHƯ VÂY KHI MỞ RA THÌ CHỈ CÒN DỮ LIỆU CỘT CHI TIỀN,KO CÒN DỮ LIỆU CÔTH THU TIỀN NỮA.EM MUỐN LẤY LẠI DƯ LIỆU NHƯ CŨ THI HẢI LÀM THẾ NÀO A?CÓ AI GIÚP EM VỚI A. EM CẢM ƠN MỌI NGƯỜI RẤT NHIỀU.MONG MỌI NGƯỜI GIÚP ĐỠ EM SỚM KHÔNG EM NGUY MẤT A.:blowup::blowup::blowup:

Phần mềm eCatStock hoàn toàn sử dụng Unicode, tất cả gói gọn trong 1 file setup 48Mb dễ dàng cài đặt và sử dụng
Tự động update phiên bản mới qua internet khi có sửa đổi từ nơi phát hành
Phiên bản dùng thử hỗ trợ 50 mã hàng và 300 giao dịch nhập xuất
Các tính năng cơ bản của phần mềm :
- Nhập hàng từ nhà cung cấp (tự động xác định công nợ cho nhà cung cấp)
- Xuất hàng bán buôn cho khách hàng (tự động xác định công nợ cho khách hàng)
- Báo cáo chi tiết lượng hàng tồn trong kho theo giá vốn bình quân
- Báo cáo chi tiết công nợ với khách hàng và nhà cung cấp
- Báo cáo chi tiết lượng hàng khách hàng đã mua trong khoảng thời gian
- Báo cáo chi tiết lượng hàng nhập từ nhà cung cấp trong khoảng thời gian
............................................



Link download file setup :

Thân mến gởi lời chào đến tất cả các anh chị thành viên GPE, mến chúc các anh chị một tuần làm việc vui vẻ, thành cp6ng và nhiều may mắn.

Các anh chị thân mến!
Khi tôi đang viết những dòng này là lúc tâm trạng tôi thật sự bi đát, tôi đang vui hay đang buồn tôi cũng không phân biệt được. Vui vì người đó lên xe hoa bắt đầu một cuộc sống ấm êm, hạnh phúc. Buồn vì trước mắt tôi là một khoảng trống vô hình. (túm lại là buồn vui lẫn lộn). Tôi đang say hay đang tỉnh cũng không biết được. Say vì trưa nay uống quá nhiều rượu, tỉnh vì còn thấy mình hình như chưa say.
Ngược dòng thời gian nhớ về quá khứ, tôi với cô ấy nhận thấy tình cảm dành cho nhau, đã yêu nhau và hẹn ước với nhau cách đây chừng 5 năm về trước, buồn vui lẫn lộn chúng tôi cùng nhau vượt qua tất cả. Nhưng sự đời trớ trêu thay tôi là gã trai nghèo nên gia đình bên ấy không chịu chấp nhận mối quan hệ này, và hôm nay đúng ngày mà tôi mong đợi nhất ngày mà tôi được chính thức thưa chuyện cùng ba mẹ nguời ấy, sự thật phủ phàng là tình yêu ly tan. híc.......... Chẳng lẽ tôi "bất lực" nhìn cảnh hai đứa chia tay sao????
Tôi phải làm gì đây?, vẫn biết rằng cha mẹ nào cũng muốn tốt cho con mình cả. Nếu cố gắng níu kéo thì tôi có phải là người ích kỷ không?. Người ta vẫn thường nói "miễn cưỡng không hạnh phúc", có lẽ tôi sẽ sống những ngày tháng còn lại với 2 chữ "bất lực".

Em tạo được 1 hàm: Function Timkiem().

Em Save dưới đuôi *.xla, nhưng khi load lên Excel 2007 thi không hiển thị.

Các anh chi có thể giúp em giải quyết tình huống này với.

Thanks!

Chào các ban,
Mình có vấn đề cần các bạn giúp đỡ như sau.
Mình có nhiều data về các thông tin hợp đồng. Mỗi ngày mình cần biết có những hợp đồng nào đến hạn. Nhưng vì data lưu ở các file khác nhau. Bây h mình muốn có 1 file tổng hợp các hợp đồng đến hạn trong ngày nhưng đang không biết liệt kê 1 danh sách ra kiểu gì -+*/ . Các bạn xem file và cho mình xin ý kiến nhé. Cảm ơn }}}}}}}}}}

Tập tin đính kèm

• Liệt kê hợp đồng đến hạn.xls (73.0 KB)

Hi,
Mình có 1 khó khăn nhỏ về hàm if
Nếu dùng cột phụ thì ra rồi, nhưng mình ko muốn vậy
Các bạn xem file giúp dùm mình nha.
Cảm ơn nhiều.

Mình làm kế toán tổng hợp được 4 năm, hiện nay Quý doanh nghiệp nào có nhu cầu tuyển kế toán làm bán thời gian tuần 3 buổi xin liên hệ với mình qua email: minhuong12av@yahoo.com hoặc ĐT" 0937517604"
để trao đổi cụ thể hơn. Mình ở Quận 12.

Tôi có một file có nhiều name rác ẩn mà chưa biết cách nào xóa hết name một cách nhanh nhất. Các name này có tên là những ký tự hoặc các từ khóa mà nếu định nghĩa name theo cách thông thường MS sẽ không cho.
Nhờ mọi người tư vấn cho một đoạn code hoặc cách xóa các name này mà không phải đổi tên từng name.
Cảm ơn!

Tập tin đính kèm

• Name.rar (107.6 KB)

Mình có một dãy mã số khách hàng VD 2154798632541236
Mình muốn đặt dấu cách giữa 3 số một như sau:
215-479-863-254-123-6
Bạn nào có thể giúp mình một công cụ hay lệnh nào đó không? cảm ơn các bạn nhiều