Find
Sub sample()
Dim foundcell, i As Long, straddress As String
Set foundcell = Cells.find(“vba”)
If foundcell Is Nothing Then
MsgBox “荀
Posts Mentioning RSS Toggle Comment Threads | キーボードショートカット
-
Bob
-
Bob
workbooksopen_demo
-
Bob
Left
綣
-
Bob
-
Bob
-
Bob
For Each
Sub Test1()
Dim -
Bob
Sub sample05()
Dim i As Long
” -
Bob
FomulaLocal
Sub test01Formula()
Range(“A3″).FormulaLocal = “A1+A2″
Range(“A4″).Formula = “07/2/1″
Range(“A5″).FormulaLocal = “07/2/1″
Range(“A6″).Formula = “A1+A2″
End Sub
-
Bob
荐
Sub Sample04()
Dim gyou
gyou = Worksheets(“sheet1″).Range(“A4″).End(xlUp)
MsgBox gyou
End Sub////////////////////////////////////////////
Sub Sample05()With Worksheets(“Sheet2″).Range(“A” & Rows.Count).End(xlUp)
.Offset(1, 0) = “ -
Bob