OPRAG-OPREG

Do you ever face this trouble when developing a project with VS2010 or other VS version ?? see at the error list !! this things really annoyed i am sure believe it me.. so how to solve ?? find the solution as below 1. Find My Project on your Solution Explorer, it must be exactly below your VS project name. 2. Right click My Project - Open 3. Find Tab Security - Uncheck Enable ClickOnce security settings done !!! you will have trouble again with your VS about unable to delete or something to bin\debug when developing VS

ALT+F11 Sub UnhideAllSheets()     Dim ws As Worksheet     For Each ws In ActiveWorkbook.Worksheets         ws.Visible = xlSheetVisible     Next ws End Sub

This is the way how to catch digit AFTER a specific symbol, for this case the symbol means (desc "-"). situation would be as follows : "XXXXX-NAME" we would need to catch all "NAME" AFTER desc "-", so value would be "NAME". VB Script would be as below to support our case : Click below picture for more clear preference

Somehow i need to do merge cell of my datagridview, and below script is how to do that Public Class MERGE_CELL_DGV Private Sub MERGE_CELL_DGV_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim Meja As New DataTable Dim CekBox As New DataGridViewCheckBoxColumn With Meja .Columns.Add("DEPT") .Columns.Add("SEKSI") .Columns.Add("NAMA") .Rows.Add("TCI", "C&N", "ALFIAN") .Rows.Add("TCI", "C&N", "YAKUB") .Rows.Add("TCI", "AF", "WIRAD") .Rows.Add("FIN", "CCA", "WULAN") .Rows.Add("FIN", "CCA", "DIAN") .Rows.Add("TCI", "AF", "TAUFIQ") .Rows.Add("TCI", "AF", "IRLON...

This is the way how to catch digit before a specific symbol, for this case the symbol means (desc "-"). situation would be as follows : "XXXXX-NAME" we would need to catch all "X" before desc "-", so value would be "XXXXX". even "X" is only 4 digits or more less we will get that all digit. VB Script would be as below to support our case : Click below picture for more clear preference

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US") End Sub

Private Sub MultipleEmail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Dim DTT As New DataTable         DTT.Columns.Add("Name")         DTT.Columns.Add("Email")         DTT.LoadDataRow(New Object() {"WIRAT", "wirat@email.qom"}, True)         DTT.LoadDataRow(New Object() {"MODJO", "modjo@email.qom"}, True)         DTT.LoadDataRow(New Object() {"ARKAN", "arkan@email.qom"}, True)         DgvMail.DataSource = DTT.DefaultView     End Sub     Private Sub BtnVIEW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnVIEW.Click         Dim eAddress As String = ""         Dim Mail As Integer = 0         Dim Dgv As Boolean = True         For Mail = 0 To (DgvMai...