ベストアンサー
このベストアンサーは投票で選ばれました
pon********さん
哀戦士のオンラインメモ帳。 忍者ツールズって１５年前にお世話になってたけど今も 残っててびっくりした。
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
Fix関数とInt関数は引数の小数点以下を切り捨てて整数を返します。
Fix関数は小数点以下を単純に切り捨てて整数を返します。
Int関数は引数の値が整数であればその整数を返し、小数点以下があればより小さい直近の整数を返します。
実際の値をFix関数とInt関数で実行した場合に返される値は以下のようになります。
赤文字はFix関数とInt関数で異なる結果が返される個所です。
| 値 | -2 | -1.5 | -1 | -0.5 | 0 | 0.5 | 1 | 1.5 | 2 |
|---|---|---|---|---|---|---|---|---|---|
| Fix関数 | -2 | -1 | -1 | 0 | 0 | 0 | 1 | 1 | 2 |
| Int関数 | -2 | -2 | -1 | -1 | 0 | 0 | 1 | 1 | 2 |
Sub MakeGraph5()
'グラフを作成（系列を個別に追加）
'グラフを作る範囲
Dim rng As Range
Set rng = Range("E1").Resize(10, 6)
'コンテナ（グラフの枠）の作成
Dim ChartObj As ChartObject
Set ChartObj = ActiveSheet.ChartObjects.Add(rng.Left, rng.Top, rng.Width, rng.Height)
'コンテナ内のChart（グラフ）オブジェクトを取得
Dim chartOne As chart
Set chartOne = ChartObj.chart
'グラフのプロパティを指定
With chartOne
'新しい系列を追加
With .SeriesCollection.NewSeries
'横軸のデータ
.XValues = Range("A1").Resize(5)
'縦軸のデータ
.Values = Range("B1").Resize(5)
End With
End With
End Sub【UserForm1】のコード
Private Sub CommandButton1_Click()
''[UserForm2を開く]ボタン
UserForm2.Label1.Caption = Me.TextBox1.Text
UserForm2.Show
End Sub
【UserForm2】のコード
Private Sub CommandButton1_Click()
''[このUserFormを閉じる]ボタン
Unload Me
End Sub
このベストアンサーは投票で選ばれました
pon********さん
'Resizeを使って、配列を横方向に貼り付け
Range("A1").Resize(1, UBound(A) + 1) = A