![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
cells(m,n)
Columns("A:A")
Range("A1").CurrentRegion?.End(xlDown).Row
Cells(ActiveSheet?.Rows.Count, 1).End(xlUp).Row
Worksheets("Sheet1").Name
Range("Q2:Q" & rows) = Left(MyDate, 8)
Range("R2:R" & rows) = Mid(MyDate, 10, 2)
Range("S2:S" & rows) = Mid(MyDate, 12, 2)
End Sub
ex)
Sub MA()
A% = 10
B% =5
SA A,B
End Sub
Sub SA(X%, Y%)
Z = X + Y
MsgBox? Z
End Sub
MsgBox?
Application.ScreenUpdating? = False
Sub MergeSheets?()
Dim intLoop As Integer
Application.ScreenUpdating = False
Worksheets.Add before:=Worksheets(1), Count:=1
For intLoop = 2 To Worksheets.Count
Worksheets(intLoop).Select
Range("A1").CurrentRegion.Select
If intLoop > 2 Then
Selection.Resize(Selection.rows.Count - 1).Offset(1).Select
End If
Selection.Copy
Worksheets(1).Select
If intLoop = 2 Then
Range("A1").Select
Else
Cells(ActiveSheet.rows.Count, 1).End(xlUp).Offset(1).Select
End If
ActiveSheet.Paste
Next intLoop
Application.CutCopyMode = False
Worksheets.Select
Range("A1").Select
Worksheets(1).Select
Application.ScreenUpdating = True
End Sub
x = Application.Round(5.13 , 0)
x=5
x = Application.Round(5.13 , 1)
x=5.1
x = Application.Round(4.13 , -1)
x=10
0
