{ if (e.ColumnIndex == 2){ try { double price = Convert.ToDouble(dataGridView1.Rows[e.RowIndex].Cells[4].Value);int count = Convert.ToInt32(dataGridView1.Rows[e.RowIndex].Cells[2].Value);double total = price * count;dataGridView1.Rows[e.RowIndex].Cells[7].Value = ...
Sub s()Dim i As Integer, a As Integera = Sheet1.Range("a65536").End(xlUp).Rowi = 1DoIf Sheet1.Cells(i, 5) = "" Or Sheet1.Cells(i, 5) = 0 or Sheet1.Cells(i, 6) = "" Or Sheet1.Cells(i, 6) = 0 or Sheet1.Cells(i, 7) = "" Or Sheet1.Cells(i, 7...
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next Cells.FormatConditions.Delete With Target.EntireRow.FormatConditions .Delete .Add xlExpression, , "TRUE" .Item(1).Interior.ColorIndex = 7 End With End Sub 上面这段代码严谨之处在于，如果单元格本身...
看下图：代码如下：Sub 俺要打印()Sheets("台账录入").Select '选中"台账录入"表 Dim i As Long, r As Long r = Range("B" & Rows.Count).End(xlUp).Row '获取B列最大行号 If r < 2 Then Exit Sub '最大行号<2时退出sub For i = 2 To r Range("O7:P7") = Range("B" &...
Sheets(1).Cells(i, 1) = SHT.Cells(i, 2)Sheets(1).Cells(i, 2) = SHT.Cells(i, 5)Sheets(1).Cells(i, 3) = SHT.Cells(i, 7)Sheets(1).Cells(i, 4) = SHT.Cells(i, 8)Sheets(1).Cells(i, 5) = SHT.Cells(i, 12)Next i 替换为 arr(i, 1) = SHT.Cells(i, 2...
rows(m & ":" & m)或rows(m)
objExlSheet.Cells(1, 1) = "生产统计"objExlSheet.Cells(2, 1) = LabT.Caption 'objExlSheet.Cells(3, 1) = "生产编排顺序"'objExlSheet.Cells(3, 2) = "要求出版时间"' objExlSheet.Cells(3, 7) = "备注"For i = 0 To MSFG1.Rows - 1 objExlSheet.Cells(i + 3, 1) =...
mysheet.Cells(1, 1) = "档案编号"mysheet.Cells(2, 1) = "联系电话"mysheet.Cells(3, 1) = "使用人死亡时间"mysheet.Cells(4, 1) = "合葬者死亡时间"mysheet.Cells(5, 1) = "公墓证号"mysheet.Cells(6, 1) = "墓园名称"mysheet.Cells(7, 1) = "墓价"mysheet.Cells(8, ...
我的方法其实挺简单，直接设置数据有效性为7位数的整数！然后在A2输入以下公式下拉就行！=LARGE(IF(COUNTIF($A$1:A1,ROW($1:$10)),,ROW($1:$10)),RANDBETWEEN(1,11-ROW(A1)))
Sub test()With ActiveSheettp = ThisWorkbook.Path '获取当前路径If Right(tp) = "\" Then tp = tp & "\"r = 2t = .Cells(r, 7).ValueDo Until t = ""n = Application.WorksheetFunction.CountIf(.Range("g:g"), .Cells(r, 7))Workbooks.AddActiveSheet.Name = t.Range("a1...