cells

MyExcel.Cells(2, 2) = "测试3"MyExcel.Cells(3, 2) = "测试4"MyExcel.Cells(3, 3) = "测试5"\'设置格式 MyExcel.Range("a1", "c3").Font.Color = RGB(0, 0, 255) \'颜色 MyExcel.Range("a1", "c3").Font.Name = ...

Range("Cells(2, 5):Cells(i, 6)")这种写法不对吧？Cells()返回的是range对象，而Range(Cell1, Cell2)中的两个参数都需要是Variant类型，所以不能以Cells()的返回值作为Range的参数。换成下面这个试试：Range("E2:F" & i)

if cells（1,1）= "A" then cells（1,2)="B"

3、解决办法：一、在每个循环结束后马上使用随机数，即第一个循环结束后马上用 Range(Cells(2, 1), Cells(14, 15000)) = Arr2 然后再产生新的随机数。二、再定义一个数组，把两次产生的随机数放到不同数组中。三、扩大数组第一维的范围，并且使两个Arr2(Temp1, i) = a 中Temp1的值值不一...

对，是空单元格，只要单元格没有一般的字符，即使有批注、序列或特殊符号如 ' 等仍然算空单元格。当然，如果里面有空格，即使看不见一个字，也不算空单元格。可以用这个试试：Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Cells(1, 1) = "" Then MsgBox "空单元格"End If...

Excel正字计数：1为一，2为丁，3为下，4为止，5为正。1、打开Excel，如果是1，则用中文大写一表示。2、如果是2，则用丁表示。3、如果是3，则用下来计数。4、如果是4，则用止来表示。5、5则是用正表示，6、7、8、9则用正加前面一丁下止表示。

这样错误的有几个原因：1、Cells[0].Controls[0]控件不能转换textbox或者这个单元格的根本就没有控件，你转换时就会出现这样的错误，逐个检查下是否是该单元格，而且该单元格是否有控件。2、检查参数大小的设置与数据库字段大小设置，是否于输入时的确超出其范围。一般出问题的原因大多都是第一个。能...

中间用&连接就行，并不是破折号

cells(2,selection.column).select cells 单元格 2 行 selection.column 选中的列 select 选中

我测试过了，结果如下：1. 原代码可以运行；2. 结果也是有的，只是存放在宏所在文件的 Sheet2 工作表中（注意：这个Sheet2有鬼）；3. 关键是：按原代码中的写法，上面所说的 Sheet2，它与工作表名称、与工作表顺序位置都没有关系；它并不是指名字叫“Sheet2” 的工作表，也不是顺序第2的工作...