fyqt.net
当前位置:首页 >> vBA 写入单元格 >>

vBA 写入单元格

sub m for i=1 to 10 cells(i,1)=i next end sub

假定你要写公式的是2号工作表,在工作簿代码区粘贴以下代码即可: Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets(2).Range("D10:H100").Clear '清除公式 End Sub Private Sub Workbook_Open() Sheets(2).Range("A1:C3") = 0 She...

sub abc() range("C1")=range("A1") & range("B1") '或者cells(1,3)=cells(1,1) & cells(1,2) end sub

打开Excel,按快捷键 Alt + F11 打开VBE (VB Editor)。 左侧视图栏里选择一个sheet(工作表)双击,即选择你要写入字符串的那个工作表。 右侧代码栏里输入如下VBA语句: Private Sub Worksheet_Activate() Range("A2") = "Please Type"End Sub...

Cells(2, 12).Formula = "=IF(H2=C2,"""",""数据不一致"")"

R 是ROW 行号的意思 同理 C表示列号 R2C7 ,第2行第7列,也就是G2 代码里 [G2] CELLS(2,7) RANGE("G2") 都可以表示

可用VBA解决。 首先将此表的宏安全性设置最低,ALT+F11打开VBA窗口,双击左边的SHEET1或THISWORKBOOK,添加代码,右键设置VBA工程属性,将工程保护用密码保护。代码实现所有的目标单元格只要不为空,就不能动。空的可以动。 代码如下: Private ...

ActiveCell.FormulaR1C1 = "=Sheet1!R[-1]C&" / "&Sheet1!R[-1]C[1]"

1'程序开始 sub Main 2、内容写入单元格 'Textbox1中的内容写入到第一张工作表的 第一个单元格中 sheets(1).cells(1,1)=me.textbox1.text 3、结束程序 end sub

1楼的方法有可取之处 不过不直接 如果你的公式是固定的.那么就用1楼的第1个: range("B14").Formula="=SUM(B1:F3)" 如果想用相对的,就是这样了, range("B14").FormulaR1C1="sum(R1C:R3C[4])" 说明: RC分表代表行列,后面的数字代表了相应的行列号,...

网站首页 | 网站地图
All rights reserved Powered by www.fyqt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com