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ìnhmình úp file thử test của mình lên mong các bạn tham gia1/ 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,d2/ Mở của sổ VBA lên xem code thì không thấy gì hết3/ yêu cầu máy phải cài dotNetF x3.5 trở lênCode Trong visual studio 2010
Kiều MạnhThành viên gạo cộiTham gia ngày9 Tháng sáu 2012Bài viết4,354Được thích3,015Điểm1,568Nơi ởIIIIIIIIIIIIIIIIITặng cho Bạn nào mới tập làm quen với VBA mà chưa biết bật Macros thì tải file Sau về chạy một cái là OKÁp dụng cho WinXP + Win7 + Office 2010 ...Máy cài Dotnet 3.5 (Nếu máy chưa cài Dotnet 3.5 thì Sử dụng file VB6)Auto Check Access To VBOM và Enable MacrosCode trên Form Visual Studio 2010Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim VBOM As String, Emacros As String "Check Trust Access To VBA project model VBOM = "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Security\AccessVBOM" CreateObject("WScript.Shell").RegWrite(VBOM, 1, "REG_DWORD") "Enable Macros Setting muc canh bao an Toan Emacros = "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Security\VBAWarnings" CreateObject("WScript.Shell").RegWrite(Emacros, 2, "REG_DWORD") MsgBox("Ban Da Enable Macros Thanh Cong" & vbNewLine & "Vui Long Mo Excel Kiem Tra !", , "Kieu Manh_GPE") Application.Exit() ""Thoat Form End SubEnd ClassFile 20k mà không Úp lên GPE đượcCác bạn vào link sau tải nhahttps://drive.google.com/file/d/0B7zWYlns0sLBRHowZUJ0Q1lYSXc/view?usp=sharingFile VB6https://drive.google.com/file/d/0B7zWYlns0sLBcVdTWUJGMnZwSHM/view?usp=sharingLưu ý File VB6 Sử dụng được từ Office 2007 - 2010 còn 2013 chưa Test
Bạn đang xem: Chia sẻ, học tập và nghiên cứu visual studio 2010
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 SubEnd ClassFile lớn mình Úp lên GPE không được các bạn vào link sau tải về nhahttps://drive.google.com/file/d/0B7zWYlns0sLBS2lhbGthSjJqTW8/view?usp=sharingXin Cảm Ơn các Bạn cùng tham gia nghiên cứuLần chỉnh sửa cuối: 20 Tháng ba 2015Kiều MạnhThành viên gạo cộiTham gia ngày9 Tháng sáu 2012Bài viết4,354Được thích3,015Điểm1,568Nơi ởIIIIIIIIIIIIIIIIITặng cho Bạn nào mới tập làm quen với VBA mà chưa biết bật Macros thì tải file Sau về chạy một cái là OKÁp dụng cho WinXP + Win7 + Office 2010 ...Máy cài Dotnet 3.5 (Nếu máy chưa cài Dotnet 3.5 thì Sử dụng file VB6)Auto Check Access To VBOM và Enable MacrosCode trên Form Visual Studio 2010Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim VBOM As String, Emacros As String "Check Trust Access To VBA project model VBOM = "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Security\AccessVBOM" CreateObject("WScript.Shell").RegWrite(VBOM, 1, "REG_DWORD") "Enable Macros Setting muc canh bao an Toan Emacros = "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Security\VBAWarnings" CreateObject("WScript.Shell").RegWrite(Emacros, 2, "REG_DWORD") MsgBox("Ban Da Enable Macros Thanh Cong" & vbNewLine & "Vui Long Mo Excel Kiem Tra !", , "Kieu Manh_GPE") Application.Exit() ""Thoat Form End SubEnd ClassFile 20k mà không Úp lên GPE đượcCác bạn vào link sau tải nhahttps://drive.google.com/file/d/0B7zWYlns0sLBRHowZUJ0Q1lYSXc/view?usp=sharingFile VB6https://drive.google.com/file/d/0B7zWYlns0sLBcVdTWUJGMnZwSHM/view?usp=sharingLưu ý File VB6 Sử dụng được từ Office 2007 - 2010 còn 2013 chưa Test