qwfc.net
当前位置:首页 >> vBA获取单元格的值 >>

vBA获取单元格的值

日期可以直接使用,比如,a1的值为 2010-1-31 ,:a=date '将当前日期赋值给 a if a>=range("a1").value then ……

获取第一个工作表(表名为AA)中A1的值赋值给Xx=sheets(1).[a1]或者x=sheets(“AA”).[a1]x=sheets(1).cells(1,1)x=sheets(“AA”).cells(1,1)

你是不是要获得当前单元格的值啊.i = target.row j = target.column a=cells(i.,j) a就是你要获得的值

合并后的单元格的值实际仍只存储在第一个子单元格中(即左上角的那个单元格),例如:A1:C3,这九个单元格合并后,合并后的值,仍只存在于A1中.所以获取Range("A1")单元格的值即可

Sheets(SheetIndex).Cells(RowIndex, ColIndex).Value SheetIndex:Excel中的Sheet序号,第一个Sheet的值为1 RowIndex:行序号,第一行的值为1 ColIndex:列序号,第一列的值为1 Sheets(1).Cells(1, 1).Value表示取第一个Sheet页中的第一个单元格的值.其它依次类推.

单元格的属性包括很多,包括地址、是否含有批注、是否含有合并单元格等. 如下代码分别求得其地址和做批注、合并单元格的判断. Sub myText()MsgBox "地址是" & Cells(1, 1).AddressIf Cells(1, 1).Comment Is Nothing ThenMsgBox "无批注"ElseMsgBox "有批注"End IfDim myrange As RangeSet myrange = Cells(1, 1)If myrange.MergeCells ThenMsgBox "有合并单元格"ElseMsgBox "无合并单元格"End IfEnd Sub

Dim xlApp As ObjectSet xlApp = CreateObject("Excel.Application")xlApp.Range("B2:C2").MergeCells = True '合并单元格 合并后为"B2"

Sub Macro1()'Cells(24, 1)就是A24 Dim st(3) As String st(0) = Trim("全边") st(1) = Trim("无边") st(2) = Trim("左无边,或右无边") If InStr(st(0), Cells(24, 1)) Then Range("C7:D10") = "" ElseIf InStr(st(1), Cells(24, 1)) Then

Sub t()'Cells(1, 1) = "2013-10-1" MsgBox Cells(1, 1) a = Split(Cells(1, 1), "-")'分割成数组 b = a(0) & "年" & a(1) & "月" & a(2) & "日" '连接成字符串 MsgBox bEnd Sub

MsgBox "行" & Selection.Row & "列" & Selection.Column

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