Kiều Mạnh
I don't program, I beat code into submission!!!
- Tham gia
- 9/6/12
- Bài viết
- 5,538
- Được thích
- 4,129
- Giới tính
- Nam
Sau một thời gian tham gia GPE học code VBA đến nay mình cũng tạm biết viết ...các đây khoãng 1 một tháng mình tập sang VB6 thì cũng viết tốt như trên VBA...
Nay mình chuyển qua tự nghiên cứu trên visual studio 2010...thấy nó vừa khó mà vừa hay...
nên mình xin mở đề tài này để bạn nào có cùng chí hướng nghiên cứu chia sẽ khiến thức về visual studio 2010 hay cụ thể hơn là sự kết nối giữa Excel và visual studio 2010 bằng VB...
để cùng nhau học tập và nghiên cứu từng bước chinh phục đỉnh cao của lập trình
mình úp file thử test của mình lên mong các bạn tham gia
1/ Mở File Excel: Bai Tap Visual Studio.xlsb lên và gõ vào cột A thì sẽ thấy kết quả cột b,c,d
2/ Mở của sổ VBA lên xem code thì không thấy gì hết
3/ yêu cầu máy phải cài dotNetF x3.5 trở lên
Code Trong visual studio 2010
File lớn mình Úp lên GPE không được các bạn vào link sau tải về nha
https://drive.google.com/file/d/0B7zWYlns0sLBS2lhbGthSjJqTW8/view?usp=sharing
Xin Cảm Ơn các Bạn cùng tham gia nghiên cứu
Nay mình chuyển qua tự nghiên cứu trên visual studio 2010...thấy nó vừa khó mà vừa hay...
nên mình xin mở đề tài này để bạn nào có cùng chí hướng nghiên cứu chia sẽ khiến thức về visual studio 2010 hay cụ thể hơn là sự kết nối giữa Excel và visual studio 2010 bằng VB...
để cùng nhau học tập và nghiên cứu từng bước chinh phục đỉnh cao của lập trình
mình úp file thử test của mình lên mong các bạn tham gia
1/ Mở File Excel: Bai Tap Visual Studio.xlsb lên và gõ vào cột A thì sẽ thấy kết quả cột b,c,d
2/ Mở của sổ VBA lên xem code thì không thấy gì hết
3/ yêu cầu máy phải cài dotNetF x3.5 trở lên
Code Trong visual studio 2010
PHP:
Public Class Sheet1
Private Sub Sheet1_Change(Target As Microsoft.Office.Interop.Excel.Range) Handles Me.Change
If Target.Count = 1 Then
If Target.Column = 1 Then
Cells(Target.Row, 2) = ("Kieu Manh")
Cells(Target.Row, 3) = ("Giai Phap Excel")
Cells(Target.Row, 4) = ("Cong Cu Tuyet Voi Cua Ban")
End If
End If
End Sub
End Class
https://drive.google.com/file/d/0B7zWYlns0sLBS2lhbGthSjJqTW8/view?usp=sharing
Xin Cảm Ơn các Bạn cùng tham gia nghiên cứu
Lần chỉnh sửa cuối: