VBA 最後一欄

Dim uyt As Integer
uyt = Range("f65536").End(xlUp).Row + 1
WorkSheets("Sheet1").Cells(uyt,"F").Value = "hi"

在最後一欄補上文字

VBA

Sub Click()
    Worksheets("Sheet1").Range("A1").Value = Replace(Worksheets("Sheet2").Range("A1").Value, "年", "")
    Worksheets("Sheet1").Range("B1").Value = Replace(Worksheets("Sheet2").Range("B1").Value, "月", "")
    Worksheets("Sheet1").Range("C1").Value = Replace(Worksheets("Sheet2").Range("A12").Value, "日", "")
    Dim y, m, d, tq, ty As String
    y = Replace(Worksheets("Sheet2").Range("A1").Value, "年", "")
    m = Replace(Worksheets("Sheet2").Range("B1").Value, "月", "")
    If Len(m) = 1 Then
        m = "0" & m
    End If
    d = Replace(Worksheets("Sheet2").Range("A12").Value, "日", "")
    If Len(d) = 1 Then
        d = "0" & d
    End If
    tq = y & m & d
    ty = y & m
    '抓位補風
    Worksheets("Sheet1").Range("D1").Value = Split(Worksheets("Sheet2").Range("C2:AF2").Find(Worksheets("Sheet1").Range("C1").Value).Address(1, 0), "$")
    Dim aa As String
    aa = Worksheets("Sheet1").Range("D1").Value
    Dim j As Integer
    j = 1
    '找莊家號碼列欄
    For i = 3 To Worksheets("Sheet2").Range("A14").Value
        
        With Worksheets("Sheet2")
        If Not .Cells(i, aa).Value = "" Then
            
            Worksheets("Sheet1").Cells(j, 6).Value = .Cells(i, 1).Value & vbCrLf & .Cells(i, 2).Value
            Dim fg As String
            fg = .Cells(i, 2 + d).Value
            '爪爪
            If Not fg = "" Then
                For k = 1 To 7
                If .Cells(i, 2 + d + k).Value = "" Then
                    Dim re As String
                    re = d + k - 1
                    If Len(re) = 1 Then
                        re = "0" & re
                    End If
                    If fg = "8" Then
                    Worksheets("Sheet1").Cells(j, 7).Value = tq & "0800" & "-" & ty & re & Replace(.Cells(i, 2 + d + k - 1).Value, "例", "") & "00"
                    ElseIf fg = "18" Then
                    Worksheets("Sheet1").Cells(j, 7).Value = tq & "1800" & "-" & ty & re & Replace(.Cells(i, 2 + d + k - 1).Value, "例", "") & "00"
                    ElseIf fg = "例" Or fg = "慰" Or fg = "例21" Then
                        For g = 1 To 7
                        
                            
                                If Worksheets("Sheet2").Cells(2, 2 + d - g).Value = 1 And Not Worksheets("Sheet2").Cells(i, 2 + d - g).Value = "" Then
                                Worksheets("Sheet1").Cells(j, 7).Value = ty & "01" & .Cells(i, 2 + d - g).Value & "00" & "-" & ty & re & Replace(.Cells(i, 2 + d + k - 1).Value, "例", "") & "00"
                                Exit For
                                ElseIf .Cells(i, 2 + d - g).Value = "" Then
                                Dim ret As String
                                ret = d - g + 1
                                If Len(ret) = 1 Then
                                ret = "0" & ret
                                
                                Worksheets("Sheet1").Cells(j, 7).Value = ty & ret & .Cells(i, 2 + d - g + 1).Value & "00" & "-" & ty & re & Replace(.Cells(i, 2 + d + k - 1).Value, "例", "") & "00"
                                End If
                                
                                Exit For
                                End If
                                
                                
                                
                                
                            
                            
                        Next
                        
                    End If
                    
                    
                Exit For
                End If
                
                
                Next
                
                
            End If
            
            
            
            j = j + 1
            
            
        End If
        End With
    Next
    
    
    
    
End Sub

VB 資料庫插入並更新語法

Dim hh = System.Web.Configuration.WebConfigurationManager.ConnectionStrings("sp").ConnectionString
        Dim conn As New SqlConnection(hh)
        conn.Open()
        Dim Trans As SqlTransaction = conn.BeginTransaction()
        Dim sql = "Insert into stu(stu,c1,c2) values(115,'hello','kg')"
        Dim cmd As New SqlCommand(sql, conn, Trans)
        sql = "update the set t1='rockman' where the = 102"
        Dim cmd2 As New SqlCommand(sql, conn, Trans)
        Try

            cmd.ExecuteNonQuery()
            cmd2.ExecuteNonQuery()
            Trans.Commit()

        Catch ex As Exception

            Trans.Rollback()

        End Try

        cmd.Dispose()
        cmd2.Dispose()
        conn.Close()
        conn.Dispose()

解壓縮.msi檔案

msiexec /a "F:\test.msi" /qb TARGETDIR="F:\dir" //其中F:\test.msi是msi文件的路徑，F:\dir 是解壓縮路径。

GridView 設定文字底色

Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound
        'e.Row.Cells(1).BackColor = System.Drawing.Color.LightBlue
        'GridView1.Columns(0).ItemStyle.BackColor = System.Drawing.Color.LightBlue
        'GridView1.Rows(0).Cells(0).BackColor = System.Drawing.Color.LightBlue
        For i As Integer = 0 To GridView1.Rows.Count - 1
            For j As Integer = 0 To 38
                If GridView1.Rows(i).Cells(j).Text.Length = 2 Then
                    GridView1.Rows(i).Cells(j).BackColor = System.Drawing.Color.LightBlue
                End If
            Next
        Next
End Sub